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
Oh ya jika ilmu ini bermanfaat jangan lupa
berbagi ke yang lain z biar banyak orang yang merasakan manfaatnya.
Comments
Post a Comment