Kişilere ait bilgileri kayıt eder.

Hepsini Seç

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(' www.forumwex.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.

ŞEBNEM FERAH

The Fans Of METALLICA


_Ka†a†onia_