|
iþçi takip programý
(*copright by gökhan aygün*)
uses crt; type kayit=record no,soy,isim,maas,gun,avans:string[30]; f:char; end; var dosya:file of kayit; kay:kayit; h,i,s,k,kod:integer; HH,ara:string[30]; t:string; tus:char; label MENU,ekayit,eliste,earama,ecikis; begin MENU: clrscr; textbackground(red); clrscr; textcolor(white); gotoxy(20,3);writeln('˜ž€˜ TAKIP PROGRAMINA HOSGELDINIZ...'); gotoxy(30,10);writeln('1-KAYIT'); gotoxy(30,11);writeln('2-LISTELEME'); gotoxy(30,12);writeln('3-ARAMA'); gotoxy(30,13);writeln('4-SILME'); gotoxy(30,14);writeln('5-BILGI DEGISIKLIGI'); gotoxy(30,15);writeln('6-CIKIS'); gotoxy(10,20);write('LUTFEN YAPACAGINIZ ISLEMIN NUMARASINI GIRINIZ (1/2/3/4/5/6)');readln(h); if h=1 then goto ekayit; if h=2 then goto eliste; if h=3 then goto earama; if h=6 then goto ecikis; ekayit: assign(dosya,'kadir.txt'); {$i-} reset(dosya);kod:=ioresult;{$i+}; if kod<> 0 then rewrite(dosya); repeat clrscr; gotoxy(30,10);write('NUMARA >');readln(kay.no); if kay.no='' then GOTO MENU; gotoxy(30,11);write('ADI >');readln(kay.isim); gotoxy(30,12);write('SOYADI >');readln(kay.soy); gotoxy(30,13);write('MAAS >');readln(kay.maas); gotoxy(30,14);write('AVANS >');readln(kay.avans); gotoxy(30,15);write('€.GšN >');readln(kay.gun); gotoxy(20,25);writeLN('BILGI DOSYAYA KAYDEDILSIN 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; textcolor(31); writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...');READLN(HH); until KEYPRESSED; close(dosya); GOTO MENU; earama: assign(dosya,'kadir.txt'); {$i-} reset(dosya);kod:=ioresult;{$i+}; if kod<>0 then begin writeln('DOSYA BULUNAMADI...'); tus:=readkey; halt; end; repeat clrscr; gotoxy(20,13);write('ARADIGINIZ KISININ NUMARASINI GIRINIZ>');readln(ara); if ara='' then exit; for i:=0 to filesize(dosya)-1 do begin seek(dosya,i); read(dosya,kay); if (kay.f='*') and (kay.no=ara) then begin clrscr; gotoxy(30,10);writeln('NUMARASI >',kay.no); gotoxy(30,12);writeln('ADI >',kay.isim); gotoxy(30,13);writeln('SOYADI >',kay.soy); gotoxy(30,14);writeln('MAASI >',kay.maas); gotoxy(30,15);writeln('AVANSI >',kay.avans); gotoxy(30,16);Writeln('€.GšN >',kay.gun); writeln; gotoxy(20,20);write('ARADIGINIZ KAYIT BU MU? (E/H)'); repeat tus:=upcase(readkey); until tus in ['E','H']; if tus='E' then exit; end; end; writeln; gotoxy(27,15);writeln('ARADIGINIZ KAYIT YOK...'); tus:=readkey; until 1=2; close(dosya); writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...'); READKEY; GOTO MENU; eliste: assign(dosya,'kadir.txt'); {$i-} reset(dosya);kod:=ioresult;{$i+}; if kod<>0 then begin writeln('DOSYA BULUNAMADI...'); tus:=readkey; halt; end; clrscr; writeln(' NUMARA ADI SOYADI MAAS AVANS €.GUN'); writeln('========================================= ===================================='); s:=2; k:=0; for i:=0 to filesize(dosya)-1 do begin seek(dosya,i); read(dosya,kay); if kay.f='*' then begin s:=s+1; k:=k+1; gotoxy(3,s);write(kay.no); gotoxy(16,s);write(kay.isim); gotoxy(35,s);write(kay.soy); gotoxy(40,s);write(kay.maas); gotoxy(45,s);write(kay.avans); gotoxy(50,s);write(kay.gun); end; if s>18 then begin gotoxy(20,21); write('DIGER SAYFA ICIN BIR TUSA BASINIZ...'); tus:=readkey; s:=2; clrscr; end; end; gotoxy(20,21); write('LISTELENECEK KAYITLAR BITTI...'); tus:=readkey; close(dosya); gotoxy(15,23);writeln('ANA MENUYE DONMEK ICIN BIR TUSA BASINIZ...'); READKEY; GOTO MENU; ecikis: writeln('Cikis'); END. |
Paylaşım için tşkler…
|
teŞekkÜrler PaylaŞim İİÇİn
|
teŞekkÜrler PaylaŞim İİÇİn
|
paylaşım için tşkrlr
|
| Bütün Zaman Ayarları WEZ +3 olarak düzenlenmiştir. Şu Anki Saat: 05:58 . |
Powered by vBulletin® Version 3.7.0
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.