Tutorial Membuat Aplikasi Database Dengan Delphi 7 Bag-2


Selasa, 14 Desember 2010


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;  

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

view plainprint?
  1. procedure TFinputBarang.FormShow(Sender: TObject);  
  2. begin  
  3.   kondisiAwal;  
  4. 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;  

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;  

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;  

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;  

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;  

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 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;  

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.

0 Response to " Tutorial Membuat Aplikasi Database Dengan Delphi 7 Bag-2 "

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!