>>

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

Baca Juga

Comments

Post a Comment