Tutorial Membuat Aplikasi Database Dengan Delphi 7 Bag-2

Tutorial Membuat Aplikasi Database Dengan Delphi 7 Part-2

Bismillahirrahmanirrahim , sebgaiamana janji saya sebelumnya untuk membuat aplikasi database menggunakan Delphi 7 dan paradox.Pada postingan kali ini , saya akan menjelaskan koneksi database dengan aplikasi  , serta cara pembuatan form input barang yang sudah dibuat databasenya pada postingan sebelumnya.

Okey , buka borland delphi anda.Lalu klik save all.Simpan file *.pas dengan nama UinputBarang pada folder units yang telah dibuat sebelumnya.Begitu juga dengan file *.dpr simpan dengan nama inventori.Setelah itu , tambahkan komponen berikut pada aplikasi anda.

Oia , sebelumnya buatlah data module untuk mengklasifikasikan komponen database.Caranya klik file -> new -> Data module.Rubah property file namenya menjadi DM.Masukan kompnen berikut pada data module.

Komponen	Nama	Properties
TTable	Tbarang	Databasename : D:\AplikasiToko\DB ; table name : T_barang.db ; Active : true; (path tempat penyimpanan database yang saya jelaskan pada postingan sebelumnya)
TDataSource	DSBarang	Dataset : Tbarang ; enabled : true;

Kenalkan terlebih dahulu datamodule tersebut dengan form anda.Caranya klik pada form , lalu pilih file , use units , lalu pilih DM.Okey , selanjutnya pada form utama tambahkan komponen berikut.

Komponen	Nama	properties
Form	FinputBarang	Bs.single
TEdit	edKodeBarang	-
TEdit	edNama
TEdit	edJumlahStock	-
TEdit	edSatuan	-
TButton	btnTambah	Caption :: Tambah
TButton	btnSimpan	Caption :: Simpan
TButton	btnHapus	Caption :: Hapus
TButton	btnUbah	Caption :: Ubah
TButton	btnKeluar	Caption :: Keluar
TDBGrid	grBarang	Datasource : DM.DSBarang
TLabel	KodeBarang	Caption: KodeBarang
TLabel	Nama	Caption:Nama
TLabel	JumlahStok	Caption: JumlahStok
TLabel	Satuan	Caption: Satuan
TLabel	lblCek	Bayu (nama anda juga boleh)

Sudah !?Susunlah form anda sebagaimana gambar di bawah ini

Terlihat sederhana memang.Sebagaimana saya jelaskan , bahwa tutorial ini khusus buat para nubie yang mau belajar delphi menggunakan paradox.Okey mungkin ini saat yang dinanti-nanti , it's time for coding !!!

Buatlah sebuah procedure bernama kondisiAwal,dimana procedure tersebut mengatur tampilan awal ketika program dijalankan.

Ketikan kode berikut setelah tanda {$R *.dfm}

view plainprint?

1. Procedure kondisiAwal;  
2. Begin  
3.  With FinputBarang do //mengenalkan procedure pada komponen FinputBarang  
4.   Begin  
5.    edKodeBarang.enable := false;  
6.    edNama.enable := false;                //Mengeset agar edit field tidak bisa di input  
7.    edJumlahStok.enable := false;  
8.    edSatuan.enable := false;  
9.      
10.    edKodeBarang.clear;  
11.    edNama.clear;                //Mengeset agar edit field kosong  
12.    edJumlahStok.clear;  
13.    edSatuan.clear;  
14.      
15.    btnSimpan.enabled := false;  
16.    btnUbah.enabled := false;     //Mengeset agar button ini tidak aktif  
17.    btnHapus.enabled := false;  
18.      
19.    btnTambah.setFocus;  
20.    btnTambah.Caption := 'TAMBAH';  
21.    lblCek.Caption := 'bayu' ; //atau nama anda  
22.      
23.   End;  
24. End;  

Procedure kondisiAwal;
Begin
 With FinputBarang do //mengenalkan procedure pada komponen FinputBarang
  Begin
   edKodeBarang.enable := false;
   edNama.enable := false;                //Mengeset agar edit field tidak bisa di input
   edJumlahStok.enable := false;
   edSatuan.enable := false;
   
   edKodeBarang.clear;
   edNama.clear;                //Mengeset agar edit field kosong
   edJumlahStok.clear;
   edSatuan.clear;
   
   btnSimpan.enabled := false;
   btnUbah.enabled := false;     //Mengeset agar button ini tidak aktif
   btnHapus.enabled := false;
   
   btnTambah.setFocus;
   btnTambah.Caption := 'TAMBAH';
   lblCek.Caption := 'bayu' ; //atau nama anda
   
  End;
