Склад торгового предприятия

Введение 3
1.Постановка задачи 6
2.Средства реализации 18
2.1. Выбор средства разработки 18
2.2.Анализ существующих разработок 19
3.Требования к аппаратному и программному обеспечению 23
4.Реализация базы данных складского учета 27
4.1. Описание обеспечивающих подсистем 27
4.2.Разработка структуры данных 33
5. Интерфейс пользователя 46
6.Структура программного продукта 55
Заключение 56
Список источников и литературы 57

Clear; sql.Add('update gur_hran set kol=kol+'+form1.ADOQuery10kol.AsString+' where mesto=1'); execsql; end; with form1.ADOQuery9 do begin close; sql.Clear; sql.Add('delete from pos_nakl where code_str='+form1.ADOQuery10code_str.AsString); execsql; end; with form1.ADOQuery10 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form13.Edit1.Text); open; end; showmessage('Удалено');end;procedure TForm13.RzBitBtn3Click(Sender: TObject);begin form1.ADOQuery8.open; with form1.ADOQuery6 do begin close; sql.Clear; sql.add('select * from contrag where nam='+form1.Label1.Caption+trim(combobox1.Text)+form1.Label1.Caption); open; end; form1.ADOQuery8.AppendRecord([edit1.Text,form1.ADOQuery6code.AsInteger,datetimepicker1.date,'расход']); edit1.Text:=inttostr(1+strtoint(edit1.Text)); with form1.ADOQuery14 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.rash, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form13.Edit1.Text); open; end; showmessage('Накладнаязакрыта');end;procedure TForm13.RzBitBtn4Click(Sender: TObject);begin form13.close;end;procedure TForm13.RzBitBtn2Click(Sender: TObject);var calc:toocalc; i:integer;begincalc:=toocalc.Create('c:\skl\xlt\torg14.xlt'); form1.ADOQuery3.Open; form1.ADOQuery10.First; for i:=1 to form1.ADOQuery14.RecordCount do begin calc.Cell[28+i,1]:=i; calc.Cell[28+i,5]:=trim(form1.adoquery14nam.AsString); with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(form1.adoquery10nam.AsString)+form1.Label1.Caption); open; end; calc.Cell[28+i,45]:=form1.ADOQuery1edizm.AsString; calc.Cell[28+i,17]:=form1.ADOQuery1code.AsString; calc.Cell[28+i,64]:=form1.ADOQuery1stm.AsString; calc.Cell[28+i,71]:=form1.ADOQuery14kol.AsString; calc.Cell[28+i,75]:=form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc.Cell[28+i,93]:=form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1.adoquery10.next; end; calc.Cell[19,12]:='оператор'; form1.ADOQuery3.Open; calc.Cell[19,30]:=form1.ADOQuery3oper.AsString; calc.Cell[21,30]:=form1.ADOQuery6oper.AsString; calc.Cell[16,63]:=edit1.Text; calc.Cell[16,72]:=datetostr(datetimepicker1.date); calc.Cell[8,87]:=form1.ADOQuery3inn.AsString; calc.Cell[7,1]:=form1.ADOQuery3nam.AsString;calc.Visible:=true;end;end.unit Unit14;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm14 = class(TForm) Label3: TLabel; Label1: TLabel; Label2: TLabel; ComboBox1: TComboBox; Edit1: TEdit; ComboBox2: TComboBox; Label4: TLabel; Edit2: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure ComboBox2Select(Sender: TObject); procedure ComboBox1Select(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form14: TForm14;implementationuses Unit1, Unit11, Unit13;{$R *.dfm}procedure TForm14.RzBitBtn2Click(Sender: TObject);begin form14.close;end;procedure TForm14.ComboBox2Select(Sender: TObject);var i:integer;begin with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from sklad where nam='+form1.Label1.Caption+trim(combobox2.Text)+form1.Label1.Caption); open; end; with form1.ADOQuery13 do begin close; sql.Clear; sql.add('select * from gur_hran where mesto='+form1.ADOQuery4mesto.AsString); open; end; combobox1.clear; for i:=1 to form1.ADOQuery13.RecordCount do begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where code='+form1.ADOQuery13cd_prod.AsString); open; end; combobox1.Items.Add(trim(form1.adoquery1nam.asstring)); form1.ADOQuery13.Next; end;end;procedure TForm14.ComboBox1Select(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(combobox1.Text)+form1.Label1.Caption); open; end; with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from sklad where nam='+form1.Label1.Caption+trim(combobox2.Text)+form1.Label1.Caption); open; end; with form1.ADOQuery13 do begin close; sql.Clear; sql.add('select * from gur_hran where (cd_prod='+form1.ADOQuery1code.AsString+') and (mesto='+form1.ADOQuery4mesto.AsString+')'); open; end; if form1.ADOQuery13.RecordCount>0 then edit2.Text:=form1.ADOQuery13kol.asstring else edit2.Text:='0';end;procedure TForm14.RzBitBtn1Click(Sender: TObject);var pos:integer;begin if strtoint(edit1.Text)>strtoint(edit2.Text) then showmessage('Неттакогоколичестватоваравналичии') else begin with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from sklad where nam='+form1.Label1.Caption+trim(combobox2.Text)+form1.Label1.Caption); open; end; if form1.ADOQuery4.RecordCount=0 then showmessage('Невыбраноместохранения') else begin with form1.ADOQuery1 do beginclose; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(combobox1.Text)+form1.Label1.Caption); open; end; with form1.ADOQuery12 do begin close; sql.Clear; sql.add('select max(code_str) from pos_nakl'); open; end; if form1.ADOQuery12.RecordCount=0 then pos:=1 else pos:=1+form1.ADOQuery12Column1.AsInteger; form1.ADOQuery9.open; form1.ADOQuery9.AppendRecord([form13.Edit1.Text,form1.ADOQuery1code.AsInteger,edit1.Text,0,edit1.Text,pos]); with form1.ADOQuery14 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.rash, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form13.Edit1.Text); active:=true; end; form1.ADOQuery13.Open; with form1.adoquery13 do begin close; sql.Clear; sql.Add('select * from gur_hran where (cd_prod='+form1.ADOQuery1code.AsString+') and (mesto='+form1.ADOQuery4mesto.AsString+')'); open; end; if form1.ADOQuery13.RecordCount>0 then begin with form1.ADOQuery13 do begin close; sql.Clear; sql.Add('update gur_hran set kol=kol-'+edit1.Text+' where (cd_prod='+form1.ADOQuery1code.AsString+') and (mesto='+form1.ADOQuery4mesto.AsString+')'); execsql; end; end ; end; showmessage('Записано'); end;end;end.unit Unit15;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, StdCtrls, RzButton;type TForm15 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; Label4: TLabel; DBText4: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form15: TForm15;implementationuses Unit1, UOOCalc;{$R *.dfm}procedure TForm15.RzBitBtn2Click(Sender: TObject);begin form15.close;end;procedure TForm15.RzBitBtn1Click(Sender: TObject);var calc:toocalc; i:integer;begincalc:=toocalc.Create('c:\skl\xlt\torg14.xlt'); form1.ADOQuery3.Open; if trim(form1.ADOQuery15typ.AsString)='приход' then begin with form1.ADOQuery10 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form1.ADOQuery15code.AsString); open; end; form1.ADOQuery10.First; for i:=1 to form1.ADOQuery10.RecordCount do begin calc.Cell[28+i,1]:=i; calc.Cell[28+i,5]:=trim(form1.adoquery10nam.AsString); with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(form1.adoquery10nam.AsString)+form1.Label1.Caption); open; end; calc.Cell[28+i,45]:=form1.ADOQuery1nam.AsString; calc.Cell[28+i,17]:=form1.ADOQuery1code.AsString; calc.Cell[28+i,64]:=form1.ADOQuery1stm.AsString; calc.Cell[28+i,71]:=form1.ADOQuery10kol.AsString; calc.Cell[28+i,75]:=form1.ADOQuery10kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc.Cell[28+i,93]:=form1.ADOQuery10kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1.adoquery10.next; end; end else begin with form1.ADOQuery14 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.rash, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod where pos_nakl.code_oper='+form1.ADOQuery15code.AsString); active:=true; end; form1.ADOQuery14.First; for i:=1 to form1.ADOQuery14.RecordCount do begin calc.Cell[28+i,1]:=i; calc.Cell[28+i,5]:=trim(form1.adoquery10nam.AsString); with form1.ADOQuery1 do begin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(form1.adoquery14nam.AsString)+form1.Label1.Caption); open; end; calc.Cell[28+i,45]:=form1.ADOQuery1nam.AsString; calc.Cell[28+i,17]:=form1.ADOQuery1code.AsString; calc.Cell[28+i,64]:=form1.ADOQuery1stm.AsString; calc.Cell[28+i,71]:=form1.ADOQuery14kol.AsString; calc.Cell[28+i,75]:=form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc.Cell[28+i,93]:=form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1.adoquery10.next; end; end; calc.Cell[19,12]:='оператор'; form1.ADOQuery3.Open; calc.Cell[19,30]:=form1.ADOQuery3oper.AsString; with form1.ADOQuery6 do begin close; sql.Clear; sql.add('select * from contrag where nam='+form1.Label1.Caption+trim(form1.adoquery15nam.AsString)+form1.Label1.Caption); open ; end; calc.Cell[21,30]:=form1.ADOQuery6oper.AsString; calc.Cell[16,63]:=form1.ADOQuery15code.AsString; calc.Cell[16,72]:=form1.ADOQuery15day.AsString; calc.Cell[8,87]:=form1.ADOQuery3inn.AsString; calc.Cell[7,1]:=form1.ADOQuery3nam.AsString;calc.Visible:=true;end;end.unit Unit16;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls, ComCtrls;type TForm16 = class(TForm) Label1: TLabel; DateTimePicker1: TDateTimePicker; Label2: TLabel; DateTimePicker2: TDateTimePicker; Label3: TLabel; ComboBox1: TComboBox; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form16: TForm16;implementationuses Unit1, UOOcalc;{$R *.dfm}procedure TForm16.RzBitBtn2Click(Sender: TObject);begin form16.close;end;procedure TForm16.RzBitBtn1Click(Sender: TObject);var calc:toocalc; i,ost:integer;beginwith form1.ADOQuery1 dobegin close; sql.Clear; sql.add('select * from nomen where nam='+form1.Label1.Caption+trim(combobox1.Text)+form1.Label1.Caption); open;end;calc:=toocalc.Create('c:\skl\xlt\torg18.xlt'); with form1.adoquery16 do begin close; sql.Clear; sql.add('SELECT nomen.nam, pos_nakl.prih, pos_nakl.rash, oper.code, nomen.edizm FROM oper INNER JOIN (nomen INNER JOIN pos_nakl ON nomen.code = pos_nakl.code_prod) ON oper.code = pos_nakl.code_oper where (oper.day>=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker1.date)+form1.Label1.Caption+', 104))) and (oper.day<=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker2.date)+form1.Label1.Caption+', 104))) and (pos_nakl.code_prod='+form1.ADOQuery1code.AsString+')'); open; end; form1.ADOQuery3.Open; calc.Cell[7,1]:=trim(form1.ADOQuery3nam.AsString); calc.Cell[29,16]:=datetostr(datetimepicker1.date); calc.Cell[29,42]:=datetostr(datetimepicker2.date); calc.ActivateSheet(2); ost:=0; calc.Cell[1,14]:=combobox1.Text; calc.Cell[2,13]:=form1.ADOQuery1edizm.AsString; for i:=1 to form1.ADOQuery16.RecordCount do begin with form1.ADOQuery8 do begin close; sql.Clear; sql.add('select * from oper where code='+form1.adoquery16code.AsString); open; end; ost:=ost+form1.ADOQuery16prih.AsInteger-form1.adoquery16rash.AsInteger; calc.Cell[7+i,1]:=form1.ADOQuery8day.AsString; calc.Cell[7+i,10]:=form1.ADOQuery16code.AsString; calc.Cell[7+i,19]:=form1.ADOQuery16prih.AsString; calc.Cell[7+i,28]:=form1.ADOQuery16rash.AsString; calc.Cell[7+i,37]:=ost; form1.ADOQuery16.Next; end; calc.visible:=true;end;end.unit Unit17;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm17 = class(TForm) private { Private declarations } public { Public declarations } end;var Form17: TForm17;implementation{$R *.dfm}end. unit Unit18;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm18 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form18: TForm18;implementation{$R *.dfm}procedure TForm18.RzBitBtn2Click(Sender: TObject);begin form18.Close;end;procedure TForm18.RzBitBtn1Click(Sender: TObject);var f:textfile;begin assignfile(f,'c:\skl\connect.txt'); rewrite(f); writeln(f,edit1.text); writeln(f,edit2.text); closefile(f);showmessage('Для применения настроек перезапустите программу');end;end.unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, DB, Grids, DBGrids, RzButton, StdCtrls;type TForm2 = class(TForm) DBGrid1: TDBGrid; DataSource1: TDataSource; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; Label4: TLabel; DBText4: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form2: TForm2;implementationuses Unit1, Unit3, Unit4;{$R *.dfm}procedure TForm2.RzBitBtn3Click(Sender: TObject);begin form2.close;end;procedure TForm2.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.add('select max(code) from nomen'); open; end; if form1.ADOQuery2.RecordCount=0 then form3.Edit1.Text:='1' else form3.edit1.Text:=inttostr(1+form1.ADOQuery2column1.AsInteger); form3.Show;end;procedure TForm2.RzBitBtn2Click(Sender: TObject);begin form4.Edit1.Text:=form1.adoquery1code.AsString; form4.Edit2.Text:=form1.adoquery1edizm.AsString; form4.Edit3.Text:=form1.adoquery1nam.AsString; form4.Edit4.Text:=form1.adoquery1stm.AsString; form4.Show;end;end.unit Unit3;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm3 = class(TForm) Label4: TLabel; Label3: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form3: TForm3;implementationuses Unit1;{$R *.dfm}procedure TForm3.RzBitBtn2Click(Sender: TObject);begin form3.close;end;procedure TForm3.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery1.AppendRecord([edit1.Text,edit3.Text,edit2.Text,edit4.Text]); edit1.Text:=inttostr(1+strtoint(edit1.Text)); edit2.clear; edit3.clear; edit4.Clear; showmessage('Записано');end;end.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm4 = class(TForm) Label4: TLabel; Label3: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form4: TForm4;implementationuses Unit1;{$R *.dfm}procedure TForm4.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.add('update nomen set nam='+form1.Label1.Caption+trim(edit3.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.add('update nomen set edizm='+form1.Label1.Caption+trim(edit2.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.add('update nomen set stm='+trim(edit4.Text)+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('select * from nomen'); active:=true; end; form1.ADOQuery1.Locate('code',edit1.Text,[]); showmessage('Сохранено');end;procedure TForm4.RzBitBtn2Click(Sender: TObject);begin form4.close;end;end.unit Unit5;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm5 = class(TForm) Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Label6: TLabel; Edit6: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form5: TForm5;implementationuses Unit1;{$R *.dfm}procedure TForm5.RzBitBtn2Click(Sender: TObject);begin form5.close;end;procedure TForm5.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery3.Open; if form1.ADOQuery3.RecordCount>0 then form1.adoquery3.Delete; form1.ADOQuery3.AppendRecord([edit1.Text,edit2.Text,edit3.Text,edit4.Text,edit5.Text,edit6.Text]); showmessage('Сохранено');end;end.unit Unit6;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, DB;type TForm6 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form6: TForm6;implementationuses Unit1, Unit7;{$R *.dfm}procedure TForm6.RzBitBtn1Click(Sender: TObject);begin form6.close;end;procedure TForm6.RzBitBtn2Click(Sender: TObject);begin with form1.ADOQuery5 do begin close; sql.Clear; sql.add('select max(mesto) from sklad'); open; end; if form1.ADOQuery5.RecordCount=0 then form7.Edit1.Text:='1' else form7.edit1.Text:=inttostr(1+form1.ADOQuery5column1.AsInteger); form7.edit2.clear; form7.edit3.Clear; form7.Show;end;end.unit Unit7;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm7 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form7: TForm7;implementationuses Unit1;{$R *.dfm}procedure TForm7.RzBitBtn2Click(Sender: TObject);begin form7.close;end;procedure TForm7.RzBitBtn1Click(Sender: TObject);begin form1.ADOQuery4.AppendRecord([edit1.Text,edit2.Text,edit3.Text]); edit1.Text:=inttostr(1+strtoint(edit1.text)); edit2.Clear; edit3.Clear; showmessage('Записано');end;end.unit Unit8;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, DB;type TForm8 = class(TForm) DataSource1: TDataSource; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; Label1: TLabel; DBText1: TDBText; Label2: TLabel; DBText2: TDBText; Label3: TLabel; DBText3: TDBText; Label4: TLabel; DBText4: TDBText; Label5: TLabel; DBText5: TDBText; Label6: TLabel; DBText6: TDBText; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; RzBitBtn3: TRzBitBtn; procedure RzBitBtn3Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); procedure RzBitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form8: TForm8;implementationuses Unit1, Unit9, Unit10;{$R *.dfm}procedure TForm8.RzBitBtn3Click(Sender: TObject);begin form8.Close;end;procedure TForm8.RzBitBtn1Click(Sender: TObject);begin with form1.ADOQuery7 do begin close; sql.Clear; sql.add('select max(code) from contrag'); open; end; if form1.adoquery7.RecordCount=0 then form9.edit1.text:='1' else form9.Edit1.Text:=inttostr(1+form1.ADOQuery7column1.AsInteger); form9.Show;end;procedure TForm8.RzBitBtn2Click(Sender: TObject);begin form10.edit1.Text:=form1.ADOQuery6code.AsString; form10.edit5.Text:=form1.ADOQuery6nam.AsString; form10.edit2.Text:=form1.ADOQuery6adr.AsString; form10.edit3.Text:=form1.ADOQuery6inn.AsString; form10.edit4.Text:=form1.ADOQuery6tel.AsString; form10.edit6.Text:=form1.ADOQuery6oper.AsString; form10.Show;end;end.unit Unit9;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, RzButton, StdCtrls;type TForm9 = class(TForm) Label6: TLabel; Label5: TLabel; Label4: TLabel; Label3: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; RzBitBtn1: TRzBitBtn; RzBitBtn2: TRzBitBtn; procedure RzBitBtn2Click(Sender: TObject); procedure RzBitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form9: TForm9;implementationuses Unit1;{$R *.dfm}procedure TForm9.RzBitBtn2Click(Sender: TObject);begin form9.close;end;procedure TForm9.RzBitBtn1Click(Sender: TObject);beginform1.ADOQuery6.AppendRecord([edit1.Text,edit5.Text,edit2.Text,edit3.Text,edit4.Text,edit6.Text]); edit1.text:=inttostr(1+strtoint(edit1.Text)); edit2.Clear; edit3.Clear; edit4.clear; edit5.Clear; edit6.Clear; showmessage('Записано');end;end.