База данных "Сотрудники"

Волжский университет имениВ.Н.ТатищеваКафедра “Информатика и системыуправления”КУРСОВАЯ РАБОТА
 
подисциплине: “Алгоритмизация и языки программирования”
 
Тема: Базаданных “Сотрудники”
Выполнил: студентгр. ИС-104
ГригорьевА. В.
Преподаватель:Матвеева Н.В.Тольятти 2006

Оглавление
 
1.   Задание,на основе которого выполняется курсовая работа
2.   Описаниепредметной области
3.   Описаниеалгоритма задачи
Приложение 1 (листинг программы)
Приложение 2 (распечатка структуры базы данных)
Приложение 3 (распечатка результатов решениязадачи по данным контрольного примера.)

1. Задание,на основе которого выполняется курсовая работа
 
Сотрудники
ОПИСАНИЕ
Программа должнаиспользовать массив данных о сотрудниках небольшой фирмы (до 10 сотрудников).По каждому сотруднику вводится следующая информация:
¨        Фамилия, имя,отчество;
¨        Год и датарождения;
¨        Пол;
¨        Стаж работы поспециальности;
¨        Домашний адрес;
¨        Телефон;
¨        Должность;
¨        Оклад.
Информация о сотрудникахфирмы хранится в файле workers.dat.
Программа содержитследующие процедуры и функции:
• Новый сотрудник (предназначена дляввода данных о новом сотруднике и сохранении её в файле workers.dat);
• Уволить (удаляет информацию обуволенном сотруднике из массива данных);
• Просмотреть (позволяет просмотретьинформацию о сотрудниках в алфавитном порядке);
• Упорядочить (упорядочивает списоксотрудников в порядке убывания величины оклада);
• Найти (выводит на экран списоксотрудников, работающих в указанной должности, например инженером).
В программе разрешаетсяиспользовать дополнительные файлы, облегчающие просмотр и поиск требуемойинформации о сотруднике.ВХОД
Имя вызываемой процедурыдолжно вызываться из списка пунктов меню по номеру пункта.
Информация о новомсотруднике вводится в диалоге типа «Введите фамилию сотрудника:» ит.д.
Процедура Уволитьзапрашивает ввод фамилии И.О. увольняемого сотрудника.
Процедура Просмотретьдолжна ожидать нажатия «горячей» клавиши перехода к информации обочередном сотруднике в списке.
Процедура Найтизапрашивает ввод должности по выбору пользователя.ВЫХОД
Процедура Просмотреть покаждому нажатию «горячей» клавиши выводит полную информацию обочередном сотруднике из алфавитного списка.
Процедура Упорядочитьвыводит на экран список из фамилии И.О. и окладов сотрудников в порядкеубывания величины оклада.
Процедура Найти выводитна экран список сотрудников, работающих в указанной должности.ОШИБКИ
Ошибочный вводинформации, правильность которой компьютер в состоянии проверить, долженприводить к отказу от неправильного ввода с выходом на повторный ввод этой жеинформации.
2. Описание предметнойобласти
 
Внастоящее время появляется много новых маленьких и больших фирм и предприятийдля регистрации и хранения данных о служащих фирмы или предприятия необходимоиметь специальную программу для того, чтобы упростить работу отдела кадровданного предприятия или фирмы.
Мояпрограмма специально разработана для таких фирм и предприятий. Аналоговыепрограммы стоят достаточно дорого. Моя же программа стоит намного дешевле илегко доступна для любого пользователя.
Мояпрограмма хороша тем, что она легка в обращении небольших размеров и имеет всенеобходимое для регистрирования служащего. Этой программой может пользоватьсядаже человек, который не разу не седел за компьютером, достаточно толькопрочитать инструкцию(описание алгоритма задачи). Программист, который вдальнейшем будет обслуживать мою программу, для того чтобы разобраться в программе,нужно прочитать “описание алгоритма задачи”.
3.Описание алгоритма задачи
 
