117
{$R *.dfm}
procedure TForm4.Button1Click(Sender: TObject);
begin
form4.Close;
Form1.show;
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, Mask, DBCtrls, DB,
ADODB, Calendar,
ComCtrls, ExtCtrls;
type
TForm5 = class(TForm)
Button1: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
Label3: TLabel;
Label4: TLabel;
Button2: TButton;
Label5: TLabel;
ListBox1: TListBox;
Label6: TLabel;
ADOTable1: TADOTable;
DataSource1: TDataSource;
Edit1: TEdit;
118
Label7: TLabel;
Edit4: TEdit;
DateTimePicker2: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
DateTimePicker4: TDateTimePicker;
DataSource2: TDataSource;
ADOTable2: TADOTable;
DataSource3: TDataSource;
Label9: TLabel;
ComboBox2: TComboBox;
Label10: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Label11: TLabel;
Edit5: TEdit;
Edit6: TEdit;
ADOTable3: TADOTable;
DBGrid1: TDBGrid;
ADOQuery1: TADOQuery;
DataSource4: TDataSource;
Label8: TLabel;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
dd:tdatetime;
ss:string;
119
n12,n122:integer; s12,s122:string; id_s:integer;
Nazv_product,Nazv_p:string;
id_supply, NN_post:integer; N_ID:integer;
N_ID1:integer;
implementation
uses Unit_Products, Spr_Postav, Spr_GR_Product,
SPR_Product, Spisan,
P_Nakl;
{$R *.dfm}
procedure TForm5.Button1Click(Sender: TObject);
begin
Form5.close;
form1.Show;
end;
procedure TForm5.FormCreate(Sender: TObject);
begin
N_ID:=1;
N_ID1:=1;
form5.DBGrid1.Columns.Clear;
Form5.DBGrid1.Columns[0].Width:=50;
{Form5.DBGrid1.Columns[1].Width:=50;
{Form5.DBGrid1.Columns[2].Width:=200;
Form5.DBGrid1.Columns[3].Width:=200;
Form5.DBGrid1.Columns[4].Width:=200; }
form1.ADOTable4.first;
// Çàãðóçêà êîìáèíèðîâàííîãî ñïèñêà ïîñòàâùèêîâ
n1:=0;
Form5.ComboBox1.Items.clear;
form1.ADOTable1.First;
while not form1.ADOTable1.Eof do
begin
Form5.ComboBox1.Items.add(form1.ADOTable1.fieldbyname('
Íàèìåíîâàíèå ïîñòàâùèêà').asstring);
120
form1.ADOTable1.Next;
n:=n+1;
end;
form1.ADOTable1.First;
// Çàãðóçêà êîìáèíèðîâàííîãî ñïèñêà òîâàðîâ
n11:=0; n12:=1; s12:=' '; s122:=' '; n122:=0;
Form5.ComboBox2.Items.clear;
form5.ADOTable2.First;
while not form5.ADOTable2.Eof do
begin
Form5.ComboBox2.Items.add(form5.ADOTable2.fieldbyname('
PROD_NAME').asstring);
form5.ADOTable2.Next;
end;
form5.ADOTable2.First;
end;
procedure TForm5.Button2Click(Sender: TObject);
begin
form1.ADOTable1.first; form1.ADOTable4.First;
Nazv_post:=form5.ComboBox1.text; nazv:=' ';
ID_SUPP:=1; n1:=1; n:=1; kk:=1; ID_S:=1;
Form5.Label5.caption:=Nazv_post;
form5.ListBox1.items.Add('ID_SUPP
'+inttostr(ID_SUPP));
While not form1.ADOTable1.Eof do
begin
Nazv:= form1.ADOTable1.fieldbyname('Íàèìåíîâàíèå
ïîñòàâùèêà').asstring;
if Nazv_post=Nazv
then begin
121
ID_SUPP:=form1.ADOTable1.fieldbyname('suppliersID').asi
nteger;
form5.ListBox1.items.Add('ID_SUPP
'+inttostr(ID_SUPP));
end;
// Äîáàâèòü â ïîä÷. supply
form1.ADOTable4.active:=true;
form1.ADOTable4.first;
while not form1.ADOTable4.Eof do
begin
form1.ADOTable4.next; n:=n+1;
end;
form1.ADOTable1.Next;
end;
form1.ADOTable4.active:=false;
form5.ListBox1.items.Add('n '+inttostr(n));
form5.ADOTable1.active:=true;
form5.ADOTable1.Last;
form5.ADOTable1.append;
form5.ListBox1.items.Add('âñòàâêà ïîøëà n
'+inttostr(n));
form5.ADOTable1.fieldbyname('supplyID').AsInteger:=n;
form5.ADOTable1.fieldbyname('numberTTN').Asstring:=form
5.edit1.text;
form5.ADOTable1.fieldbyname('dateTTN').AsDateTime:=form
5.datetimepicker2.date;
form5.ADOTable1.fieldbyname('payment').asfloat:=strtofl
oat(form5.edit4.text);
form5.ADOTable1.fieldbyname('datesupply').AsDateTime:=f
orm5.datetimepicker3.date;;
122
form5.ADOTable1.fieldbyname('suppliersID').AsInteger:=I
D_SUPP;
form5.ADOTable1.fieldbyname('datepayment').AsDateTime:=
form5.datetimepicker4.date;
NN_post:=n;
form5.ListBox1.items.Add(' n '+inttostr(n));
form5.ADOTable1.Post;
form5.ListBox1.items.Add('âñòàâêà ïðîøëà n
'+inttostr(n));
form5.ADOTable1.active:=false;
form1.ADOTable4.active:=false;
form5.ADOTable1.active:=false;
form5.ADOTable2.active:=true;
form5.ADOTable3.active:=true;
form5.ADOTable2.first; form5.ADOTable3.First;
Nazv_product:=form5.ComboBox2.text; nazv_p:=' ';
ID_S:=1; n1:=1; n:=1; kk:=1;
Form5.Label2.caption:=Nazv_product;
form5.ListBox1.items.Add('ID_S '+inttostr(ID_S));
While not form5.ADOTable2.Eof do
begin
Nazv_p:=
form5.ADOTable2.fieldbyname('PROD_NAME').asstring;
if Nazv_product=Nazv_p
then begin
ID_S:=form5.ADOTable2.fieldbyname('prod_product_ID').as
integer;
form5.ListBox1.items.Add('ID_S '+inttostr(ID_S));
form5.ListBox1.items.Add('Nazv_product
'+Nazv_product);
123
ed-
it5.text:=form5.ADOTable2.fieldbyname('PROD_UNIT').asstring
;
ed-
it6.text:=form5.ADOTable2.fieldbyname('PROD_UNIT').asstring
;
end;
form5.ADOTable2.next;
end;
n:=1;
// Äîáàâèòü â ïîä÷. Goods_in_supply
form5.ADOTable3.active:=true;
form5.ADOTable3.first;
while not form5.ADOTable3.Eof do
begin
form5.ADOTable3.next; n:=n+1;
end;
form5.ListBox1.items.Add('2 n '+inttostr(n));
form5.ADOTable3.Last;
form5.ADOTable3.append;
form5.ListBox1.items.Add('âñòàâêà ïîøëà 2 n
'+inttostr(n));
form5.ADOTable3.fieldbyname('Goods_in_SupplyID').AsInte
ger:=n;
form5.ADOTable3.fieldbyname('Amount').Asfloat:=strtoflo
at(form5.edit2.text);
form5.ADOTable3.fieldbyname('PriceBuy').Asfloat:=strtof
loat(form5.edit3.text);
form5.ADOTable3.fieldbyname('PriceRealiz').asfloat:=str
tofloat(form5.edit3.text)*1.2;
form5.ADOTable3.fieldbyname('prod_product_ID').Asintege
r:=id_s;
form5.ADOTable3.fieldbyname('supplyID').AsInteger:=NN_p
ost;
124
form5.ListBox1.items.Add('2 n '+inttostr(n));
form5.ADOTable3.Post;
form5.ListBox1.items.Add('âñòàâêà ïðîøëà 2 n
'+inttostr(n));
ss:=form5.edit1.Text;
form5.adoquery1.Parameters[0].Value:=ss;
form5.adoquery1.active:=true;
form5.adoquery1.sql ;
form5.adoquery1.open;
form5.ADOTable1.active:=false;
form5.ADOTable3.active:=false;
form5.ADOTable2.active:=false;
end;
procedure TForm5.Button3Click(Sender: TObject);
begin
ss:=form5.edit1.Text;
form10.edit1.Text:=ss;
form10.show;
form10.adoquery1.Parameters[0].Value:=ss10;
form10.adoquery1.active:=true;
form10.adoquery1.sql ;
form10.adoquery1.open;
end;
end.
unit Reestr_rozn;
125
interface
uses
Windows, Messages, SysUtils, Variants, Classes,
Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, DB, ADODB;
type
TForm16 = class(TForm)
Label1: TLabel;
Button1: TButton;
DBGrid1: TDBGrid;
Button2: TButton;
ADOTable1: TADOTable;
DataSource1: TDataSource;
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form16: TForm16;
implementation
uses Unit_Products, Spr_Postav, Spr_GR_Product,
SPR_Product, Postavki,
Kol_spisan,Spisan,Pereochenka,Prodaji, reestr_nakl,
reestr_actspis,
reestr_check, reestr_pereoc;
{$R *.dfm}
procedure TForm16.FormCreate(Sender: TObject);
126
begin
form15.DBGrid1.Columns[0].width:=40;
form15.DBGrid1.Columns[1].width:=110;
form15.DBGrid1.Columns[2].width:=100;
form15.DBGrid1.Columns[3].width:=120;
form15.DBGrid1.Columns[4].width:=80;
form15.DBGrid1.Columns[5].width:=60;
form15.DBGrid1.Columns[6].width:=80;
form15.DBGrid1.Columns[7].width:=80;
form15.DBGrid1.Columns[8].width:=120;
form15.DBGrid1.Columns[0].title.caption:= '¹ ';
form15.DBGrid1.Columns[1].title.caption:= '¹ àêòà
ïåðåîöåíêè';
form15.DBGrid1.Columns[2].title.caption:= 'Äàòà
ïåðåîöåíêè';
form15.DBGrid1.Columns[3].title.caption:= 'Íàèìåíîâàíèå
òîâàðà';
form15.DBGrid1.Columns[4].title.caption:= 'Êîë-âî';
form15.DBGrid1.Columns[5].title.caption:= 'Åä.èçì.';
form15.DBGrid1.Columns[6].title.caption:= 'Ñòàðàÿ
öåíà';
form15.DBGrid1.Columns[7].title.caption:= 'Íîâàÿ öåíà';
form15.DBGrid1.Columns[8].title.caption:= 'Ñóììà ';
end;
procedure TForm16.Button2Click(Sender: TObject);
begin
Form16.Close;
end;
end.
unit Reestr_nakl;
interface