Kode Program Delphi 7 Pada Tombol Close Add Save Edit dan Delete

Kali Ini akan dibahas seputar Contoh Kode Program Delphi 7 Pada Tombol Close Add Save Edit dan Delete dan sebelumnya ane juga udah bahas soal Cara Membuat Efek Sensitif Pada Minimize dan Close di Delphi 7 Terbaru 2015 ok tanpa mengurasi durasi waktu kembali untuk contoh contoh listing kode programnnya silahkan ada dibawah dan silahkan pelajari kembali dengan seksama, enjoy.

Contoh Listing Untuk tombol Add
 procedure TForm1.addClick(Sender: TObject);
begin
pagecontrol1.TabIndex:=0;
kosong(sender);
edit.SetFocus;
cekbutton(false);
end;

Contoh Listing Untuk tombol Edit
procedure TForm1.editClick(Sender: TObject);
begin
  edit1.Text:= tfrom1['edit1'];
  edit2.Text:= tfrom1['edit2'];
  edit3.Text:= tfrom1['edit3'];
  edit4.Text:= tfrom1['edit4'];
  edit5.Text:= tfrom1['edit5'];
  pagecontrol1.TabIndex:=0;
  edit.setfocus;
end;

Contoh Listing Untuk Tombol Save
procedure TForm1.saveClick(Sender: TObject);
begin
if edit1.text='' then
begin
showmessage('menampilkan pesan pada edit1');
edit1.setfocus;
end else
if edit2.text='' then
begin
showmessage('menampilkan pesan pada edit2');
edit2.setfocus;
end else
if edit3.text='' then
begin
showmessage('menampilkan pesan pada edit3');
edit3.SetFocus;
end else
if edit4.text='' then
begin
showmessage('menampilkan pesan pada edit4');
edit4.SetFocus;
end else
if edit5.text='' then
begin
showmessage('menampilkan pesan pada edit5');
edit5.SetFocus;
end else
begin
 if not tfrom.Locate('page',edit.Text,[]) then
    tfrom.append
  else
  tfrom.edit;
  tfrom.fieldbyname('edit1').Value:=edit1.Text;
  tfrom.fieldbyname('edit2').Value:=edit2.Text;
  tfrom.fieldbyname('edit3').Value:=edit3.Text;
  tfrom.fieldbyname('edit4').Value:=edit4.Text;
  tfrom.fieldbyname('edit5').Value:=edit5.Text;
  tfrom.post;
  kosong(sender);
  pagecontrol1.TabIndex:=1;
end;
end;

Contoh Listing Untuk Tombol Delete
procedure TForm1.deleteClick(Sender: TObject);
var
str:string;
begin
 str:='Anda yakin '+tfrom.Fields[1].AsString+' mau anda hapus?';
 if (Application.MessageBox(Pchar(str),'Peringatan',MB_YESNO or MB_ICONQUESTION)=IDYES) then
 tfrom.Delete;
end;

Contoh Listing Untuk Tombol Close
procedure Tfrmbarang.btncloseClick(Sender: TObject);
begin
close;
end;

Dan hanya Itu Saja sob info Seputar Contoh Kode Program Delphi 7 Pada Tombol Close Add Save Edit dan Delete Terbaru 2015 Semoga bermanfaat, dan selamat menunggu bulan suci ramdhan 1436 H - 2015 M, Thanks.

Selanjutnya; Cara Membuat Form Delphi 7 Berbentuk Bulat dan Melingkar 2015