Разработка программного модуля 'Кадровое агентство'

Оглавление

Введение

Глава 1. Общая часть

.1 Сущность поставленной задачи

.2 Постановка задачи

.2.1 Первичные документы

.2.2 Требования, предъявляемые к системе

.2.3 Требования предъявляемые к ПО

.3 Характеристика используемой ЭВМ, ОС и языка программирования

. Разработка программного обеспечения

.1 Технологический процесс машинной реализации задачи

.2 Алгоритм задачи его описание

.3 Описание переменных, процедур и функций

.4 Программы и их описания

.4.1 Меню

.4.2 Алгоритмы и тексты форм ввода

.4.3 Описание и алгоритмы формирования выходных документов

.5 Результаты работы программы

.6 Инструкция пользователю

Заключение

Список общепринятых сокращений

Список литературы

Приложения

Введение

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

Для выполнения поставленной цели необходимо решить следующие задачи:

1.   Рассмотреть теоретические аспекты работы «кадровое агентство».

2.       Определить требования к пакету.

.        Разработать интеллектуальную составную программы для характера ее ответов на запросы заказчика.

Текст работы состоит из введения, двух глав, заключения, списка общепринятых сокращений, списка литературы и приложений.

Первая глава - теоретическая, содержит в себе теоретическое содержание выбранной темы.

Вторая глава - практическая, содержит алгоритм решения задачи и его описание.

Заключение охватывает весь объем работы и подводит итоги по ней.

Глава 1. Общая часть

 

1.1 Сущность поставленной задачи

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

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

 

1.2 Постановка задачи

 

1.2.1 Первичные документы

Первичными документами по данной теме будут являться паспорт работника, данные о его профессиональных навыках и контактная информация. Со стороны работодателя первичными документами для заполнения таблиц базы данных будет являться его наименование, в случае если это юридическое лицо, либо паспортные данные в случае физического лица, телефон, адрес.

1.2.2 Требования, предъявляемые к системе

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

1.2.3 Требования предъявляемые к ПО

Программный модуль поддерживает операционные системы Windows XP - Windows 7, Linux/Ubuntu (KDE, Unity).

1.3 Характеристика используемой ЭВМ, ОС и языка программирования

Разработка программы была осуществлена на компьютере, отвечающим стандартным требованиям. Имелась мышь, клавиатура.

Компьютер:
	Тип компьютера			ACPI компьютер на базе x86 (Mobile)
	Операционная система			Microsoft Windows 7 Ultimate
	Пакет обновления ОС			-
	Internet Explorer			8.0.7600.16385
	DirectX			DirectX 11.0
Системная плата:
	Тип ЦП			DualCore Intel Core i5, 2000 MHz (15 x 133)
	Системная плата			eMachines eME729Z
	Чипсет системной платы			Intel Ibex Peak-M HM55, Intel Arrandale
	Системная память			8173 Мб
	Тип BIOS			Insyde (04/20/11)
	Коммуникационный порт			Последовательный порт (COM1)
Дисплей:
	Видеоадаптер			Intel(R) HD Graphics (781698 Кб)
	Видеоадаптер			Intel(R) HD Graphics (781698 Кб)
	Монитор			Универсальный монитор PnP [NoDB]
Хранение данных:					Intel(R) 5 Series/3400 Series Chipset Family 2 port Serial ATA Storage Controller - 3B2D
	Контроллер IDE			Intel(R) 5 Series/3400 Series Chipset Family 4 port Serial ATA Storage Controller - 3B28
	Контроллер IDE			Стандартный двухканальный контроллер PCI IDE
	Контроллер хранения данных			APWK6ZX2 IDE Controller
	Дисковый накопитель			TOSHIBA MK3259GSXP ATA Device (298 Гб, IDE)
	Дисковый накопитель			Patriot Memory USB Device (980 Мб, USB)
	Оптический накопитель			HL-DT-ST DVDRAM GT32N ATA Device
	Оптический накопитель			IHGLUZM MF8XQV0TQR SCSI CdRom Device
	Статус SMART жёстких дисков			OK
