Kapsamlı bir program
Hepsini Seç
uses crt,dos,printer;
Type
kayit=record
tarih,tc,telno,adres,koy,ilce,il,din,yer,baba,ana, ad,soyad:string[250];
kayitno,gun,ay,yil,saat1,dakika:integer;
medeni,f:char;
end;
var
muhtar:File of kayit;
kay:kayit;
saat11,dakika,saniye,salise,gun11,ay11,yil11,gn
o rd;
ara,ab,bilo:string;
klam,klama,ss,tc1,kl,tt,aa,ja,s,x,sa,j,a,i:integer ;
bolum:string[20];
aaa,kla,dda,cevap,ceva,dd,cev,yy,tus,sec:char;
soyad,ad:string[30];
bulundu:boolean;
procedure menu; forward;
procedure yardim;
begin
repeat
clrscr;
writeln;
writeln('''' MUHTARLIK PROGRAMI'''');
writeln('''' Muhtarl�k Program�nda;'''');
writeln('''' Kay�t yapma, bulma, listeleme, silme, d�zeltme ve gerid”n�s�m kutusu'''');
writeln('''' Gibi fonksiyonlarla kullan�c�lara genis bir kullan�m ag� sunulmaktad�r...'''');
writeln;
writeln('''' Kay�t'''');
writeln;
write('''' '''');textcolor(2);write(''''E'''');textcolor(whit e);writeln('''' kle'''');
writeln;
write('''' '''');textcolor(2);write(''''B'''');textcolor(whit e);writeln('''' ul'''');
writeln;
write('''' '''');textcolor(2);write(''''L'''');textcolor(whit e);write('''' istele'''');
textcolor(11);
writeln('''' [Bilal Kaya] - [Okan Dastan] - [Sad�k Kurtlu]'''');
textcolor(white);
writeln;
write('''' '''');textcolor(2);write(''''D'''');textcolor(whit e);writeln('''' �zet'''');
writeln;
write('''' '''');textcolor(2);write(''''S'''');textcolor(whit e);writeln('''' il'''');
writeln;
write('''' '''');textcolor(2);write(''''G'''');textcolor(whit e);writeln('''' eri D”n�s�m Kutusu'''');
writeln;
write('''' '''');textcolor(4);write(''''ESC'''');textcolor(wh ite);writeln('''' €�k�s'''');
sec:=readkey;
until sec in [''''E'''',''''e'''',''''B'''',''''b'''',''''L'''', ''''l'''',''''D'''',''''d'''', ''''S'''',''''s'''',''''G'''',''''g'''',#27,''''Q' ''',''''q'''',#59];
if (sec=''''E'''') or (sec=''''e'''') then
begin clrscr; writeln('''' Ekle'''');
writeln(''''Mahalleye yeni tas�nan vatandaslar�n kay�tlar�n�n bir dosyada tutulmas� ve'''');
writeln(''''istediginiz zaman kay�tlar �zerinde islem yapmay� saglar...'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;yardim;
end else if (sec=''''B'''') or (sec=''''b'''') then
begin
clrscr; writeln('''' Bul'''');
writeln(''''Arad�g�n�z vatandas�n Ad�n� ve Soyad�n� B�y�k Harf ve K�‡�k Harfe dikkat ederek yazarsan�z,'''');
writeln(''''Arad�g�n�z vatandas�n t�m kimlik bilgilerine ulasabilirsiniz...'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;yardim;
end
else if (sec=''''L'''') or (sec=''''l'''') then
begin
clrscr;
writeln('''' Listele'''');
writeln(''''Kay�tl� t�m vatandaslar�n Ad�n�, Soyad�n�, Tc Kimlik nosunu ve Baba Ad�n� g”r�nt�leyebilirsiniz...'''');
writeln(''''Space tusuna basarsan�z, sizden kay�t nosunu isteyecektir...'''');
writeln(''''Kay�t nosunu dogru girerseniz vatandas�n t�m kimlik bilgilerine ulasabilirsiniz..'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;
yardim;
end
else if (sec=''''D'''') or (sec=''''d'''') then
begin
clrscr;
writeln('''' D�zelt'''');
writeln(''''Kay�t edilmis bilgileroe bir yanl�sl�k varsa bu se‡enegi kullanabilirsiniz.'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;
yardim;
end
else if (sec=''''S'''') or (sec=''''s'''') then
begin
clrscr;
writeln('''' Sil'''');
writeln;
writeln(''''Dosyadaki Silinmesi gereken bilgileri silmek i‡in kullanabilirsiniz...'''');
writeln(''''Buradan Silinen Kay�tlar Tekrar Kurtar�labilmesi i‡in Geri D”n�s�m Kutusunu G”nderilir...'''');
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;
yardim;
end
else if (sec=''''G'''') or (sec=''''g'''') then
begin
clrscr;
writeln(''''Geri D”n�s�m Kutusu'''');
writeln;
writeln(''''Silinmis Kay�tlar�n tutuldugu b”l�md�r...'''');
writeln(''''Space Tusuna bas�p, kay�t nosunu girerseniz Bilgiler kurtar�l�r ve'''');
writeln(''''Bu bilgiler �zerinde tekrar islemler yapabilirsiniz...'''');
writeln;
writeln(''''Geri d”nmek i‡in bir tusa bas�n...'''');
readkey;
yardim;
end
else if (sec=#27) or (sec=''''Q'''') or (sec=''''q'''') then menu;
end;
procedure saat;
var
saat,dakika,saniye,salise
ord;
begin
gettime(saat,dakika,saniye,salise);
write(''''Saat: '''');
write(saat:0);
textcolor(white+blink);
write('''':'''');
textcolor(white);
writeln(dakika:0);
end;
procedure tarih;
const
gunler:array[0..6] of string[9]=
(''''Pazar'''',''''Pazartesi'''',''''Sal�'''','''' €arsamba'''',''''Persembe'''',''''Cuma'''',''''Cum artesi'''');
var
yil,ay,gun,gn
ord;
begin
getdate(yil,ay,gun,gn);
textcolor(white);
writeln(''''Tarih: '''',gun:0,''''/'''',ay:0,''''/'''',yil:0,'''' '''',gunler[gn]);
end;
procedure yazici;
begin
writeln(''''Yaz�c�n�n A‡�k olduguna emin olup bir tusa bas�n...'''');
readkey;
clrscr;
write(lst,''''Kayt� No________:'''');
writeln(lst,kay.kayitno);
write(lst,''''Kay�tedilme Tarih_: '''');
writeln(lst,kay.gun,''''/'''',kay.ay,''''/'''',kay.yil);
write(lst,''''Kay�tedilme Saati_: '''');
writeln(lst,kay.saat1,'''':'''',kay.dakika);
write(lst,''''Tc Kimlik No__:'''');writeln(lst,kay.tc);
write(lst,''''Soyad_________:'''');writeln(lst,kay .soyad);
write(lst,''''Ad�___________:'''');writeln(lst,kay .ad);
write(lst,''''Baba Ad�______:'''');writeln(lst,kay.baba);
write(lst,''''Ana Ad�_______:'''');writeln(lst,kay.ana);
write(lst,''''Dogum Yeri____:'''');writeln(lst,kay.yer);
write(lst,''''Dogum Tarihi__:'''');writeln(lst,kay.tarih);
write(lst,''''Medeni Hali___:'''');
if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then
begin
writeln(lst,kay.medeni,''''vli'''');
end
else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then
begin
writeln(lst,kay.medeni,''''ekƒr'''');
end;
write(lst,''''Dini__________:'''');writeln(lst,kay .din);
write(lst,''''Adres_________:'''');writeln(lst,kay .adres);
write(lst,''''Ev No_________:'''');writeln(lst,kay.telno);
writeln(lst,''''K�t�g�n Bulundugu'''');
write(lst,''''il____________:'''');writeln(lst,kay .il);
write(lst,''''il‡e__________:'''');writeln(lst,kay .ilce);
write(lst,''''Mahalle/K”y___:'''');writeln(lst,kay.koy);
end;
procedure sekil;
begin
clrscr;
x:=0;
gotoxy(2,2);
tarih;
gotoxy(60,2);
saat;
gotoxy(1,4);
textbackground(blue);
textcolor(11);
write(''''°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° °°°°°°°°°°°°°°°°°°°°°°°°°°°°°° °°°°°°°°°'''');
textcolor(white);
textbackground(black);
gotoxy(35,2);
highvideo;
textbackground(red);textcolor(white);write(''''³'' '');write(''''1.Sokak'''');
textcolor(white);writeln(''''³'''');
gotoxy(35,3);
writeln(''''ÀÄÄÄÄÄÄÄÙ'''');
gotoxy(35,1);
writeln(''''ÚÄÄÄÄÄÄÄ¿'''');
textbackground(black);
textcolor(white);
end;
procedure tcbb;
begin
repeat
gotoxy(1,11);
textcolor(white+16);
write(''''Tc Kimlik No______: '''');textbackground(red);
textcolor(white);
write(kay.tc);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,11);writeln('''' '''');
gotoxy(22,11);readln(kay.tc);
delete(kay.tc,12,100);
gotoxy(1,11);writeln(''''Tc Kimlik No______: '''',kay.tc);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,11);
writeln(''''Tc Kimlik No______: '''',kay.tc);
end;
end;
procedure soyadbb;
begin
repeat
gotoxy(1,12);
textcolor(white+16);
write(''''Soyad_____________: '''');textbackground(red);
textcolor(white);
write(kay.soyad);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,12);writeln('''' '''');
gotoxy(22,12);readln(kay.soyad);delete(kay.soyad,9 ,100);
gotoxy(1,12);writeln(''''Soyad_____________: '''',kay.soyad);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,12);
writeln(''''Soyad_____________: '''',kay.soyad);
end;
end;
procedure adbb;
begin
repeat
gotoxy(1,13);
textcolor(white+16);
write(''''Ad�_______________: '''');textbackground(red);
textcolor(white);
write(kay.ad);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,13);writeln('''' '''');
gotoxy(22,13);readln(kay.ad);delete(kay.ad,10,100) ;
gotoxy(1,13);writeln(''''Ad�_______________: '''',kay.ad);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,13);
writeln(''''Ad�_______________: '''',kay.ad);
end;
end;
procedure bababb;
begin
repeat
gotoxy(1,14);
textcolor(white+16);
write(''''Baba Ad�__________: '''');textbackground(red);
textcolor(white);
write(kay.baba);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,14);writeln('''' '''');
gotoxy(22,14);readln(kay.baba);delete(kay.baba,9,1 00);
gotoxy(1,14);writeln(''''Baba Ad�__________: '''',kay.baba);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,14);
writeln(''''Baba Ad�__________: '''',kay.baba);
end;
end;
procedure anabb;
begin
repeat
gotoxy(1,15);
textcolor(white+16);
write(''''Ana Ad�___________: '''');textbackground(red);
textcolor(white);
write(kay.ana);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,15);writeln('''' '''');
gotoxy(22,15);readln(kay.ana);delete(kay.ana,9,100 );
gotoxy(1,15);writeln(''''Ana Ad�___________: '''',kay.ana);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,15);
writeln(''''Ana Ad�___________: '''',kay.ana);
end;
end;
procedure yerbb;
begin
repeat
gotoxy(1,16);
textcolor(white+16);
write(''''Dogum Yeri________: '''');textbackground(red);
textcolor(white);
write(kay.yer);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,16);writeln('''' '''');
gotoxy(22,16);readln(kay.yer);delete(kay.yer,11,10 0);
gotoxy(1,16);writeln(''''Dogum Yeri________: '''',kay.yer);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,16);
writeln(''''Dogum Yeri________: '''',kay.yer);
end;
end;
procedure tarihbb;
begin
repeat
gotoxy(1,17);
textcolor(white+16);
write(''''Dogum Tarihi______: '''');textbackground(red);
textcolor(white);
write(kay.tarih);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,17);writeln('''' '''');
gotoxy(22,17);readln(kay.tarih);delete(kay.tarih,1 1,100);
gotoxy(1,17);writeln(''''Dogum Tarihi______: '''',kay.tarih);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,17);
writeln(''''Dogum Tarihi______: '''',kay.tarih);
end;
end;
procedure medenibb;
begin
repeat
gotoxy(1,18);
textcolor(white+16);
write(''''Medeni Hali_______: '''');textbackground(red);
textcolor(white);
if kay.medeni=''''b'''' then
begin
write(''''Bekƒr'''');
end
else
write(''''Evli'''');
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,18);writeln('''' '''');
gotoxy(22,18);readln(kay.medeni);
gotoxy(1,18);writeln(''''Medeni Hali_______: '''',kay.medeni);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
writeln('''' '''');
gotoxy(1,18);
textbackground(black);
writeln(''''Medeni Hali_______: '''',kay.medeni);
end;
end;
procedure dinbb;
begin
repeat
gotoxy(1,19);
textcolor(white+16);
write(''''Dini______________: '''');textbackground(red);
textcolor(white);
write(kay.din);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,19);writeln('''' '''');
gotoxy(22,19);readln(kay.din);delete(kay.din,9,100 );
gotoxy(1,19);writeln(''''Dini______________: '''',kay.din);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,19);
writeln(''''Dini______________: '''',kay.din);
end;
end;
procedure adresbb;
begin
repeat
gotoxy(1,20);
textcolor(white+16);
write(''''Adres_____________: '''');textbackground(red);
textcolor(white);
write(kay.adres);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,20);writeln('''' '''');
gotoxy(22,20);readln(kay.adres);delete(kay.soyad,1 10,500);
gotoxy(1,20);writeln(''''Adres_____________: '''',kay.adres);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,20);
writeln(''''Adres_____________: '''',kay.adres);
end;
end;
procedure telnobb;
begin
repeat
gotoxy(1,21);
textcolor(white+16);
write(''''Telefon No________: '''');textbackground(red);
textcolor(white);
write(kay.telno);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,21);writeln('''' '''');
gotoxy(22,21);readln(kay.telno);delete(kay.telno,1 2,100);
gotoxy(1,21);writeln(''''Telefon No________: '''',kay.telno);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,21);
writeln(''''Telefon No________: '''',kay.telno);
writeln(''''K�t�g�n bulundugu'''');
end;
end;
procedure ilbb;
begin
repeat
gotoxy(1,22);
textcolor(white+16);
write(''''il________________: '''');textbackground(red);
textcolor(white);
write(kay.il);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,22);writeln('''' '''');
gotoxy(22,22);readln(kay.il);delete(kay.il,9,100);
gotoxy(1,22);writeln(''''il________________: '''',kay.il);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,22);
writeln(''''il________________: '''',kay.il);
end;
end;
procedure ilcebb;
begin
repeat
gotoxy(1,23);
textcolor(white+16);
write(''''il‡e______________: '''');textbackground(red);
textcolor(white);
write(kay.ilce);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,23);writeln('''' '''');
gotoxy(22,23);readln(kay.ilce);delete(kay.ilce,9,1 00);
gotoxy(1,23);writeln(''''il‡e______________: '''',kay.ilce);
end
else if (aaa=''''k'''') or (aaa=''''K'''') then
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,23);
writeln(''''il‡e______________: '''',kay.ilce);
end;
end;
procedure koybb;
begin
repeat
gotoxy(1,24);
textcolor(white+16);
write(''''Mahalle/Koy_______: '''');textbackground(red);
textcolor(white);
write(kay.koy);
gotoxy(22,24);
textbackground(0);
aaa:=readkey;
Until aaa In ['''' '''',''''k'''',''''K''''];
if aaa='''' '''' then
begin
textbackground(0);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
delay(15000);
textbackground(red);
gotoxy(10,40);
writeln(''''Silmek i‡in [SPACE] tusuna basun...'''');
textbackground(0);
gotoxy(22,24);writeln('''' '''');
gotoxy(22,24);readln(kay.koy);delete(kay.koy,9,100 );
gotoxy(1,24);writeln(''''Mahalle/Koy_______: '''',kay.koy);
end
else
begin
textbackground(0);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
delay(15000);
textbackground(red);
gotoxy(10,42);
writeln(''''Kabul etmek i‡in [k] tusa bas�n...'''');
textbackground(0);
gotoxy(1,24);
writeln(''''Mahalle/Koy_______: '''',kay.koy);
close(muhtar);
end;
end;
procedure sekil1;
begin
gotoxy(2,5+tt);
writeln(''''³'''');
gotoxy(9,5+tt);
writeln(''''³'''');
gotoxy(11,5+tt);
writeln(''''³'''');
gotoxy(22,5+tt);
writeln(''''³'''');
gotoxy(25,5+tt);
writeln(''''³'''');
gotoxy(35,5+tt);
writeln(''''³'''');
gotoxy(38,5+tt);
writeln(''''³'''');
gotoxy(50,5+tt);
writeln(''''³'''');
gotoxy(51,5+tt);
writeln(''''³'''');
gotoxy(59,5+tt);
writeln(''''³'''');
gotoxy(60,5+tt);
writeln(''''³'''');
gotoxy(68,5+tt);
writeln(''''³'''');
gotoxy(70,5+tt);
writeln(''''³'''');
gotoxy(77,5+tt);
writeln(''''³'''');
end;
procedure sil2;
begin
write(''''Kay�t Nosunu Giriniz:'''');readln(klam);
seek(muhtar,x);reset(muhtar);
for i:=1 to filesize(muhtar) do begin
textbackground(green);read(muhtar,kay);
if (klam=kay.kayitno) and (kay.f=''''*'''') then
begin
x:=1;
writeln(''''Silmek i‡in bir tusa bas�n...'''');
writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');
aaa:=readkey;
if aaa=#27 then
begin
close(muhtar);
exit;
end
else
kay.f:=''''s'''';
gettime(saat11,dakika,saniye,salise);
getdate(yil11,ay11,gun11,gn);
kay.saat1:=saat11;
kay.dakika:=dakika;
kay.gun:=gun11;
kay.ay:=ay11;
kay.yil:=yil11;
seek(muhtar,I-1);
write(muhtar,kay);
writeln(''''Silindi'''');
readkey;
close(muhtar);
menu;
end;
end;
close(muhtar);
end;
procedure gerial;
begin
write(''''Kay�t Nosunu Giriniz:'''');readln(klam);
seek(muhtar,x);reset(muhtar);
for i:=1 to filesize(muhtar) do begin
textbackground(green);read(muhtar,kay);
if (klam=kay.kayitno) and (kay.f=''''s'''') then
begin
x:=1;
writeln(''''Geri almak i‡in bir tusa bas�n...'''');
writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');
aaa:=readkey;
if aaa=#27 then
begin
close(muhtar);
exit;
end
else
kay.f:=''''*'''';
gettime(saat11,dakika,saniye,salise);
getdate(yil11,ay11,gun11,gn);
kay.saat1:=saat11;
kay.dakika:=dakika;
kay.gun:=gun11;
kay.ay:=ay11;
kay.yil:=yil11;
seek(muhtar,I-1);
write(muhtar,kay);
writeln(''''Geri al�nd�'''');
readkey;
close(muhtar);
menu;
end;
end;
close(muhtar);
end;
procedure duzelt2;
begin
write(''''Kay�t nosunu giriniz:'''');readln(klam);
if klam=kay.kayitno then
begin
sekil;
gotoxy(21,5);
textbackground(blue);
writeln('''' D�zeltme '''');
textbackground(black);
writeln;
seek(muhtar,x);
reset(muhtar);
for i:=1 to filesize(muhtar) do
begin
read(muhtar,kay);
if kay.f=''''*'''' then
begin writeln; textbackground(0);
write(''''Kay�t No__________: '''');writeln(kay.kayitno);
tcbb;
soyadbb;
adbb;
bababb;
anabb;
yerbb;
tarihbb;
medenibb;
dinbb;
adresbb;
telnobb;
ilbb;
ilcebb;
koybb;
gettime(saat11,dakika,saniye,salise);
getdate(yil11,ay11,gun11,gn);
kay.saat1:=saat11;
kay.dakika:=dakika;
kay.gun:=gun11;
kay.ay:=ay11;
kay.yil:=yil11;
writeln(''''Bilgileri Kay�t etmek i‡in bir tusa bas�n...'''');
writeln(''''€�kmak i‡in ESC ye bas�n...'''');
tus:=readkey;
if tus=#27 then
begin
close(muhtar);
menu;
end
else
begin
reset(muhtar);
seek(muhtar,I-1);
write(muhtar,kay);
writeln(''''Bilgiler kay�t edildi ana men�ye d”nmek i‡in bir tusa bas�n.'''');
readkey;
close(muhtar);
menu;
end;
end;
end;
end
else
begin
writeln(''''B”yle bir kay�t yok...'''');
writeln(''''Ana men�ye d”nmek i‡in bir tusa bas�n...'''');
readkey;
close(muhtar);
menu;
end;
end;
procedure sil3;
begin
x:=1;
writeln(''''Silmek i‡in bir tusa bas�n...'''');
writeln(''''€�kmak i‡in ESC tusuna bas�n...'''');
aaa:=readkey;
if aaa=#27 then
begin
close(muhtar);
exit;
end
else
begin
kay.f:=''''s'''';
gettime(saat11,dakika,saniye,salise);
getdate(yil11,ay11,gun11,gn);
kay.saat1:=saat11;
kay.dakika:=dakika;
kay.gun:=gun11;
kay.ay:=ay11;
kay.yil:=yil11;
seek(muhtar,I-1);
write(muhtar,kay);
writeln(''''Silindi'''');
readkey;
close(muhtar);
menu;
end;
end;
procedure duzelt3;
begin
sekil;
gotoxy(26,5);
textbackground(blue);
writeln('''' D�zeltilecek '''');
textbackground(black);
writeln;
seek(muhtar,x) ;
reset(muhtar);
for i:=1 to filesize(muhtar) do
begin
read(muhtar,kay);
if kay.f=''''*'''' then
begin writeln; textbackground(0);
write(''''Kay�t No__________: '''');writeln(kay.kayitno);
tcbb;
soyadbb;
adbb;
bababb;
anabb;
yerbb;
tarihbb;
medenibb;
dinbb;
adresbb;
telnobb;
ilbb;
ilcebb;
koybb;
writeln(''''Bilgileri Kay�t etmek i‡in bir tusa bas�n...'''');
writeln(''''€�kmak i‡in ESC ye bas�n...'''');
tus:=readkey;
if tus=#27 then exit
else
begin
gettime(saat11,dakika,saniye,salise);
getdate(yil11,ay11,gun11,gn);
kay.saat1:=saat11;
kay.dakika:=dakika;
kay.gun:=gun11;
kay.ay:=ay11;
kay.yil:=yil11;
reset(muhtar);
seek(muhtar,I-1);
write(muhtar,kay);
writeln(''''Bilgiler kay�t edildi ana men�ye d”nmek i‡in bir tusa bas�n.'''');
readkey;
close(muhtar);
exit;
end;
end;
end;
end;
procedure ekle;
begin
clrscr;
assign(muhtar,''''c:\muhtar.dat'''');
gotoxy(55,5);
reset(muhtar);
kay.kayitno:=filesize(muhtar)+1;
gotoxy(60,7);write(''''kay�t no:'''',Filesize(muhtar)+1);
gotoxy(2,3);tarih;gotoxy(60,3);saat;gotoxy(1,4);
textbackground(blue);textcolor(11);
write(''''°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° °°°°°°°°°°°°°°°°°°°°°°°°°°°°°° °°°°°°°°°°'''');
textcolor(white);textbackground(black);
gotoxy(35,2);highvideo;
textbackground(red);textcolor(white);write(''''³'' '');write(''''1.Sokak'''');
textcolor(white);writeln(''''³'''');
gotoxy(35,3);
writeln(''''ÀÄÄÄÄÄÄÄÙ'''');
gotoxy(35,1);
writeln(''''ÚÄÄÄÄÄÄÄ¿'''');
textbackground(black);
textcolor(white);
gotoxy(31,5);
textbackground(blue);
writeln('''' Kay�t Ekle '''');
textbackground(black);
writeln;
write(''''Tc Kimlik No_______:'''');
textbackground(1);
readln(kay.tc);
delete(kay.tc,12,100);
textbackground(black);
write(''''Soyad______________:'''');textbackground (1);readln(kay.soyad);
delete(kay.soyad,9,100);
if kay.soyad='''''''' then
begin
close(muhtar);
menu;
end
else
textbackground(black);
write(''''Ad�________________:'''');textbackground (1);readln(kay.ad);
delete(kay.ad,8,100);
if kay.ad='''''''' then
begin
close(muhtar);
menu;
end
else
textbackground(black);
write(''''Baba Ad�___________:'''');textbackground(1);readln(kay. baba);textbackground(black);
delete(kay.baba,8,100);
write(''''Ana Ad�____________:'''');textbackground(1);readln(kay .ana);textbackground(black);
delete(kay.ana,8,100);
write(''''Dogum Yeri_________:'''');textbackground(1);readln(kay.y er);textbackground(black);
delete(kay.yer,11,100);
write(''''Dogum Tarihi_______:'''');textbackground(1);readln(kay.t arih);textbackground(black);
delete(kay.tarih,11,100);
write(''''Medeni Hali________:'''');textbackground(red);write(''''" Evli"i‡in[e],"Bekar"i‡in[b]Tusunu Bas...'''');textbackground(black);
kay.medeni:=readkey;
if (kay.medeni=''''e'''') or (kay.medeni=''''E'''') then
begin
gotoxy(21,14);
textbackground(1);
write(''''Evli'''');textbackground(black);
writeln('''' '''');
kay.medeni:=''''e'''';
textbackground(black);
end
else if (kay.medeni=''''b'''') or (kay.medeni=''''B'''') then
begin
gotoxy(21,14);
textbackground(1);
write(''''Bekƒr'''');textbackground(black);
writeln('''' '''');
textbackground(black);
kay.medeni:=''''b'''';
end
else
begin
gotoxy(21,14);
textbackground(1);
write(''''Bekƒr'''');textbackground(black);
writeln('''' '''');
textbackground(black);
kay.medeni:=''''b'''';
end;
write(''''Dini_______________:'''');textbackground (1);readln(kay.din);textbackground(black);
delete(kay.din,12,100);
write(''''Adres______________:'''');textbackground (1);readln(kay.adres);textbackground(black);
write(''''Ev No______________:'''');textbackground(1);readln(ka y.telno);textbackground(black);
delete(kay.telno,13,100);
writeln(''''K�t�g�n Bulundugu'''');
write(''''il_________________:'''');textbackground (1);readln(kay.il);textbackground(black);
delete(kay.il,15,100);
write(''''il‡e_______________:'''');textbackground (1);readln(kay.ilce);textbackground(black);
delete(kay.ilce,15,100);
write(''''Mahalle/K”y________:'''');textbackground(1);readln(kay.koy );textbackground(black);
delete(kay.koy,15,100);
writeln;
write(''''Bilgileri Kay�t etmek i‡in Bir Tusa Bas�n.iptal i‡in ESC ye bas�n'''');
if readkey<> #27 then
begin
gettime(saat11,dakika,saniye,salise);
getdate(yil11,ay11,gun11,gn);
kay.saat1:=saat11;
kay.dakika:=dakika;
kay.gun:=gun11;
kay.ay:=ay11;
kay.yil:=yil11;
kay.f:=''''*'''';
seek(muhtar,filesize(muhtar));
write(muhtar,kay);
close(muhtar);
menu;
end
else
begin
ArkaSokaK.NeT
»
Muhtarlık programı
Benzer Konular 
Düzenli Mod
