form transaksi dan barang dengan paradok

MEMBUAT FORM  TRANSAKSI DAN FORM BARANG DENGAN DATABASE DESKTOP

Terlebih  dahulu kita membuat database paradok dengan nama alias db_transaksi

Dan nama tabelnya  tbtransaksi dan tb barang

Cara pembuatannya bisa  dilihat di posting sebelumnya

Bila sudah Buat form sbb:

 

 

Untuk form 1 komponent  dibuat  disable semua kecuali  button tambah

Karena menggunakan database paradok maka komponen yang dipakai di menu BDE bukan ADO

Setting propertiesnya:

kompponen	Form 1	Form 2
Table(BDTable)	Table name=tbl1   Database name=db_transaksi   Table  name=tbtransaksi   Active=true Table name=tbl2   Database name=db_transaksi   Table  name=tbbarang   Active=true	Table name=tbl1   Database name=db_transaksi   Table  name=tbbarang   Active=true
datasource	Name=ds1 Dataset=tbl1 Name =ds2 Dataset=tbl2	Name=ds1 Dataset=tbl1
dbbgrid	Name=dbnnvgr1 Datasource=ds1
DBNAVIGATOR	Datasource=ds1	Datasource=ds1
Dblockupcombobox	Name=dblkcbb1 Listsource=ds2 Keyfield=Kodebarang Listfield=Kodebarang

Codingnya sbb:

//coding button tambah

procedure TForm1.btn1Click(Sender: TObject);

begin

edt1.Enabled:=True;

edt1.SetFocus;

edt2.Text:=datetostr(date);

edt1.Text:='';

edt3.Text:='';

edt4.Text:='';

edt5.Text:='0';

edt6.Text:='0';

edt7.Text:='0';

edt8.Text:='0';

edt9.Text:='0';

end;

//coding edt1  pakai perintah enter

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

dblkcbb1.Enabled:=true;

dblkcbb1.SetFocus;

btn1.Enabled:=false;

end;

end;

//coding setelah kode barang dipilih

procedure TForm1.dblkcbb1Click(Sender: TObject);

begin

edt3.Text:=tbl2['Namabarang'];

edt4.Text:=tbl2['Harga'];

edt5.Text:=tbl2['Stock'];

edt6.Enabled:=True;

edt6.SetFocus;

end;

//coding edt2  pakai perintah enter

procedure TForm1.edt2KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

dblkcbb1.Enabled:=true;

dblkcbb1.SetFocus;

btn1.Enabled:=false;

end;

end;

//coding edt6  pakai perintah enter

procedure TForm1.edt6KeyPress(Sender: TObject; var Key: Char);

var jumbel,harga,total,jumbar,total1:integer;

begin

  if key=#13 then

  //koding bila stok habis

begin

   if(tbl2['Stock']<(StrToInt(edt6.Text))) then

   begin

     ShowMessage('stok barang tidak mencukupi');

     Exit;

   end

else

harga:=strtoint(edt4.Text);

jumbel:=strtoint(edt6.Text);

jumbar:=strtoint(edt5.Text);

 total:=harga*jumbel;

 total1:=jumbar-jumbel;

edt7.Text:=inttostr(total);

edt5.Text:=inttostr(total1);

edt8.Enabled:=True;

edt8.SetFocus;

 end;

  end;

//coding edt8  pakai perintah enter

procedure TForm1.edt8KeyPress(Sender: TObject; var Key: Char);

var kembali:Integer;

begin

if Key=#13 then

begin

//message box bila  uang beli  tidak cukup

  if (StrToInt(edt8.Text)< StrToInt(edt7.Text)) then

  BEGIN

  ShowMessage('Uang anda kurang');

  Exit;

  end

  else

  kembali:= StrToInt(edt8.Text)- StrToInt(edt7.Text);

  edt9.Text:=IntToStr(kembali);

  btn2.Enabled:=True;

end;

 end;

//coding button simpan

begin

tbl1.Append;

tbl1['Notrans']:=edt1.Text;

 tbl1['Tgltrans']:=edt2.Text;

tbl1['Kodebarang']:=dblkcbb1.Text;

tbl1['Namabarang']:=edt3.Text;

tbl1['Harga']:=edt4.Text;

tbl1['Jumlahbeli']:=edt6.Text;

tbl1['Totalbayar']:=edt7.Text;

tbl1.Post;

tbl2.Edit;

tbl2['Stock']:=edt5.Text;

tbl2.Post;

end;

//coding menuju ke  form2

Koneksikan ke form 2=alt+f11àpilih form2àuse unit

procedure TForm1.btn4Click(Sender: TObject);

begin

Form2.ShowModal;

end;

//coding tombol simpan di  form2

procedure TForm2.btn1Click(Sender: TObject);

begin

tbl1.Append;

tbl1.Edit;

tbl1['Kodebarang']:=edt1.Text;

tbl1['Namabarang']:=edt2.Text;

tbl1['Harga']:=edt3.Text;

tbl1['Stock']:=edt4.Text;

tbl1.Post;

end;

end.

  

semoga bermanfaat....heee