Разделы:
	C: (NTFS)			310604 Мб (29122 Мб свободно)
	D: (NTFS)			99 Мб (71 Мб свободно)
	Общий объём			310703 Мб(221.7 Гб свободно)
Ввод:
	Клавиатура			Стандартная клавиатура PS/2
		Мышь		HID-совместимая мышь

При разработке использовалась Windows 7 Ultimate. Программа реализована в среде разработки Lazarus.

 

2. Разработка программного обеспечения

кадровый агентство документ алгоритм

2.1 Технологический процесс машинной реализации задачи

Блок-схема заполнение анкеты работника.

Рисунок 1- Процесс машинной реализации

2.2 Алгоритм задачи его описание

Работа с программой начинается с открытия и заполнения базы работников и работодателей, сделать это можно либо в режиме таблицы, либо в режиме не менее удобной формы. С помощью вкладок меня на основной форме можно перейти на формы необходимых запросов, где найти необходимую информацию и на её основе сформировать отчет. При желании отчеты можно сохранить и распечатать На основной форме также возможно применить функцию поиска соответствий данных работника и работодателя.

Разработка происходила в следующем порядке:

1.  Разработка концептуальной модели.

2. На основании составленной концептуальной модели была составлена логическая.

Код работодателя Наименование Адрес Телефон Код специальности

Работники

Код работника ФИО Телефон Код специальности

Специальности

Код специальности Наименование Оклад

3. После формирования логической модели была сформирована физическая модель:

Rab.dbf

id_r	ftString	10
fio	ftString	250
tel	ftString	10
kod_c	ftString	10

.dbf

kod_cftString10
naim	ftString	250
oklad	ftInteger

d_rabot.dbf

id_raftString10
naimen	ftString	250
adres	ftString
tel	ftString	10
kod_c	ftString	30

 

2.3 Описание переменных, процедур и функций

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

Таблица компонентов

Имя	Форма	Класс
DBGrid	Редактор таблиц, Меню, Запрос работника, Запрос вакансии	TDBGrid
Button	Все	TButton
MainMenu	Меню	TMainMenu
d	Все	TDatasource
t	Все	TDbf
ComboBox	Редактор таблиц	TComboBox
DBEdit	Все	TDBEdit
Label	Все	TLabel
Memo	Запрос работника	TMemo
DBText1	Запрос работника	TDBText
SaveDialog	Запрос работника	TSaveDialog

Таблица переменных

Имя	Тип
x	string
c	string
v	string
b	string
n	string
m	string
y	string
w	string
u	string
z	string

Таблица функций и процедур

Имя	Форма
t_close()	Редактор таблиц	Закрытие таблиц

2.4 Программы и их описания

 

2.4.1 Меню

При разработке было использовано стандартное «Windows-меню».

Для его создания использовался компонент класса «TMainMenu».

Описание работы меню: Пользователь выбирает нужный элемент, определяя его по указанному наименованию. Щелчком мыши производится выбор пункта меню, затем выбор подменю, при надобности. После подтверждения выбора производится выполнение действия, либо закрытие меню.

Алгоритм работы меню:

Рисунок 3- Алгоритм программы меню

2.4.2 Алгоритмы и тексты форм ввода

Формы ввода представляют собой обыкновенные компоненты класса TForm.

Рисунок 4- Форма ввода данных в таблицу «Работники». Вид из Lazarus

Рисунок 5-  Форма ввода данных в таблицу «Вакансии». Вид из Lazarus

Рисунок 6- Форма ввода данных в таблицу «Специальности». Вид из Lazarus

Рисунок 7- Форма «СуБД». Вид из Lazarus.

Алгоритм работы форм ввода и СуБД:

Рисунок 8- Алгоритм работы форм ввода

2.4.3 Описание и алгоритмы формирования выходных документов

При формировании выходных документов используется компонент SaveDialog. Который позволяет сохранить данные в постом формате txt. Для формирования тела txt документа используется обычное memo поле с названием «code».

Формы ведомостей и отчетов

Алгоритм формирования выходного документа:

Рисунок 11- Алгоритм формирования выходного документа

2.5 Результаты работы программы

Результаты работы программы предоставлены на скриншотах ниже. В них отображена работа форм ввода первоначальных данных и формирование ведомостей.

