Membuat Aplikasi Sederhana Dekstop Dengan Lazarus (Update dan Delete) #Part2

Okay ketemu lagi saatnya lanjutin Cara Membuat Aplikasi Sederhana Dekstop Dengan Lazarus #Part2 setelah kalian tadi selesai membaca Membuat Aplikasi Sederhana Dekstop Dengan Lazarus #Part1 maka ini adalah lanjutannya jika belum yuk baca dulu Membuat Aplikasi Sederhana Dekstop Dengan Lazarus #Part1.
Okay  sekarang kita akan membahas form 2 dulu yak biar runtut nanti :-D. Untuk form 2 langkah pertama adalah Design form edit dan delete 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
Delete
6
TButton2
Caption
Update
7
TButton3
Caption
Keluar  
8
TLabel1
Caption
Nama  
9
TLabel2
Caption
NIM  
10
TLabel3
Caption
Jurusan  
11
TLabel4
Caption
Tahun Masuk  
12
TLabel5
Caption
Form Update Data 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 TButton2 untuk update data di database sebagai berikut :
procedure TForm2.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
        Edit;
        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 diupdate');
      end;
    end;
end;
Selanjutnya kita akan memberikan aksi TButton1 untuk hapus data di database yang kita buat tadi. Berikut ini adalah scriptnya :
procedure TForm2.Button1Click(Sender: TObject);
begin
   //buat hapus
  if MessageDlg('Perhatian', 'Apakah anda yakin data ini akan dihapus ?', mtConfirmation, [mbYes, mbNo],0) = mrYes then
         ZTable1.Delete;

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;
Dan terakhir kita akan memberikan aksi TDBGrid1 untuk menampilkan isi field di database saat kita memilih data yang tampil di TDBGrid kemudian isi field otomatis akan muncul kolom edit text sebelum kita update atau hapus data tersebut. Berikut ini adalah scriptnya :
procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
    edit1.Text := Ztable1.FieldByName('nim').AsString;
    edit2.Text:=Ztable1.FieldByName('nama').AsString;
    edit3.Text:=Ztable1.FieldByName('jurusan').AsString;
    edit4.Text :=Ztable1.FieldByName('tm').AsString;
end;
okay form2 sudah selesai jangan lupa untuk di save terlebih dahulu z. Masih semangat untuk materi selanjutnya ? Tunggu kelanjutanya disini ya jadi jangan lupa bookmark dan follow blog ini 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