Добавлен: 26.06.2023
Просмотров: 134
Скачиваний: 3
СОДЕРЖАНИЕ
1 глава. Построение бизнес-процессов «как есть»
Описание предметной области. Постановка задачи
1.2 Выбор средства для моделирования бизнес-процессов
1.3 Моделирование бизнес-процессов «как есть»
2 глава. Построение бизнес-процессов «как должно быть»
2.1 Предлагаемые мероприятия по улучшению бизнес-процессов
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();
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=7 then begin
childTemplateForm.Button1.Visible:=false;
S:=Edit2.Text;
summa:=STRTOINT(Edit4.Text);
srok:=STRTOINT(Edit5.Text);
P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P1.Name:='P1';
P1.DataType:=ftString;
P1.Value:=S;
P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter;
P2.Name:='P2';
P2.DataType:=ftinteger;
P2.Value:=round(0.5*summa/srok);
stroka_SQL:='SELECT, , , , , , .[], .[], ';
stroka_SQL:=stroka_SQL+'FROM INNER JOIN ( INNER JOIN ON.[] =.[]) ON Фактвыполнения.[Код факта] =.[]';
stroka_SQL:=stroka_SQL+'WHERE ( (>:P2) and () AND((Фактвыполнения.нарушение)="нет") AND (( [) AND (() AND (());';
if (stroka_SQL<>'') then
begin
mainclientsform.ADOQuery2.SQL.Add(stroka_SQL);
mainclientsform.ADOQuery2.Active:=true;
mainclientsform.ADOQuery2.ExecSQL();
if mainclientsform.ADOQuery2.RecordCount>0 then
begin
childTemplateForm.Label1.Caption:=!!!!'
end
else
childTemplateForm.Label1.Caption:=
end;
end;
end;
end.
unit ChildTemplate;
interface
uses