2.6 Инструкция пользователю

Ввод исходных данных осуществляется с клавиатуры по запросу программы. Данные необходимо вводить, не придерживаясь строгого формата. Некорректно введенные данные программа корректирует самостоятельно.

Однако нужно внимательно проверять данные перед сохранением. Завершение ввода данных не подтверждается нажатием на «Enter», а нажатием мышью на кнопку «Сохранить», «Добавить» и так далее. Данные вводятся на русском языке, либо на «транслите» - вводе русских слов английскими символами.

Запуск программы осуществляется запуском главного и единственного файла программы «kassa.exe». При этом главная форма предлагает на выбор различные средства для обработки данных.

Установка для программы не требуется, вся нужная информация хранится в папке «data/» в корне папки с программой.

Заключение

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

Были исследованы условия работы программы и написано техническое задание, описаны алгоритмы работы и раскрыты возможности системы в виде блок-схем, отображающих работу программных компонентов в подробном и понятном виде.

Тестовый запуск программы и рассмотрение ее работы на основе контрольного примера подтвердили работоспособность программы; тестирование и отладка позволили выявить и устранить все возможные недостатки и привести программу к конечному для использования виду.

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

Список общепринятых сокращений

ПП - программный продукт.

ПО - программное обеспечение.

HTML - язык гипертекстовой разметки документов.

СуБД - система управления баз данных.

Список литературы

1.   Л.Г.Гагарина, Е.В. Кокорева, Б.Д. Виснадул Технология разработки программного обеспечения, учебное пособие -М.; "ФОРУМ": ИНФРА-М, 2008.- 400 с.

Приложения

Приложение 1

. Работа выполняется в рамках проекта разработки программного модуля «Кадровое агенство»

. Основание для разработки

.1 Основанием для данной работы является учебный план «Теория разработки программных продуктов»

.2 Наименование работы

«Разработка программного модуля кадровое агенство»

.3 Исполнитель: Феданюк Илья Андреевич

.4 Соисполнители: Нет

. Назначение разработки

Создание программного модуля для кадрового агентства.

. Технические требования

.1 Требования к функциональным характеристикам

Разрабатываемое ПО должно обеспечивать:

·        Регистрация анкет пользователя

·        Регистрация вакансий работодателей:

·        Поиск соответствий

.1.2 Организация входных и выходных данных

Исходные данные поступают в систему в виде анкет от пользователей и свободных вакансий от работодателей. После происходит нахождение соответствий.

.2 Требования к надёжности

Для обеспечения надёжности необходимо использовать контроль вводимых данных.

.3 Условия эксплуатации и требования к составу и параметрам технических средств.

Для работы системы необходимо вмешательство ответственного оператора. Требования к составу и параметрам технических средств уточняются на этапе эскизного проектирования системы.

.4 Требование к информационной и программной совместимости. Программа должна работать на платформах Windows xp/vista/7/8

.5 Требования к транспортировке и хранению.

·        Высокая функциональность

. Требования к программной документации

Основными документами, регламентирующими разработку будущих программ, должны быть документы Единой Системы Программной Документации (ЕСПД): руководство пользователя, руководство администратора, описание применения.

. Технико-экономические показатели

Эффективность системы определяется удобством использования системы для поиска необходимых соответствий.

. После передачи Исполнителем отдельного функционального модуля программы Заказчику последний имеет право тестировать модуль в течении 7 дней. После тестирования Заказчик должен принять работу по данному этапу или в письменном виде изложить причину отказа принятия. В случае обоснованного отказа Исполнитель обязуется доработать модуль.

. Календарный план работ

№ этапа	Название этапа	Сроки этапа	Чем заканчивается этап
1	Изучение предметной области	01.09.2012 01.10.2012	Предложение по работе системы. Акт сдачи-приемки
2	Разработка программного модуля	01.10.2012 30.11.2012	Программный комплекс
3	Тестирование и отладка	01.12.2012 30.12.2012	Готовая программа

Руководитель работ Пегусов А.Ю.

Приложение 2

 

Эскизный проект

Ведомость эскизного проекта

Документы по разработанному продукту:

