Файл: "Проектирование реализации операций бизнес-процесса «Управление документооборотом".pdf
Добавлен: 18.06.2023
Просмотров: 96
Скачиваний: 3
СОДЕРЖАНИЕ
Выбор комплекса задач автоматизации
Характеристика существующих бизнес –процессов
Определение Характеристика документооборота, возникающего при решении задачи
Обоснование проектных решений по информационному обеспечению
Обоснование проектных решений по программному обеспечению
Информационная модель и её описание
Характеристика нормативно-справочной, входной и оперативной информации
Характеристика результатной информации
Общие положения (дерево функций и сценарий диалога)
Структурная схема пакета (дерево вызова программных модулей)
ProsmForm.Edit86.Text:=mainclientsform.ADOTable8.FieldByName('штрафные санкции').AsString;
ProsmForm.Edit82.Text:=mainclientsform.ADOTable8.FieldByName('закрытие').AsString;
end;
mainclientsform.ADOTable7.Active:=true;
if mainclientsform.ADOTable7.Locate('',kodistorii , [loCaseInsensitive,loPartialKey]) then
begin
ProsmForm.Edit87.Text:=DateToStr(mainclientsform.ADOTable7.FieldByName('дата').AsDateTime);
kodkred:=mainclientsform.ADOTable7.FieldByName('').AsInteger;
end;
mainclientsform.ADOTable6.Active:=true;
if mainclientsform.ADOTable6.Locate(',kodkred , [loCaseInsensitive,loPartialKey]) then
begin
ProsmForm.Edit88.Text:=inttostr(mainclientsform.ADOTable6.FieldByName('').AsInteger);
ProsmForm.Edit69.Text:=inttostr(mainclientsform.ADOTable6.FieldByName('').AsInteger);
ProsmForm.Edit66.Text:=inttostr(mainclientsform.ADOTable6.FieldByName('').AsInteger);
ProsmForm.Edit79.Text:=mainclientsform.ADOTable6.FieldByName('цель').AsString;
ProsmForm.Edit64.Text:=DateToStr(mainclientsform.ADOTable6.FieldByName('').AsDateTime);
end;
mainclientsform.DataSource2.DataSet:=mainclientsform.ADOQuery1;
mainclientsform.ADOQuery1.Active:=false;
mainclientsform.ADOQuery1.SQL.Clear();
P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftinteger;
P1.Value:=kodistorii;
stroka_SQL:='SELECT обязательства.* FROM обязательства WHERE (.[]=:P1) ;' ;
MainClientsForm.ADOQuery1.SQL.Add(stroka_SQL);
MainClientsForm.ADOQuery1.Active:=true;
MainClientsForm.ADOQuery1.ExecSQL;
end;
end;
procedure TMainClientsForm.N4Click(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox1.Visible:=true;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox7.Visible:=false;
ProsmForm.Caption:='';
ProsmForm.Height:=400;
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.GroupBox1.Visible:=true;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.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.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=true;
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:=4;
Poisk.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=true;
Poisk.GroupBox3.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:=5;
Poisk.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=false;
Poisk.Button1.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);
end;
procedure TMainClientsForm.N11Click(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,' ');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox7.Visible:=false;
ProsmForm.Caption:='';
ProsmForm.Height:=400;
end;
procedure TMainClientsForm.N19Click(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:=6;
Poisk.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=false;
Poisk.Button1.Caption:='';
end;
end.
unit addsorce;
interface
uses
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)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Button1: TButton;
Edit7: TEdit;
GroupBox3: TGroupBox;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Edit14: TEdit;
Edit15: TEdit;
Edit16: TEdit;
Button3: TButton;
GroupBox5: TGroupBox;
Label29: TLabel;
Label31: TLabel;
Label32: TLabel;
Label33: TLabel;
Label34: TLabel;
Label35: TLabel;
Label37: TLabel;
Label19: TLabel;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
Label23: TLabel;
Label17: TLabel;
Edit29: TEdit;
Edit31: TEdit;
Edit32: TEdit;
Edit33: TEdit;
Edit34: TEdit;
Edit35: TEdit;
Edit37: TEdit;
Button5: TButton;
Edit19: TEdit;
Edit20: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Edit23: TEdit;
Edit17: TEdit;
Label85: TLabel;
Edit89: TEdit;
Label86: TLabel;
Edit90: TEdit;
Label87: TLabel;
Label88: TLabel;
Edit91: TEdit;
Label89: TLabel;
Edit92: TEdit;
Label90: TLabel;
Edit93: TEdit;
Label91: TLabel;
Edit94: TEdit;
Label92: TLabel;
Label93: TLabel;
Edit95: TEdit;
Label94: TLabel;
Edit96: TEdit;
Label95: TLabel;
Edit97: TEdit;
Label96: TLabel;
Edit98: TEdit;
Label18: TLabel;
Label27: TLabel;
Edit18: TEdit;
Label30: TLabel;
Edit27: TEdit;
Label36: TLabel;
Edit30: TEdit;
Label38: TLabel;
Edit36: TEdit;
Label97: TLabel;
Edit38: TEdit;
Label99: TLabel;
Edit99: TEdit;
GroupBox7: TGroupBox;
Label62: TLabel;
Label63: TLabel;
Label64: TLabel;
Label65: TLabel;
Label66: TLabel;
Label67: TLabel;
Label70: TLabel;
Label71: TLabel;
Label73: TLabel;
Label74: TLabel;
Label75: TLabel;
Label77: TLabel;
Label79: TLabel;
Label80: TLabel;
Label81: TLabel;
Label82: TLabel;
Label83: TLabel;
Label84: TLabel;
Label78: TLabel;
Edit64: TEdit;
Edit66: TEdit;
Edit69: TEdit;
Edit70: TEdit;
DBNavigator2: TDBNavigator;
Edit71: TEdit;
Edit72: TEdit;
Edit73: TEdit;
Edit74: TEdit;
Edit75: TEdit;
Edit76: TEdit;
Edit77: TEdit;
Edit79: TEdit;
Edit81: TEdit;
Edit82: TEdit;
Edit83: TEdit;
Edit84: TEdit;
Edit85: TEdit;
Edit86: TEdit;
Edit87: TEdit;
Edit88: TEdit;
DBGrid1: TDBGrid;
procedure Button5Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Button1Click(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,id_proffesiya:integer;
implementation
uses MainClients;
{$R *.dfm}
procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TaddForm.Button1Click(Sender: TObject);
var
Fam, Name1, Sec_Name, Dep, Dolg, Tel1, tel2, INN :string;
kodadr,koddok,dohod:integer;
oblast,gorod, street, dom, kvartira:string;
naimenovan, nomer, kem:string;
datadok,datarogd:tdate;
begin
oblast:=Edit90.Text;
gorod:= Edit91.Text;
street:=Edit92.Text;
dom:=Edit93.Text;
kvartira:=Edit94.Text;
mainclientsform.ADOTable4.Active:=true;
mainclientsform.ADOTable4.Insert();
mainclientsform.ADOTable4.FieldByName('').AsString:= oblast;
mainclientsform.ADOTable4.FieldByName('').AsString:= gorod;
mainclientsform.ADOTable4.FieldByName('').AsString:= street;
mainclientsform.ADOTable4.FieldByName('дом').AsString:= dom;
mainclientsform.ADOTable4.FieldByName('').AsString:= kvartira;
mainclientsform.ADOTable4.Post();
kodadr:=mainclientsform.ADOTable4.FieldByName('').AsInteger;
naimenovan:=Edit95.Text;
nomer:=Edit96.Text;
kem:=Edit98.Text;;
datadok:=strtodate(Edit97.Text);
mainclientsform.ADOTable5.Active:=true;
mainclientsform.ADOTable5.Insert();
mainclientsform.ADOTable5.FieldByName('').AsString:= naimenovan;
mainclientsform.ADOTable5.FieldByName('').AsString:= nomer;
mainclientsform.ADOTable5.FieldByName('').AsDateTime:=datadok;
mainclientsform.ADOTable5.FieldByName('').AsString:= kem;
mainclientsform.ADOTable5.Post();
koddok:=mainclientsform.ADOTable5.FieldByName('Код документа').AsInteger;
Fam:= Edit1.Text;
Name1:= Edit2.Text;
Sec_Name:= Edit3.Text;
datarogd:=strtodate(Edit4.Text);
Tel1:= Edit7.Text;
Tel2:= Edit89.Text;
INN:= Edit5.Text;
dohod:= strtoint(Edit6.Text);
// добавление данных клиент
mainclientsform.ADOTable3.Active:=true;
mainclientsform.ADOTable3.Insert();
mainclientsform.ADOTable3.FieldByName('').AsString:= Fam;
mainclientsform.ADOTable3.FieldByName('').AsString:= Name1;
mainclientsform.ADOTable3.FieldByName('').AsString:= Sec_Name;
mainclientsform.ADOTable3.FieldByName('').AsDateTime:=datarogd;
mainclientsform.ADOTable3.FieldByName('').AsString:= Tel1;
mainclientsform.ADOTable3.FieldByName('').AsString:= Tel2;
mainclientsform.ADOTable3.FieldByName('').AsString:= INN;
mainclientsform.ADOTable3.FieldByName('').AsInteger:= dohod;
mainclientsform.ADOTable3.FieldByName('').AsInteger:= kodadr;
mainclientsform.ADOTable3.FieldByName('').AsInteger:= koddok;
mainclientsform.ADOTable3.Post();
end;
procedure TaddForm.Button3Click(Sender: TObject);
var summa, egplat,srok,procent, kodkred,kodistorii:integer;
target:string;
datapogash:tdatetime;
begin
target:= Edit15.Text;
datapogash:=StrToDate(Edit36.Text);
summa:=strtoint(Edit16.Text);
egplat:=strtoint(Edit14.Text);
srok:=strtoint(Edit30.Text);
procent:=strtoint(Edit38.Text);
kodistorii:= strtoint(Edit99.Text);
mainclientsform.ADOTable6.Active:=true;
mainclientsform.ADOTable6.Insert();
mainclientsform.ADOTable6.FieldByName('').AsString:= target;
mainclientsform.ADOTable6.FieldByName('').AsDateTime:=datapogash;
mainclientsform.ADOTable6.FieldByName('').AsInteger:=summa;
mainclientsform.ADOTable6.FieldByName('').AsInteger:=egplat;
mainclientsform.ADOTable6.FieldByName('').AsInteger:=srok;
mainclientsform.ADOTable6.FieldByName('').AsInteger:=procent;
mainclientsform.ADOTable6.Post();
kodkred:= mainclientsform.ADOTable6.FieldByName('').AsInteger;
mainclientsform.ADOTable7.Active:=true;
mainclientsform.ADOTable7.Insert();
mainclientsform.ADOTable7.FieldByName('').AsInteger:=kodistorii;
mainclientsform.ADOTable7.FieldByName('').AsInteger:=kodkred;
mainclientsform.ADOTable7.FieldByName('').AsDateTime:=now;
mainclientsform.ADOTable7.FieldByName('').AsString:='';
mainclientsform.ADOTable7.Post();
end;
procedure TaddForm.Button5Click(Sender: TObject);
var srokvoz, datenach:tdatetime;
narush,sankcii,zakrut,status:string;
procentsv, kodclient, kodfakt, kodistorii, summa:integer;
bank,vidob,nomdog,notes:string;
datadog,srokup:tdatetime;
begin
srokvoz:=StrToDate(Edit21.Text);
narush:=Edit37.Text;
procentsv:=strtoint(Edit32.Text);
sankcii:=Edit29.Text;
zakrut:=Edit31.Text;
mainclientsform.ADOTable8.Active:=true;
mainclientsform.ADOTable8.Insert();
mainclientsform.ADOTable8.FieldByName('').AsDateTime:= srokvoz;
mainclientsform.ADOTable8.FieldByName('').AsString:= narush;
mainclientsform.ADOTable8.FieldByName('%').AsInteger:=procentsv;
mainclientsform.ADOTable8.FieldByName('').AsString:= sankcii;
mainclientsform.ADOTable8.FieldByName('').AsString:= zakrut;
mainclientsform.ADOTable8.Post();
kodfakt:= mainclientsform.ADOTable8.FieldByName('Код факта').AsInteger;
status:=Edit34.Text;
datenach:=StrToDate(Edit35.Text);
kodclient:=strtoint(Edit33.Text);
mainclientsform.ADOTable1.Active:=true;
mainclientsform.ADOTable1.Insert();
MainClientsForm.ADOTable1.FieldByName('').AsInteger:=kodclient;
MainClientsForm.ADOTable1.FieldByName('').AsInteger:=kodfakt;
mainclientsform.ADOTable1.FieldByName('').AsDateTime:=datenach;
mainclientsform.ADOTable1.FieldByName('').AsString:= status;
mainclientsform.ADOTable1.Post();
kodistorii:= mainclientsform.ADOTable1.FieldByName('').AsInteger;
bank:=Edit19.Text;
vidob:=Edit20.Text;
nomdog:=Edit23.Text;
notes:=Edit27.Text;
summa:=STRToint(Edit17.Text);
datadog:= StrToDate(Edit22.Text);
srokup:=StrToDate(Edit18.Text);
mainclientsform.ADOTable2.Active:=true;
mainclientsform.ADOTable2.Insert();
mainclientsform.ADOTable2.FieldByName('').AsString:=bank;
mainclientsform.ADOTable2.FieldByName('').AsString:= vidob;
mainclientsform.ADOTable2.FieldByName('').AsDateTime:=datadog;
mainclientsform.ADOTable2.FieldByName('').AsString:=nomdog;
MainClientsForm.ADOTable2.FieldByName('').AsInteger:=summa;
mainclientsform.ADOTable2.FieldByName('').AsDateTime:=srokup;
mainclientsform.ADOTable2.FieldByName('').AsString:=notes;
MainClientsForm.ADOTable2.FieldByName('').AsInteger:=kodistorii;
mainclientsform.ADOTable2.Post();
end;
end.
unit parampoisk;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce,
StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls ;
type
Tparampoik = class(TForm)
Button1: TButton;
GroupBox1: TGroupBox;
Label1: TLabel;
Edit3: TEdit;
GroupBox2: TGroupBox;
Label2: TLabel;
Edit1: TEdit;
GroupBox3: TGroupBox;
Label3: TLabel;
Edit2: TEdit;
Label4: TLabel;
Edit4: TEdit;
Label5: TLabel;
Edit5: TEdit;
procedure RzBitBtn4Click(Sender: TObject);
procedure RzBitBtn3Click(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: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;
implementation
uses mainclients;
{$R *.dfm}
procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
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
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;
data:tdatetime;
summa,srok:integer;
begin
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.ADOQuery2;
mainclientsform.ADOQuery2.Active:=false;
mainclientsform.ADOQuery2.SQL.Clear;
if nomer_poisk=1 then begin
childTemplateForm.Button1.Visible:=false;
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
S:=Edit3.Text;
P1.Name:='P1';
P1.DataType:=ftString;
P1.Value:=S;
stroka_SQL:='SELECT.[],.[], , .* FROM INNER JOIN История ON.[] =.[] WHERE (((])=:P1));';
if (stroka_SQL<>'') then
begin
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL();
end;
end;
if nomer_poisk=4 then begin
childTemplateForm.Button1.Visible:=false;
S:=Edit1.Text;
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
p1.DataType := ftstring;
P1.Name:='P1';
P1.DataType:=ftString;
P1.Value:=S;
stroka_SQL:='SELECT.* FROM Клиент WHERE ((() = :P1))' ;
if (stroka_SQL<>'') then
begin
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL();
end;
end;
if nomer_poisk=5 then begin
childTemplateForm.Button1.Visible:=true;
P1:=mainclientsform.ADOQuery2.Parameters.AddParameter();
P1.Name:='P1';
P1.DataType:=ftInteger;
P1.Value:=1;
stroka_SQL:='SELECT.[], .[], , , , , , , , , ';
stroka_SQL:=stroka_SQL+' FROM (Адрес INNER JOIN ON.[] = .[])';
stroka_SQL:=stroka_SQL+'INNER JOIN ON .[] =.[] WHERE ((()=" "));';
if (stroka_SQL<>'') then
begin
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL();
end;
end;
if nomer_poisk=6 then begin
childTemplateForm.Button1.Visible:=true;
P1:=mainclientsform.ADOQuery2.Parameters.AddParameter();