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('dzeltilecek 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('Dzeltilecek kayt 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