End;

Lalu pilih pada event OnShow FinputBarang,dan ketikan kode berikut:

view plainprint?

1. procedure TFinputBarang.FormShow(Sender: TObject);  
2. begin  
3.   kondisiAwal;  
4. end;  

procedure TFinputBarang.FormShow(Sender: TObject);
begin
  kondisiAwal;
end;

Okey , selanjutnya double klik btnTambah dan ketikan kode berikut:

view plainprint?

1. procedure TFinputBarang.BtnTambahClick(Sender: TObject);  
2. begin  
3. if BtnTambah.Caption='Tambah' then  
4.   begin  
5.     EdKodeBarang.Enabled:=True;  
6.     EdKodeBarang.SetFocus;  
7.     BtnTambah.Caption:='Batal';  
8.   end  
9.   else  
10.   begin  
11.     KondisiAwal;  
12.   end;  
13. end;  

procedure TFinputBarang.BtnTambahClick(Sender: TObject);
begin
if BtnTambah.Caption='Tambah' then
  begin
    EdKodeBarang.Enabled:=True;
    EdKodeBarang.SetFocus;
    BtnTambah.Caption:='Batal';
  end
  else
  begin
    KondisiAwal;
  end;
end;

Lalu pada event onkeyPress edKodeBarang , ketikan kode berikut:

view plainprint?

1. Procedure TFinputBarang.edKodeBarangKeyPress(Sender: TObject);  
2. Begin  
3.  If key=#13 then  //fungsi bila tombol enter ditekan  
4.   Begin  
5.    If edKodeBarang.text <> '' then  
6.     Begin  
7.      edNama.setFocus;  
8.     End;  
9.   End;  
10. End;  

Procedure TFinputBarang.edKodeBarangKeyPress(Sender: TObject);
Begin
 If key=#13 then  //fungsi bila tombol enter ditekan
  Begin
   If edKodeBarang.text <> '' then
    Begin
     edNama.setFocus;
    End;
  End;
End;

Selanjutnya pada edNama event onKeyPress , ketikan kode berikut:

view plainprint?

1. Procedure TFinputBarang.edNamaKeyPress(Sender: TObject);  
2. Begin  
3.  If key=#13 then  //fungsi bila tombol enter ditekan  
4.   Begin  
5.    If edKodeBarang.text <> '' then  
6.     Begin  
7.      edJumlahStok.setFocus;  
8.     End;  
9.   End;  
10. End;  

Procedure TFinputBarang.edNamaKeyPress(Sender: TObject);
Begin
 If key=#13 then  //fungsi bila tombol enter ditekan
  Begin
   If edKodeBarang.text <> '' then
    Begin
     edJumlahStok.setFocus;
    End;
  End;
End;

Selanjutnya pada edJumlahStok event onKeyPress , ketikan kode berikut:

view plainprint?

1. Procedure TFinputBarang.edJumlahStokKeyPress(Sender: TObject);  
2. Begin  
3.  If key=#13 then  //fungsi bila tombol enter ditekan  
4.   Begin  
5.    If edKodeBarang.text <> '' then  
6.     Begin  
7.      edSatuan.setFocus;  
8.     End;  
9.   End;  
10. End;  

Procedure TFinputBarang.edJumlahStokKeyPress(Sender: TObject);
Begin
 If key=#13 then  //fungsi bila tombol enter ditekan
  Begin
   If edKodeBarang.text <> '' then
    Begin
     edSatuan.setFocus;
    End;
  End;
End;

Selanjutnya pada edSatuan event onKeyPress , ketikan kode berikut:

view plainprint?

1. Procedure TFinputBarang.edJumlahStokKeyPress(Sender: TObject);  
2. Begin  
3.  If key=#13 then  //fungsi bila tombol enter ditekan  
4.   Begin  
5.    If edKodeBarang.text <> '' then  
6.     Begin  
7.      btnSimpan.Enabled := true;  
8.      btnSimpan.setFocus;  
9.     End;  
10.   End;  
11. End;  

