Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-3


Masih inget tutorial sebelumnya mengenai pembuatan aplikasi database dengan delphi 7 !? Ini kelanjutannya gan.Udah lama banget yak !? Hehehe .. Lebih baik telat daripada tidak sama sekali.Pada postingan tersebut untuk tombol hapus dan ubah belum memiliki source code , artinya masih belum berfungsi.Untuk itu , mari kita beri source code.Sebagaimana namanya , tombol ubah berfungsi untuk merubah data dari tabel grBarang.Kecuali kode barang , semua variabel boleh di ubah.Kenapa kode barang tidak di ubah !? Karena merupakan inisial unique dari barang yang akan kita ubah.Dan tombol hapus , ya untuk menghapus.So , let's begin.
Double klik tombol ubah dan ketikan kode berikut.


  1. procedure TFinputBarang.BtnUbahClick(Sender: TObject);  
  2. begin  
  3.  edNama.enable:=true;  
  4.  edJumlahStock.enabled:=true;  
  5.  edSatuan.enabled:=true;  
  6.    
  7.  btnSimpan.enabled:=true;  
  8.  btnHapus.enabled:=false;  
  9.  btnUbah.enabled:=false;  
  10.  btnTambah.Caption:='&Batal';  
  11.    
  12.  lblCek.Caption:='idham';  
  13. end;  

Maksudnya ialah , ketika button ubah di tekan maka variabel edit bisa kita ubah.Lalu kita bisa menyimpannya setelah di ubah.Agar data yang kita ubah tidak terduplikasi , maka lblCek digunakan untuk menjadi pembeda.Sehingga ketika tombol simpan di tekan , yang di eksekusi bukanlah insert , melainkan edit.(lihat pada tutorial sebelumnya agar lebih jelas).
Selanjutnya double-click tombol hapus , lalu ketikan kode berikut :



  1. procedure TFinputBarang.BtnHapusClick(Sender: TObject);  
  2. begin  
  3.  with DM.TBarang do  
  4.   if Application.MessageBox('Anda yakin akan menghapus data ini ? ','Konfirmasi', MB_YESNO or MB_ICONQUESTION) = mrYes then  
  5.   begin  
  6.     if Locate('kdBarang', EdKodeBarang.Text, [loCaseInsensitive]) then  
  7.     begin  
  8.       Delete;  
  9.       ApplyUpdates;  
  10.       Refresh;  
  11.       Active:=False;  
  12.       Active:=True;  
  13.       KondisiAwal;  
  14.       Application.MessageBox('Data Berhasil Di Hapus','Berhasil', MB_OK or MB_ICONINFORMATION);  
  15.     end;  
  16.   end;  
  17. end;  

Jangan lupa tambahkan DB pada klausa uses agar fungsi loCaeInsensitive bisa tereksekusi.Setelah mengetikan source-code tersebut , seharusnya muncul pertanyaan dari agan-agan.Bagaimana cara memilih data yang akan kita hapus/ubah tersebut !? Pertanyaan yang bagus (yang nanya itu saya -,-").Pilih komponen grBarang lalu pada event cellClick ketikan kode berikut :


  1. procedure TFinputBarang.grBarangCellClick(Column: TColumn);  
  2. begin  
  3. with DM.TBarang do  
  4.   begin  
  5.     edKodeBarang.Text:=fieldbyname('KdBarang').asstring;  
  6.  edNama.Text:=fieldbyname('Nama').asstring;  
  7.  edJumlahStok.Text:=fieldbyname('JmlBarang').asstring;  
  8.  edSatuan.Text:=fieldbyname('Satuan').asstring;  
  9.   end;  
  10.   
  11.   BtnTambah.Caption:='Batal';  
  12.   BtnUbah.Enabled:=True;  
  13.   BtnHapus.Enabled:=True;  
  14. end;  

Double-click tombol keluar dan ketikan kode berikut :



  1. procedure TFinputBarang.BtnKeluarClick(Sender: TObject);  
  2. Begin  
  3.  if application.messageBox('Anda yakin akan keluar !?','Konfirmasi',mb_yesno or mb_iconquestion)=mryes then  
  4.   begin  
  5.    self.close;  
  6.   end;  
  7. end;  

Taraaaa !!Sekarang , semua tombol telah berfungsi.Dan form input barang telah selesai di buat.Selanjutnya , kita akan belajar membuat laporan yang akan menampilkan data setelah di input pada form input barang dengan menggunakan QuickReport.Sekian untuk tutorial kali ini ,semoga bermanfaat.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

0 Response to " Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-3 "

Welcome In Kode Blogger

Contoh Sliding Login Dengan JQuery

Disamping ini adalah contoh Sliding Login menggunakan JQuery. Login Form Disamping hanya Contoh dan tidak dapat digunakan layaknya Login Form FB, Karena Blog ini terbuka untuk umum tanpa perlu mendaftar menjadi Member

Tutorial Blog

Untuk membuatnya Silahkan : Klik Disini

Member Login

Lost your password?

Not a member yet? Sign Up!