Дляпользователя данной программы:
Чтобызапустить программу, нужно войти в файл 1-kyrs.exe,либо войти в файл 1-kyrs.pasинажать в ней клавиши “Ctrl+F9”.
Программавыглядит как меню, состоящее из множества пунктов. По меню можно передвигатьсяс помощью клавиш “стрелка вниз” и “стрелка вверх”, выйти из меню можно спомощью нажатия клавиши “Esc”либо нажать пункт меню “Выход”. Вход в пункты меню происходит при нажатии клавиши“Enter”. При входе в какойлибо пункт меню, по программе вызывается соответствующая процедура.
Привходе в программу данные, хранящиеся в файле, автоматически открываются. Длятого, чтобы уволить какого ни будь служащего, необходимо войти в пункт меню«Уволить сотрудника». При выходе из программы, данные автоматическисохраняются.
Длятого чтобы ввести информацию о новом служащем необходимо войти в пункт меню“Новый сотрудник” и ввести информацию о новом сотруднике.
ФИО– может состоять не более чем из 60 символов.
Датарождения – не более 15 символов.
Пол– пол писать полностью
Стажработы – в годах.
Адрес– 30 символов.
Телефон– писать без тире.
Должность– 20 символов.
Размероклада – неограниченное число.
Вслучае если что-либо было введено неправильно произойдёт выход из программы, спотерей всех несохранённых данных.
“Просмотретьсписок” – выводит список всех сотрудников в алфавитном порядке, после выводакаждого сотрудника нужно нажать клавишу “Enter”.
“Найтисотрудника” – Ищет служащего по введенной должности
“Уволитьсотрудника” – стирает служащего по введенному регистрационному номеру и Ф.И.О.
“Очиститьбазу”- удаляет всех сотрудников
Примечание:
Впрограмме имеются подсказки с правой стороны экрана.
Дляпрограммиста:
Программасостоит из множества процедур, которые вызываются из пунктов меню.
Пользовательскиетипы:
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]; {ИМЯ}
otch:string[20]; {ОТЧЕСТВО}
date:string[20]; {ДАТАРОЖДЕНИЯ}
pol:string[20]; {ПОЛ}
stag:integer; {СТАЖРАБОТЫ}
adress:string[30]; {ДОМАШНИЙАДРЕС}
tel:integer; {ТЕЛЕФОН}
dolg:string[20]; {ДОЛЖНОСТЬ}
oklad:integer; {ОКЛАД}
link:worker;
{--------------------------------------------------}
end;
var
Top,Cur,Next,Prev:Worker;
menu:array[1… 11] of string[50]; {Меню}
punkt:integer; {}
ch,cc:char; {Введенныйсимвол}
sotrud:file of base;
buf,buf1:base; {Двабуферобмена}
k,m:char;
p,n,x,y,i:integer; {}
Procedure FileToDin; {Изфайлавдинам.память}
begin
top:=nil;
Assign(sotrud,'sotrudn.dat');
{$I-}
Reset(sotrud);
If IOResult0 then
begin
rewrite(sotrud);
end
{$I+}
else
if filesize(sotrud)0 then
repeat
New(Cur);
Read(sotrud,Cur^);
Cur^.link:=Top;
Top:=Cur;
until eof(sotrud);
close(sotrud);
end;
Procedure DinToFile; {Издин.памятивфайл}
begin
If Topnil then
begin
Assign(sotrud,'sotrudn.dat');
Rewrite(sotrud);
Cur:=Top;
repeat
Write(sotrud,Cur^);
Cur:=Cur^.link;
until Cur=nil;
close(sotrud);
end;
end;
Procedure Menus; {выводменюнаэкран}
var
i:integer;
begin
clrscr;
gotoxy(28,wherey);writeln('**************************');
gotoxy(28,wherey);writeln('БАЗА ДАННЫХ ПО СОТРУДНИКАМ');
gotoxy(28,wherey);writeln('**************************');
for i:=p to n do begin
gotoxy(x,y+i-1);
write ( menu[i] );
end;
{textattr- предопределенная переменная, отвечающая за цвет фона и символов}
textattr:=sel;
gotoxy(x,y+punkt-1);
write(menu[punkt] ); {выделим строкуменю}
textattr:=norm;
end;
procedure forsort; {указменяютсяместами}
var
rnom1:integer;
fam1:string[20];
name1:string[20];
otch1:string[20];
date1:string[20];
pol1:string[20];
stag1:integer;
adress1:string[30];
tel1:integer;
dolg1:string[20];
oklad1:integer;
begin
With Next^ do begin
rnom1:=rnom;
fam1:=fam;
name1:=name;
otch1:=otch;
pol1:=pol;
stag1:=stag;
adress1:=Adress;
tel1:=tel;
dolg1:=dolg;
oklad1:=oklad;
end;
With Next^ do begin
rnom:=Cur^.rnom;
fam:=Cur^.fam;
name:=Cur^.name;
otch:=Cur^.otch;
pol:=Cur^.pol;
stag:=Cur^.stag;
adress:=Cur^.Adress;
tel:=Cur^.tel;
dolg:=Cur^.dolg;
oklad:=Cur^.oklad;
end;
With Cur^ do begin
rnom:=rnom1;
fam:=fam1;
name:=name1;
otch:=otch1;
pol:=pol1;
stag:=stag1;
adress:=Adress1;
tel:=tel1;
dolg:=dolg1;
oklad:=oklad1;
end;
end;
procedure Sortirovka; {Сортировкапоалфавиту}
begin
Cur:=Top;
While Curnil do
begin
Next:=Cur^.link;
while nextnil do
begin
if ord(Next^.fam[1])
ForSort;
Next:=Next^.link;
end;
cur:=cur^.link;
end;
end;
procedureUporyad; {Сортровка по окладу}
begin
Cur:=Top;
While Curnil do
begin
Next:=Cur^.link;
while nextnil do
begin
if ord(Next^.Oklad) > ord(Cur^.Oklad) then
ForSort;
Next:=Next^.link;
end;
cur:=cur^.link;
end;
end;
procedure Position(pos:integer);
var i:integer;
begin
Cur:=Top;
For i:=1 to pos do
if ipos then Cur:=Cur^.link;
end;
procedure punkt0; {Очисткабазы}
var cc,k,ch:char; i:integer;
key:char;
begin
assign(sotrud,'sotrudn.dat');
cc:=chr(13);
{cc:=readkey;}
if cc=chr(13) then
begin
gotoxy(25,10);
writeln('Выуверены, что хотите удалить базу????');
gotoxy(25,11);
Writeln('Enter-ДА,Esc-НЕТ');
key:=readkey;
if key=chr(13) then
begin
gotoxy(11,4);
write('0%');
gotoxy(63,4);
write('100%');
gotoxy(13,4);
for i:=1 to 20 do
begin
write('=');
delay(500);
end;
for i:=21 to 34 do
begin
write('=');
delay(1300);
end;
for i:=35 to 50 do
begin
write('=');
delay(200);
end;
rewrite(sotrud);
gotoxy(32,18);
write('Базаочищена');
gotoxy(32,19);
write('НажмитеклавишуEsc');
end;
end;
end;
procedure punkt1; {Новыйсотрудник}
var k,ch:char;
begin
clrscr;
gotoxy(12,wherey);writeln('*************************************');
gotoxy(12,wherey);writeln('Добавьтев базу информацию о новом сотруднике — «Enter»');
gotoxy(12,wherey);writeln('*************************************');
ch:=readkey;
if chchr(27) then
begin
new(Cur);
writeln('Введите информацию');
write('Регистрационныйномер: ');
readln(Cur^.rnom);
write('Фамилия:');
readln(Cur^.fam);
write('Имя:');
readln(Cur^.name);
write('Отчество:');
readln(Cur^.otch);
write('Годи Дата рождения: ');
readln(Cur^.date);
write('Пол:');
readln(Cur^.pol);
write('Стажработы:');
readln(Cur^.stag);
write('Домашнийадрес:');
readln(Cur^.adress);
write('Телефон:');
readln(Cur^.tel);
write('Должность:');
readln(Cur^.dolg);
write('Оклад:');
readln(Cur^.oklad);
Cur^.link:=Top;
Top:=Cur;
end;
end;
procedure Punkt2; {Уволить}
var
rnom1:integer;
fam1,name1, otch1:string[20];
pos,f:integer;
key:char;
begin
clrscr;
writeln(' *******************************************');
writeln('Будите удалять сотрудика из базы — «Enter»');
writeln(' *******************************************');
ch:=readkey;
if ch=chr(13) then
begin
clrscr;
if top=nil then begin
writeln('Базапуста');
readln;
end
else
BEGIN
writeln(' **********************');
writeln('Увольнение сотрудника');
writeln('**********************');
writeln('Пожалуйставведите');
Writeln('Регистрационныйномер увольняемого ');readln(rnom1);
writeln('Фамилияувольняемого: ');readln(fam1);
writeln('Имяувольняемого:');readln(name1);
writeln('Отчествоувольняемого:');readln(otch1);
Cur:=Top;
pos:=1;
repeat
f:=0;
If Cur^.rnom=rnom1 then
If Cur^.fam=fam1 then
If Cur^.Name=name1 then
if Cur^.otch=otch1 then
begin
writeln('Выдействительно хотите удалить данного сотрудника');
Writeln('Enter-ДА,Esc-НЕТ');
key:=readkey;
if key=chr(13) then
begin
if Cur^.link=nil then begin dispose(Cur); f:=1; end
else
If Cur=Top then begin
If Top^.linknil then
begin
Top:=Top^.link;
dispose(Cur);
f:=1;
end;
end
else
begin
Position(pos-1);
Prev:=Cur;
Cur:=Cur^.link;
Next:=Cur^.link;
Prev^.link:=Next;
Dispose(Cur);
f:=1;
end;
writeln('Сотрудник' ,fam1,' ',name1,' ',otch1, ' уволен');
readkey;
end;
end;
Cur:=Cur^.link;
pos:=pos+1;
if (cur=nil) and (f=0) then
begin
WriteLn('Искомыйсотрудник не числется.');
writeln('Возможноимя или фамилия были введены с маленькой буквы');
Write('Дляпродолжения нажмите любую клавишу.');
readkey;
break;
end;
until f=1;
end;
END;
end;
procedure Punkt3; {Просмотр}
var ch:char;
begin
clrscr;
sortirovka;
writeln(' **********************');
writeln(' Списоксотрудников');
writeln(' **********************');
Cur:=Top;
if top=nil then write('nichego netu')
else
Repeat
write('Регистрационныйномер:');writeln(Cur^.rnom);
write('Фамилия:');write(Cur^.fam);
gotoxy(40,wherey); write('ГодиДатарождения:');writeln(Cur^.date);
write('Имя:');write(Cur^.name);
gotoxy(40,wherey);write('Домашнийадрес:');writeln(Cur^.adress);
write('Отчество:');write(Cur^.otch);
gotoxy(40, wherey);write('Телефон:');writeln(Cur^.tel);
write('Пол:');write(Cur^.pol);
gotoxy(40,wherey);write('Должность:');writeln(Cur^.dolg);
write('Стажработы:');write(Cur^.stag);
gotoxy(40,wherey);write('Оклад:');writeln(Cur^.oklad);
writeLn('**********************************************');writeln;
Cur:=Cur^.link;
ch:=ReadKey;
if chchr(13) then break;
if cur=nil then
begin
Write('списококончен');
readkey;
break;
end;
until (Cur=nil) or (chchr(13));
end;
procedure Punkt4; {Упорядочить}
var ch:char;
begin
clrscr;
Uporyad;
writeln(' **********************');
writeln('Список сотрудников');
writeln('**********************');
Cur:=Top;
if top=nil then write('Файлпуст')
else
Repeat
write('Регистрационныйномер:');writeln(Cur^.rnom);
write('Фамилия:');write(Cur^.fam);
gotoxy(40,wherey); write('Имя:');writeln(Cur^.name);
write('Отчество:');write(Cur^.otch);
gotoxy(40,wherey);write('Оклад:');writeln(Cur^.oklad);
writeLn('**********************************************');writeln;
Cur:=Cur^.link;
ch:=ReadKey;
if chchr(13) then break;
if cur=nil then
begin
Write('списококончен');
readkey;
break;
end;
until (Cur=nil) or (chchr(13));
end;
Procedure Punkt5; {Поисксотрудника}
var
dol:String[10];
sch,kol:integer;
search:boolean;
sotr:array[1..10] of base;
begin
clrscr;
gotoxy(33,wherey); writeln('****************');
gotoxy(33,wherey); writeln('Поисксотрудника');
gotoxy(33,wherey); writeln('****************');
write('Введитедолжность сотрудника: ');readln(dol);
clrscr;
gotoxy(30,wherey); writeln('********************');
gotoxy(30,wherey);writeln('Найденные сотрудники');
gotoxy(30,wherey); writeln('********************');
Sch:=0;
I:=0;
Search:=false;
Cur:=Top;
While Curnil do
begin
If Cur^.Dolg = dol then begin
i:=i+1;
sotr[i]:=Cur^;
Sch:=Sch+1;
search:=true;
end;
Cur:=Cur^.link;
if (search=false) and (Cur=nil) then
begin
Write('Искомыхсотрудников нет в базе.');
writeln('Возможнодолжность введена с маленькой буквы');
end;
end;
If Search=true then
begin
WriteLn('Искомаядолжность: ',dol);
WriteLn('');
For i:=1 to Sch do
begin
write('Регистрационныйномер:');writeln(Sotr[i].rnom);
write('Фамилия:');write(Sotr[i].fam);
gotoxy(40,wherey); write('ГодиДатарождения:');writeln(Sotr[i].date);
write('Имя:');write(Sotr[i].name);
gotoxy(40,wherey);write('Домашнийадрес:');writeln(Sotr[i].adress);
write('Отчество:');write(Sotr[i].otch);
gotoxy(40, wherey);write('Телефон:');writeln(Sotr[i].tel);
write('Пол:');write(Sotr[i].pol);
gotoxy(40,wherey);write('Должность:');writeln(Sotr[i].dolg);
write('Стажработы:');write(Sotr[i].stag);
gotoxy(40,wherey);write('Оклад:');writeln(Sotr[i].oklad);
writeLn('***************************************************');
ch:=ReadKey;
if chchr(13) then break;
end;
end;
readkey;
end;
Begin
clrscr;
gotoxy(28,wherey);writeln('**************************');
gotoxy(28,wherey);writeln('БАЗАДАННЫХ ПО СОТРУДНИКАМ');
gotoxy(28,wherey);writeln('**************************');
Top:=nil;
menu[1]:='1.НОВЫЙ СОТРУДНИК';
menu[2]:='2.УВОЛИТЬ СОТРУДНИКА';
menu[3]:='3.ПРОСМОТРЕТЬ СПИСОК';
menu[4]:='4.УПОРЯДОЧИТЬ СПИСОК';
menu[5]:='5.НАЙТИ СОТРУДНИКА';
menu[6]:='6.ВЫХОД';
menu[8]:='1. Очистить базу ';
menu[9]:='2. Продолжить базу';
menu[10]:='3.ВЫХОД';
menu[11]:='';
punkt:=8;x:=30; y:=-2; textattr:=norm;
n:=10; p:=8;
Menus;
repeat
ch:=ReadKey;
if ch=chr(0) then
begin
ch:=ReadKey;
case ch of
chr(80): { стрелкавниз}
if punkt
if punkt=10 then begin
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
if punkt=10 then punkt:=7;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
punkt:=punkt+1;
textattr:=sel;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
chr(72): { стрелкавверх}
if (punkt
if punkt=8 then begin
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
if punkt=8 then punkt:=11;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
punkt:=punkt-1;
textattr:=sel;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
end; {case: of }
end
else
if ch=chr(13) then {нажатаклавиша}
begin
case punkt of
8: punkt0 ;
9: ch:=chr(27) ;
10: exit; {выход}
end;
End;
until ch= chr(27); {27 — код}
{clrscr;}
punkt:=1;x:=30; y:=5; textattr:=norm;
n:=6; p:=1;
Menus;
filetodin;
repeat
ch:=ReadKey;
if ch=chr(0) then
begin
ch:=ReadKey;
case ch of
chr(80): { стрелкавниз}
if punkt
if punkt=6 then begin
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
if punkt=6 then punkt:=0;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
punkt:=punkt+1;
textattr:=sel;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
chr(72): { стрелкавверх}
if (punkt
if punkt=1 then begin
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
if punkt=1 then punkt:=7;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
punkt:=punkt-1;
textattr:=sel;
gotoxy(x,y+punkt-1);
write(menu[punkt]);
textattr:= norm;
end;
end; {case: of }
end
else
if ch=chr(13) then {нажатаклавиша}
begin
case punkt of
1: punkt1 ;
2: punkt2 ;
3: punkt3 ;
4: punkt4 ;
5: punkt5 ;
6: ch:=chr(27); {выход}
end;
Menus;
End;
until ch= chr(27); {27 — код}
{clrscr;}
dintofile;
End.

Приложение 2
 
Распечаткаструктуры базы даны
**********************
Список сотрудников
**********************
Регистрационный номер: 2
Фамилия: Бояршина Год иДата рождения: 2.06.85
Имя: Елена Домашнийадрес: Гая
Отчество: Александровна Телефон:28666
Пол: ж Должность:Уборщица
Стаж работы: 5 Оклад:2000
*************************************************************
Регистрационный номер: 6
Фамилия: Герасимов Год иДата рождения: 21.12.80
Имя: Евгений Домашнийадрес: Ворошилова 34-34
Отчество: Алексеивич Телефон:-23077
Пол: м Должность:Секретарь
Стаж работы: 3 Оклад:4000
*************************************************************
Регистрационный номер: 3
Фамилия: Григорьев Год иДата рождения: 10.07.85
Имя: Александр Домашнийадрес: Голосова 103-108
Отчество: Владимирович Телефон:2632
Пол: м Должность:Директор
Стаж работы: 4 Оклад:30000
*************************************************************
Регистрационный номер: 4
Фамилия: Матросов Год иДата рождения: 16.07.85
Имя: Игорь Домашнийадрес: Голосова 102-102
Отчество: Витальевич Телефон:2027
Пол: м Должность:Бухгалтер
Стаж работы: 2 Оклад:6000
*************************************************************
Регистрационный номер: 1
Фамилия: Прохоров Год иДата рождения: 23.11.80
Имя: Виктор Домашнийадрес: Баныкина
Отчество: Сергеевич Телефон:-856
Пол: м Должность:Охранник
Стаж работы: 3 Оклад:5500
*************************************************************
Регистрационный номер: 5
Фамилия: Ромашенко Год иДата рождения: 12.05.80
Имя: Владимир Домашнийадрес: Баныкина
Отчество: Владимирович Телефон:-4124
Пол: м Должность:Мэнеджер
Стаж работы: 5 Оклад:10000
*************************************************************
список окончен

Приложение 3
 
Распечатку результатоврешения задачи по данным контрольного примера
Уволен служащий с ФИО –Матросов Игорь Витальевич
Принят на работу новыйсотрудник с ФИО – Сурьянинова Алена
Структура база данныхвыглядит следующим образом:
**********************
Список сотрудников
**********************
Регистрационный номер: 2
Фамилия: Бояршина Год иДата рождения: 2.06.85
Имя: Елена Домашнийадрес: Гая
Отчество: Александровна Телефон:28666
Пол: ж Должность:Уборщица
Стаж работы: 5 Оклад:2000
*************************************************************
Регистрационный номер: 6
Фамилия: Герасимов Год иДата рождения: 21.12.80
Имя: Евгений Домашнийадрес: Ворошилова 34-34
Отчество: Алексеивич Телефон:-23077
Пол: м Должность:Секретарь
Стаж работы: 3 Оклад:4000
*************************************************************
Регистрационный номер: 3
Фамилия: Григорьев Год иДата рождения: 10.07.85
Имя: Александр Домашнийадрес: Голосова 103-108
Отчество: Владимирович Телефон:2632
Пол: м Должность:Директор
Стаж работы: 4 Оклад:30000
*************************************************************
Регистрационный номер: 1
Фамилия: Прохоров Год иДата рождения: 23.11.80
Имя: Виктор Домашнийадрес: Баныкина
Отчество: Сергеевич Телефон:-856
Пол: м Должность:Охранник
Стаж работы: 3 Оклад:5500
*************************************************************
Регистрационный номер: 5
Фамилия: Ромашенко Год иДата рождения: 12.05.80
Имя: Владимир Домашнийадрес: Баныкина
Отчество: Владимирович Телефон:-4124
Пол: м Должность:Мэнеджер
Стаж работы: 5 Оклад:10000
*************************************************************
Регистрационный номер: 7
Фамилия: Сурьянинова Годи Дата рождения: 12.05.80
Имя: Алёна Домашнийадрес: Революционная
Отчество: Александровна Телефон:16676
Пол: ж Должность:Секретарь
Стаж работы: 10 Оклад:5000
*************************************************************
список окончен