Procedure TFinputBarang.edJumlahStokKeyPress(Sender: TObject);
Begin
 If key=#13 then  //fungsi bila tombol enter ditekan
  Begin
   If edKodeBarang.text <> '' then
    Begin
     btnSimpan.Enabled := true;
     btnSimpan.setFocus;
    End;
  End;
End;

Dibawah kode diatas , ketikan kode berikut :

view plainprint?

1. procedure Simpan;  
2. begin  
3.   with DM.TBarang do  
4.   with FPembelian do  
5.   begin  
6.     FieldByName('kdBarang').AsString:=EdKodeBarang.Text;  
7.     FieldByName('Nama').Asstring:=edNama.Text  
8.     FieldByName('JmlStok').AsString:=EdJumlahStok.Text;  
9.     FieldByName('Satuan').AsString:=EdSatuan.Text;  
10.     Post;  
11.     ApplyUpdates;  
12.     Refresh;  
13.     DM.Tbarang.Active:=False;  
14.     DM.Tbarang.Active:=True;  
15.   end;  
16. end;  

procedure Simpan;
begin
  with DM.TBarang do
  with FPembelian do
  begin
    FieldByName('kdBarang').AsString:=EdKodeBarang.Text;
    FieldByName('Nama').Asstring:=edNama.Text
    FieldByName('JmlStok').AsString:=EdJumlahStok.Text;
    FieldByName('Satuan').AsString:=EdSatuan.Text;
    Post;
    ApplyUpdates;
    Refresh;
    DM.Tbarang.Active:=False;
    DM.Tbarang.Active:=True;
  end;
end;

Procedure diatas ialah berfungsi untuk menyimpan data kedalam database.Double klik tombol simpan dan ketikan kode berikut.

view plainprint?

1. procedure TFInputBarang.BtnSimpanClick(Sender: TObject);  
2. begin  
3. with DM.Tbarang do  
4.   begin  
5.     if lblCek.Caption='bayu' then  
6.     begin  
7.       Append;  
8.       Insert;  
9.       Simpan;  
10.       Application.MessageBox('Data Stock Barang Berhasil Di Simpan','Berhasil', MB_OK or MB_ICONINFORMATION);  
11.     end  
12.     else  
13.     if Locate('kdBarang', EdKodeBarang.Text,[loCaseInsensitive]) then  
14.     begin  
15.       Edit;  
16.       Simpan;  
17.       Application.MessageBox('Data Stock Barang Berhasil Di Ubah','Berhasil', MB_OK or MB_ICONINFORMATION);  
18.     end;  
19.   end;  
20.   
21. end;  

procedure TFInputBarang.BtnSimpanClick(Sender: TObject);
begin
with DM.Tbarang do
  begin
    if lblCek.Caption='bayu' then
    begin
      Append;
      Insert;
      Simpan;
      Application.MessageBox('Data Stock Barang Berhasil Di Simpan','Berhasil', MB_OK or MB_ICONINFORMATION);
    end
    else
    if Locate('kdBarang', EdKodeBarang.Text,[loCaseInsensitive]) then
    begin
      Edit;
      Simpan;
      Application.MessageBox('Data Stock Barang Berhasil Di Ubah','Berhasil', MB_OK or MB_ICONINFORMATION);
    end;
  end;

end;

Sampai saat ini , harusnya anda sudah bisa menginputkan data barang kedalam database.Coba anda jalankan program yang anda buat , dan input data-data sesuai field yang ada.Bila sudah berhasil , harusnya didalam grBarang terdapat data yang anda inputkan.Bila masih gagal,coba cek kembali kode yang anda ketikan.Jangan hanya copy paste ya.
Sekian untuk tutorial kali ini,selanjutnya kita akan menambahkan listing pada tombol-tombol yang lain,serta menambahkan fungsi pencarian super cepat.
Bila dari agan sekalian ada yang masih kebingungan , hubungi saya via email facebook.Tinggal klik kontak yang tertera pada blog ini , dan ajukan pertanyaan agan.Dengan senang hati saya akan membantu.Oia,bagi agan yang menggunakan fasilitas warnet tentunya akan repot bila membaca halaman ini sampai selesai.Untuk postingan kali ini , saya juga menyertakan versi pdf-nya yang bisa agan download DISINI.Untuk source code , mungkin saya sertakan ketika pembahasan mengenai pembuatan aplikasi database ini selesai , maka dari itu silahkan pantau terus perkembangannya.Terimakasih.
Wassalam.

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.