Техническое задание на создание информационной системы СуБД «Кадровое агенство».

Пояснительная записка к эскизному проекту.

Общие положения:

Данный документ является эскизным проектом на создание Системы Управления Базой Данных для ВУЗа (СуБД «кадровое агенство»).

Основные технические решения:

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

Система будет управлять реляционной базой данных, представляющей собой набор связанных между собой таблиц в формате FoxPro (Visual *.DBF), доступ к которым осуществляется с помощью ключей или/и индексов. Сведения в одной таблице могут отражать сведения из другой, и при изменении сведений в первой таблице эти изменения немедленно отображаются во второй.

Таким образом будет достигнута непротиворечивость данных. Таблицы распределены на типы «Справочники» и «Динамические данные».

Общая структура базы данных:

Хранение информации о работниках и вакансиях осуществляется с сохранением целостности данных при изменении или удалении записей таблицы.

Указанные решения должны удовлетворять требованиям, приведенным в техническом задании на разработку системы.

Состав функций комплексов задач, реализуемых системой:

Автоматизированная система должна выполнять следующие функции:

• Обеспечивать целостное хранение данных в базе;

•Выводить корректные данные в случае поиска;

• Формировать необходимые отчеты;

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

Для реализации АС будет использоваться среда программирования Lazarus и язык программирования FreePascal.

Источники разработки:

Данный документ разрабатывался на основании ГОСТ 34.698-90 на написание ТЗ на автоматизированные системы управления от 01.01.1992 г.

Приложение 3

 

SADT и DFD модели

SADT модель

Рисунок 19- SADT модель

DFD модель

Рисунок 20- DFD модель

Приложение 4

 

Тексты программ

Form1 (Редактор таблиц)Unit1;

{$mode objfpc}{$H+}, SysUtils, DB, dbf, FileUtil, Forms, Controls, Graphics, Dialogs,, DBGrids, StdCtrls, DbCtrls;

{ TForm1 }= class(TForm): TButton;: TButton;_t: TComboBox;: TDatasource;: TDbf;: TDBGrid;Button1Click(Sender: TObject);Button2Click(Sender: TObject);FormCreate(Sender: TObject);FormShow(Sender: TObject);list_tChange(Sender: TObject);MenuItem2Click(Sender: TObject);MenuItem3Click(Sender: TObject);MenuItem4Click(Sender: TObject);MenuItem6Click(Sender: TObject);

{ private declarations }

{ public declarations };: TForm1;

{$R *.lfm}Unit2;

{ TForm1 }t_close();(Form1.t.State = dsEdit) then Form1.t.Post;.t.Close;;TForm1.MenuItem2Click(Sender: TObject);_close();.TableName:=list_t.Text;.Open;;TForm1.MenuItem3Click(Sender: TObject);_close();;TForm1.MenuItem4Click(Sender: TObject);.TableName := 'rab.dbf';.FieldDefs.Add('id_r', ftString, 10);.FieldDefs.Add('fio', ftString, 250);.FieldDefs.Add('tel', ftString, 10);.FieldDefs.Add('kod_c', ftString, 10);.CreateTable;.FieldDefs.Clear;.TableName := 'cpec.dbf';.FieldDefs.Add('kod_c', ftString, 10);.FieldDefs.Add('naim', ftString, 250);.FieldDefs.Add('oklad', ftInteger);.CreateTable;.FieldDefs.Clear;

.TableName := 'd_rabot.dbf';.FieldDefs.Add('id_ra', ftString, 10);.FieldDefs.Add('naimen', ftString, 250);.FieldDefs.Add('adres', ftString, 250);.FieldDefs.Add('tel', ftString, 10);.FieldDefs.Add('kod_c', ftString, 30);.CreateTable;.FieldDefs.Clear;;TForm1.MenuItem6Click(Sender: TObject);.ShowModal;;TForm1.FormCreate(Sender: TObject);;TForm1.FormShow(Sender: TObject);;TForm1.list_tChange(Sender: TObject);_close();.TableName:=list_t.Text;.Open;;TForm1.Button1Click(Sender: TObject);_close();.close;;TForm1.Button2Click(Sender: TObject);.Delete;;.(Анкета)Unit2;

