Методы решений

procedure TForm1.N2Click(Sender: TObject);

begin

form2.Edit1.Text:=Form1.Table1.fieldbyname('Nomertr').AsString;

form2.Edit2.Text:=Form1.Table1.fieldbyname('Fio').AsString;

form2.Edit3.Text:=Form1.Table1.fieldbyname('Adres').AsString;

form2.Edit4.Text:=Form1.Table1.fieldbyname('Prof').AsString;

form2.Edit5.Text:=Form1.Table1.fieldbyname('Dataprz').AsString;

form2.Edit6.Text:=Form1.Table1.fieldbyname('Mprab').AsString;

form2.Edit8.Text:=Form1.Table1.fieldbyname('Dataroz').AsString;

form2.Edit9.Text:=Form1.Table1.fieldbyname('Pol').AsString;

form2.Edit10.Text:=Form1.Table1.fieldbyname('Telep').AsString;

form2.Edit11.Text:=Form1.Table1.fieldbyname('Kvusl').AsString;

form2.Edit12.Text:=Form1.Table1.fieldbyname('Obraz').AsString;

form2.Edit13.Text:=Form1.Table1.fieldbyname('Staz').AsString;

form2.Edit14.Text:=Form1.Table1.fieldbyname('Prich').AsString;

if Form1.Table1.fieldbyname('Rminzp').AsString=''

then form2.Edit7.Text:='не важно'

else form2.Edit7.Text:=Form1.Table1.fieldbyname('Rminzp').AsString;

if Table1.fieldbyname('Rdaytime').AsInteger=0

then form2.Edit15.Text:='не важно'

else form2.Edit15.Text:=Form1.Table1.fieldbyname('Rdaytime').AsString;

form2.Show;

end;

Данная процедура используется для открытия формы «Подробно о безработном» с подробной информации о выбранном безработном по нажатию пункта «Подробно» контекстного меню таблицы «База безработных» или комбинации клавиш Ctrl+A.

procedure TForm1.N6Click(Sender: TObject);

begin

form3.Edit1.clear;

form3.Edit2.clear;

form3.Edit4.clear;

form3.DateTimePicker1.CleanupInstance;

form3.edit3.clear;

form3.maskedit1.clear;

//form3.DateTimePicker2.`

form3.edit6.clear;

form3.edit7.clear;

form3.edit5.clear;

form3.spinedit1.value:=0;

form3.CheckBox1.Checked:=false;

form3.CheckBox2.Checked:=false;

form3.show;

end;

Данная процедура используется для открытия формы добавления данных о новом безработном, причем очищаются поля, если они были ранее заполнены при добавлении прошлой записи. Вызывается по нажатию пункта «Безработного» меню «Добавить».

procedure TForm1.N7Click(Sender: TObject);

begin

form4.Edit1.clear;

form4.Edit2.clear;

form4.Edit3.clear;

// form4.DateTimePicker1.;

form4.maskedit1.clear;

form4.spinedit1.Value:=0;

form4.spinedit2.Value:=0;

form4.spinedit3.Value:=0;

form4.show;

end;

Данная процедура используется для открытия формы добавления данных о новой вакансии, причем очищаются поля, если они были ранее заполнены при добавлении прошлой записи. Вызывается по нажатию пункта «Вакансию» меню «Добавить».

procedure TForm1.N10Click(Sender: TObject);

begin

form5.show;

form5.Edit1.Text:=Form1.Table2.fieldbyname('Firma').AsString;

form5.Edit2.Text:=Form1.Table2.fieldbyname('Prof').AsString;

form5.Edit3.Text:=Form1.Table2.fieldbyname('Oplata').AsString;

form5.Edit5.Text:=Form1.Table2.fieldbyname('Dataprz').AsString;

form5.Edit6.Text:=Form1.Table2.fieldbyname('RKvusl').AsString;

form5.Edit7.Text:=Form1.Table2.fieldbyname('Telep').AsString;

form5.Edit9.Text:=Form1.Table2.fieldbyname('RAgeMin').AsString;

form5.Edit10.Text:=Form1.Table2.fieldbyname('RAgeMax').AsString;

form5.Edit4.Text:=Form1.Table2.fieldbyname('RObraz').AsString;

form5.Edit11.Text:=Form1.Table2.fieldbyname('RPol').AsString;

form5.Edit8.Text:=Form1.Table2.fieldbyname('Udaytime').AsString;

end;

Данная процедура используется для открытия формы «Подробно о вакансии» с подробной информации о выбранном безработном по нажатию пункта контекстного меню «Подробно» в таблице «База вакансий» или комбинации клавиш Ctrl+A.

procedure TForm1.N3Click(Sender: TObject);

var rstr: string;

age: integer;

month, day, year, bmonth, bday, byear: word;

begin

rstr:='';

if bool1 then begin

rstr:=rstr+' and ((rab.RPol="'+table1.fieldbyname('Pol').asstring+'")';

rstr:=rstr+' or (rab.RPol=" не важно"))';

rstr:=rstr+' and ((rab.Rprobraz<="'+table1.fieldbyname('Probraz').asstring+'")';

rstr:=rstr+' or (rab.Rprobraz=7))';

rstr:=rstr+' and ((rab.RKvusl="'+table1.fieldbyname('Kvusl').asstring+'")';

rstr:=rstr+' or (rab.RKvusl="не важно"))';

DecodeDate(table1.fieldbyname('Dataroz').AsDatetime, byear, bmonth, bday);

DecodeDate(Date, year, month, day);

age:= year - byear;

if (100 * month + day) < (100 * bmonth + bday) then

age:= age - 1;

rstr:=rstr+'and ('+inttostr(age)+'>=rab.RAgeMin)';

rstr:=rstr+'and ('+inttostr(age)+'<=rab.RAgeMax)';

end;

bool1:=false;

if not (table1.fieldbyname('rminzp').Asstring='')

then rstr:=rstr+' and (rab.oplata>='+table1.FieldByName('Rminzp').Asstring+')';

if not (table1.FieldByName('rdaytime').AsInteger=0)

then rstr:=rstr+' and (rab.Udaytime<='+table1.FieldByName('Rdaytime').Asstring+')';

with form1.query1 do begin

query1.close;

query1.sql.clear;

query1.sql.add('select bez.fio as ФИО,bez.nomertr as Ном_Труд_кн,bez.prof as Профессия,rab.firma as Название_предприятия,rab.oplata as Зар_плата');

query1.sql.add('from rab,bez ');

query1.sql.add('where prof like "%'+Form1.Table1.fields[5].asstring+'%" and (bez.prof=rab.prof) and (bez.fio="'+table1.fieldbyname('fio').asstring+'")'+rstr);

query1.open;

form1.TabSheet4.Show;

end;

end;

Данная процедура используется для поиска подходящих к требованиям выбранного безработного работодателей, с учетом или без (в зависимости от состояния флага bool1) требований работодателей. Подходящие комбинации показываются в отдельной таблице. Процедура вызывается по нажатию пункта «Найти…» контекстного меню таблицы «База безработных» или комбинации клавиш Ctrl+F.

procedure TForm1.N13Click(Sender: TObject);

begin

form1.Table3.Insert;

form1.Table3.edit;

form1.Table3.fieldbyname('fio').AsString:=form1.Query1.fieldbyname('fio').AsString;

form1.Table3.fieldbyname('prof').AsString:=form1.query1.fieldbyname('prof').AsString;

form1.Table3.fieldbyname('firma').AsString:=form1.query1.fieldbyname('firma').AsString;

form1.Table3.fieldbyname('oplata').AsString:=form1.query1.fieldbyname('oplata').AsString;

form1.Table3.fieldbyname('datapr').AsString:=DateToStr(Date);

form1.Table3.fieldbyname('notr').AsString:=form1.query1.fieldbyname('nomertr').AsString;

form1.Table3.Post;

form1.TabSheet3.Show;

while not form1.table1.Eof do begin

if (form1.Table1.FieldByName('fio').AsString=form1.query1.FieldByName('fio').AsString)

and (form1.Table1.FieldByName('prof').AsString=form1.query1.FieldByName('prof').AsString)

then begin form1.Table1.Delete end;form1.Table1.Next end;

while not form1.table2.Eof do begin

if (form1.Table2.FieldByName('firma').AsString=form1.query1.FieldByName('firma').AsString)

and (form1.Table2.FieldByName('oplata').AsString=form1.query1.FieldByName('oplata').AsString)

then begin form1.Table2.Delete end;form1.Table2.Next end;

showmessage('Данные успешно сохранились в архиве');

end;

Данная процедура используется для трудоустройства выбранной комбинации безработного и работодателя с предварительным поиском этих комбинаций (вариантов). Вызывается по нажатию пункта «Трудоустроить» контекстного меню таблицы «Результат поиска».

procedure TForm1.N11Click(Sender: TObject);

var r: string;

a,b: integer;

begin

r:='';

if bool2 then begin

r:=r+' and ((bez.Rminzp<='+table2.FieldByName('oplata').Asstring+') ';

r:=r+' or (bez.Rminzp=0))';

r:=r+' and ((bez.Rdaytime>='+table2.FieldByName('Udaytime').Asstring+') ';

r:=r+' or (bez.Rdaytime=0))';

end;

bool2:=false;

if not (form1.table2.fieldbyname('RPol').asstring='íå âàæíî') then r:=r+' and (bez.Pol="'+form1.table2.fieldbyname('RPol').asstring+'")';

if not (form1.table2.fieldbyname('RObraz').asstring='íå âàæíî') then r:=r+' and (bez.Probraz>="'+form1.table2.fieldbyname('Rprobraz').asstring+'")';

if not (form1.table2.fieldbyname('RKvusl').asstring='íå âàæíî') then r:=r+' and (bez.Kvusl="'+form1.table2.fieldbyname('RKvusl').asstring+'")';

a:=strtoint(formatdatetime('yyyy',now))-form1.table2.fieldbyname('RAgeMin').asinteger;

b:=strtoint(formatdatetime('yyyy',now))-form1.table2.fieldbyname('RAgeMax').asinteger;

if not (form1.table2.fieldbyname('RAgeMin').asinteger=0) then r:=r+'and (bez.Dataroz<=:D1)';

if not (form1.table2.fieldbyname('RAgeMax').asinteger=0) then r:=r+'and (bez.Dataroz>=:D2)';

with form1.query1 do begin

close;

sql.clear;

sql.add('select firma as Íàçâàíèå_ïðåäïðèÿòèÿ,prof as Ïðîôåññèÿ,fio as ÔÈÎ,nomertr as Íîì_Òðóä_êí,oplata Çàð_ïëàòà');

sql.add('from bez,rab');

sql.add('where prof like "%'+Form1.Table2.fieldbyname('Prof').AsString+'%" and rab.prof=bez.prof and firma="'+table2.fieldbyname('firma').asstring+'"'+r);

params.parambyname('D1').value:=Strtodatetime(formatdatetime('dd.mm',now)+'.'+inttostr(a));

params.parambyname('D2').value:=Strtodatetime(formatdatetime('dd.mm',now)+'.'+inttostr(b));

open;

tabsheet4.Show;

end;

end;

Данная процедура используется для поиска подходящих к требованиям выбранного работодателя безработных с учетом или без (в зависимости от состояния флага bool2) требований безработных. Подходящие комбинации показываются в отдельной таблице. Процедура вызывается по нажатию пункта «Найти…» контекстного меню таблицы «База вакансий» или комбинации клавиш Ctrl+F.

procedure TForm1.N4Click(Sender: TObject);

begin

if MessageDlg('Удалить запись в базе?',mtConfirmation, [mbYes, mbNo], 0) = mrYes

then

begin

table1.Delete;

table1.Next;

end;

end;

Данная процедура используется для удаления записей в базе безработных, предварительно задав вопрос на подтверждение во избежание нечаянного удаления. Вызывается по нажатию пункта «Удалить» контекстного меню таблицы «База безработных» или комбинации клавиш Ctrl+D.

procedure TForm1.N12Click(Sender: TObject);

begin

if MessageDlg('Удалить запись в базе?',mtConfirmation, [mbYes, mbNo], 0) = mrYes

then

begin

form1.Table2.Delete;

form1.Table2.Next;

end;

end;

Данная процедура используется для удаления записей в базе безработных, предварительно задав вопрос на подтверждение во избежание нечаянного удаления. Вызывается по нажатию пункта «Удалить» контекстного меню таблицы «База вакансий» или комбинации клавиш Ctrl+D.

procedure TForm1.N15Click(Sender: TObject);

begin

if MessageDlg('Удалить запись в базе?',mtConfirmation, [mbYes, mbNo], 0) = mrYes

then begin

form1.table3.Delete;

form1.table3.Next;

end;

Данная процедура используется для удаления записи из архива, предварительно задав вопрос на подтверждение во избежание нечаянного удаления. Вызывается по нажатию пункта «Удалить» контекстного меню таблицы «Архив» или комбинации клавиш Ctrl+D.

procedure TForm1.N8Click(Sender: TObject);

begin

bool1:=true;

form1.N3.Click;

end;

Данная процедура используется для поиска подходящих к требованиям выбранного безработного работодателей, с учетом требований работодателей. Подходящие комбинации показываются в отдельной таблице. Процедура вызывается по нажатию пункта «Найти с учетом требований работодателей» контекстного меню таблицы «База безработных» или комбинации клавиш Ctrl+F.

procedure TForm1.N9Click(Sender: TObject);

begin

bool2:=true;

form1.N11.Click;

end;

Данная процедура используется для поиска подходящих к требованиям выбранного работодателя безработных с учетом требований безработных. Подходящие комбинации показываются в отдельной таблице. Процедура вызывается по нажатию пункта «Найти с учетом требований безработных» контекстного меню таблицы «База вакансий» или комбинации клавиш Ctrl+F.

procedure TForm1.N20Click(Sender: TObject);

begin

form7.QuickRep1.dataset:=form1.table1;

form7.QuickRep1.Preview;

end;

Данная процедура используется для печати объявлений данных о безработных, находящихся в базе данных.

procedure TForm1.N21Click(Sender: TObject);

begin

form7.QuickRep2.dataset:=form1.table2;

form7.QuickRep2.Preview;

end;

Данная процедура используется для печати объявлений данных о вакансиях, находящихся в базе данных.

procedure TForm1.FormCreate(Sender: TObject);

begin

bool1:=false;

bool2:=false;

iniF:=TIniFile.Create(ExtractFileDir(Application.ExeName)+'\BirzhaTr.ini');

Form1.Top:=inif.ReadInteger('Form properties','Form.Top',50);

Form1.Left:=inif.ReadInteger('Form properties','Form.Left',50);

Form1.width:=inif.ReadInteger('Form properties','Form.width',740);

Form1.height:=inif.ReadInteger('Form properties','Form.height',480);

end;

Данная процедура используется для восстановления значений параметров главной формы на те, которые были в прошлом сеансе работы с программой.

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

begin

IniF.WriteInteger('Form properties','Form.Top',Form1.Top);

IniF.WriteInteger('Form properties','Form.Left',Form1.Left);

IniF.WriteInteger('Form properties','Form.width',Form1.width);

IniF.WriteInteger('Form properties','Form.height',Form1.height);

end;

Данная процедура используется для записи значений параметров главной формы в отдельной файл, находящийся в одной директории с программой.

procedure TForm2.BitBtn1Click(Sender: TObject);

begin

form2.close;

end;

Данная процедура используется для закрытия формы «Подробно о безработном». Вызывается по нажатию кнопки закрыть на форме «Подробно о безработном».

procedure TForm2.N1Click(Sender: TObject);

begin

form2.close;

end;

Данная процедура используется для закрытия формы «Подробно о безработном». Вызывается по нажатию клавиши Esc или пункта «закрыть» контекстного меню этой формы.

procedure TForm3.BitBtn2Click(Sender: TObject);

begin

form3.close;

end;

Данная процедура используется для закрытия формы «Добавить безработного» без добавления его в базу. Вызывается нажатием на кнопку на указанной форме кнопки «выйти ничего не добавив».

procedure TForm3.N1Click(Sender: TObject);

begin

form3.close;

end;

Данная процедура используется для закрытия формы «Добавить безработного» без добавления его в базу. Вызывается путем нажатия клавиши Esc на указанной форме или нажатием пункта меню «закрыть» контекстного меню этой формы.

procedure TForm3.BitBtn1Click(Sender: TObject);

var k: byte;

begin

form1.TabSheet1.show;

// проверка на пустые поля

if (edit1.text='') or (edit2.text='') or (edit3.text='') or

(combobox1.text='') or (combobox2.text='') or (combobox3.text='')

or (edit4.text='') or (edit5.text='') or (edit6.text='')

or (combobox4.text='') or ((edit7.text='')and(checkbox2.checked=false))

or ((spinedit1.text='0')and(checkbox1.checked=false))

then begin t:=1; showmessage('Введите полностью данные о безработном! ');end

//добавление данных в базу безработных

else begin

with form1.table1 do begin

first;

setkey;

