form transaksi dengan form barang

MEMBUAT FORM  TRANSAKSI DAN FORM BARANG DENGAN DATABASE ACCESS

Buat form sbb:

 

 

Dan  database untuk table barang dan table  transaksi sbb:

   

 

Beri komponen setiap formnya  ADO Connection,ADO Table,dan Data Source

Seting propertiesnya:

kompponen	Form 2	Form 1
ADO Connection,ADO	Connection string= ke database yang dibuat Login promp=false connection=true	Connection string= ke database yang dibuat Login promp=false connection=true
ADO Table	Connection=con1 Master source= Form2.ds1 Table name= tb_transaks Active=true	Connection=con1 Table name= tb_barang Active=true
Data Source	Dataset=tbl1	Dataset=tbl1
dbbgrid	Datasource=ds1	Datasource=ds1
DBNAVIGATOR	Datasource=ds1	Datasource=ds1

  

 

 

Untuk form 1 komponent  dibuat  disable semua kecuali  button tambah

Coding  form transaksi sbb:

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;

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

begin

if key=#13 then

begin

dblkcbb1.Enabled:=true;

dblkcbb1.SetFocus;

btn1.Enabled:=false;

end;

end;

procedure TForm1.dblkcbb1Click(Sender: TObject);

begin

edt3.Text:=Form2.tbl1['namabarang'];

edt4.Text:=Form2.tbl1['hargajual'];

edt5.Text:=Form2.tbl1['jumlahbarang'];

edt6.Enabled:=True;

edt6.SetFocus;

end;

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(Form2.tbl1['jumlahbarang']<(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;

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

var kembali:Integer;

begin

if Key=#13 then

begin

  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;

procedure TForm1.btn2Click(Sender: TObject);

begin

tbl1.Append;

tbl1['no trans']:=edt1.Text;

 tbl1['tgl trans']:=edt2.Text;

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

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

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

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

tbl1['totalbayar']:=edt8.Text;

tbl1.Post;

begin

Form2.tbl1.Edit;

Form2.tbl1['jumlahbarang']:=edt4.Text;

Form2.tbl1.Post;

end;

 end;

end.

semoga bermanfaat...heee