Создание модели с расширенными возможностями на базе основных коммутационных протоколов для информационной системы ТОО "Караганда Связь Плюс"

Список использованной литературы

1. Мотузко Ф.Я. Методические указания по дипломному проектированию раздела “Охрана труда и окружающей среды”, МИРА, 2000 г.;

2. Новиков Ю.В. Природа и человек. М.: Просвещение, 2000. 496 с.

3. Предельно допустимые концентрации загрязняющих веществ в атмосферном воздухе населенных мест. №3086-84. Минздрав СССР.

4. Глухов В.В., Лисочкина Т.В., Некрасова Т.П. Экономические основы экологии: учебник. - Специальная литература. СПб.: 2001-280 с.

5. Фатхутдинов Р.А. Стратегический маркетинг: учебник. М.2000 г.

6. Четыркин Е.М. Статистические методы прогнозирования. М. 2004 г.

7. Прогнозирование и планирование в условиях рынка: уч. пособие./ Т.Г. Морозова, А.В. Пикулькин, В.Ф. Тихонов и др. М. 2000 г.

8. Глазев С.Н. "Пути преодоления инвестиционного кризиса"//"Вопросы экономики", №11, 2000 г.

9. Перепадья Н.П., Висящев В.А. "Зависимость инвестиционной политики предприятия от его финансого-экономического состояния"//"Менеджер", N 2, 1999 г.

10. Закон об охране труда в Республике Казахстан от 1993г.

11. Закон о труде в Республике Казахстан от 1.01.2000 г.

12. Денисенко Г.Ф. Охрана труда. Учебное пособие для инженерно-технических вузов. М.; Высшая школа, 1990.

13. Сибаров Ю.Г., Сколотнев Н.Н., Васин В.Н., Нагинаев В.Н. Охрана труда в вычислительных центрах. Учебное пособие. М.; Машиностроение, 1990.

14. Гордон Г.Ю., Вайнштейн Л.И. Электротравматизм и его предупреждение. М.; Энергоатомиздат, 2000.

15. Мельников В.В. Защита информации в компьютерных системах. - М.: Финансы и статистика; Электроинформ, 2000. - С.85, 245.

16. Миллер М. “Средства удаленного доступа”. ж. Сети, №2, 2004.

17. Шатт С. Мир компьютерных сетей. Киев: “BHV”, 2003.-288 с.

Приложение А

program deports;

uses

Forms,

sysutils,

mainform in 'mainform.pas' {form1},

ViewCards in 'viewcards.pas' {ViewCards_},

ViewCard in 'viewcard.pas' {ViewCard_},

NewChild in 'Newchild.pas' {NewChild_},

NewCardsEdu in 'newcardsedu.pas' {NewCardsEdu_},

NewWorkMove in 'Newworkmove.pas' {NewWorkMove_},

NewcommonWork in 'Newcommonwork.pas' {NewcommonWork_},

lockScreen_ in 'lockScreen_.pas' {lockScreen__},

Newleaf in 'Newleaf.pas' {Newleaf_},

NewPunishment in 'Newpunishment.pas' {NewPunishment_},

DisPunishment in 'Dispunishment.pas' {DisPunishment_},

NewOutCountry in 'NewOutCountry.pas' {NewOutCountry_},

Newplantmeed in 'Newplantmeed.pas' {Newplantmeed_},

Newcardmeed in 'Newcardmeed.pas' {Newcardmeed_},

search in 'search.pas' {Search_},

Newcardemeritus in 'Newcardemeritus.pas' {Newcardemeritus_},

MainTable in 'MainTable.pas' {MainTable_: TQuickRep},

PRNTitle in 'PRNTitle.pas' {PRNTitle_},

cards_Main in 'cards_Main.pas' {cards_main_: TQuickRep},

MainPFTable in 'MainPFTable.pas' {MainPFTable_: TQuickRep},

viewcdpf in 'viewcdpf.pas' {viewcdpf_},

viewcdedu in 'viewcdedu.pas' {viewcdedu_},

Statedu in 'Statedu.pas' {StatEdu_},

MaineduTable in 'MaineduTable.pas' {MaineduTable_: TQuickRep},

Statqual in 'Statqual.pas' {Statqual_},

viewcdqual in 'viewcdqual.pas' {viewcdqual_},

