Добавлен: 26.06.2023
Просмотров: 147
Скачиваний: 3
СОДЕРЖАНИЕ
1 глава. Построение бизнес-процессов «как есть»
Описание предметной области. Постановка задачи
1.2 Выбор средства для моделирования бизнес-процессов
1.3 Моделирование бизнес-процессов «как есть»
2 глава. Построение бизнес-процессов «как должно быть»
2.1 Предлагаемые мероприятия по улучшению бизнес-процессов
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();
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
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls, OleServer, ExcelXP, OleCtnrs, ComObj;
type
TChildTemplateForm = class(TForm)
DBGrid1: TDBGrid;
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure RzToolbarButton2Click(Sender: TObject);
procedure RzToolbarButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses mainclients;
procedure TChildTemplateForm.Button1Click(Sender: TObject);
var put,asFileName:string;
var
XlApplication: OleVariant;
XLWorkSheet: OleVariant;
var
vVarApp,vVarBooks,vVarBook,
vVarSheets,vVarSheet,vVarCell,ws: Variant;
i,j:integer;
a:string;
begin
if mainclientsform.ADOQuery2.RecordCount>0 then
begin
try
XlApplication := GetActiveOleObject('Excel.Application');
except
XlApplication := CreateOleObject('Excel.Application');
end;
XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'zayavka.xlt', 0, true]; XlApplication.Visible := true;
XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;
if nomer_poisk<>8 then
XLWorkSheet.cells[3,3]:=''
else
XLWorkSheet.cells[3,3]:='';
mainclientsform.ADOQuery2.First;
for i:=1 to mainclientsform.ADOQuery2.RecordCount do
begin
j:= 0;
A:= mainclientsform.ADOQuery2.FieldByName('Фамилия').AsString;
XLWorkSheet.cells[i+5,2]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('Имя').AsString;
XLWorkSheet.cells[i+5,3]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('Отчество').AsString;
XLWorkSheet.cells[i+5,4]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('телефон1').AsString;
XLWorkSheet.cells[i+5,5]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('город').AsString;
XLWorkSheet.cells[i+5,6]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('улица').AsString;
XLWorkSheet.cells[i+5,7]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('дом').AsString;
XLWorkSheet.cells[i+5,8]:=A ;
A:= mainclientsform.ADOQuery2.FieldByName('квартира').AsString;
XLWorkSheet.cells[i+5,9]:=A ;
mainclientsform.ADOQuery2.Next;
end ;
end;
end;
procedure TChildTemplateForm.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
Action:=caFree;
end;
unit MainClients;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, DB, ADODB, IniFiles, Grids, DBGrids,DBDirectoryTemplate,
addsorce, DateUtils, parampoisk, ToolWin, ComCtrls, StdCtrls, jpeg, ExtCtrls,
RzButton, Buttons, RzSpnEdt, RzPanel;
type
TMainClientsForm = class(TForm)
ADOConnection1: TADOConnection;
ADOTable1: TADOTable;
MainMenu1: TMainMenu;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
DataSource1: TDataSource;
ADOTable2: TADOTable;
ADOTable3: TADOTable;
ADOTable4: TADOTable;
ADOTable5: TADOTable;
ADOTable6: TADOTable;
ADOTable7: TADOTable;
N20: TMenuItem;
N21: TMenuItem;
N22: TMenuItem;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
N18: TMenuItem;
ADOTable8: TADOTable;
N24: TMenuItem;
Image1: TImage;
ToolBar1: TToolBar;
RzRapidFireButton1: TRzRapidFireButton;
RzRapidFireButton2: TRzRapidFireButton;
RzRapidFireButton3: TRzRapidFireButton;
RzRapidFireButton4: TRzRapidFireButton;
RzRapidFireButton5: TRzRapidFireButton;
DataSource2: TDataSource;
h: TMenuItem;
N16: TMenuItem;
N17: TMenuItem;
N19: TMenuItem;
N25: TMenuItem;
procedure N26Click(Sender: TObject);
procedure N18Click(Sender: TObject);
procedure N25Click(Sender: TObject);
procedure hClick(Sender: TObject);
procedure N24Click(Sender: TObject);
procedure N23Click(Sender: TObject);
procedure RzRapidFireButton5Click(Sender: TObject);
procedure RzRapidFireButton4Click(Sender: TObject);
procedure RzRapidFireButton3Click(Sender: TObject);
procedure RzRapidFireButton2Click(Sender: TObject);
procedure RzRapidFireButton1Click(Sender: TObject);
procedure N12Click(Sender: TObject);
function IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean;
function IsFormOpen(const FormName : string): Boolean;
procedure N6Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure N9Click(Sender: TObject);
procedure N10Click(Sender: TObject);
procedure N20Click(Sender: TObject);
procedure N21Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure N4Click(Sender: TObject);
procedure N14Click(Sender: TObject);
procedure N15Click(Sender: TObject);
procedure N16Click(Sender: TObject);
procedure N17Click(Sender: TObject);
procedure N11Click(Sender: TObject);
procedure N19Click(Sender: TObject);
private
{ Private declarations }
procedure BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource);
public
{ Public declarations }
end;
var
MainClientsForm: TMainClientsForm;
nastr:tinifile;
DirectoryForm : TDBDirectoryTemplateForm;
prosmForm: Taddform;
mainflag:boolean;
nomer_poisk:word;
flag1,flag2:boolean;
s:string;
var dom_tel,mob_tel:string;
adres,notes:string;
stag:real;
rogd:tdate;
var education,vuz, fakultet,specialnost,kurs:string;
data_vuz, data_kurs:tdate;
lingvo,lingvo_k, comp, comp_k :string;
idlingvo, idcomp, id_education,id_client,id_regim, id_areal, id_organization:integer;
var oblast,profesiya:string;
implementation
{$R *.dfm}
function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean;
var
i: Integer;
begin
Result := False;
for i := Pred(AFormName.MDIChildCount) DownTo 0 do
if (AFormName.MDIChildren[i].Name = AMDIChildName) then
begin
Result := True;
AFormName.MDIChildren[i].Free;
end;
end;
function TMainClientsForm.IsFormOpen(const FormName : string): Boolean;
var
i: Integer;
begin
Result := False;
for i := Screen.FormCount - 1 DownTo 0 do
if (Screen.Forms[i].Name = FormName) then
begin
Result := True;
Break;
end;
end;
procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource);
begin
//создаем форму
DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner);
DirectoryForm.TableDBGrid.DataSource:=ds;
DirectoryForm.Top:=0;
DirectoryForm.Left:=0;
DirectoryForm.Caption:=sCaption;
end;
procedure TMainClientsForm.N12Click(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.GroupBox1.Visible:=false;
Poisk.GroupBox2.Visible:=false;
Poisk.GroupBox3.Visible:=false;
end;
procedure TMainClientsForm.N6Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1;
mainclientsform.ADOTable1.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem(, mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N7Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;
mainclientsform.ADOTable2.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Обязательства', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N8Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;
mainclientsform.ADOTable3.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Клиенты', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.N9Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;
mainclientsform.ADOTable4.Active:=true;
MainClientsForm.BuildGridDatabaseDirectoryItem('Адреса', mainclientsform.DataSource1);
end;
procedure TMainClientsForm.RzRapidFireButton1Click(Sender: TObject);
begin
MainClientsForm.N3Click(Sender);
end;
procedure TMainClientsForm.RzRapidFireButton2Click(Sender: TObject);
begin
MainClientsForm.N4Click(Sender);
end;
procedure TMainClientsForm.RzRapidFireButton3Click(Sender: TObject);
begin
MainClientsForm.N15Click(Sender);
end;
procedure TMainClientsForm.RzRapidFireButton4Click(Sender: TObject);
begin
MainClientsForm.N14Click(Sender);
end;
procedure TMainClientsForm.RzRapidFireButton5Click(Sender: TObject);
begin
MainClientsForm.Close;
end;
procedure TMainClientsForm.N10Click(Sender: TObject);
begin
IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm');
IsMDIChildOpen(MainClientsForm,'addForm');
mainflag:=false;
mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;
mainclientsform.ADOTable5.Active:=true;
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);