BODRO PROGRAMI
GURURUM5 :: PROGRAMLAMA :: POROGRAMLAMA :: PASCAL
1 sayfadaki 1 sayfası
BODRO PROGRAMI
program maas_bordrosu;
uses CRT;
type
{kayit yapisi tanimlamasi}
kayit=record
ad:string[30];
soy:string[30];
gvu,eno:string[30];
ksno: LONGINT;
hno : string[16];
f: char;
ad1:string[30];
soy1:string[30];
gvu1,eno1:string[30];
ksno1: longint;
hno1 : string[16];
end;
const
okes = 3500000;
var
dosya:File of Kayit;
kay : kayit;
tus : char;
I,ara,s,kod : integer;
q:real;
sec : char;
isad:string[255];
ay:string[30];
bt,ema,tkes,net,ekes:longint;
ara1:string;
procedure kayityap;
begin
assign (dosya,'bordro.dat');
{$i-} Reset(Dosya) ; Kod:=IOResult;{$i+}
if kod<>0 then Rewrite(dosya);
repeat
ClrScr;
{bilgi girisi}
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Isim...................: º ');
gotoxy (20,9);Write('º Soyad..................: º');
gotoxy (20,10);Write('º Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Emekli numarasi........: º');
gotoxy (20,13);Write('º Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (48,;ReadLn(kay.ad);
if kay.ad='' then exit;
gotoxy (48,9);ReadLn(kay.soy);
gotoxy (48,10);ReadLn(kay.gvu);
gotoxy (48,11);ReadLn(kay.ksno);
gotoxy (48,12);ReadLn(kay.eno);
gotoxy (48,13);ReadLn(Kay.hno);
Gotoxy(23,15);Write('Bilgi Dosyaya Yazilsin 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;
Until 1=2;
end;
procedure kayitarama;
begin
ClrScr;
assign (dosya,'bordro.dat');
{$i-} Reset (Dosya);Kod:=IOResult;{$i+}
if kod <> 0 then
begin
WriteLn('Dosya Yok...');
tus:= Readkey;
Halt;
end;
repeat
{Aranacak Bilginin Girilmesi}
ClrScr;
gotoxy (7,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (7,7); Write('º º');
gotoxy (7,; Write('º º');
gotoxy (7,9); Write('º º');
gotoxy (7,10); Write('º º');
gotoxy (7,11);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (15,7);WriteLn('Aradiginiz calisanin kurum sicil numarasini giriniz..');
gotoxy (25,9);ReadLn(ara);
if ara=0 then
begin
ara1:='*';
exit;
end;
{kayit aramak icin dongu acilmasi}
for i:= 0 to FileSize(Dosya)-1 do
Begin
Seek(Dosya,i);
{Dosyadan Kayit okuma}
Read (Dosya,kay);
if (kay.f='*') and (kay.ksno=ara) then
begin
ClrScr;
{bilgilerin ekrana yazilmasi}
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Isim...................: º ');
gotoxy (20,9);Write('º Soyad..................: º');
gotoxy (20,10);Write('º Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Emekli numarasi........: º');
gotoxy (20,13);Write('º Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (48,;Write(kay.ad);
gotoxy (48,9);Write(kay.soy);
gotoxy (48,10);Write(kay.gvu);
gotoxy (48,11);Write(kay.ksno);
gotoxy (48,12);Write(kay.eno);
gotoxy (48,13);Write(kay.hno);
gotoxy (23,15); WriteLn('Aradiginiz Kayit Bu mu? [ E / H ]');
Repeat
tus:=upcase(ReadKey);
until Tus in ['E','H'];
{Evetse ana programa don}
if tus='E' then exit;
end;
end;
ClrScr;
TextColor(29);
gotoxy (30,9);
WriteLn('Kayit Bulunamadi!!!!');
TextColor(14);
tus:=readkey;
Until 1=2;
Close(dosya);
end;
procedure cikti;
begin
ClrScr;
gotoxy (7,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (7,7); Write('º º');
gotoxy (7,; Write('º º');
gotoxy (7,9); Write('º º');
gotoxy (7,10); Write('º º');
gotoxy (7,11);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (20,7);Write('Donemi giriniz(Ay ve Yil)..');
gotoxy (20,9);Write('Brut toplam maasi giriniz..');
gotoxy (30,;ReadLn(ay);
gotoxy (30,10);ReadLn(bt);
ema:=bt div 2;
ekes := (ema div 100 )*35 ;
tkes:=ekes+okes ;
net:=bt-tkes;
ClrScr;
Gotoxy (2,4); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
Gotoxy (2,5); Write('º MAAS BORDROSU º');
Gotoxy (2,6); Write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
Gotoxy (2,7); Write('º Kimlik Bilgileri º EFE BILGISAYAR PAZARLAMA º');
Gotoxy (2,; Write('º º VE PROGRAMLAMA A.S. º');
Gotoxy (2,9); Write('º Adi.........: ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
Gotoxy (2,10);Write('º Soyadi......: º Ucret Listesi º');
Gotoxy (2,11);Write('º º º');
Gotoxy (2,12);Write('º Kurum Sicil No...: º Brut Toplam....: º');
Gotoxy (2,13);Write('º Emekli No........: º Emekli Maasi...: º');
Gotoxy (2,14);Write('º Gorev ve Unvani..: º Em.San.Kesinti.: º');
Gotoxy (2,15);Write('º º Ozel Kesinti...: º');
Gotoxy (2,16);Write('º º Toplam Kesinti.: º');
Gotoxy (2,17);Write('º º º');
Gotoxy (2,18);Write('º Banka Hesap No º ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º ');
Gotoxy (2,19);Write('º º º NET ODENEN º º');
Gotoxy (2,20);Write('º º º º º');
Gotoxy (2,21);Write('º º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º');
Gotoxy (2,22);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
Gotoxy (20,9); Write(kay.ad);
Gotoxy (20,10); Write(kay.soy);
Gotoxy (25,12); Write(kay.ksno);
Gotoxy (25,13); Write(kay.eno);
Gotoxy (25,14); Write(kay.gvu);
Gotoxy (12,20); Write(kay.hno);
Gotoxy (55,20); Write(net);
Gotoxy (63,16); Write(tkes);
Gotoxy (63,15); Write(okes);
Gotoxy (63,14); Write(ekes);
Gotoxy (63,13); Write(ema);
Gotoxy (63,12); Write(bt);
gotoxy (1,1);
Tus:=readkey
end;
procedure silme;
begin
{dosyanin acilmasi}
Assign (dosya,'bordro.dat');
{$i-} Reset (dosya);kod:=IOResult;{$i+}
if kod <> 0 then
begin
WriteLn('Dosya Yok');
tus:=readkey;
halt;
end;
ClrScr;
gotoxy (7,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (7,7); Write('º º');
gotoxy (7,; Write('º º');
gotoxy (7,9); Write('º º');
gotoxy (7,10); Write('º º');
gotoxy (7,11);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (15,7);WriteLn('Silinecek calisanin kurum sicil numarasini giriniz..');
uses CRT;
type
{kayit yapisi tanimlamasi}
kayit=record
ad:string[30];
soy:string[30];
gvu,eno:string[30];
ksno: LONGINT;
hno : string[16];
f: char;
ad1:string[30];
soy1:string[30];
gvu1,eno1:string[30];
ksno1: longint;
hno1 : string[16];
end;
const
okes = 3500000;
var
dosya:File of Kayit;
kay : kayit;
tus : char;
I,ara,s,kod : integer;
q:real;
sec : char;
isad:string[255];
ay:string[30];
bt,ema,tkes,net,ekes:longint;
ara1:string;
procedure kayityap;
begin
assign (dosya,'bordro.dat');
{$i-} Reset(Dosya) ; Kod:=IOResult;{$i+}
if kod<>0 then Rewrite(dosya);
repeat
ClrScr;
{bilgi girisi}
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Isim...................: º ');
gotoxy (20,9);Write('º Soyad..................: º');
gotoxy (20,10);Write('º Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Emekli numarasi........: º');
gotoxy (20,13);Write('º Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (48,;ReadLn(kay.ad);
if kay.ad='' then exit;
gotoxy (48,9);ReadLn(kay.soy);
gotoxy (48,10);ReadLn(kay.gvu);
gotoxy (48,11);ReadLn(kay.ksno);
gotoxy (48,12);ReadLn(kay.eno);
gotoxy (48,13);ReadLn(Kay.hno);
Gotoxy(23,15);Write('Bilgi Dosyaya Yazilsin 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;
Until 1=2;
end;
procedure kayitarama;
begin
ClrScr;
assign (dosya,'bordro.dat');
{$i-} Reset (Dosya);Kod:=IOResult;{$i+}
if kod <> 0 then
begin
WriteLn('Dosya Yok...');
tus:= Readkey;
Halt;
end;
repeat
{Aranacak Bilginin Girilmesi}
ClrScr;
gotoxy (7,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (7,7); Write('º º');
gotoxy (7,; Write('º º');
gotoxy (7,9); Write('º º');
gotoxy (7,10); Write('º º');
gotoxy (7,11);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (15,7);WriteLn('Aradiginiz calisanin kurum sicil numarasini giriniz..');
gotoxy (25,9);ReadLn(ara);
if ara=0 then
begin
ara1:='*';
exit;
end;
{kayit aramak icin dongu acilmasi}
for i:= 0 to FileSize(Dosya)-1 do
Begin
Seek(Dosya,i);
{Dosyadan Kayit okuma}
Read (Dosya,kay);
if (kay.f='*') and (kay.ksno=ara) then
begin
ClrScr;
{bilgilerin ekrana yazilmasi}
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Isim...................: º ');
gotoxy (20,9);Write('º Soyad..................: º');
gotoxy (20,10);Write('º Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Emekli numarasi........: º');
gotoxy (20,13);Write('º Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (48,;Write(kay.ad);
gotoxy (48,9);Write(kay.soy);
gotoxy (48,10);Write(kay.gvu);
gotoxy (48,11);Write(kay.ksno);
gotoxy (48,12);Write(kay.eno);
gotoxy (48,13);Write(kay.hno);
gotoxy (23,15); WriteLn('Aradiginiz Kayit Bu mu? [ E / H ]');
Repeat
tus:=upcase(ReadKey);
until Tus in ['E','H'];
{Evetse ana programa don}
if tus='E' then exit;
end;
end;
ClrScr;
TextColor(29);
gotoxy (30,9);
WriteLn('Kayit Bulunamadi!!!!');
TextColor(14);
tus:=readkey;
Until 1=2;
Close(dosya);
end;
procedure cikti;
begin
ClrScr;
gotoxy (7,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (7,7); Write('º º');
gotoxy (7,; Write('º º');
gotoxy (7,9); Write('º º');
gotoxy (7,10); Write('º º');
gotoxy (7,11);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (20,7);Write('Donemi giriniz(Ay ve Yil)..');
gotoxy (20,9);Write('Brut toplam maasi giriniz..');
gotoxy (30,;ReadLn(ay);
gotoxy (30,10);ReadLn(bt);
ema:=bt div 2;
ekes := (ema div 100 )*35 ;
tkes:=ekes+okes ;
net:=bt-tkes;
ClrScr;
Gotoxy (2,4); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
Gotoxy (2,5); Write('º MAAS BORDROSU º');
Gotoxy (2,6); Write('ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
Gotoxy (2,7); Write('º Kimlik Bilgileri º EFE BILGISAYAR PAZARLAMA º');
Gotoxy (2,; Write('º º VE PROGRAMLAMA A.S. º');
Gotoxy (2,9); Write('º Adi.........: ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹');
Gotoxy (2,10);Write('º Soyadi......: º Ucret Listesi º');
Gotoxy (2,11);Write('º º º');
Gotoxy (2,12);Write('º Kurum Sicil No...: º Brut Toplam....: º');
Gotoxy (2,13);Write('º Emekli No........: º Emekli Maasi...: º');
Gotoxy (2,14);Write('º Gorev ve Unvani..: º Em.San.Kesinti.: º');
Gotoxy (2,15);Write('º º Ozel Kesinti...: º');
Gotoxy (2,16);Write('º º Toplam Kesinti.: º');
Gotoxy (2,17);Write('º º º');
Gotoxy (2,18);Write('º Banka Hesap No º ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º ');
Gotoxy (2,19);Write('º º º NET ODENEN º º');
Gotoxy (2,20);Write('º º º º º');
Gotoxy (2,21);Write('º º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ º');
Gotoxy (2,22);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
Gotoxy (20,9); Write(kay.ad);
Gotoxy (20,10); Write(kay.soy);
Gotoxy (25,12); Write(kay.ksno);
Gotoxy (25,13); Write(kay.eno);
Gotoxy (25,14); Write(kay.gvu);
Gotoxy (12,20); Write(kay.hno);
Gotoxy (55,20); Write(net);
Gotoxy (63,16); Write(tkes);
Gotoxy (63,15); Write(okes);
Gotoxy (63,14); Write(ekes);
Gotoxy (63,13); Write(ema);
Gotoxy (63,12); Write(bt);
gotoxy (1,1);
Tus:=readkey
end;
procedure silme;
begin
{dosyanin acilmasi}
Assign (dosya,'bordro.dat');
{$i-} Reset (dosya);kod:=IOResult;{$i+}
if kod <> 0 then
begin
WriteLn('Dosya Yok');
tus:=readkey;
halt;
end;
ClrScr;
gotoxy (7,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (7,7); Write('º º');
gotoxy (7,; Write('º º');
gotoxy (7,9); Write('º º');
gotoxy (7,10); Write('º º');
gotoxy (7,11);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (15,7);WriteLn('Silinecek calisanin kurum sicil numarasini giriniz..');
Geri: BODRO PROGRAMI
DEVAMIDIR
Gotoxy (25,9);ReadLn(ara);
for i:=0 to filesize(dosya)-1 do
begin
Seek(dosya,i);
Read(dosya,kay);
if (ara=kay.ksno) and (kay.f='*') then
begin
ClrScr;
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Isim...................: º ');
gotoxy (20,9);Write('º Soyad..................: º');
gotoxy (20,10);Write('º Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Emekli numarasi........: º');
gotoxy (20,13);Write('º Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (48,;Write(kay.ad);
gotoxy (48,9);Write(kay.soy);
gotoxy (48,10);Write(kay.gvu);
gotoxy (48,11);Write(kay.ksno);
gotoxy (48,12);Write(kay.eno);
gotoxy (48,13);Write(kay.hno);
gotoxy (23,15); WriteLn('Silinecek Kayit Bu mu? [ E / H ]');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus = 'E' then
begin
kay.f:='s';
Seek(dosya,i);
Write(dosya,kay);
TextColor(29);
ClrScr;
gotoxy (30,9); WriteLn('Kayit Silindi!....');
TextColor(14);
Close(dosya);
tus:=readkey;
exit;
end;
end;
end;
ClrScr;
TextColor(29);
gotoxy (30,9);
WriteLn('Kayit Bulunamadi!!!!');
TextColor(14);
tus:=readkey;
Close(dosya);
end;
procedure duzeltme;
begin
Assign (dosya,'bordro.dat');
{$i-} Reset (dosya);kod:=IOResult;{$i+}
if kod <> 0 then
begin
WriteLn('Dosya Yok');
tus:=readkey;
exit;
end;
ClrScr;
ClrScr;
gotoxy (7,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (7,7); Write('º º');
gotoxy (7,; Write('º º');
gotoxy (7,9); Write('º º');
gotoxy (7,10); Write('º º');
gotoxy (7,11);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (15,7);WriteLn('Duzeltilecek calisanin kurum sicil numarasini giriniz..');
Gotoxy (25,9);ReadLn(ara);
for i:=0 to filesize(dosya)-1 do
begin
Seek(dosya,i);
Read(dosya,kay);
if (ara=kay.ksno) and (kay.f='*') then
begin
ClrScr;
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Isim...................: º ');
gotoxy (20,9);Write('º Soyad..................: º');
gotoxy (20,10);Write('º Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Emekli numarasi........: º');
gotoxy (20,13);Write('º Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (48,;Write(kay.ad);
gotoxy (48,9);Write(kay.soy);
gotoxy (48,10);Write(kay.gvu);
gotoxy (48,11);Write(kay.ksno);
gotoxy (48,12);Write(kay.eno);
gotoxy (48,13);Write(kay.hno);
gotoxy (23,15); Write('Duzeltilecek Kayit Bu mu? [ E / H ]');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus = 'E' then
begin
ClrScr;
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Yeni Isim...................: º ');
gotoxy (20,9);Write('º Yeni Soyad..................: º');
gotoxy (20,10);Write('º Yeni Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Yeni Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Yeni Emekli numarasi........: º');
gotoxy (20,13);Write('º Yeni Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (53,;ReadLn(Kay.ad1);
gotoxy (53,9);ReadLn(Kay.soy1);
gotoxy (53,10);ReadLn(Kay.gvu1);
gotoxy (53,11);ReadLn(Kay.ksno1);
gotoxy (53,12);ReadLn(Kay.eno1);
gotoxy (53,13);ReadLn(Kay.hno1);
gotoxy (25,15);WriteLn('Degisiklikler kaydedilsin mi? [ E / H ]');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus = 'E' then
begin
if kay.ad1<>'' then kay.ad:=kay.ad1;
if kay.soy1<>'' then kay.soy:=kay.soy1;
if kay.eno1<>'' then kay.eno:=kay.eno1;
if kay.ksno1<>0 then kay.ksno:=kay.ksno1;
if kay.gvu1<>'' then kay.gvu:=kay.gvu1;
if kay.hno1<>'' then kay.hno:=kay.hno1;
Seek(dosya,i);
Write(dosya,kay);
ClrScr;
TextColor(29);
gotoxy (30,9);
WriteLn('Degistirme tamamlandi!!!!');
TextColor(14);
close(dosya);
tus:=readkey;
exit;
end;
end;
end;
end;
ClrScr;
TextColor(29);
gotoxy (30,9);
WriteLn('Kayit Bulunamadi!!!!');
TextColor(14);
tus:=readkey;
Close(dosya);
end;
begin
repeat
TextColor(14);
ClrScr;
gotoxy (20,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍ»');
gotoxy (20,7); Write('º º');
gotoxy (20,; Write('º 1...Yeni Calisan Kayiti º ');
gotoxy (20,9); Write('º 2...Bordro Alma º');
gotoxy (20,10);Write('º 3...Kayit Duzeltme º');
gotoxy (20,11);Write('º 4...Kayit Silme º');
gotoxy (20,12);Write('º 5...Cikis º');
gotoxy (20,13);Write('º º');
gotoxy (20,14);Write('º Seciminiz [1..5] º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
Sec:= upcase(Readkey);
ClrScr;
if sec='1' then
begin
kayityap;
close(dosya);
end;
if sec='2' then
begin
kayitarama;
if ara1<>'*' then cikti;
ara1:='';
end;
if sec='3' then duzeltme;
if sec='4' then silme;
until sec='5';
ClrScr;
gotoxy(25,10);
TextColor(20);
Write('Tesekkurler........Teddyboy');
Tus:=readkey;TextColor(15);
end.
ALINTIDIR
__________________
Gotoxy (25,9);ReadLn(ara);
for i:=0 to filesize(dosya)-1 do
begin
Seek(dosya,i);
Read(dosya,kay);
if (ara=kay.ksno) and (kay.f='*') then
begin
ClrScr;
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Isim...................: º ');
gotoxy (20,9);Write('º Soyad..................: º');
gotoxy (20,10);Write('º Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Emekli numarasi........: º');
gotoxy (20,13);Write('º Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (48,;Write(kay.ad);
gotoxy (48,9);Write(kay.soy);
gotoxy (48,10);Write(kay.gvu);
gotoxy (48,11);Write(kay.ksno);
gotoxy (48,12);Write(kay.eno);
gotoxy (48,13);Write(kay.hno);
gotoxy (23,15); WriteLn('Silinecek Kayit Bu mu? [ E / H ]');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus = 'E' then
begin
kay.f:='s';
Seek(dosya,i);
Write(dosya,kay);
TextColor(29);
ClrScr;
gotoxy (30,9); WriteLn('Kayit Silindi!....');
TextColor(14);
Close(dosya);
tus:=readkey;
exit;
end;
end;
end;
ClrScr;
TextColor(29);
gotoxy (30,9);
WriteLn('Kayit Bulunamadi!!!!');
TextColor(14);
tus:=readkey;
Close(dosya);
end;
procedure duzeltme;
begin
Assign (dosya,'bordro.dat');
{$i-} Reset (dosya);kod:=IOResult;{$i+}
if kod <> 0 then
begin
WriteLn('Dosya Yok');
tus:=readkey;
exit;
end;
ClrScr;
ClrScr;
gotoxy (7,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (7,7); Write('º º');
gotoxy (7,; Write('º º');
gotoxy (7,9); Write('º º');
gotoxy (7,10); Write('º º');
gotoxy (7,11);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (15,7);WriteLn('Duzeltilecek calisanin kurum sicil numarasini giriniz..');
Gotoxy (25,9);ReadLn(ara);
for i:=0 to filesize(dosya)-1 do
begin
Seek(dosya,i);
Read(dosya,kay);
if (ara=kay.ksno) and (kay.f='*') then
begin
ClrScr;
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Isim...................: º ');
gotoxy (20,9);Write('º Soyad..................: º');
gotoxy (20,10);Write('º Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Emekli numarasi........: º');
gotoxy (20,13);Write('º Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (48,;Write(kay.ad);
gotoxy (48,9);Write(kay.soy);
gotoxy (48,10);Write(kay.gvu);
gotoxy (48,11);Write(kay.ksno);
gotoxy (48,12);Write(kay.eno);
gotoxy (48,13);Write(kay.hno);
gotoxy (23,15); Write('Duzeltilecek Kayit Bu mu? [ E / H ]');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus = 'E' then
begin
ClrScr;
gotoxy (20,6);Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»');
gotoxy (20,7);Write('º º');
gotoxy (20,;Write('º Yeni Isim...................: º ');
gotoxy (20,9);Write('º Yeni Soyad..................: º');
gotoxy (20,10);Write('º Yeni Gorev ve Unvani........: º');
gotoxy (20,11);Write('º Yeni Kurum Sicil Numarasi...: º');
gotoxy (20,12);Write('º Yeni Emekli numarasi........: º');
gotoxy (20,13);Write('º Yeni Banka Hesap Numarasi...: º');
gotoxy (20,14);Write('º º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ');
gotoxy (53,;ReadLn(Kay.ad1);
gotoxy (53,9);ReadLn(Kay.soy1);
gotoxy (53,10);ReadLn(Kay.gvu1);
gotoxy (53,11);ReadLn(Kay.ksno1);
gotoxy (53,12);ReadLn(Kay.eno1);
gotoxy (53,13);ReadLn(Kay.hno1);
gotoxy (25,15);WriteLn('Degisiklikler kaydedilsin mi? [ E / H ]');
repeat
tus:=upcase(readkey);
until tus in ['E','H'];
if tus = 'E' then
begin
if kay.ad1<>'' then kay.ad:=kay.ad1;
if kay.soy1<>'' then kay.soy:=kay.soy1;
if kay.eno1<>'' then kay.eno:=kay.eno1;
if kay.ksno1<>0 then kay.ksno:=kay.ksno1;
if kay.gvu1<>'' then kay.gvu:=kay.gvu1;
if kay.hno1<>'' then kay.hno:=kay.hno1;
Seek(dosya,i);
Write(dosya,kay);
ClrScr;
TextColor(29);
gotoxy (30,9);
WriteLn('Degistirme tamamlandi!!!!');
TextColor(14);
close(dosya);
tus:=readkey;
exit;
end;
end;
end;
end;
ClrScr;
TextColor(29);
gotoxy (30,9);
WriteLn('Kayit Bulunamadi!!!!');
TextColor(14);
tus:=readkey;
Close(dosya);
end;
begin
repeat
TextColor(14);
ClrScr;
gotoxy (20,6); Write('ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍ»');
gotoxy (20,7); Write('º º');
gotoxy (20,; Write('º 1...Yeni Calisan Kayiti º ');
gotoxy (20,9); Write('º 2...Bordro Alma º');
gotoxy (20,10);Write('º 3...Kayit Duzeltme º');
gotoxy (20,11);Write('º 4...Kayit Silme º');
gotoxy (20,12);Write('º 5...Cikis º');
gotoxy (20,13);Write('º º');
gotoxy (20,14);Write('º Seciminiz [1..5] º');
gotoxy (20,15);Write('º º');
gotoxy (20,16);write('º º');
gotoxy (20,17);Write('ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ ÍÍÍÍÍÍÍÍÍÍͼ');
Sec:= upcase(Readkey);
ClrScr;
if sec='1' then
begin
kayityap;
close(dosya);
end;
if sec='2' then
begin
kayitarama;
if ara1<>'*' then cikti;
ara1:='';
end;
if sec='3' then duzeltme;
if sec='4' then silme;
until sec='5';
ClrScr;
gotoxy(25,10);
TextColor(20);
Write('Tesekkurler........Teddyboy');
Tus:=readkey;TextColor(15);
end.
ALINTIDIR
__________________
Similar topics
» TEL PROGRAMI
» LOGO YAPMA PROGRAMI
» SATELİTE TV PROGRAMI FOR PC 2008
» HARİKA BİR YEMEK PROGRAMI
» ÇOK GÜZEL İLGİNÇ BİR YEMEK PROGRAMI
» LOGO YAPMA PROGRAMI
» SATELİTE TV PROGRAMI FOR PC 2008
» HARİKA BİR YEMEK PROGRAMI
» ÇOK GÜZEL İLGİNÇ BİR YEMEK PROGRAMI
GURURUM5 :: PROGRAMLAMA :: POROGRAMLAMA :: PASCAL
1 sayfadaki 1 sayfası
Bu forumun müsaadesi var:
Bu forumdaki mesajlara cevap veremezsiniz