MainqualTable in 'MainqualTable.pas' {MainqualTable_: TQuickRep},

StatAround in 'Stataround.pas' {StatAround_},

Statbur in 'Statbur.pas' {Statbur_},

s13_thpayment in 's13_thpayment.pas' {s13_thpayment_: TQuickRep},

PRNSTG13 in 'PRNSTG13.pas' {PRNSTG13_},

viewWarNames in '..\library\viewWarNames.pas' {ViewWarNames_},

megastat in 'megastat.pas' {megaStat_},

MaininvalTable in 'MaininvalTable.pas' {MaininvalTable_: TQuickRep},

viewcdinval in 'viewcdinval.pas' {viewcdinval_},

viewarchive in 'viewarchive.pas' {viewarchive_},

wait in 'wait.pas' {Wait_},

setingsdb in '..\library\setingsdb.pas' {Setings_: TDataModule},

s14_thpayment in 's14_thpayment.pas' {s14_thpayment_: TQuickRep},

Warreport in 'Warreport.pas' {WarReport_: TQuickRep},

MedTable in 'MedTable.pas' {MedTable_: TQuickRep},

helper in '..\library\helper.pas' {Form2};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(Tform1, form1);

Application.Run;

end.

Листинг созданного VCL-компонента

unit DBSearchEdit;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

DBTables,

DB,stdctrls;

type

TDBSearchEdit = class(TEdit)

procedure onchange_ (sender : TObject);

procedure onkeypress_ (Sender: TObject; var Key: Char);

private

needsearch_ : boolean;

table1_ : Ttable;

keyFieldName_,textFieldName_ : TField;

indexname_ : string;

onchange2 : tnotifyevent;

srch,ch : integer;

onkeypress2 : TKeyPressEvent;

{ Private declarations }

protected

{ Protected declarations }

public

constructor Loaded;

constructor Create(aOwner: TComponent); override;

destructor destroy;

{ Public declarations }

published

property needsearch : boolean read needsearch_ write needsearch_;

property Dataset : Ttable read table1_ write table1_;

property KeyFieldName : TField read keyfieldname_ write keyfieldname_;

property TextFieldName : TField read textfieldname_ write textfieldname_;

property indexname : string read indexname_ write indexname_;

property newonkeypress : TKeyPressEvent read onkeypress2 write

onkeypress2;

property newonchange : TNotifyEvent read onchange2 write onchange2;

{ Published declarations }

end;

procedure Register;

implementation

function compress(s : shortstring):shortstring;

var

s2 : shortstring;

x : integer;

begin

s2 :='';

for x:=1 to length(s) do if s[x]<>' ' then s2:=s2+s[x];

s2:=s2+#0;

s2:=ansistrupper(@s2[1]);

compress:=s2;

end;

constructor TDBSearchEdit.Loaded;

begin

inherited loaded;

end;

procedure TDBSearchEdit.onchange_(sender : tobject);

var

s1,s : shortstring;

poz : integer;

begin

if srch=0 then exit;

srch:=0;

if ch=1 then exit;

ch:=1;

if assigned(onchange2) then onchange2(sender);

if not TDBSearchEdit(sender).needsearch_ then exit;

try

s1:=table1_.Indexname;

table1_.indexname:=indexname_;

s:=compress(TDBSearchEdit(sender).text);

table1_.findnearest([s]);

if pos(s,table1_.fieldbyname(keyfieldname_.fieldname).asstring)=1 then

begin

poz:=length(TDBSearchEdit(sender).text);

TDBSearchEdit(sender).text:=Table1_.fieldbyname(textfieldname_.fieldna

me).asstring;

TDBSearchEdit(sender).perform(em_setsel,poz,length(TDBSearchEdit(send

er).text));

end

else begin beep; beep; beep; beep; beep; beep; end;

finally

try

ch:=0;

table1_.indexname:=s1

except

end;

end;

end;

procedure TDBSearchEdit.onkeypress_(Sender: TObject; var Key: Char);

begin

if assigned(onkeypress2) then onkeypress2(sender,key);

if key<>#8 then srch:=1;

end;

constructor TDBSearchEdit.Create(aOwner: TComponent);

begin

inherited create(aOwner);

needsearch:=true;

onchange:=onchange_;

onkeypress:=onkeypress_;

end;

destructor TDBSearchEdit.destroy;

