iþçi takip programý

[gokhanaygun]

(*copright by gökhan aygün*)
uses crt;
type
kayit=record
no,soy,isim,maas,gun,avans:string[30];
f:char;
end;

var
dosya:file of kayit;
kay:kayit;
h,i,s,k,kod:integer;
HH,ara:string[30];
t:string;

tus:char;
label
MENU,ekayit,eliste,earama,ecikis;


begin
MENU:
clrscr;
textbackground(red);
clrscr;
textcolor(white);

gotoxy(20,3);writeln('˜ž€˜ TAKIP PROGRAMINA HOSGELDINIZ...');
gotoxy(30,10);writeln('1-KAYIT');
gotoxy(30,11);writeln('2-LISTELEME');
gotoxy(30,12);writeln('3-ARAMA');
gotoxy(30,13);writeln('4-SILME');
gotoxy(30,14);writeln('5-BILGI DEGISIKLIGI');
gotoxy(30,15);writeln('6-CIKIS');
gotoxy(10,20);write('LUTFEN YAPACAGINIZ ISLEMIN NUMARASINI GIRINIZ (1/2/3/4/5/6)');readln(h);
if h=1 then goto ekayit;
if h=2 then goto eliste;
if h=3 then goto earama;
if h=6 then goto ecikis;

ekayit:
assign(dosya,'kadir.txt');
{$i-} reset(dosya);kod:=ioresult;{$i+};
if kod<> 0 then rewrite(dosya);
repeat
clrscr;
gotoxy(30,10);write('NUMARA >');readln(kay.no);
if kay.no='' then GOTO MENU;
gotoxy(30,11);write('ADI >');readln(kay.isim);
gotoxy(30,12);write('SOYADI >');readln(kay.soy);
gotoxy(30,13);write('MAAS >');readln(kay.maas);
gotoxy(30,14);write('AVANS >');readln(kay.avans);
gotoxy(30,15);write('€.GšN >');readln(kay.gun);
gotoxy(20,25);writeLN('BILGI DOSYAYA KAYDEDILSIN MI? (E/H)') ;
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then
begin
kay.f:='*';
seek(dosya,filesize(dosya));
write(dosya,kay);
end;
textcolor(31);
writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...');READLN(HH);
until KEYPRESSED;
close(dosya);
GOTO MENU;


earama:
assign(dosya,'kadir.txt');
{$i-} reset(dosya);kod:=ioresult;{$i+};
if kod<>0 then
begin
writeln('DOSYA BULUNAMADI...');
tus:=readkey;
halt;
end;
repeat
clrscr;
gotoxy(20,13);write('ARADIGINIZ KISININ NUMARASINI GIRINIZ>');readln(ara);
if ara='' then exit;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if (kay.f='*') and (kay.no=ara) then
begin
clrscr;
gotoxy(30,10);writeln('NUMARASI >',kay.no);
gotoxy(30,12);writeln('ADI >',kay.isim);
gotoxy(30,13);writeln('SOYADI >',kay.soy);
gotoxy(30,14);writeln('MAASI >',kay.maas);
gotoxy(30,15);writeln('AVANSI >',kay.avans);
gotoxy(30,16);Writeln('€.GšN >',kay.gun);
writeln;
gotoxy(20,20);write('ARADIGINIZ KAYIT BU MU? (E/H)');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus='E' then exit;
end;
end;
writeln;
gotoxy(27,15);writeln('ARADIGINIZ KAYIT YOK...');
tus:=readkey;
until 1=2;
close(dosya);
writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...');
READKEY;
GOTO MENU;

eliste:
assign(dosya,'kadir.txt');
{$i-} reset(dosya);kod:=ioresult;{$i+};
if kod<>0 then
begin
writeln('DOSYA BULUNAMADI...');
tus:=readkey;
halt;
end;
clrscr;
writeln(' NUMARA ADI SOYADI MAAS AVANS €.GUN');
writeln('========================================= ====================================');
s:=2;
k:=0;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,kay);
if kay.f='*' then
begin
s:=s+1;
k:=k+1;
gotoxy(3,s);write(kay.no);
gotoxy(16,s);write(kay.isim);
gotoxy(35,s);write(kay.soy);
gotoxy(40,s);write(kay.maas);
gotoxy(45,s);write(kay.avans);
gotoxy(50,s);write(kay.gun);
end;
if s>18 then
begin
gotoxy(20,21);
write('DIGER SAYFA ICIN BIR TUSA BASINIZ...');
tus:=readkey;
s:=2;
clrscr;
end;
end;
gotoxy(20,21);
write('LISTELENECEK KAYITLAR BITTI...');
tus:=readkey;
close(dosya);
gotoxy(15,23);writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...');
READKEY;
GOTO MENU;
ecikis:
writeln('Cikis');
END.