Tutorial Membuat Aplikasi Database Dengan Delphi 7 Bag-3

Selasa, 07 Juni 2011

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.

view plainprint?

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;  

procedure TFinputBarang.BtnUbahClick(Sender: TObject);
begin
 edNama.enable:=true;
 edJumlahStock.enabled:=true;
 edSatuan.enabled:=true;
 
 btnSimpan.enabled:=true;
 btnHapus.enabled:=false;
 btnUbah.enabled:=false;
 btnTambah.Caption:='&Batal';
 
 lblCek.Caption:='idham';
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 :

view plainprint?

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;  

procedure TFinputBarang.BtnHapusClick(Sender: TObject);
begin
 with DM.TBarang do
  if Application.MessageBox('Anda yakin akan menghapus data ini ? ','Konfirmasi', MB_YESNO or MB_ICONQUESTION) = mrYes then
  begin
    if Locate('kdBarang', EdKodeBarang.Text, [loCaseInsensitive]) then
    begin
      Delete;
      ApplyUpdates;
      Refresh;
      Active:=False;
      Active:=True;
      KondisiAwal;
      Application.MessageBox('Data Berhasil Di Hapus','Berhasil', MB_OK or MB_ICONINFORMATION);
    end;
  end;
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 :

view plainprint?

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;  

procedure TFinputBarang.grBarangCellClick(Column: TColumn);
begin
with DM.TBarang do
  begin
    edKodeBarang.Text:=fieldbyname('KdBarang').asstring;
 edNama.Text:=fieldbyname('Nama').asstring;
 edJumlahStok.Text:=fieldbyname('JmlBarang').asstring;
 edSatuan.Text:=fieldbyname('Satuan').asstring;
  end;

  BtnTambah.Caption:='Batal';
  BtnUbah.Enabled:=True;
  BtnHapus.Enabled:=True;
end;

Double-click tombol keluar dan ketikan kode berikut :

view plainprint?

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;  

procedure TFinputBarang.BtnKeluarClick(Sender: TObject);
Begin
 if application.messageBox('Anda yakin akan keluar !?','Konfirmasi',mb_yesno or mb_iconquestion)=mryes then
  begin
   self.close;
  end;
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.