Delphi 7 Input Data Barang (DB Ms Access)

Keterangan :

Tools = Data Source, ADO Query, ADO Connection

--

Kode barang = Edit (Name = ekode)

Nama barang = Edit (Name = enamabarang)

Satuan= Combo Box (Name = esatuan)

Jumlah= Edit (Name = ejumlah)

Harga= Edit (Name = eharga)

--

&tambah = Button (Name = btambah)

&simpan = Button (Name = bsimpan)

&edit = Button (Name = bedit)

&update = Button (Name = bupdate)

&batal = Button (Name = bbatal)

&hapus = Button (Name = bhapus)

&Keluar bro = Button (Name = bkeluar)

--
Membuat Database
Cara membuat database => Delphi 7 cara membuat database
--

Data Base microsoft access.

File name = “kode”. Type = Short text. Size = 5 (Primary Key)

File name = “nama_barang”. Type = Short text. Size = 20

File name = “satuan”. Type = Short text. Size = 10

File name = “jumlah”. Type = Short text. Size = 6

File name = “harga”. Type = Short text. Size = 20

--

Lakukan Koneksi

Baca Disini => Delphi 7 cara koneksi database

--

Koding

Click Tambah (button)

    btambah.Enabled:=false;

    bsimpan.Enabled:=true;

    bedit.Enabled:=false;

    bupdate.Enabled :=false;

    bbatal.Enabled:=true;

bhapus.Enabled:=true;

--

Click Simpan (button)

    ADOQuery1.Append;

    ADOQuery1['kode']:=ekode.Text ;

    ADOQuery1['nama_barang']:=enamabarang.Text ;

    ADOQuery1['satuan']:=esatuan.Text ;

    ADOQuery1['jumlah']:=ejumlah.Text ;

    ADOQuery1['harga']:=eharga.Text ;

    ADOQuery1.Post ;

    btambah.Enabled:=true;

    bsimpan.Enabled:=false;

    bedit.Enabled:=false;

    bupdate.Enabled:=false;

    bbatal.Enabled :=false;

    bhapus.Enabled:=false;

--

Click Edit (button)

    ekode.Enabled :=true;

    enamabarang.Enabled :=true;

    esatuan.Enabled :=true;

    ejumlah.Enabled :=true;

    eharga.Enabled :=true;

    btambah.Enabled:=false;

    bsimpan.Enabled:=false;

    bedit.Enabled:=false;

    bupdate.Enabled :=true;

    bbatal.Enabled:=true;

    bhapus.Enabled :=true;

--

Click Update (button)

ADOQuery1.Edit ;

    ADOQuery1['kode']:=ekode.Text ;

    ADOQuery1['nama_barang']:=enamabarang.Text ;

    ADOQuery1['satuan']:=esatuan.Text ;

    ADOQuery1['jumlah']:=ejumlah.Text;

    ADOQuery1['harga']:=eharga.Text;

  ADOQuery1.Post ;

    btambah.Enabled :=true;

    bsimpan.Enabled:=false;

    bedit.Enabled:=false;

    bupdate.Enabled :=false;

    bbatal.Enabled:=false;

    bhapus.Enabled :=false;

--

Click Batal (button)

ADOQuery1.First;

      btambah.Enabled:=true;

      bsimpan.Enabled:=false;

      bedit.Enabled:=false;

      bupdate.Enabled :=false;

      bbatal.Enabled:=false;

      bhapus.Enabled:=false;

--

Click Hapus (button)

   ADOQuery1.Delete ;

   ADOQuery1.First ;

   btambah.Enabled:=true;

   bsimpan.Enabled:=false;

   bedit.Enabled:=false;

   bupdate.Enabled :=false;

   bbatal.Enabled:=false;

   bhapus.Enabled :=false;

--

Click Keluar (button)

if application.MessageBox('Apakah Anda yakin Keluar..??','Keluarprogram',36)=6then

close;

--

Click DB Grid (OnCellClick)

ekode.Text:= adoquery1.fieldbyname('kode').AsString;

enamabarang.Text:= adoquery1.fieldbyname('nama_barang').AsString;

esatuan.Text:= adoquery1.fieldbyname('satuan').AsString;

ejumlah.Text:= adoquery1.fieldbyname('jumlah').AsString;

eharga.Text:= adoquery1.fieldbyname('harga').AsString;

-

Selesai  Delphi 7 Input Data Barang (DB Ms Access)

Share :

Tweet

More