{$mode objfpc}{$H+}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls, Calendar;

{ TForm2 }= class(TForm): TButton;: TButton;: TButton;: TButton;_kod: TDBEdit;_c: TDBEdit;: TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TDatasource;_sotr: TDBEdit;: TDBEdit;: TDBEdit;: TDbf;: TDatasource;: TDbf;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);kod_cChange(Sender: TObject);kod_sotrChange(Sender: TObject);now_kodChange(Sender: TObject);FormClose(Sender: TObject; var CloseAction: TCloseAction);FormCreate(Sender: TObject);FormShow(Sender: TObject);Label1Click(Sender: TObject);

{ private declarations }

{ public declarations };: TForm2;

{$R *.lfm}

{ TForm2 }TForm2.FormCreate(Sender: TObject);;TForm2.Button1Click(Sender: TObject);.Prior;;TForm2.Button2Click(Sender: TObject);.next;;TForm2.Button3Click(Sender: TObject);.append;;TForm2.Button4Click(Sender: TObject);.delete;.close;.close;.close;;TForm2.kod_cChange(Sender: TObject);;TForm2.kod_sotrChange(Sender: TObject);;TForm2.now_kodChange(Sender: TObject);_c.text:=now_kod.text;;TForm2.FormClose(Sender: TObject; var CloseAction: TCloseAction);(t.State=dsEdit) then.post;.close;.close;;TForm2.FormShow(Sender: TObject);x:string;.open;.open;.First;not(t.EOF) do begin(kod_sotr.Text <> '') then:= IntToStr(StrToInt(kod_sotr.Text)+1);.Next;;

//ShowMessage(x);.Append;.Edit;_sotr.Text:=x;;TForm2.Label1Click(Sender: TObject);;.

(Меню)Unit3;

{$mode objfpc}{$H+}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, DBGrids, StdCtrls;

{ TForm3 }= class(TForm): TButton;: TDatasource;: TDbf;: TDatasource;: TDatasource;: TDatasource;: TDbf;: TDbf;: TDbf;: TDBGrid;: TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;Button1Click(Sender: TObject);FormCreate(Sender: TObject);FormShow(Sender: TObject);MenuItem1Click(Sender: TObject);MenuItem2Click(Sender: TObject);MenuItem3Click(Sender: TObject);MenuItem4Click(Sender: TObject);MenuItem5Click(Sender: TObject);MenuItem6Click(Sender: TObject);MenuItem7Click(Sender: TObject);MenuItem8Click(Sender: TObject);

{ public declarations };: TForm3;

{$R *.lfm}unit1, unit2, unit4, unit5, unit6, Unit7;

{ TForm3 }TForm3.MenuItem1Click(Sender: TObject);;TForm3.FormShow(Sender: TObject);.Open;.Open;.open;.TableName := 'temp.dbf';.FieldDefs.Add('fio', ftString, 250);.FieldDefs.Add('tel', ftString, 10);.FieldDefs.Add('s', ftString, 10);.FieldDefs.Add('naimen', ftString, 250);.FieldDefs.Add('adres', ftString, 250);.FieldDefs.Add('tel1', ftString, 10);.FieldDefs.Add('naim', ftString, 250);.CreateTable;.FieldDefs.Clear;.Open;;TForm3.FormCreate(Sender: TObject);;TForm3.Button1Click(Sender: TObject);;TForm3.MenuItem2Click(Sender: TObject);.ShowModal;;TForm3.MenuItem3Click(Sender: TObject);.ShowModal;;TForm3.MenuItem4Click(Sender: TObject);.ShowModal;;TForm3.MenuItem5Click(Sender: TObject);.ShowModal;;TForm3.MenuItem6Click(Sender: TObject);.ShowModal;;TForm3.MenuItem7Click(Sender: TObject);.showmodal;;TForm3.MenuItem8Click(Sender: TObject);x,c,v,b,n,m,z:string;.Visible:=true;.Visible:=true;.First;.First;.First;not(rab1.eof) donot(rabi1.eof) do((rab1.FieldByName('kod_c').AsString=rabi1.FieldByName('kod_c').AsString)):= rab1.FieldByName('fio').AsString;:= rab1.FieldByName('tel').AsString;:= '-->';:= rabi1.FieldByName('naimen').AsString;:= rabi1.FieldByName('adres').AsString;:= rabi1.FieldByName('tel').AsString;:= cpec1.FieldByName('naim').AsString;.Append;.FieldByName('fio').AsString:=x;.FieldByName('tel').AsString:=c;.FieldByName('s').AsString:=v;.FieldByName('naimen').AsString:=b;.FieldByName('adres').AsString:=n;.FieldByName('tel1').AsString:=m;.FieldByName('naim').AsString:=z;;.next;;.next;;.close;.close;.close;;.