begin

inherited destroy;

end;

procedure Register;

begin

RegisterComponents('Diplom',[TDBSearchEdit]);

end;

Модуль блокировки программы от несанкционированного доступа

unit lockScreen_;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls,variables;

type

TlockScreen__ = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Edit1: TEdit;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure WNDPROC(var m : tmessage); override;

private

canclose : integer;

{ Private declarations }

public

{ Public declarations }

end;

var

lockScreen__: TlockScreen__;

implementation

{$R *.DFM}

procedure TlockScreen__.WNDPROC(var m : tmessage);

begin

inherited wndproc(m);

end;

procedure TlockScreen__.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

if edit1.text=password__ then

begin

canclose:=1;

close;

end else edit1.text:='';

end;

end;

procedure TlockScreen__.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

if canclose=1 then action:=cafree else action:=canone;

end;

procedure TlockScreen__.FormCreate(Sender: TObject);

begin

canclose:=0;

end;

procedure TlockScreen__.FormResize(Sender: TObject);

begin

panel1.left:=(clientwidth-panel1.width) div 2;

panel1.top:=(clientheight-panel1.height) div 2;

end;end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

Timer1: TTimer;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Image1: TImage;

Image2: TImage;

Image3: TImage;

GroupBox4: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

N8: TMenuItem;

N9: TMenuItem;

procedure Button2Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TPribor = class

regim: boolean;

alarm: boolean;

procedure ASK;

constructor Create;

end;

TObrabotchik = class

alarm: boolean;

str1, str2, str3: string;

procedure Sravn;

constructor Create;

end;

var

Form1: TForm1;

dat1, dat2, dat3: TPribor;

obrab: TObrabotchik;

implementation

uses Unit2, Unit3, Unit4;

{$R *.dfm}

procedure Tobrabotchik.Sravn;

begin

str1 := '';

str2 := '';

str3 := '';

if (dat1.alarm = true)

then

begin

str1 := 'на 1-ом этаже';

obrab.alarm := true;

end;

if (dat2.alarm = true)

then

begin

str2 := 'на 2-ом этаже';

obrab.alarm := true;

end;

if (dat3.alarm = true)

then

begin

str3 := 'на 3-ем этаже';

obrab.alarm := true;

end;

end;

constructor TObrabotchik.Create;

begin

str1 := '';

str2 := '';

str3 := '';

alarm := false;

end;

constructor TPribor.Create;

begin

regim := true;

end;

procedure TPribor.ASK;

var

i: real;

begin

randomize;

i := random (100);

if (i<50)

then

alarm := false

else

alarm := true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Timer1.Enabled := false;

Form1.Label4.Caption := 'НЕТ';

Form1.Label5.Caption := 'НЕТ';

Form1.Label6.Caption := 'НЕТ';

Form3.Label3.Caption := 'Охранником';

Form3.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Timer1.Enabled := false;

Form1.Label4.Caption := 'НЕТ';

Form1.Label5.Caption := 'НЕТ';

Form1.Label6.Caption := 'НЕТ';

Form3.Label3.Caption := 'Охранником';

Form3.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

dat1 := TPribor.Create;

dat2 := TPribor.Create;

dat3 := TPribor.Create;

obrab := TObrabotchik.Create;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

flag: boolean;

begin

Form3.Label2.Caption := '';

Form3.Label3.Caption := '';

Form3.Label4.Caption := '';

dat1.ASK;

dat2.ASK;

dat3.ASK;

obrab.Sravn;

if (dat1.regim = true)

then

flag := true

else

flag := false;

if (obrab.str1 <>'') and (flag = false)

then

Form1.Label4.Caption := 'Обнаружено'

else

Form1.Label4.Caption := 'НЕТ';

if (obrab.str2 <>'') and (flag = false)

then

Form1.Label5.Caption := 'Обнаружено'

else

Form1.Label5.Caption := 'НЕТ';

if (obrab.str3 <>'') and (flag = false)

then

Form1.Label6.Caption := 'Обнаружено'

else

Form1.Label6.Caption := 'НЕТ';

if (obrab.alarm = true)

then

begin

if (obrab.str1 <>'')

then

Form1.Image1.Picture.LoadFromFile('true.jpg')

else

Form1.Image1.Picture.LoadFromFile('false.jpg');

