Курсовая работа: База данных "Сотрудники"

В программе имеются подсказки с правой стороны экрана.

Для программиста:

Программа состоит из множества процедур, которые вызываются из пунктов меню.

Пользовательские типы:

worker – тип динамической памяти типа base;

base – тип – запись(информация о сотрудниках);

sotrud – для работы с файлами типа base.

Используемые процедуры:

Punct1 – по этой процедуре осуществляется занесение служащего в файл.

Punkt3 - вывод списка в алфавитном порядке. Сортировка происходит по полю “fam”;

Punkt4 – по этой процедуре производится сортировка списка по величине оклада.

Punkt5 – выводит служащего с указанной должностью . Вводится нужная должность и при обходе списка происходит сравнение по полю “dolg” и вывод этой записи;

Punkt2 - удаление записи из списка (удаление происходит по введённому пользователем регистрационному номеру и Ф.И.О.);

Punkt0 - в этой процедуре происходит перезапись файла и обнуление односвязного списка.

Приложение 1

Листинг программы

program kursovaia;

uses crt;

const norm=$74; {цветневыделенногопункта}

norm1=$8;

sel=$31; {цвет выделенного пункта}

sel1=$15;

type

{-------------------описаниезаписи----------------}

Worker = ^base;

base=record

rnom:integer; {РЕГИСТРАЦИОННЫЙНОМЕР}

fam:string[20]; {ФАМИЛИЯ}

name:string[20]; {ИМЯ}