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.