Файл: Применение объектно-ориентированного подхода при проектировании информационной системы (Разработка информационно-логической структуры системы).pdf
Добавлен: 26.06.2023
Просмотров: 88
Скачиваний: 2
СОДЕРЖАНИЕ
1.1 Развернутое описание предметной области
1.2 Разработка информационно-логической структуры системы
1.4 Описание логической структуры БД
1.4.1 Диаграмма вариантов использования
1.4.3 Диаграмма последовательности
1.4.5– Диаграмма размещения устройств и программных средств CRM-системы в узлах ЛВС
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);
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;