if (obrab.str2 <>'')

then

Form1.Image2.Picture.LoadFromFile('true.jpg')

else

Form1.Image2.Picture.LoadFromFile('false.jpg');

if (obrab.str3 <>'')

then

Form1.Image3.Picture.LoadFromFile('true.jpg')

else

Form1.Image3.Picture.LoadFromFile('false.jpg');

end

else

begin

Form1.Image1.Picture.LoadFromFile('false.jpg');

Form1.Image2.Picture.LoadFromFile('false.jpg');

Form1.Image3.Picture.LoadFromFile('false.jpg');

end;

if (obrab.alarm = true) and (flag = false)

then

begin

Form3.Label2.Caption := obrab.str1;

Form3.Label3.Caption := obrab.str2;

Form3.Label4.Caption := obrab.str3;

Form1.Timer1.Enabled := false;

Form3.ShowModal;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

dat1.regim := true;

dat2.regim := true;

dat3.regim := true;

end;

procedure TForm1.N5Click(Sender: TObject);

begin

dat1.regim := false;

dat2.regim := false;

dat3.regim := false;

end;

end.

procedure TForm1.AOpenExecute(Sender: TObject);

//Процедура выбора файла, очистки формы таблицы и чтения

//матрицы из файла в форму таблицы

var

i, j : byte;

begin

{читаем имя файла из окна диалога}

OpenDialog1.FileName := sFileName;

if (OpenDialog1.Execute) then begin

sFileName:=OpenDialog1.FileName;

{очистка формы таблицы}

for i:=0 to N_max-1 do

for j:=0 to M_max-1 do

StringGrid1.cells[j,i]:='';

{связываем файловую переменную с выбранным файлом}

AssignFile(f,sFileName);

reset(f); {открываем файл ля чтения}

for i:=1 to N_max do

for j:=1 to M_max do begin

{читаем значения из файла в массив и}

{переносим в форму таблицы}

read(f,mas[i,j]);

StringGrid1.cells[j-1,i-1]:=IntToStr(mas[i,j]);

end;

CloseFile(f);{закрываем файл}

for i:=0 to N_max-1 do

for j:=0 to M_max-1 do

if StringGrid1.cells[j,i]='0' then

StringGrid1.cells[j,i]:='';

end;

end;

procedure TForm1.ASaveExecute(Sender: TObject);

var

i, j : byte;

begin

{Ввод имени нового файла}

SaveDialog1.FileName := sFileName;

if (SaveDialog1.Execute) then begin

sFileName:=SaveDialog1.FileName;

AssignFile(f,sFileName);

rewrite(f); {открываем файл для записи}

for i:=1 to N_max do {записываем из формы таблицы в массив}

for j:=1 to M_max do

if StringGrid1.cells[j-1,i-1]<>'' then

mas[i,j]:=StrToInt(StringGrid1.cells[j-1,i-1])

else

mas[i,j]:=0;

for i:=1 to N_max do{записываем массив в файл}

for j:=1 to M_max do

write(f,mas[i,j]);

CloseFile(f);

end;

end;

procedure TForm1.AClearExecute(Sender: TObject);

var

i, j : byte;

begin

for i:=0 to N_max-1 do

for j:=0 to M_max-1 do

StringGrid1.cells[j,i]:='';

end;

procedure TForm1.ACalcExecute(Sender: TObject);

var

i, j : byte;

begin

n := SpinEdit1.Value;

m := SpinEdit2.Value;

for i:=1 to n do

for j:=1 to m do

if StringGrid1.cells[j-1,i-1]<>'' then

mas[i,j] := StrToInt(StringGrid1.cells[j-1,i-1])

else begin

mas[i,j]:=0;

StringGrid1.cells[j-1,i-1]:='0';

end;

min:=mas[1,1];

for i:=1 to n do

for j:=1 to m do

if mas[i,j]<min then

min:=mas[i,j];

Edit1.Text:=IntToStr(min); {вывод результата на форму приложения}

max := mas[1,1];

for i:=1 to n do

for j:=1 to m do

if mas[i,j]>max then

max:=mas[i,j];

Edit2.Text := IntToStr(max); {вывод результата на форму приложения}

end;

procedure TForm1.AExitExecute(Sender: TObject);

begin

Close;

end;

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

n := SpinEdit1.Value;

