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
CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger