3. Методы решений
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 или пункта «закрыть» контекстного меню этой формы.