end;

procedure TForm1.SpinEdit2Change(Sender: TObject);

begin

m := SpinEdit2.Value;

end;

end.

procedure TDBSearchEdit.onkeypress_(Sender: TObject; var Key: Char);

begin

if assigned(onkeypress2) then onkeypress2(sender,key);

if key<>#8 then srch:=1;

end;

constructor TDBSearchEdit.Create(aOwner: TComponent);

begin

inherited create(aOwner);

needsearch:=true;

onchange:=onchange_;

onkeypress:=onkeypress_;

end;

destructor TDBSearchEdit.destroy;

begin

inherited destroy;

end;

procedure Register;

begin

RegisterComponents('Diplom',[TDBSearchEdit]);

end;

Модуль блокировки программы от несанкционированного доступа

unit lockScreen_;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls,variables;

type

TlockScreen__ = class(TForm)

Panel1: TPanel;

Label1: TLabel;

Edit1: TEdit;

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormCreate(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure WNDPROC(var m : tmessage); override;

private

canclose : integer;

{ Private declarations }

public

{ Public declarations }

end;

var

lockScreen__: TlockScreen__;

implementation

{$R *.DFM}

procedure TlockScreen__.WNDPROC(var m : tmessage);

begin

inherited wndproc(m);

end;

procedure TlockScreen__.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

if key=#13 then

begin

if edit1.text=password__ then

begin

canclose:=1;

close;

end else edit1.text:='';

end;

end;

procedure TlockScreen__.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

if canclose=1 then action:=cafree else action:=canone;

end;

procedure TlockScreen__.FormCreate(Sender: TObject);

begin

canclose:=0;

end;

procedure TlockScreen__.FormResize(Sender: TObject);

begin

panel1.left:=(clientwidth-panel1.width) div 2;

panel1.top:=(clientheight-panel1.height) div 2;

end;end.

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, jpeg, ExtCtrls, StdCtrls, Menus;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

Timer1: TTimer;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

GroupBox3: TGroupBox;

Image1: TImage;

Image2: TImage;

Image3: TImage;

GroupBox4: TGroupBox;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

N8: TMenuItem;

N9: TMenuItem;

procedure Button2Click(Sender: TObject);

procedure N9Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

TPribor = class

regim: boolean;

alarm: boolean;

procedure ASK;

constructor Create;

end;

TObrabotchik = class

alarm: boolean;

str1, str2, str3: string;

procedure Sravn;

constructor Create;

end;

var

Form1: TForm1;

dat1, dat2, dat3: TPribor;

obrab: TObrabotchik;

procedure Tobrabotchik.Sravn;

begin

str1 := '';

str2 := '';

str3 := '';

if (dat1.alarm = true)

then

begin

str1 := 'на 1-ом этаже';

obrab.alarm := true;

end;

if (dat2.alarm = true)

then

begin

str2 := 'на 2-ом этаже';

obrab.alarm := true;

end;

if (dat3.alarm = true)

then

begin

str3 := 'на 3-ем этаже';

obrab.alarm := true;

end;

end;

constructor TObrabotchik.Create;

begin

str1 := '';

str2 := '';

str3 := '';

alarm := false;

end;

constructor TPribor.Create;

begin

regim := true;

end;

procedure TPribor.ASK;

var

i: real;

begin

randomize;

i := random (100);

if (i<50)

then

alarm := false

else

alarm := true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.N9Click(Sender: TObject);

begin

Form2.ShowModal;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Form1.Timer1.Enabled := false;

Form1.Label4.Caption := 'НЕТ';

Form1.Label5.Caption := 'НЕТ';

Form1.Label6.Caption := 'НЕТ';

Form3.Label3.Caption := 'Охранником';

Form3.ShowModal;

end;

procedure TForm1.N2Click(Sender: TObject);

begin

Form1.Timer1.Enabled := false;

Form1.Label4.Caption := 'НЕТ';

Form1.Label5.Caption := 'НЕТ';

Form1.Label6.Caption := 'НЕТ';

Form3.Label3.Caption := 'Охранником';

Form3.ShowModal;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

Form4.ShowModal;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

dat1 := TPribor.Create;

dat2 := TPribor.Create;

dat3 := TPribor.Create;

obrab := TObrabotchik.Create;

end;

Размещено на Allbest.ru

...