Разработка программы содержащей сведения о сотрудниках базы данных, оценка возможности их корректировки. Использование дополнительных файлов, облегчающих просмотр и поиск требуемой информации о сотруднике. Описание алгоритма задачи для программы.
Аннотация к работе
Информация о сотрудниках хранится в файле sotrudn.dat. Программа содержит следующие процедуры и функции: • Новый сотрудник (предназначена для ввода данных о новом сотруднике и сохранении ее в файле sotrudn.dat); • Просмотреть (позволяет просмотреть информацию о сотрудниках по фамилии); • Сортировка (позволяет просмотреть сотрудников по дате рождения) В программе разрешается использовать дополнительные файлы, облегчающие просмотр и поиск требуемой информации о сотруднике.В настоящее время благодаря поддержки государства, появляется много новых маленьких и больших фирм и предприятий для регистрации и хранения данных о служащих фирмы или предприятия необходимо иметь специальную программу для того, чтобы упростить работу отдела кадров данного предприятия или фирмы. Моя программа специально разработана для облегчения работы менеджеров по персоналу, или организаторов праздников.Для пользователя данной программы: Чтобы запустить программу, нужно войти в файл imenniki.exe в ней клавиши “Ctrl F9” . Программа выглядит как меню, состоящее из 6 пунктов. По меню можно передвигаться с помощью клавиш “стрелка вниз” и “стрелка вверх”, выйти из меню можно с помощью нажатия клавиши “Esc” либо нажать пункт меню “Выход”. Для того чтобы уволить какого-нибудь служащего, необходимо войти в пункт меню «Уволить сотрудника». Для того чтобы ввести информацию о новом служащем необходимо войти в пункт меню “Новый сотрудник” и ввести информацию о новом сотруднике.base=record rnom:integer; {РЕГИСТРАЦИОННЫЙ НОМЕР} fam:string[20]; {ФАМИЛИЯ} name:string[20]; {ИМЯ} otch:string[20]; {ОТЧЕСТВО} date:integer; {ДАТА РОЖДЕНИЯ} month:integer;{МЕСЯЦ РОЖДЕНИЯ} year:integer; {ГОД РОЖДЕНИЯ} link:worker; while nextnil do begin if ord(Next^.fam[1]) <ord(Cur^.fam[1]) then while nextnil do begin if (Next^.year > Cur^.year) or ((Next^.year = Cur^.year) and (Next^.month > Cur^.month)) or ((Next^.year = Cur^.year) and (Next^.month = Cur^.month) and (Next^.date > Cur^.date)) then If Cur^.Name=name1 then if Cur^.otch=otch1 then begin writeln("Вы действительно хотите удалить данного сотрудника"); if key=chr(13) then begin if Cur^.
План
Оглавление
1. Задание, на основе которого выполняется курсовая работа