Scribd
Upload
41 views

Dbedit3 Dbedit4 Dbedit5 Dbedit6

The document describes a Delphi application for managing transactions and inventory. It includes interfaces, types, variables, procedures and queries to display transaction and product data, add/update transactions and inventory quantities, and allow editing of transaction details. Key features include grids and forms to view and enter data, database queries to retrieve and modify transaction and inventory tables, and validation checks on quantities.

Uploaded by

Adi Unix
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
41 views

Dbedit3 Dbedit4 Dbedit5 Dbedit6

The document describes a Delphi application for managing transactions and inventory. It includes interfaces, types, variables, procedures and queries to display transaction and product data, add/update transactions and inventory quantities, and allow editing of transaction details. Key features include grids and forms to view and enter data, database queries to retrieve and modify transaction and inventory tables, and validation checks on quantities.

Uploaded by

Adi Unix
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 11

unit Utrans;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ComCtrls, DB, ADODB;

type
TFtrans = class(TForm)
Label1: TLabel;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
GroupBox3: TGroupBox;
Button1: TButton;
Button2: TButton;
DBGrid1: TDBGrid;
StringGrid1: TStringGrid;
GroupBox4: TGroupBox;
GroupBox5: TGroupBox;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
DateTimePicker1: TDateTimePicker;
DBLookupComboBox1: TDBLookupComboBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBLookupComboBox2: TDBLookupComboBox;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
ADOConnection1: TADOConnection;
Adoquery1: TADOQuery;
DataSource1: TDataSource;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
DataSource3: TDataSource;
Adoquery3: TADOQuery;
DBEdit7: TDBEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button8: TButton;
ADOQuery4: TADOQuery;
ADOQuery5: TADOQuery;
ADOQuery6: TADOQuery;
ADOQuery7: TADOQuery;
DataSource4: TDataSource;
procedure FormCreate(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Button1Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure DateTimePicker1Change(Sender: TObject);
procedure DBLookupComboBox2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Ftrans: TFtrans;

implementation
{$R *.dfm}

procedure TFtrans.FormCreate(Sender: TObject);


begin
edit1.Text :='';
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
DateTimePicker1.Enabled :=true;
DBLookupComboBox1.Enabled:=false;
DBLookupComboBox2.Enabled:=false;
DBEdit1.enabled:=false;
DBEdit1.text:='';
DBEdit2.Enabled:=false;
DBEdit2.text:='';
DBEdit3.Enabled:=false;
DBEdit3.text:='';
DBEdit4.Enabled:=false;
DBEdit4.text:='';
DBEdit5.Enabled:=false;
DBEdit5.text:='';
DBEdit6.Enabled:=false;
DBEdit6.text:='';
DBEdit7.Enabled:=false;
DBEdit7.text:='';

Button3.Enabled:=false;
Button8.Enabled :=false;
Button1.Enabled:=true;
Button2.Enabled:=false;
Button6.Enabled:=false;
Button7.Enabled:=true;

ftrans.Refresh;
Button5.Enabled :=false;
Button6.Enabled :=false;
DBGrid1.Visible:=true;
StringGrid1.Visible :=false;

StringGrid1.Cells[0,0]:='No';
StringGrid1.Cells[1,0]:='Id Brg';
StringGrid1.Cells[2,0]:='Nama Brg';
StringGrid1.Cells[3,0]:='Harga';
StringGrid1.Cells[4,0]:='stok';
StringGrid1.Cells[5,0]:='jumlah';
StringGrid1.Cells[6,0]:='total';
Edit1.Enabled:=true;
Edit5.Enabled:=false;
DateTimePicker1.Enabled:=true;
DBLookupComboBox1.Enabled:=false;
DBLookupComboBox2.Enabled:=false;
Button3.Enabled:=false;
Button8.Enabled:=true;
Button1.Enabled:=false;
Button2.Enabled:=false;
Button6.Enabled:=false;
Button7.Enabled:=false;
DBGrid1.Visible:=true;

end;

procedure TFtrans.Edit1KeyPress(Sender: TObject; var Key: Char);


begin

begin
if key=#13 then
begin
ADOQuery5.Close;
ADOQuery5.SQL.Clear;
ADOQuery5.SQL.add('select * from detail where no_fak ="'+ edit1.Text +'"');
ADOQuery5.open;

if not ADOQuery5.Eof then


begin
DBLookupComboBox2.KeyValue := ADOQuery5.Fields[2].AsString ;
edit2.Text := ADOQuery5.Fields[3].AsString ;
edit3.Text := ADOQuery5.Fields[4].AsString ;

DateTimePicker1.Enabled:=True;
DBLookupComboBox2.Enabled:=true;
edit2.Enabled :=true;
DBGrid1.Visible :=true;
StringGrid1.Visible:=false ;
Button5.Enabled :=false;
Button6.Enabled :=true;

end
else

edit2.Enabled :=true;
edit3.Enabled :=true;
button8.Enabled :=true;
button5.Enabled :=false;
button6.Enabled :=false;
end;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from transaksi where no_fak ="'+ edit1.Text +'"');
adoquery1.open;
if not adoquery1.Eof then
begin
DBLookupComboBox1.KeyValue :=Adoquery1.Fields[1].AsString ;
DateTimePicker1.Date:= adoquery3.Fields[2].AsDateTime;
DBLookupComboBox1.Enabled :=true;
Button5.Enabled :=false;
Button6.Enabled :=true;
edit2.Enabled :=true;
end
else
Button1.Enabled :=false;
end;
end;

procedure TFtrans.Button1Click(Sender: TObject);


var i,tot:integer;
begin
Button1.Enabled:=false;
Button2.Enabled:=false;
Button6.Enabled:=true;
Edit5.Enabled:=true;
for i:=0 to StringGrid1.RowCount do
StringGrid1.Cells[0,i+1]:=inttostr(i+1);
StringGrid1.Cells[1,StringGrid1.RowCount]:=DBLookupComboBox2.Text;
StringGrid1.Cells[2,StringGrid1.RowCount]:=DBEdit5.Text;
StringGrid1.Cells[3,StringGrid1.RowCount]:=DBEdit6.Text;
StringGrid1.Cells[4,StringGrid1.RowCount]:=DBEdit7.Text;
StringGrid1.Cells[5,StringGrid1.RowCount]:=Edit2.Text;
StringGrid1.Cells[6,StringGrid1.RowCount]:=Edit3.Text;
tot:=0;
for i:=1 to StringGrid1.RowCount do
begin
tot:=tot+strtoint(StringGrid1.Cells[6,i])
end;
StringGrid1.Visible:=True;
DBGrid1.Visible:=False;
Edit4.Text:=inttostr(tot);
StringGrid1.RowCount:=StringGrid1.RowCount+1;
end;

procedure TFtrans.Button7Click(Sender: TObject);


begin
Ftrans.Close;
end;

procedure TFtrans.Edit5KeyPress(Sender: TObject; var Key: Char);


var kembali:integer;
begin
if key=#13 then
begin
if strtoint(Edit5.Text)>=strtoint(Edit4.Text) then
begin
kembali:=strtoint(Edit5.Text)-strtoint(Edit4.Text);
Edit4.Enabled:=false;
Button3.Enabled:=true;
Button6.Enabled:=false;
end
else
begin
Application.MessageBox('Uang Tidak Cukup !!','Cek lagi');
Edit4.Enabled:=False;
Edit5.SetFocus;
Button3.Enabled:=false;
Button6.Enabled:=true;
kembali:=0;
end;
Edit6.Text:=inttostr(kembali);
end;
Button1.Enabled:=false;
button4.enabled:=false;
StringGrid1.visible:=true;
DBGrid1.visible:=false;
end;

procedure TFtrans.Button3Click(Sender: TObject);


var i,a1,a2,a3:integer;
begin
if MessageDlg('Yakin disimpan???',mtInformation,[mbyes,mbno],0)=mryes then
begin
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('insert into
transaksi(no_fak,tgl_fak,kd_pbl)values("'+Edit1.Text+'","'+datetostr(DateTimePicker1.Date)
+'","'+DBLookupComboBox1.Text+'")');
Adoquery1.execsql;
Adoquery3.Sql.clear;
Adoquery3.sql.Add('select * from barang');
Adoquery3.Open;
a1:=0 ;
a2:=0;
a3:=0;
for i:=1 to StringGrid1.RowCount-1 do
begin
a1:=strtoint(StringGrid1.Cells[4,i]);
a2:=strtoint(StringGrid1.Cells[5,i]);
a3:=a1-a2;
ADOQuery6.Close;
ADOQuery6.SQL.Clear;
ADOQuery6.SQL.Add('update barang set stok="'+inttostr(a3)+'" where kd_brg="'+StringGrid1.Cells[1,i]
+'"');
ADOQuery6.ExecSQL;

ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('insert into detail(no_fak,kd_brg,jumlah,total)
("'+edit1.Text+'","'+StringGrid1.Cells[1,i]+'","'+(StringGrid1.cells[5,i])+'","'+StringGrid1.cells[6,i]+'")');
ADOQuery4.ExecSQL;
end;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.Add('select * from detail');
ADOQuery4.Open;

ADOQuery5.SQL.Clear;
ADOQuery5.SQL.Add('select * from detail');
ADOQuery5.Open;
Edit1.Text:='';
end;

Button3.Enabled:=False;
Button8.Enabled:=true;
Edit1.Enabled:=false;
DBGrid1.Visible:=true;
StringGrid1.Visible:=false;
Button7.Enabled:=true;
Edit2.Text:='';
Edit3.Text:='';
Edit4.Text:='';
Edit5.Text:='';
Edit6.Text:='';
DBEdit1.Text:='';
DBEdit2.Text:='';
DBEdit3.Text:='';
DBEdit4.Text:='';
DBEdit5.Text:='';
end;

procedure TFtrans.Button2Click(Sender: TObject);


begin
DBLookupComboBox2.Enabled:=true;
Edit2.Enabled:=false;
Edit2.Text:='';
Edit3.Text:='';
Button2.Enabled:=false;
end;

procedure TFtrans.Button4Click(Sender: TObject);


begin
StringGrid1.RowCount:=StringGrid1.RowCount-1;
end;

procedure TFtrans.Button8Click(Sender: TObject);


begin
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.Add('select * from transaksi');
Adoquery1.ExecSQL;

ADOQuery5.Close;
ADOQuery5.SQL.Clear;
ADOQuery5.SQL.Add('select * from detail');
ADOQuery5.ExecSQL;

Button8.Enabled:=false;
Button7.Enabled:=true;
Button5.Enabled:=true;
Button6.Enabled:=false;
DBGrid1.Visible:=true;
StringGrid1.Visible:=false;
Edit1.Text:='';

end;

procedure TFtrans.Edit2KeyPress(Sender: TObject; var Key: Char);


var a,c,total:integer;
begin
if key=#13 then
begin
Button4.Enabled:=false;
a:=strtoint(DBEdit7.Text);
c:=strtoint(Edit2.Text);
if a >= c then
begin
total:=strtoint(DBEdit6.Text)*strtoint(Edit2.Text);
Edit3.Text:=inttostr(total);
Button1.Enabled:=true;
Button1.SetFocus;
Button2.Enabled:=true;
Button5.Enabled:=true;
Button6.Enabled:=false;
end
else
begin
Application.MessageBox('stok barang tidak cukup','control',MB_ICONSTOP);
Edit2.SetFocus;
Edit2.Text:='';
Button1.Enabled:=false;
Edit2.Enabled:=False;
end;
Button6.Enabled:=false;
end;
end;

procedure TFtrans.Button5Click(Sender: TObject);


var up1,up2,up3,up4:integer;
begin
if messagedlg('Yakin akan diupdate?',mtinformation,[mbyes,mbno],0)=mryes then
begin
up1:=strtoint(DBEdit7.Text);
up2:=strtoint(edit2.Text);
up3:=strtoint(ADOQuery5.Fields[3].AsString) ;
up4:=up1+up3-up2;
Button5.Enabled :=false;
end;
adoquery6.close;
adoquery6.sql.clear;
adoquery6.SQL.Add('update barang set stok="'+ inttostr(up4) +'" where
kd_brg="'+DBLookupComboBox2.Text +'"');
adoquery6.ExecSQL;
Adoquery1.Close;
Adoquery1.SQL.Clear;
Adoquery1.SQL.add('update transaksi set tgl_fak="'+ datetostr(DateTimePicker1.Date)
+'",kd_pbl="'+DBLookupComboBox1.Text +'" where no_fak ="'+ edit1.Text +'" ');
Adoquery1.ExecSQL;
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.add('update detail set kd_brg ="'+ DBLookupComboBox2.Text +'", jumlah="'+
edit2.Text +'", total="'+ edit3.Text +'" where no_fak="'+ edit1.Text +'" and
kd_brg="'+DBLookupComboBox2.Text+'"');
ADOQuery4.ExecSQL;
ADOQuery5.close;
ADOQuery5.SQL.clear;
ADOQuery5.SQL.Add('Select * from detail where no_fak="'+edit1.Text+'" and
kd_brg="'+DBLookupComboBox2.Text +'"');
ADOQuery5.Open;
Adoquery1.Refresh;
ADOQuery2.Refresh ;
edit1.text :='';
edit2.Text :='';
edit3.Text :='';
edit4.Text :='';
edit5.Text :='';
edit6.Text :='';
DBEdit1.Text:='';
DBEdit2.Text:='';
DBEdit3.Text:='';
DBEdit4.Text:='';
DBEdit5.Text:='';
DBEdit6.Text:='';
DBEdit7.Text:='';
end;

procedure TFtrans.Button6Click(Sender: TObject);


var del1,del2,del3,del4 : integer;
begin
if messagedlg('Yakin akan dihapus?',mtinformation,[mbyes,mbno],0)=mryes then
begin
del1:=strtoint(DBEdit7.Text);
del2:=strtoint(edit2.Text);
del3:=del1+del2;
adoquery6.close;
adoquery6.sql.clear;
adoquery6.SQL.Add('update barang set stok="'+ inttostr(del3) +'" where
kd_brg="'+DBLookupComboBox2.Text+'"');
adoquery6.ExecSQL;
ADOQuery4.Close;
ADOQuery4.SQL.Clear;
ADOQuery4.SQL.add('delete from detail where no_fak ="'+ edit1.Text +'" and
kd_brg="'+DBLookupComboBox2.Text +'"');
ADOQuery4.ExecSQL;
end;
Adoquery1.Close;
Adoquery1.SQL.clear;
Adoquery1.SQL.Add('Select * from transaksi where no_fak ="'+ edit1.Text +'" ');
Adoquery1.Open;
ADOQuery5.Close;
ADOQuery5.SQL.Clear;
ADOQuery5.SQL.add('select * from detail where no_fak ="'+ edit1.Text +'"') ;
ADOQuery5.open;
edit1.text :='';
edit2.Text :='';
edit3.Text :='';
edit4.Text :='';
edit5.Text :='';
edit6.Text :='';
DBEdit1.Text:='';
DBEdit2.Text:='';
DBEdit3.Text:='';
DBEdit4.Text:='';
DBEdit5.Text:='';
DBEdit6.Text:='';
DBEdit7.Text:='';

end;

procedure TFtrans.DateTimePicker1Change(Sender: TObject);


begin
DBLookupComboBox1.Enabled:=true;
DBLookupComboBox2.Enabled:=true;
end;

procedure TFtrans.DBLookupComboBox2Click(Sender: TObject);


begin
Edit2.Enabled:=true;
Button4.Enabled:=false;
end;

end.

You might also like