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

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 IOResult<>0 then

begin

rewrite(sotrud);

end