Delphi 7 Input Data Barang (DB Desktop) ~ EAS Article

keterangan :
Tools = Data Source, Table, dan DBGrid
--
Kode Barang = Edit (Name = ekdbarang)
Nama Barang = Edit (Name = enmbarang)
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 = Button (Name = bkeluar)
--
Membuat Database
Cara membuat database => Delphi 7 cara membuat database
--
Databasse Desktop
File name = "kdbarang". Type = "A". Size = "5" (primary key)
File name = "nmbarang". Type = "A". Size = "30"
File name = "satuan". Type = "A". Size = "10"
File name = "jumlah". Type = "N". Size = "-"
File name = "harga". Type = "N". Size = "-"
--
Lakukan Koneksi
Baca Disini => Delphi 7 cara koneksi Databasse
--
Prosedure
public
{ Public declarations }
procedure tampil;
procedure hidup;
procedure mati;
procedure bersih;
end;
--
KODING
Prosedure (Form)

{$R *.dfm}
    procedure tform1.hidup ;
begin
    ekdbarang.Enabled :=true;
    enmbarang.Enabled :=true;
    esatuan.Enabled :=true;
    ejumlah.Enabled :=true;
    eharga.Enabled :=true;
end;
    procedure tform1.mati;
begin
    ekdbarang.Enabled :=false;
    enmbarang.Enabled :=false;
    esatuan.Enabled :=false;
    ejumlah.Enabled :=false;
    eharga.Enabled :=false;
end;
    procedure tform1.bersih ;
begin
    ekdbarang.Text :='';
    enmbarang.Text :='';
    esatuan.Text :='';
    ejumlah.Text :='';
    eharga.Text :='';
end;
    procedure tform1.tampil ;
begin
    ekdbarang.Text :=table1['kdbarang'];
    enmbarang.Text :=table1['nmbarang'];
    esatuan.Text :=table1['satuan'];
    ejumlah.Text :=floattostr(table1['jumlah']);
    eharga.Text :=floattostr(table1['harga']);
end;
--
Click Tambah (button)
    btambah.Enabled:=false;
    bsimpan.Enabled:=true;
    bedit.Enabled:=false;
    bupdate.Enabled :=false;
    bbatal.Enabled:=true;
    bhapus.Enabled:=true;
        hidup;
        bersih;
    ekdbarang.SetFocus
--
Click Simpan (button)
table1.Append;
    table1['kdbarang']:=ekdbarang.Text ;
    table1['nmbarang']:=enmbarang.Text ;
    table1['satuan']:=esatuan.Text ;
    table1['jumlah']:=ejumlah.Text;
    table1['harga']:=eharga.Text;
    table1.Post ;
mati;
    btambah.Enabled:=true;
    bsimpan.Enabled:=false;
    bedit.Enabled:=false;
    bupdate.Enabled:=false;
    bbatal.Enabled :=false;
    bhapus.Enabled:=false;
    bersih;
--
Click Edit (button)
mati;
    ekdbarang.Enabled :=true;
    enmbarang.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)
table1.Edit ;
    table1['kdbarang']:=ekdbarang.Text ;
    table1['nmbarang']:=enmbarang.Text ;
    table1['satuan']:=esatuan.Text ;
    table1['jumlah']:=ejumlah.Text;
    table1['harga']:=eharga.Text;
table1.Post ;
      mati;
      bersih;
    btambah.Enabled :=true;
    bsimpan.Enabled:=false;
    bedit.Enabled:=false;
    bupdate.Enabled :=false;
    bbatal.Enabled:=false;
    bhapus.Enabled :=false;
--
Click Batal (button)
bersih;
table1.First;
    mati;
      btambah.Enabled:=true;
      bsimpan.Enabled:=false;
      bedit.Enabled:=false;
      bupdate.Enabled :=false;
      bbatal.Enabled:=false;
      bhapus.Enabled:=false;
--
ClickHapus (button)
table1.Delete ;
mati;
    table1.First ;
bersih;
    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 Edit Ekdbarang (OnKeyPress)
if key=#13 then
begin
    if not table1.FindKey([ekdbarang.Text]) then
begin
    enmbarang.SetFocus;
    exit;
end
else
hidup;
tampil;
    ekdbarang.Enabled :=false;
    enmbarang.Enabled :=false;
    esatuan.Enabled :=false;
    ejumlah.Enabled :=false;
    eharga.Enabled :=false;
    btambah.Enabled:=false;
    bsimpan.Enabled:=false;
    bedit.Enabled:=true;
    bupdate.Enabled :=false;
    bbatal.Enabled:=true;
    bhapus.Enabled :=false;
end;

Selesai "Delphi 7 Input Data Barang"
Maaf apabila ada kesalahan dalam mengetik/langkah di blog ini.