Добавлен: 26.06.2023
Просмотров: 145
Скачиваний: 3
СОДЕРЖАНИЕ
1 глава. Построение бизнес-процессов «как есть»
Описание предметной области. Постановка задачи
1.2 Выбор средства для моделирования бизнес-процессов
1.3 Моделирование бизнес-процессов «как есть»
2 глава. Построение бизнес-процессов «как должно быть»
2.1 Предлагаемые мероприятия по улучшению бизнес-процессов
MainClientsForm.BuildGridDatabaseDirectoryItem('Документы', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N20Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;
mainclientsform.ADOTable6.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N21Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;
mainclientsform.ADOTable7.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Запросы', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N23Click(Sender: TObject);
begin
mainclientsform.N3Click(Sender);
mainflag:=true;
flag1:=true;
flag2:=false;
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox3.Visible:=false;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.Height:=800;
mainclientsform.DataSource1.DataSet.Last();
end;
procedure TMainClientsForm.N24Click(Sender: TObject);
begin
mainclientsform.N6Click(Sender);
mainflag:=true;
flag1:=false;
flag2:=true;
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:=true;
ProsmForm.Height:=500;
ProsmForm.Width:=800;
mainclientsform.DataSource1.DataSet.Last();
end;
procedure TMainClientsForm.N25Click(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:=7;
Poisk.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=true;
Poisk.Button1.Caption:='Подготовить данные';
end;
procedure TMainClientsForm.N26Click(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.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=false;
Poisk.Button1.Caption:='Подготовить данные';
end;
procedure TMainClientsForm.FormCreate(Sender: TObject);
var NewConnection: Widestring;
begin
ADOConnection1.Close;
ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GetCurrentDir+'\baza.mdb;';
ADOConnection1.Open;
MainClientsForm.ADOTable1.Active:=true;
MainClientsForm.ADOTable2.Active:=true;
MainClientsForm.ADOTable3.Active:=true;
MainClientsForm.ADOTable4.Active:=true;
MainClientsForm.ADOTable5.Active:=true;
MainClientsForm.ADOTable6.Active:=true;
MainClientsForm.ADOTable7.Active:=true;
MainClientsForm.ADOTable8.Active:=true;
end;
procedure TMainClientsForm.hClick(Sender: TObject);
begin
mainflag:=false;
IsMDIChildOpen(MainClientsForm,'Резолюция ');
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
ProsmForm:=Taddform.Create(Owner);
ProsmForm.GroupBox3.Visible:=true;
ProsmForm.GroupBox1.Visible:=false;
ProsmForm.GroupBox5.Visible:=false;
ProsmForm.GroupBox7.Visible:=false;
ProsmForm.Caption:=' / запрос';
ProsmForm.Height:=400;
end;
procedure TMainClientsForm.N3Click(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:=true;
ProsmForm.GroupBox7.Visible:=false;
ProsmForm.Caption:='';
ProsmForm.Height:=400;
end;
procedure TMainClientsForm.DataSource1DataChange(Sender: TObject;
Field: TField);
var
kodistorii,kodclient,kodfact,kodkred:integer;
datanach:tdatetime;
status:string;
begin
if mainflag then
begin
kodistorii:=mainclientsform.DataSource1.DataSet.FieldByName('Код истории').AsInteger;
ProsmForm.Edit70.Text:=inttostr(kodistorii);
kodclient:=mainclientsform.DataSource1.DataSet.FieldByName('Код клиента').AsInteger;
ProsmForm.Edit71.Text:=inttostr(kodclient);
datanach:=mainclientsform.DataSource1.DataSet.FieldByName('дата начала').AsDateTime;
ProsmForm.Edit83.Text:=Datetostr(datanach);
kodfact:=mainclientsform.DataSource1.DataSet.FieldByName('Код факта').AsInteger;
status:=mainclientsform.DataSource1.DataSet.FieldByName('статус').AsString;
mainclientsform.ADOTable3.Active:=true;
if mainclientsform.ADOTable3.Locate('Код клиента',kodclient , [loCaseInsensitive,loPartialKey]) then
begin
ProsmForm.Edit72.Text:=mainclientsform.ADOTable3.FieldByName('Фамилия').AsString;
ProsmForm.Edit73.Text:=mainclientsform.ADOTable3.FieldByName('Имя').AsString;
ProsmForm.Edit76.Text:=mainclientsform.ADOTable3.FieldByName('Отчество').AsString;
ProsmForm.Edit74.Text:=mainclientsform.ADOTable3.FieldByName('ИНН').AsString;
ProsmForm.Edit75.Text:=mainclientsform.ADOTable3.FieldByName('доход').AsString;
ProsmForm.Edit77.Text:=mainclientsform.ADOTable3.FieldByName('телефон1').AsString;
end;
if mainclientsform.ADOTable8.Locate('Код факта',kodfact , [loCaseInsensitive,loPartialKey]) then
begin
ProsmForm.Edit81.Text:=DateToStr(mainclientsform.ADOTable8.FieldByName('').AsDateTime);
ProsmForm.Edit84.Text:=mainclientsform.ADOTable8.FieldByName('нарушение').AsString;
ProsmForm.Edit85.Text:=inttostr(mainclientsform.ADOTable8.FieldByName('%своеврем').AsInteger);
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;