Membuat Aplikasi Sederhana Dekstop Dengan Lazarus #Part1

Pada postingan kali ini saya akan menshare cara membuataplikasi desktop sederhana menggunkan Lazarus. Yang pertama yang harus kita lakukan adalah mendownload serta menginstall software IDE Lazarus dan pluginnya ke PC / Laptop yaitu :











1.       Lazarus IDE
2.       Zeosdb
3.       Lazreport
4.       Xampp
Setelah semua di install maka langkah pertama adalah membuat database di xampp. Jangan lupa aktifkan apace dan mysql nya dari kontrol panel xampp.

Kemudian silahkanmasuk ke localhost/phpmyadmin di browser kalian











.

Silahkan bikin databasenya dengan nama coba dan table mhs dengan struktur table seperti

Kemudian buka aplikasi Lazarus kalian dan buat 4 form yaitu
1.       form input
2.       form edit dan delete
3.       form menu
4.       form report.
Design form input seperti dibawah ini













Masukan komponen-komponen pendukung seperti Zconnection, Ztable, Button, DB grid, edit text dan label. Kemudian setting komponen-komponen tadi seperti table di bawah ini :
No.
Komponen
Propertis
Value
1
Zconection1
Database
coba


Hostname
Localhost


Password



Protocol
mysql


user
root


Connected
True
2
Ztable1
Connection
Zconnection1


Table name
Mhs


Active
True
3
Datasource1
Dataset
Ztable1
4
TDBgrid1
Datasource
Datasource1
5
TButton1
Caption
Buka
6
TButton2
Caption
Simpan
7
TButton3
Caption
Keluar  
8
TButton4
Caption
Isi lagi
9
TLabel1
Caption
Nama  
10
TLabel2
Caption
NIM  
11
TLabel3
Caption
Jurusan  
12
TLabel4
Caption
Tahun Masuk  
13
TLabel5
Caption
Form Input Mahasiswa Universitas Boyolali  

Setelah kita setting sedemikian rupa maka langkah selanjutnya adalah memberikan script atau code pada masing-masing komponen. Pertama kita akan memberika aksi TButton1 untuk membuka kolom edit text sebagai berikut :
procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Enabled:=true;     
  edit2.Enabled:=true;
  edit3.Enabled:=true;
  edit4.Enabled:=true;
end;           
Selanjutnya kita akan memberikan aksi TButton2 untuk menyimpan data yang di inputkan ke database yang kita buat tadi. Berikut ini adalah scriptnya :
procedure TForm1.Button2Click(Sender: TObject);
begin
  if edit1.Text = '' then
    begin
      Showmessage('Nama masih kosong');
      edit1.SetFocus;
    end else
    if edit2.Text = '' then
    begin
      Showmessage('NIM masih kosong');
      edit2.SetFocus;
    end else
    if edit3.Text ='' then
    begin
      Showmessage(' Jurusan masih kosong');
      edit3.SetFocus;
    end else
    if Edit4.Text ='' then
    begin
      Showmessage('Tahun Masuk masih kosong');
      Edit4.SetFocus;
    end else
    begin
      with Ztable1 do
      begin
        Append;
        FieldByname('nama').AsString := edit1.Text;
        FieldByName('nim').AsString := Edit2.Text;
        FieldByName('jurusan').AsString := edit3.Text;
        FieldByName('tm').AsInteger := strtoint(Edit4.Text);
        Post;
        Showmessage('Data berhasil disimpan');
      end;
    end;
end;
Selanjutnya kita akan memberikan aksi TButton3 untuk keluar dari aplikasi/form yang kita buat ini. Berikut ini adalah scriptnya :
procedure TForm1.Button3Click(Sender: TObject);
begin
  if MessageDlg('Perhatian', 'Apakah anda yakin akan keluar ?',
  mtConfirmation, [mbYes, mbNo],0) = mrYes then
  close;
end;
Terakhir kita akan memberikan aksi TButton4 untuk isi lagi atau input ulang atau reset. Berikut ini adalah scriptnya :
procedure TForm1.Button4Click(Sender: TObject);
begin
  edit1.Text:='' ;
  edit2.Text:='';
  edit3.Text:='';
  edit4.Text:='';
  edit1.SetFocus;
end;
okay form1 sudah selesai jangan lupa untuk di save terlebih dahulu z. Masih semangat untuk materi selanjutnya ? Tunggu kelanjutanya disini ya Biar cepet klik follow me di bagian menu untuk update terbaru  kalo ada yang kesusahan bisa langsung comment dibawah ya 😊
Oh ya jika ilmu ini bermanfaat jangan lupa berbagi ke yang lain z biar banyak orang yang merasakan manfaatnya.

Comments

Popular posts from this blog

Menghubungkan Android Studio Dengan NOX Terbaru