Структура программы
Программа состоит из заставки, процедуры, отвечающей за меню, набора процедур, осуществляющих действия над базой данных, и глобального блока программы.
Ниже представлена структура программы. Все действия с файлом выполняются с помощью соответствующих процедур.
program otdel_kadrov;
uses crt,graph;
const
main = 'MAIN MENU';
d: array[1..5] of string[21] =
('Assistent','St.Prepodavatel','Docent',
'Professor','Deloproizvoditel');
type
fio = record
fam:string[20];
name: string[10];
lastname: string[15];
end;
rec = record
man:fio;
dolzhnost:string[21];
facultet:string[20];
kafedra:string[20];
age: byte;
work:byte;
end;
var
f: file of rec;
person:rec;
num,i:integer;
procedure zastavka;
{раздел описаний}
begin
{тело процедуры}
end;
procedure vvod;
{раздел описаний}
begin
{тело процедуры}
end;
procedure hat(k:integer;s:string);
begin
{тело процедуры}
end;
procedure rezult(h,k:integer;z:rec);
begin
{тело процедуры}
end;
procedure create;
{раздел описаний}
begin
{тело процедуры}
end;
procedure display;
{раздел описаний}
begin
{тело процедуры}
end;
procedure add;
{раздел описаний}
begin
{тело процедуры}
end;
procedure search_kafedra;
{раздел описаний}
begin
{тело процедуры}
end;
procedure all_professors;
{раздел описаний}
begin
{тело процедуры}
end;
procedure max_prep;
{раздел описаний}
begin
{тело процедуры}
end;
procedure sort;
{раздел описаний}
begin
{тело процедуры}
end;
procedure menu;
{раздел описаний}
procedure display_menu;{ вывод меню на экран }
{раздел описаний}
begin
{тело процедуры}
end;
begin
{тело процедуры}
end;
begin
filemode:=2;
zastavka;
assign(f,'vuz.dat');
menu;
end.
Первоначальные данные
Данные вводятся и сохраняются в типизированном файле ´VUZ.DAT´. Данные в файл вводятся с помощью процедуры create. На рисунке 1 представлен скриншот первоначальной базы данных, созданной в программе.
Рис.1. Начальная база данных
Интерфейс программы
Работа программы начинается с заставки. После выполнения заставки мы попадаем в главное меню программы – MAIN MENU (рис.2).
Рис.2. Главное меню программы.
Выбор пункта меню осуществляется путем перемещения курсора с помощью стрелок вверх и вниз и последующим нажатием Enter.
Рассмотрим назначение каждого пункта меню:
New Base – создание базы данных в типизированном файле.
Add Record – дополнение типизированного файла новыми записями.
Display – вывод базы данных на экран.
Search Kafedra – ввод пользователем названия кафедры и получение информации о всех сотрудниках данной кафедры. В случае неверного ввода программа сообщает пользователю об ошибке в названии кафедры или отсутствии сведений о данной кафедре в базе данных.
All Professors – получение информации о всех профессорах ВУЗа. В случае отсутствия профессоров в ВУЗе программа сообщает пользователю об этом.
Oldest Prepodavatel – получение информации о старейшем преподавателе ВУЗа.
Sort by Length Of Work – программа сортирует работников ВУЗа по возрастанию стажа работы.
Каждый пункт меню формируется как отдельная процедура.
Создание базы данных – procedure create.
Дополнение базы данных – procedure add.
Вывод базы данных на экран – procedure display.
Вывод сотрудников заданной кафедры – procedure search_kafedra.
Вывод всех профессоров ВУЗа – procedure all_professors.
Поиск самого старейшего преподавателя ВУЗа – procedure max_prep.
Сортировка сотрудников ВУЗа по возрастанию стажа работы – sort.