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  ok tanpa mengurasi durasi waktu kembali untuk contoh contoh listing kode programnnya silahkan ada dibawah dan silahkan pelajari kembali dengan seksama, enjoy.

Pic By : aimeegracecatering

Contoh Listing Untuk tombol Add 

procedure TForm1.addClick(Sender: TObject); begin pagecontrol1.TabIndex:=0; kosong(sender); edit.SetFocus; cekbutton(false); end;
klik select all text untuk block teks dan Ctrl +C untuk copy

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;
klik select all text untuk block teks dan Ctrl +C untuk copy

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;
klik select all text untuk block teks dan Ctrl +C untuk copy

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;
klik select all text untuk block teks dan Ctrl +C untuk copy

Contoh Listing Untuk Tombol Close

procedure Tfrmbarang.btncloseClick(Sender: TObject); begin close; end;
klik select all text untuk block teks dan Ctrl +C untuk copy


Sekian artikel kali ini 

   Artikel ini semata-mata untuk menambah koleksi Admin jika ada yang ingin
   ditanyakan langsung aja ke forum diskusi ,     Untuk salinan artikel bisa Inbox Facebook admin Rizqi

 

Kalo ada Iklan Jangan lupa di klik iklanya ya gan/sist supaya admin semangat Share Artikelnya

Sekian tutorial Kode Program Delphi 7 Pada Tombol Close Add Save Edit dan Delete Trimakasih atas kunjungannya Semoga bermanfaat selamat mencoba

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

~ Rizqi makbul

Sumber : Full copy  aimeegracecatering