Автомитизация учета продаж предприятия

СОДЕРЖАНИЕ
ВВЕДЕНИЕ……………..……………..……………..……………..……………...4
1 АНАЛИЗ ДЕЯТЕЛЬНОСТИ КОМПАНИИ ООО «ГОРОДОК»…………….. 6
1.1 Технико-экономическая характеристика предметной области………….6
1.1.1 Организационная структура и объект управления………………..6
1.1.2 Организация предметной области……………..……………..…….9
1.2 Экономическая сущность информационных задач……………..………..11
1.2.1 Общие сведения о задачах……………..……………..……………..11
1.2.2 Декомпозиция комплекса задач……………..……………..……….12
1.3 Обоснование проектных решений по автоматизированному решению экономико-информационных задач……………..……………..…………..13
1.3.1 Выбор задач, входящих в комплекс……………..……………..…...13
1.3.2 Обоснование необходимости создания АИС……………..………..15
1.3.3 Необходимое информационное обеспечение комплекса задач…...18
2 РАЗРАБОТКА АВТОМАТИЗИРОВАННОЙ СИСТЕМЫ УЧЕТА
ПРОДАЖ……………..……………..……………..……………..……………..…..22
2.1 Информационное обеспечение комплекса задач……………..…………...22
2.1.1 Внемашинное информационное обеспечение……………..……….22
2.1.2 Внутримашинная реализация комплекса задач……………..……...23
2.2 Технологическое обеспечение комплекса задач……………..……………38
2.2.1 Организация технологии работы с информацией……………..…...38
2.2.2 Основные операции технологического процесса……………..……41
2.3 Программное обеспечение комплекса задач……………..……………..…42
2.3.1 Общие положения……………..……………..……………..………..42
2.3.2 Структурная схема программного средства……………..…………44
2.3.3 Описание программных модулей……………..……………..……...48
3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ
ПРОЕКТА……………..……………..……………..……………..……………..….53
3.1 Анализ источников экономической эффективности……………..……….53
3.2 Оценка экономической эффективности разработки компьютерной программы……………..……………..……………..……………..…………53
ЗАКЛЮЧЕНИЕ……………..……………..……………..……………..…………..64
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ……………..……………..…66
ПРИЛОЖЕНИЕ ЛИСТИНГ ПРОГРАММЫ……………..……………..………..70

