uses crt;
type
demir=record
ad,soyad,okul,is,dogumtarih:string;
adres,babaad,anaad,babames,anames:string;
evtel,ceptel,email:string;
kayno:integer;
f:char;
end;
var
dosya:file of demir;
lis:demir;
i,kod:integer;
a:char;
arama:string;
ar:integer;
procedure ekle;
begin
clrscr;
assign(dosya,'c:/liste.dat');
{$i-}reset(dosya);{$i+}
kod:=ioresult;
if kod<>0 then rewrite(dosya);
repeat
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                             KAYIT EKLEME MENUSU');
writeln;
writeln;
textcolor(green);
writeln('       ad               --->');
writeln;
writeln('       soyad           --->');
writeln;
writeln('       dogum tarihi     --->');
writeln;
writeln('       adres           --->');
writeln;
writeln('       ev tel           --->');
writeln;
writeln('       cep tel         --->');
writeln;
writeln('       e-mail           --->');
writeln;
writeln('       isi             --->');
writeln;
writeln('       baba adi         --->');
writeln;
writeln('       anne adi         --->');
writeln;
writeln('       baba meslek     --->');
writeln;
writeln('       anne meslek     --->');
writeln;
writeln('       kayit no         --->');
gotoxy(29,7);
readln(lis.ad);
if lis.ad='' then exit;
gotoxy(29,9);
readln(lis.soyad);
gotoxy(29,11);
readln(lis.dogumtarih);
gotoxy(29,13);
readln(lis.adres);
gotoxy(29,15);
readln(lis.evtel);
gotoxy(29,17);
readln(lis.ceptel);
gotoxy(29,19);
readln(lis.email);
gotoxy(29,21);
readln(lis.is);
gotoxy(29,23);
readln(lis.babaad);
gotoxy(29,25);
readln(lis.anaad);
gotoxy(29,27);
readln(lis.babames);
gotoxy(29,29);
readln(lis.anames);
gotoxy(29,31);
readln(lis.kayno);
lis.f:='*';
seek(dosya,filesize(dosya));
write(dosya,lis);
until 1=2;
end;
procedure ara;
begin
clrscr;
assign(dosya,'c:/liste.dat');
{$i-}reset(dosya);{$i+}
kod:=ioresult;
if kod<>0 then rewrite(dosya);
repeat
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                             ARAMA MANUSU');
writeln;
writeln;
writeln;
textcolor(14);
write('aradiginiz kisinin ismi ---> ');
textcolor(white);
readln(arama);
if arama='' then exit;
for i:=0 to filesize(dosya)-1 do
begin
clrscr;
seek(dosya,i);
read(dosya,lis);
if (lis.f='*') and (lis.ad=arama) then
begin
writeln;
writeln;
writeln;
writeln('                             BULUNAN SONUC');
writeln;
writeln;
textcolor(green);
writeln('       ad               --->',lis.ad);
writeln;
writeln('       soyad           --->',lis.soyad);
writeln;
writeln('       dogum tarihi     --->',lis.dogumtarih);
writeln;
writeln('       adres           --->',lis.adres);
writeln;
writeln('       ev tel           --->',lis.evtel);
writeln;
writeln('       cep tel         --->',lis.ceptel);
writeln;
writeln('       e-mail           --->',lis.email);
writeln;
writeln('       isi             --->',lis.is);
writeln;
writeln('       baba adi         --->',lis.babaad);
writeln;
writeln('       anne adi         --->',lis.anaad);
writeln;
writeln('       baba meslek     --->',lis.babames);
writeln;
writeln('       anne meslek     --->',lis.anames);
writeln;
writeln('       kayit no         --->',lis.kayno);
readln;
end;
end;
until 1=0;
end;
procedure silme;
begin
clrscr;
assign(dosya,'c:/liste.dat');
{$i-}reset(dosya);{$i+}
kod:=ioresult;
if kod<>0 then rewrite(dosya);
writeln;
writeln;
writeln;
textcolor(white);
writeln('                             KAYIT SILME MENUSU');
writeln;
writeln;
writeln;
textcolor(14);
write('kisi isimi girin ---> ');
textcolor(white);
readln(arama);
if arama='' then exit;
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,lis);
if (lis.f='*') and (lis.ad=arama) then
begin
clrscr;
writeln;
writeln;
writeln;
writeln('                             BULUNAN SONUC');
writeln;
writeln;
textcolor(green);
writeln('       ad               --->',lis.ad);
writeln;
writeln('       soyad           --->',lis.soyad);
writeln;
writeln('       dogum tarihi     --->',lis.dogumtarih);
writeln;
writeln('       adres           --->',lis.adres);
writeln;
writeln('       ev tel           --->',lis.evtel);
writeln;
writeln('       cep tel         --->',lis.ceptel);
writeln;
writeln('       e-mail           --->',lis.email);
writeln;
writeln('       isi             --->',lis.is);
writeln;
writeln('       baba adi         --->',lis.babaad);
writeln;
writeln('       anne adi         --->',lis.anaad);
writeln;
writeln('       baba meslek     --->',lis.babames);
writeln;
writeln('       anne meslek     --->',lis.anames);
writeln;
writeln('       kayit no         --->',lis.kayno);
writeln;
textcolor(198);
writeln('silinecek kayit bumu? [E/H]');
arama:=readkey;
if arama='h' then silme;
if arama='e' then
begin
lis.f:='s';
seek(dosya,i);
write(dosya,lis);
end;
writeln;
textcolor(red);
writeln('......');
writeln;
writeln('silinecek baska kayit varmi? [E/H]');
a:=readkey;
if a='e' then silme;
end;
end;
end;
procedure duzelt;
begin
clrscr;
assign(dosya,'c:/liste.dat');
{$i-}reset(dosya);{$i+}
kod:=ioresult;
if kod<>0 then rewrite(dosya);
writeln;
writeln;
textcolor(white);
writeln('                       KAYIT DUZELTME MENUSU');
writeln;
writeln;
textcolor(yellow);
write('d�zeltilecek kisi --->');
readln(arama);
for i:=0 to filesize(dosya)-1 do
begin
seek(dosya,i);
read(dosya,lis);
if (lis.ad=arama) and (lis.f='*') then
begin
writeln;
writeln;
writeln;
writeln('                             BULUNAN SONUC');
writeln;
writeln;
textcolor(green);
writeln('       ad               --->',lis.ad);
writeln;
writeln('       soyad           --->',lis.soyad);
writeln;
writeln('       dogum tarihi     --->',lis.dogumtarih);
writeln;
writeln('       adres           --->',lis.adres);
writeln;
writeln('       ev tel           --->',lis.evtel);
writeln;
writeln('       cep tel         --->',lis.ceptel);
writeln;
writeln('       e-mail           --->',lis.email);
writeln;
writeln('       isi             --->',lis.is);
writeln;
writeln('       baba adi         --->',lis.babaad);
writeln;
writeln('       anne adi         --->',lis.anaad);
writeln;
writeln('       baba meslek     --->',lis.babames);
writeln;
writeln('       anne meslek     --->',lis.anames);
writeln;
writeln('       kayit no         --->',lis.kayno);
writeln('D�zeltilecek kay�t bu mu ? [E\H]');
a:=readkey;
if a='h' then duzelt;
if a='e' then
clrscr;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                             ! YENI DEGERLERI GIRIN !');
writeln;
writeln;
textcolor(green);
writeln('       ad               --->');
writeln;
writeln('       soyad           --->');
writeln;
writeln('       dogum tarihi     --->');
writeln;
writeln('       adres           --->');
writeln;
writeln('       ev tel           --->');
writeln;
writeln('       cep tel         --->');
writeln;
writeln('       e-mail           --->');
writeln;
writeln('       isi             --->');
writeln;
writeln('       baba adi         --->');
writeln;
writeln('       anne adi         --->');
writeln;
writeln('       baba meslek     --->');
writeln;
writeln('       anne meslek     --->');
writeln;
writeln('       kayit no         --->');
gotoxy(29,7);
readln(lis.ad);
if lis.ad='' then exit;
gotoxy(29,9);
readln(lis.soyad);
gotoxy(29,11);
readln(lis.dogumtarih);
gotoxy(29,13);
readln(lis.adres);
gotoxy(29,15);
readln(lis.evtel);
gotoxy(29,17);
readln(lis.ceptel);
gotoxy(29,19);
readln(lis.email);
gotoxy(29,21);
readln(lis.is);
gotoxy(29,23);
readln(lis.babaad);
gotoxy(29,25);
readln(lis.anaad);
gotoxy(29,27);
readln(lis.babames);
gotoxy(29,29);
readln(lis.anames);
gotoxy(29,31);
readln(lis.kayno);
seek(dosya,i);
write(dosya,lis);
close(dosya);
end;
end;
end;
procedure menu;
begin
repeat
clrscr;
textcolor(3);
writeln('     demirnazim@hotmail.com');
writeln;
writeln;
delay(200);
textcolor(white);
textcolor(red);
writeln('                             ---   MAIN MENU   ---');
writeln;
writeln;
textcolor(white);
delay(200);
write('                                 KAYIT   KLE');
gotoxy(40,7);
textcolor(green);
write('E');
delay(200);
gotoxy(34,9);
textcolor(white);
write('KAYIT   RA');
gotoxy(40,9);
textcolor(green);
write('A');
delay(200);
gotoxy(34,11);
textcolor(white);
write('KAYIT   UZELTME');
gotoxy(40,11);
textcolor(green);
write('D');
delay(200);
gotoxy(34,13);
textcolor(white);
write('KAYIT   ILME');
gotoxy(40,13);
textcolor(green);
write('S');
writeln;
writeln;
writeln;
textcolor(blue);
writeln('                           cikis icin (esc) tuslayin');
a:=readkey;
if a='e' then ekle;
if a='a' then ara;
if a='s' then silme;
if a='d' then duzelt;
until a=#27;
end;
begin
clrscr;
repeat
clrscr;
textcolor(3);
writeln('     demirnazim@hotmail.com');
writeln;
writeln;
writeln;
writeln;
writeln;
textcolor(white);
writeln('                                     AIN MANU');
writeln;
writeln;
writeln;
writeln('                                       XIT');
gotoxy(37,7);
textcolor(2);
write('M');
gotoxy(39,11);
write('E');
writeln;
writeln;
writeln;
writeln;
textcolor(7);
writeln('                         renkli harfler ile programi yonetin');
gotoxy(1,1);
a:=readkey;
if a='m' then menu;
if a='e' then exit;
until a=#27;
end.


nazım demİr
demirnazim@hotmail.com