Sabtu, 30 Mei 2015

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.


Tutorial Dasar Delphi 7

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