Create(Owner); zakForm.Top:=240; zakForm.Left:=3; zakForm.Caption:='создание заказа'; zakForm.Show; zakForm.Button1.Visible:=true; zakForm.GroupBox1.Visible:=false; zakForm.GroupBox2.Visible:=false; zakForm.GroupBox4.Visible:=false; zakForm.GroupBox5.Visible:=false; zakForm.GroupBox3.Left:=2; zakForm.GroupBox3.Top:=2;end;procedure TMainClientsForm.N14Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск наличия товара по наименованию'; nomer_poisk:=1; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false;end;procedure TMainClientsForm.N15Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='проверка ср.годности расх. материала'; nomer_poisk:=2; poisk.Edit1.Visible:=false; poisk.Label1.Visible:=false;poisk.Label3.Visible:=false; poisk.Label2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N16Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск размещения товара'; nomer_poisk:=3; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N17Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='просмотр хронологии накладных'; nomer_poisk:=4; poisk.Label1.Visible:=false; poisk.Edit1.Visible:=false; poisk.Label7.Caption:='Накладные в период' end;procedure TMainClientsForm.N18Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;mainclientsform.ADOTable8.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Сведения о доставке', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='код';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='дата';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='время';//DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='куда';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='дата';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='транспорт';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='адрес';end;procedure TMainClientsForm.N110Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='создание отчета "проданные товары"'; nomer_poisk:=8; poisk.Label1.Visible:=false; poisk.Edit1.Visible:=false; poisk.Label7.Caption:='Проданные товары в период'; poisk.Button1.Caption:='Создать отчет'end;procedure TMainClientsForm.N11Click(Sender:TObject);var naklForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'naklForm'); IsMDIChildOpen(MainClientsForm,'addForm'); naklForm:=Taddform.Create(Owner); naklForm.Top:=240; naklForm.Left:=3; naklForm.Caption:='создание накладной'; naklForm.Show; // zakForm.Button1.Visible:=true; naklForm.GroupBox1.Visible:=false; naklForm.GroupBox2.Visible:=false; naklForm.GroupBox3.Visible:=false; naklForm.GroupBox5.Visible:=false; naklForm.GroupBox4.Left:=2; naklForm.GroupBox4.Top:=2; naklForm.GroupBox4.Width:=600; naklForm.GroupBox4.Height:=250;end;procedure TMainClientsForm.N19Click(Sender:TObject);var poisk:Tparampoik;begin end;end.unit addsorce;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls, DBCtrls ;type TaddForm = class(TForm) Panel1: TPanel; GroupBox1: TGroupBox; Label15: TLabel; Edit18: TEdit; Label16: TLabel; Edit19: TEdit; Edit20: TEdit; Edit21: TEdit; Edit22: TEdit; Label17: TLabel; Label18: TLabel; Edit23: TEdit; GroupBox2: TGroupBox; Edit16: TEdit; Button1: TButton; DBNavigator1: TDBNavigator; Edit13: TEdit; Label10: TLabel; Label9: TLabel; Label8: TLabel; Label7: TLabel; Label5: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; ComboBox1: TComboBox; Edit5: TEdit; Edit2: TEdit; Edit3: TEdit; Edit17: TEdit; Label14: TLabel; Label4: TLabel; Label3: TLabel; Label6: TLabel; Edit8: TEdit; Edit7: TEdit; Edit6: TEdit; Edit9: TEdit; UpDown4: TUpDown; UpDown1: TUpDown; Edit10: TEdit; UpDown5: TUpDown; Edit12: TEdit; UpDown6: TUpDown; Edit11: TEdit; Label13: TLabel; Label12: TLabel; Label11: TLabel; Edit14: TEdit; Edit15: TEdit; UpDown2: TUpDown; Edit4: TEdit; UpDown3: TUpDown; GroupBox3: TGroupBox; Label19: TLabel; Label20: TLabel; Label21: TLabel; Edit24: TEdit; Edit25: TEdit; Edit26: TEdit; Edit27: TEdit; Edit28: TEdit; Edit29: TEdit; Label22: TLabel; Button2: TButton; GroupBox4: TGroupBox; Label23: TLabel; Edit30: TEdit; Edit31: TEdit; Edit32: TEdit; UpDown7: TUpDown; UpDown8: TUpDown; Label24: TLabel; Edit33: TEdit; Label25: TLabel; Edit34: TEdit; Label26: TLabel; Edit35: TEdit; Label27: TLabel; Label28: TLabel; Edit36: TEdit; Edit37: TEdit; Label29: TLabel; Edit38: TEdit; Label30: TLabel; Edit39: TEdit; Label31: TLabel; Edit40: TEdit; Button3: TButton; Label32: TLabel; Edit41: TEdit; Label33: TLabel; Label34: TLabel; Edit43: TEdit; GroupBox5: TGroupBox; Label35: TLabel; Label36: TLabel; Label37: TLabel; Label38: TLabel; Label39: TLabel; Label40: TLabel; Edit44: TEdit; Edit45: TEdit; Edit46: TEdit; Edit47: TEdit; Edit48: TEdit; Edit49: TEdit; Button4: TButton; Label41: TLabel; Edit42: TEdit;procedure Button4Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject);procedure Button2Click(Sender:TObject);procedure Button3Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var addForm: TaddForm; naim:string;ed_izm:string;kolvo:integer;cena:real;nomerpartiya:string;sernum:string;srok_godnost:tdate;data_postavka:tdate;postavchik:string;description:string; location:string; location_part:string; primech:string; Ayear, amonth,aday:word; razmer_part,kol:integer; id_part,idaddional,idlocation,idzapas:integer; idtov:integer;implementationuses MainClients;{$R *.dfm}procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure TaddForm.Button1Click(Sender:TObject);begin naim:=Edit1.Text; ed_izm:=ComboBox1.Text; kolvo:=strtoint(Edit2.Text); cena:=strtofloat(Edit3.Text); nomerpartiya:=Edit4.Text; sernum:=Edit5.Text; postavchik:=Edit12.Text; description:=Edit13.Text; location:=Edit14.Text; location_part:=Edit15.Text; primech:=Edit16.Text; Ayear:=strtoint(Edit8.Text); amonth:= strtoint(Edit7.Text); aday:= strtoint(Edit6.Text); srok_godnost:=encodedate(Ayear, amonth,aday); Ayear:=strtoint(Edit11.Text); amonth:= strtoint(Edit10.Text); aday:= strtoint(Edit9.Text); god:= strtoint(Edit43.Text); modelavto:=Edit41.Text; model:=Edit42.Text; data_postavka :=encodedate(Ayear, amonth,aday); razmer_part:=strtoint(Edit17.Text); if naim<>'' then begin MainClientsForm.ADOTable7.Active:=true; MainClientsForm.ADOTable7.Insert; MainClientsForm.ADOTable7.FieldByName('Nom_part').AsString:=nomerpartiya; MainClientsForm.ADOTable7.FieldByName('kolichestvo').AsInteger:= razmer_part; MainClientsForm.ADOTable7.FieldByName('otkuda').AsString:= postavchik; MainClientsForm.ADOTable7.FieldByName('kogda').AsDateTime:=data_postavka; MainClientsForm.ADOTable7.FieldByName('description').AsString:=description; MainClientsForm.ADOTable7.Post; id_part:=MainClientsForm.ADOTable7.FieldByName('IdPartiya').AsInteger; MainClientsForm.ADOTable6.Active:=true; MainClientsForm.ADOTable6.Insert; MainClientsForm.ADOTable6.FieldByName('ser_num').AsString:= sernum; MainClientsForm.ADOTable6.FieldByName('srok_godnost').AsDateTime:=srok_godnost; MainClientsForm.ADOTable6.FieldByName('model').AsString:= model; MainClientsForm.ADOTable6.FieldByName('marka').AsString:= modelavto; MainClientsForm.ADOTable6.FieldByName('god').AsInteger:=god; MainClientsForm.ADOTable6.Post; idaddional:= MainClientsForm.ADOTable6.FieldByName('idaddional').AsInteger; MainClientsForm.ADOTable5.Active:=true; MainClientsForm.ADOTable5.Insert; MainClientsForm.ADOTable5.FieldByName('Location').AsString:= location; MainClientsForm.ADOTable5.FieldByName('addional_location').AsString:= location_part; MainClientsForm.ADOTable5.FieldByName('notes').AsString:= primech; MainClientsForm.ADOTable5.Post; idlocation:= MainClientsForm.ADOTable5.FieldByName('IdLocation').AsInteger; MainClientsForm.ADOTable1.Active:=true; MainClientsForm.ADOTable3.Active:=true; MainClientsForm.ADOTable3.Insert; MainClientsForm.ADOTable3.FieldByName('Izmerenie').AsString :=ed_izm; MainClientsForm.ADOTable3.FieldByName('zapas').AsInteger :=kolvo; MainClientsForm.ADOTable3.FieldByName('stoimost').AsFloat :=kolvo*cena; MainClientsForm.ADOTable3.Post; idzapas:=MainClientsForm.ADOTable3.FieldByName('idZapas').AsInteger; MainClientsForm.ADOTable1.Insert; MainClientsForm.ADOTable1.FieldByName('nameTovar').AsString:= naim; MainClientsForm.ADOTable1.FieldByName('idLocation').AsInteger:=idlocation; MainClientsForm.ADOTable1.FieldByName('idAddional').AsInteger:= idaddional; MainClientsForm.ADOTable1.FieldByName('idPartiya').AsInteger:= id_part; MainClientsForm.ADOTable1.FieldByName('idZapas').AsInteger:= idzapas; MainClientsForm.ADOTable1.Post; end;end;procedure TaddForm.Button2Click(Sender:TObject);var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;p1:tparameter;var iddostavka:integer;begin tovar:=Edit24.Text; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; //mainclientsform.ADOQuery1.Active :=true; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear; P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;if edit24.Text<>'' then begin srtkl := edit24.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; stroka_SQL:='select * from tovar where tovar.nametovar like :P1'; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; kol:= mainclientsform.ADOQuery2.RecordCount; if kol=0 then showmessage('такого товара не существует') else begin idtov:=mainclientsform.ADOQuery2.FieldByName('idtovar').AsInteger; mainclientsform.ADOTable4.Active:=true; mainclientsform.ADOTable4.Insert; mainclientsform.ADOTable4.FieldByName('idTovar').AsInteger:=idtov; mainclientsform.ADOTable4.FieldByName('kolichestvo').AsInteger:=strtoint(Edit29.Text); mainclientsform.ADOTable4.FieldByName('lico').AsString:=Edit28.Text; mainclientsform.ADOTable4.FieldByName('iddostavka').AsInteger:=strtoint(Edit42.Text); Ayear:=strtoint(Edit27.Text); amonth:= strtoint(Edit26.Text); aday:= strtoint(Edit25.Text); srok_godnost:=encodedate(Ayear, amonth,aday); mainclientsform.ADOTable4.FieldByName('kogda').AsDateTime:=srok_godnost; mainclientsform.ADOTable4.Post; end;end;procedure TaddForm.Button3Click(Sender:TObject);var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;p1:tparameter;begin tovar:=Edit33.Text; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear; P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit33.Text<>'' then begin srtkl := edit33.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; stroka_SQL:='select * from tovar where tovar.nametovar like :P1'; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; kol:= mainclientsform.ADOQuery2.RecordCount; if kol=0 then showmessage('такого товара не существует') else begin idtov:=mainclientsform.ADOQuery2.FieldByName('idtovar').AsInteger; mainclientsform.ADOTable2.Active:=true; mainclientsform.ADOTable2.Insert; mainclientsform.ADOTable2.FieldByName('idTovar').AsInteger:=idtov; mainclientsform.ADOTable2.FieldByName('kolichestvo').AsInteger:=strtoint(Edit35.Text); mainclientsform.ADOTable2.FieldByName('Lico').AsString:=Edit34.Text; mainclientsform.ADOTable2.FieldByName('stoimost').AsFloat:=strtofloat(Edit37.Text); mainclientsform.ADOTable2.FieldByName('otkuda').AsString:=Edit36.Text; mainclientsform.ADOTable2.FieldByName('kuda').AsString:=Edit38.Text; mainclientsform.ADOTable2.FieldByName('idPartiya').AsInteger:= strtoint(Edit39.Text); mainclientsform.ADOTable2.FieldByName('IdZakaz').AsInteger:= strtoint(Edit40.Text); mainclientsform.ADOTable2.FieldByName('provodka').AsString:='N'; Ayear:=strtoint(Edit32.Text); amonth:= strtoint(Edit31.Text); aday:= strtoint(Edit30.Text); srok_godnost:=encodedate(Ayear, amonth,aday); mainclientsform.ADOTable2.FieldByName('vremya').AsDateTime:=srok_godnost; mainclientsform.ADOTable2.post; end;end;procedure TaddForm.Button4Click(Sender:TObject);var pdate, ptime:tdatetime;fakt, lico, transport, adres:string;begin pdate:=strtodate(edit44.Text); ptime:=strtotime(edit45.Text); fakt:=edit46.Text; lico:=edit47.Text; transport:= edit48.Text; adres:=Edit49.Text; mainclientsform.ADOTable8.Active:=true; mainclientsform.ADOTable8.Insert; mainclientsform.ADOTable8.FieldByName('date').AsDateTime:=pdate; mainclientsform.ADOTable8.FieldByName('time').AsDateTime:=ptime; mainclientsform.ADOTable8.FieldByName('end').AsString:=fakt; mainclientsform.ADOTable8.FieldByName('lico').AsString:=lico; mainclientsform.ADOTable8.FieldByName('transport').AsString:=transport; mainclientsform.ADOTable8.FieldByName('adres').AsString:=adres; mainclientsform.ADOTable8.Post;end;end.unit parampoisk;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls,DBCtrls,OleServer, ExcelXP, OleCtnrs, ComObj ;type Tparampoik = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; UpDown1: TUpDown; Edit3: TEdit; Edit4: TEdit; UpDown2: TUpDown; Edit5: TEdit; UpDown3: TUpDown; Edit6: TEdit; UpDown4: TUpDown; Edit7: TEdit; Label2: TLabel; Label3: TLabel; Label7: TLabel;procedure RzBitBtn4Click(Sender:TObject);procedure RzBitBtn3Click(Sender:TObject);procedure RzBitBtn2Click(Sender:TObject);procedure RzBitBtn1Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var parampoik: Tparampoik; ChildTemplateForm1: TChildTemplateForm; ff:string; flagpoisk:boolean; p1,p2,p3:tparameter;all:boolean;ahour, aminute, asecond, amillisecond :word;priznak:string;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;implementationuses mainclients;{$R *.dfm}procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure Tparampoik.RzBitBtn2Click(Sender:TObject);begin{RzCheckBox16.Checked:=false;RzCheckBox17.Checked:=false;RzCheckBox1.Checked:=false;RzCheckBox2.Checked:=false;RzCheckBox3.Checked:=false;RzCheckBox4.Checked:=false;//RzCheckBox5.Checked:=false;RzCheckBox6.Checked:=false;RzCheckBox7.Checked:=false;//RzCheckBox8.Checked:=false;RzCheckBox9.Checked:=false;RzCheckBox10.Checked:=false;//RzCheckBox11.Checked:=false;RzCheckBox12.Checked:=false;RzCheckBox13.Checked:=false;RzCheckBox14.Checked:=false;RzCheckBox15.Checked:=false;RzCheckBox18.Checked:=false;RzCheckBox19.Checked:=false;}end;procedure Tparampoik.RzBitBtn3Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform;all:boolean;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string; fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;begin{flagsort:=false;} MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear; P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;end;procedure Tparampoik.RzBitBtn4Click(Sender:TObject);begin flagpoisk:=false; MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');end;procedure Tparampoik.Button1Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform; timenach,timekon:tdatetime; var XlApplication: OleVariant; XLWorkSheet: OleVariant;beginMainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear;if nomer_poisk=1 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end;ChildTemplateForm.Label1.Caption:='Информация о товарах: '+edit1.Text;sqlwhere:= ' where (zapas.idzapas = ( select tovar.idzapas from tovar where tovar.nametovar like :P1))';stroka_SQL:='select * from tovar where (tovar.nametovar like:P1)'; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=2 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime;ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%'; P1.Value := timenach; end;sqlwhere:= ' where addional.srok_godnost < :P1'; stroka_SQL:='select tovar.nametovar, addional.srok_godnost from tovar,addional'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end;if nomer_poisk=3 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end;sqlwhere:= ' where (location.idlocation = ( select tovar.idlocation from tovar where tovar.nametovar like :P1))'; stroka_SQL:='select * from location '+sqlwhere ; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=4 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime;// P1.Direction := ptInput; ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); ayear:= strtoint(Edit7.Text);amonth:=strtoint(Edit6.Text);aday:=strtoint(Edit5.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timekon:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftdatetime; P1.Value := timenach; P2.Value := timekon;sqlwhere:= ' where (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2)'; stroka_SQL:='select * from Nakladnaya'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=5 then beginP1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl);end; P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftstring; if edit2.Text<>'' then begin srtkl := edit2.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P2.Value:=srtkl; P2.Size:=Length(srtkl); end; P3 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P3.Name:='P3'; p3.DataType := ftstring; if edit5.Text<>'' then begin srtkl := edit5.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P3.Value:=srtkl; P3.Size:=Length(srtkl); end;ChildTemplateForm.Label1.Caption:='Информация о товарах: '+edit1.Text;sqlwhere:= ' where ((tovar.nametovar like :P1) and (addional.marka like :P2 )and (addional.model like :P3 ))'; stroka_SQL:='select tovar.nametovar, addional.* from tovar,addional'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=6 then beginP1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftstring; if edit2.Text<>'' then begin srtkl := edit2.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P2.Value:=srtkl; P2.Size:=Length(srtkl); end; P3 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P3.Name:='P3'; p3.DataType := ftstring; if edit5.Text<>'' then begin srtkl := edit5.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P3.Value:=srtkl; P3.Size:=Length(srtkl); end;ChildTemplateForm.Label1.Caption:='Информация о товарах: '+edit1.Text;// sqlwhere:= ' where ((tovar.nametovar like :P1) and (addional.marka like :P2 )and (addional.model like :P3 ))';// stroka_SQL:='select tovar.nametovar, addional.* from tovar,addional';sqlwhere:= ' where ((addional.idaddional = tovar.idaddional) and (tovar.idzapas=zapas.idzapas) )';stroka_SQL:='select * from tovar,addional,zapas '+sqlwhere ; //+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; if mainclientsform.ADOQuery2.RecordCount>0 then begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'act2.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet; mainclientsform.ADOQuery2.First; for i:=1 to mainclientsform.ADOQuery2.RecordCount do begin XLWorkSheet.cells[i+3,2]:=inttostr(i); XLWorkSheet.cells[i+3,3]:=mainclientsform.ADOQuery2.FieldByName('nametovar').AsString; XLWorkSheet.cells[i+3,4]:=mainclientsform.ADOQuery2.FieldByName('Ser_num').AsString; XLWorkSheet.cells[i+3,5]:=mainclientsform.ADOQuery2.FieldByName('marka').AsString; XLWorkSheet.cells[i+3,6]:=mainclientsform.ADOQuery2.FieldByName('model').AsString; XLWorkSheet.cells[i+3,7]:=mainclientsform.ADOQuery2.FieldByName('god').AsString; XLWorkSheet.cells[i+3,8]:=mainclientsform.ADOQuery2.FieldByName('zapas').Asinteger; XLWorkSheet.cells[i+3,9]:=mainclientsform.ADOQuery2.FieldByName('izmerenie').AsString; XLWorkSheet.cells[i+3,10]:=mainclientsform.ADOQuery2.FieldByName('stoimost').asinteger; mainclientsform.ADOQuery2.Next; end; end; end; end; if nomer_poisk=7 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime;// P1.Direction := ptInput; ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); ayear:= strtoint(Edit7.Text);amonth:=strtoint(Edit6.Text);aday:=strtoint(Edit5.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timekon:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftdatetime; P1.Value := timenach; P2.Value := timekon;sqlwhere:= ' where (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2) and (nakladnaya.idtovar=tovar.idtovar)'; stroka_SQL:='select * from tovar,Nakladnaya'+ sqlwhere;// stroka_SQL:='select * from tovar,location where ' mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; if mainclientsform.ADOQuery2.RecordCount>0 then begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'act3.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet; mainclientsform.ADOQuery2.First; for i:=1 to mainclientsform.ADOQuery2.RecordCount do begin XLWorkSheet.cells[i+3,2]:=inttostr(i);XLWorkSheet.cells[i+3,3]:=datetostr(mainclientsform.ADOQuery2.FieldByName('vremya').Asdatetime); XLWorkSheet.cells[i+3,4]:=mainclientsform.ADOQuery2.FieldByName('nametovar').AsString; XLWorkSheet.cells[i+3,5]:=mainclientsform.ADOQuery2.FieldByName('idnakladnaya').asinteger; XLWorkSheet.cells[i+3,6]:=mainclientsform.ADOQuery2.FieldByName('kolichestvo').asinteger; XLWorkSheet.cells[i+3,7]:=mainclientsform.ADOQuery2.FieldByName('stoimost').asinteger; mainclientsform.ADOQuery2.Next; end; end; end;end; if nomer_poisk=8 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime;// P1.Direction := ptInput; ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); ayear:= strtoint(Edit7.Text);amonth:=strtoint(Edit6.Text);aday:=strtoint(Edit5.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timekon:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftdatetime; P1.Value := timenach; P2.Value := timekon; P3 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P3.Name:='P3'; p3.DataType := ftstring; P3.Value := 'y';sqlwhere:= ' where (Nakladnaya.provodka = :P3) and (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2) and (nakladnaya.idtovar=tovar.idtovar)'; stroka_SQL:='select * from tovar, Nakladnaya'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; if mainclientsform.ADOQuery2.RecordCount>0 then begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'act3.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet; mainclientsform.ADOQuery2.First; for i:=1 to mainclientsform.ADOQuery2.RecordCount do begin if mainclientsform.ADOQuery2.FieldByName('provodka').AsString = 'y' then begin XLWorkSheet.cells[i+3,2]:=inttostr(i);XLWorkSheet.cells[i+3,3]:=datetostr(mainclientsform.ADOQuery2.FieldByName('vremya').Asdatetime); XLWorkSheet.cells[i+3,4]:=mainclientsform.ADOQuery2.FieldByName('nametovar').AsString; XLWorkSheet.cells[i+3,5]:=mainclientsform.ADOQuery2.FieldByName('idnakladnaya').asinteger; XLWorkSheet.cells[i+3,6]:=mainclientsform.ADOQuery2.FieldByName('kolichestvo').asinteger; XLWorkSheet.cells[i+3,7]:=mainclientsform.ADOQuery2.FieldByName('stoimost').asinteger; end; mainclientsform.ADOQuery2.Next; end; end; end; end;end;end.