fieldbyname('Nomertr').asinteger:=strtoint(edit1.Text);

if not gotokey then k:=0 else k:=1;

end;

if k=0 then begin

form1.Table1.Insert;

form1.Table1.edit;

form1.Table1.Fieldbyname('Nomertr').AsString:=form3.Edit1.Text;

form1.Table1.Fieldbyname('Fio').AsString:=form3.Edit2.Text;

form1.Table1.Fieldbyname('Prof').AsString:=form3.Edit4.Text;

if form3.ComboBox3.text='нет' then form1.Table1.Fieldbyname('Probraz').Asinteger:=0;

if form3.ComboBox3.text='неполное среднее' then form1.Table1.Fieldbyname('Probraz').Asinteger:=1;

if form3.ComboBox3.text='среднее' then form1.Table1.Fieldbyname('Probraz').Asinteger:=2;

if form3.ComboBox3.text='среднее специальное' then form1.Table1.Fieldbyname('Probraz').Asinteger:=3;

if form3.ComboBox3.text='неполное высшее' then form1.Table1.Fieldbyname('Probraz').Asinteger:=4;

if form3.ComboBox3.text='высшее' then form1.Table1.Fieldbyname('Probraz').Asinteger:=5;

if form3.ComboBox3.text='ученая степень' then form1.Table1.Fieldbyname('Probraz').Asinteger:=6;

form1.Table1.Fieldbyname('Obraz').AsString:=form3.ComboBox3.Text;

form1.Table1.Fieldbyname('Dataprz').AsDateTime:=form3.DateTimePicker1.date;

form1.Table1.Fieldbyname('Adres').AsString:=form3.edit3.text;

form1.Table1.Fieldbyname('Telep').AsString:=form3.maskedit1.Text;

form1.Table1.Fieldbyname('Dataroz').AsDatetime:=DateTimePicker2.Date;

form1.Table1.Fieldbyname('Mprab').AsString:=form3.edit6.text;

form1.Table1.Fieldbyname('Prich').AsString:=form3.ComboBox4.Text;

form1.Table1.Fieldbyname('Pol').AsString:=form3.ComboBox1.Text;

form1.Table1.Fieldbyname('Kvusl').AsString:=form3.ComboBox2.Text;

form1.Table1.Fieldbyname('Staz').AsString:=form3.edit5.text;

form1.Table1.Fieldbyname('Rminzp').AsString:=form3.edit7.text;

form1.Table1.Fieldbyname('Rdaytime').AsString:=form3.spinedit1.text;

form1.Table1.Post;

form3.close;

showmessage('Данные успешно добавлены ');

end