(Ввод специальности)Unit4;

{$mode objfpc}{$H+}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls;

{ TForm4 }= class(TForm): TButton;: TButton;: TLabel;: TLabel;: TLabel;: TDatasource;_c: TDBEdit;: TDBEdit;: TDBEdit;: TDbf;Button1Click(Sender: TObject);Button2Click(Sender: TObject);FormShow(Sender: TObject);naimChange(Sender: TObject);okladChange(Sender: TObject);

{ private declarations }

{ public declarations };: TForm4;

{$R *.lfm}

{ TForm4 }TForm4.FormShow(Sender: TObject);x:string;.open;

//d2.open;.First;not(t.EOF) do begin(kod_c.Text <> '') then:= IntToStr(StrToInt(kod_c.Text)+1);.Next;;

//ShowMessage(x);.Append;.Edit;_c.Text:=x;;TForm4.naimChange(Sender: TObject);;TForm4.okladChange(Sender: TObject);

// oklad:=StrToInt(oklad.text);;TForm4.Button1Click(Sender: TObject);.append;;TForm4.Button2Click(Sender: TObject);.delete;.close;.close;;

.

(Ввод вакансии)Unit5;

{$mode objfpc}{$H+}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls;

{ TForm5 }= class(TForm): TButton;: TButton;: TButton;: TButton;: TDatasource;: TDBEdit;: TDbf;: TDBText;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDatasource;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TDbf;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);DBText1Click(Sender: TObject);FormCreate(Sender: TObject);FormShow(Sender: TObject);

{ private declarations }

{ public declarations };: TForm5;

{$R *.lfm}

{ TForm5 }TForm5.FormCreate(Sender: TObject);;TForm5.FormShow(Sender: TObject);.Open;.Open;;TForm5.Button1Click(Sender: TObject);.Append;;TForm5.Button2Click(Sender: TObject);.delete;.close;.close;;TForm5.Button3Click(Sender: TObject);.Prior;;TForm5.Button4Click(Sender: TObject);.next;;TForm5.DBText1Click(Sender: TObject);;.

(Запрос работника)Unit6;

{$mode objfpc}{$H+}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls, DBGrids;

{ TForm6 }= class(TForm): TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TDatasource;: TDBEdit;: TLabel;: TLabel;: TMemo;: TSaveDialog;: TDBEdit;: TDBEdit;: TDBGrid;: TDatasource;: TDbf;: TDBText;: TDatasource;: TLabel;_k: TDBEdit;: TDbf;: TDbf;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);Button6Click(Sender: TObject);DBText1Click(Sender: TObject);FormClose(Sender: TObject; var CloseAction: TCloseAction);FormShow(Sender: TObject);Label1Click(Sender: TObject);now_kChange(Sender: TObject);

{ private declarations }

{ public declarations };: TForm6;

{$R *.lfm}

{ TForm6 }TForm6.Button1Click(Sender: TObject);.Prior;;TForm6.Button2Click(Sender: TObject);.next;;TForm6.Button3Click(Sender: TObject);x,y,z,w: string;

//while not(tt.eof) do begin

//if(now_k.Text = t.FieldByName('kod_c').AsString) then

//begin

//temp.Append; temp.Edit;

//fio.text:=tt.FieldByName('fio').AsString;

//tel.text:=tt.FieldByName('tel').AsString;

//naim.text:=t.FieldByName('naim').AsString;

//end;

//tt.Next;

