Listing Program untuk Tombol Add, Edit, Save, Delete dan Close pada Delphi
Disini saya akan sedikit berbagi listing yang digunakan dalam tombol Add, Edit, Save, Delete dan Close pada Delphi, untuk database saya menggunakan MySQL.. kira - kira seperti inilah database yang saya buat
terus desain form yang aku buat kaya gini nihhh...........
ini masih satu form tapi pake pagecontrol ya jadi tempat input ma data yang tersimpan aku pisahin di tabsheet yang berbeda. untuk listingnya cermati berkut ini ya!!!!!!!
Listing tombol Add
procedure Tfrmbarang.btnaddClick(Sender: TObject);
begin
pagecontrol1.TabIndex:=0;
kosong(sender);
ekodebrg.SetFocus;
cekbutton(false);
end;
Listing tombol Edit
procedure Tfrmbarang.btneditClick(Sender: TObject);
begin
ekodebrg.Text:=tbbarang['kodebrg'];
enamabrg.Text:=tbbarang['Namabrg'];
eSatuan.Text:=tbbarang['Satuan'];
eHrgjual.Text:=tbbarang['HrgJual'];
ediskon.Text:=tbbarang['diskon'];
tbbarang.edit;
pagecontrol1.TabIndex:=0;
eNamabrg.setfocus;
end;
Listing tombol Save
procedure Tfrmbarang.btnsaveClick(Sender: TObject);
begin
if ekodebrg.text='' then
begin
showmessage('Data kode barang harus diisi !');
ekodebrg.setfocus;
end else
if enamabrg.text='' then
begin
showmessage('Data nama barang harus diisi !');
enamabrg.setfocus;
end else
if esatuan.text='' then
begin
showmessage('Data Satuan harus diisi !');
esatuan.SetFocus;
end else
if ehrgjual.text='' then
begin
showmessage('Data Harga Jual harus diisi !');
ehrgjual.SetFocus;
end else
if ediskon.text='' then
begin
showmessage('Data Diskon harus diisi !');
ediskon.SetFocus;
end else
begin
if not tbbarang.Locate('kodebrg',ekodebrg.Text,[]) then
tbbarang.append
else
tbbarang.edit;
tbbarang.fieldbyname('kodebrg').Value:=eKodebrg.Text;
tbbarang.fieldbyname('Namabrg').Value:=eNamabrg.Text;
tbbarang.fieldbyname('Satuan').Value:=eSatuan.Text;
tbbarang.fieldbyname('HrgJual').Value:=eHrgjual.Text;
tbbarang.fieldbyname('diskon').Value:=ediskon.Text;
tbbarang.post;
kosong(sender);
pagecontrol1.TabIndex:=1;
end;
end;
Listing tombol Delete
procedure Tfrmbarang.btndelClick(Sender: TObject);
var
str:string;
begin
str:='Anda yakin '+tbbarang.Fields[1].AsString+' akan dihapus?';
if (Application.MessageBox(Pchar(str),'Peringatan',MB_YESNO or MB_ICONQUESTION)=IDYES) then
tbbarang.Delete;
end;
Listing tombol Close
procedure Tfrmbarang.btncloseClick(Sender: TObject);
begin
close;
end;
Nah itu tadi beberapa listing sederhana yang saya share untuk temen - temen, oya untuk script yang kosong(sender); itu adalah pemanggilan procedure dari listing yang saya buat sebelumnya disini. Berhubung saya masih newbie bila ada yang salah dan atau tidak sesuai saya mohon kritik dan saran yang membangun dari temen - temen agar bisa belajar bersama, disini ugkeyyy kawan semua sangkyu arigato yaaa!!!!!!!!!
Comments