else showmessage('Такой номер трудовой книжки'+#10#13+'зарегестрирован');

end;

end;

Данная процедура используется для добавления данных о безработном в базу. Вызывается нажатием пункта «Безработного» главного меню добавить.

procedure TForm3.CheckBox1Click(Sender: TObject);

begin

if form3.SpinEdit1.Enabled=true

then begin form3.SpinEdit1.Value:=0;

form3.SpinEdit1.Enabled:=false; end

else form3.SpinEdit1.Enabled:=true;

end;

Данная процедура используется для того, чтобы не вводить требование безработного к времени рабочего дня. Вызывается установкой/снятием галочки «любое» на форме «Добавить безработного».

procedure TForm3.CheckBox2Click(Sender: TObject);

begin

if form3.Edit7.Enabled=true

then begin form3.Edit7.Text:='';

form3.Edit7.Enabled:=false; end

else form3.Edit7.Enabled:=true;

end;

Данная процедура используется для того, чтобы не вводить требование безработного к минимальной зар.плате. Вызывается установкой/снятием галочки «любая» на форме «Добавить безработного».

procedure TForm4.Button1Click(Sender: TObject);

begin

form1.TabSheet2.show;

// проверка на пустые поля

if (edit1.text='') or (edit2.text='') or (edit3.text='') or

(combobox1.text='') or (combobox2.text='') or (combobox3.text='')

or ((spinedit2.value=0)and(spinedit3.value=0)and(checkbox1.checked=false))

then begin; showmessage('Введите полностью данные!');end

//добавление данных в базу вакансий

else

begin

form1.Table2.Insert;

form1.Table2.edit;

form1.Table2.Fieldbyname('Firma').AsString:=form4.Edit1.Text;

form1.Table2.Fieldbyname('Prof').AsString:=form4.Edit2.Text;

form1.Table2.Fieldbyname('Oplata').AsString:=form4.Edit3.Text;

form1.Table2.Fieldbyname('RKvusl').AsString:=form4.ComboBox1.Text;

form1.Table2.Fieldbyname('Dataprz').AsDateTime:=form4.DateTimePicker1.date;

form1.Table2.Fieldbyname('Telep').AsString:=form4.maskedit1.text;

form1.Table2.Fieldbyname('RAgeMax').AsString:=form4.spinedit3.text;

form1.Table2.Fieldbyname('RAgeMin').AsString:=form4.spinedit2.text;

form1.Table2.Fieldbyname('RObraz').AsString:=form4.combobox3.text;

form1.Table2.Fieldbyname('RPol').AsString:=form4.combobox2.text;

form1.Table2.Fieldbyname('Udaytime').AsString:=form4.spinedit1.text;

if form4.ComboBox3.text='нет' then form1.Table1.Fieldbyname('Rprobraz').Asinteger:=0;

if form4.ComboBox3.text='неполное среднее' then form1.Table1.Fieldbyname('Rprobraz').Asinteger:=1;

if form4.ComboBox3.text='среднее' then form1.Table1.Fieldbyname('Rprobraz').Asinteger:=2;

if form4.ComboBox3.text='среднее специальное' then form1.Table1.Fieldbyname('Rprobraz').Asinteger:=3;

if form4.ComboBox3.text='неполное высшее' then form1.Table1.Fieldbyname('Rprobraz').Asinteger:=4;

if form4.ComboBox3.text='высшее' then form1.Table1.Fieldbyname('Rprobraz').Asinteger:=5;

if form4.ComboBox3.text='ученая степень' then form1.Table1.Fieldbyname('Rprobraz').Asinteger:=6;

if form4.ComboBox3.text='не важно' then form1.Table1.Fieldbyname('Rprobraz').Asinteger:=7;

form1.Table2.Post;

form4.close;

showmessage('Данные успешно добавлены ');

end;

end;

Данная процедура используется для добавления данных о вакансии в базу. Вызывается нажатием пункта «Вакансию» главного меню добавить.

procedure TForm4.Button2Click(Sender: TObject);

begin

form4.close;

end;

Данная процедура используется для закрытия формы «Добавить вакансиию» без добавления ее в базу. Вызывается путем нажатия клавиши Esc на указанной форме или нажатием пункта меню «закрыть» контекстного меню этой формы

procedure TForm4.N1Click(Sender: TObject);

begin

form4.close;

end;

Данная процедура используется для закрытия формы «Добавить вакансиию» без добавления ее в базу. Вызывается нажатием кнопки «Закрыть без добавления данных»

procedure TForm4.SpinEdit2Change(Sender: TObject);

begin

try

form4.SpinEdit3.text:=form4.SpinEdit2.Text;

form4.SpinEdit3.minvalue:=strtoint(form4.SpinEdit2.Text);

except

end;

end;

Данная процедура используется для предотвращения ввода максимального возраста безработного меньше чем минимальный. Вызывается изменением значения «от» на форме «Добавление вакансии».

procedure TForm4.CheckBox1Click(Sender: TObject);

begin

if (form4.SpinEdit2.Enabled=true) and (form4.SpinEdit2.Enabled=true)

then begin form4.SpinEdit2.Value:=0;

form4.SpinEdit2.Enabled:=false;

form4.SpinEdit3.Value:=0;

form4.SpinEdit3.Enabled:=false; end

else begin form4.SpinEdit2.Enabled:=true; form4.SpinEdit3.Enabled:=true; end;

end;

Данная процедура используется для того, чтобы не вводить требование работодателя к возрасту безработного. Вызывается установкой/снятием галочки «любой» на форме «Добавить вакансию».

procedure TForm5.Button1Click(Sender: TObject);

begin

form5.close;

end;

Данная процедура используется для закрытия формы «Подробно о безработном». Вызывается по нажатию кнопки закрыть на форме «Подробно о безработном».

procedure TForm5.N1Click(Sender: TObject);

begin

form5.close;

end;

Данная процедура используется для закрытия формы «Подробно о безработном». Вызывается по нажатию клавиши Esc или пункта «закрыть» контекстного меню этой формы.

Дата добавления: 2015-05-26