// end;:=now_k.text;.First;.open;.First;not(tt.eof) do begin(x=tt.FieldByName('kod_c').AsString) then begin:= tt.FieldByName('fio').AsString;:= t.FieldByName('naim').AsString;:= tt.FieldByName('tel').AsString;.caption:=z;.caption:=y;

//tt.FieldDefs.;.Append;.FieldByName('fio').AsString:=z;.FieldByName('tel').AsString:=w;.FieldByName('naim').AsString:=y;;.Next;;.Visible:=true;;TForm6.Button4Click(Sender: TObject);.close;.close;.close;.close;;TForm6.Button5Click(Sender: TObject);s:string;.Visible:=true;.Visible:=true ;(savedialog1.Execute) then begin.First;.Lines.Add( ' Список работников ');

code.Lines.Add( ' ФИО '+' Телефон '+' Специальность ' );

while not(temp.EOF) do begin.Lines.Add(.FieldByName('fio').AsString+' '+.FieldByName('tel').AsString+' '+.FieldByName('naim').AsString+' '

);.Next;;.Lines.SaveToFile(UTF8ToSys(SaveDialog1.FileName+'.txt'));;;TForm6.Button6Click(Sender: TObject);.Visible:=false ;.Visible:=false;;TForm6.DBText1Click(Sender: TObject);;TForm6.FormClose(Sender: TObject; var CloseAction: TCloseAction);.Close;.Close;.Close;;TForm6.FormShow(Sender: TObject);.TableName := 'temp2.dbf';.FieldDefs.Add('fio', ftString, 250);.FieldDefs.Add('tel', ftString, 10);.FieldDefs.Add('naim', ftString, 250);.CreateTable;.FieldDefs.Clear;.Open;.open;.open;;TForm6.Label1Click(Sender: TObject);;TForm6.now_kChange(Sender: TObject);;.

(Запрос вакансии)Unit7;

{$mode objfpc}{$H+}, SysUtils, dbf, db, FileUtil, Forms, Controls, Graphics, Dialogs,, StdCtrls, DBGrids, ExtCtrls;

{ TForm7 }= class(TForm): TButton;: TButton;: TButton;: TButton;: TDatasource;: TDatasource;: TDbf;: TDatasource;_k: TDBEdit;: TDbf;: TDBGrid;: TDBText;: TLabel;: TDbf;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);FormShow(Sender: TObject);

{ private declarations }

{ public declarations };: TForm7;

{$R *.lfm}

{ TForm7 }TForm7.Button1Click(Sender: TObject);.Prior;;TForm7.Button2Click(Sender: TObject);.next;;TForm7.Button3Click(Sender: TObject);x,z,y,w,u:string;:=now_k.text;.First;.open;.First;not(tt.eof) do begin(x=tt.FieldByName('kod_c').AsString) then begin:= tt.FieldByName('naimen').AsString;:= tt.FieldByName('tel').AsString;:= tt.FieldByName('adres').AsString;:= t.FieldByName('naim').AsString;.Append;.FieldByName('naimen').AsString:=z;.FieldByName('tel').AsString:=w;.FieldByName('adres').AsString:=u;.FieldByName('naim').AsString:=y;;.Next;;;TForm7.Button4Click(Sender: TObject);.close;.close;.close;.close;;TForm7.FormShow(Sender: TObject);.TableName := 'temp.dbf';.FieldDefs.Add('naimen', ftString, 250);.FieldDefs.Add('tel', ftString, 10);.FieldDefs.Add('adres', ftString, 250);.FieldDefs.Add('naim', ftString, 250);.CreateTable;.FieldDefs.Clear;.Open;.open;.open;;.

Исполняемый код.project1;

{$mode objfpc}{$H+}

{$IFDEF UNIX}{$IFDEF UseCThreads},

{$ENDIF}{$ENDIF}, // this includes the LCL widgetset, Unit1, dbflaz, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;

{$R *.res}.Initialize;.CreateForm(TForm3, Form3);.CreateForm(TForm1, Form1);.CreateForm(TForm2, Form2);.CreateForm(TForm4, Form4);.CreateForm(TForm5, Form5);.CreateForm(TForm6, Form6);.CreateForm(TForm7, Form7);.Run;

end.