Membuat tombol update (ubah) pada delphi7
hai sobat bloger yang setia selalu bersama raperiadisepti blog ,pada post kali ini saya akan membagikan tutorial gimana caranya untuk membuat tombol (button) update (ubah) pada delphi 7.
Mengingat tombol ini merupakan salah satu tombol wajib yang dimiliki untuk suatu aplikasi pengolahan data (sederhana),yang fungsinya yaitu untuk mengubah value (isi) dari suatu data yang akan dirubah.(yang tentunya kedalam database)
langkah pertama tentukan dimana agan akan memasukkan skrip update berikut,(biasanya pada tombol)
dan ini skrip updatenya(tinggal paste aja ke tombol agan):
========================================================================
begin
if idjurusan.Text <> '' then
begin
if MessageDlg('yakin akan diubah?',mtWarning,[mbyes,mbno],0)=mryes then
begin
with DM.ADOQueryJurusan do
begin
Close;
SQL.Clear;
SQL.Add('update mJurusan set '+'NamaJurusan='+QuotedStr(namajurusan.Text)+''+'where IDJurusan='+QuotedStr(idjurusan.Text)+'');
ExecSQL;
FormActivate(sender);
namajurusan.Text:='';
idjurusan.Text:='';
idjurusan.SetFocus;
end
end
else
ShowMessage('pilihan data yang mau diubah?');
end;
========================================================================
sebagai catatan:
idjurusan.text (merupakan edit atau inputan)
mJurusan(merupakan nama tabel database yang akan diupdate)
+'namajurusan='+(merupakan nama entity pada table yang akan diupdate isinya)
namajurusan.text(merupakan edit atau inputan pada delphi yang akan dirubah)
oke.sekian dahulu post dari saya gan,semoga post kali ini bermanfaat untuk agan sekalian.dan jangan pernah bosan untuk selalu mengunjungi raperiadisepti blog untuk mendapatkan post terbaru lainnya.terimakasih.
DONASI SAWER TRAKTIR
Terimakasih Atas Dukungan serta Keiklasan Anda
Newer Posts
Newer Posts
Older Posts
Older Posts
Comments