برنامج لتسجيل موظفين أو طلبة النسخة الثانية

**mah11** 21/7/2013, 8:32 pm

برنامج لتسجيل موظفين أو طلبة النسخة الثانية

1 اعادة تهيئة السجلات من جديد
2 عرض محتوى السجلات
3 بحث في السجلات
4 ايظافة سجل الى السجلات
5 خروج من البرنامج

الكود:: { *** REPUBLIQUE ALGERIENNE DEMOCRATIQUE ET POPULAIRE *** } program project2_de_delfa; uses crt; type date = record jour : 01..31; mois : 01..12; anne : 1980..2200; end; etudiant = record code: integer; nom : string[15]; prenom : string[20]; date_ne : date; lui : string[40]; adress : string[30]; date_ent : date; date_sor : date; fonction : string[20]; end; var E : etudiant; etu : file of etudiant; chois:integer; rte:boolean; procedure chois_aff; begin clrscr; gotoxy(15,2); write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE'); gotoxy(10,5); write('1. Creation du fichier'); gotoxy(10,7); write('2. Affichage'); gotoxy(10,9); write('3. Rechercher'); gotoxy(10,11); write('4. Ajout'); gotoxy(10,13); write('5. Quitter'); gotoxy(5,16); write('Entrez votre chois : '); readln(chois); end; procedure fenetre; begin clrscr; gotoxy(15,2); write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE'); gotoxy(2,5); write('Donnez le code : '); gotoxy(2,7); write('Donnez le nom : '); gotoxy(2,9); write('Donnez le prenom : '); gotoxy(2,11);write('Donnez le date nessonce : '); gotoxy(30,11);write('/'); gotoxy(33,11); write('/'); gotoxy(2,13);writeln('Donnez le lui nessonce : '); gotoxy(2,15); writeln('Donnez l"adress : '); gotoxy(2,17); write('Donnez la date entree :'); gotoxy(28,17); write('/'); gotoxy(31,17); write('/'); gotoxy(2,19);write('Donnez la date sortie :'); gotoxy(28,19); write('/'); gotoxy(31,19); write('/'); gotoxy(2,21); write('Donnez la fonction : '); end; procedure fenetre_aa; begin clrscr; gotoxy(15,2); write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE'); gotoxy(12,5); write('Code : '); gotoxy(12,7); write('Nom : '); gotoxy(12,9); write('Prenom : '); gotoxy(12,11); write('Date de nessonce :'); gotoxy(33,11); write('/'); gotoxy(36,11); write('/'); gotoxy(12,13); write('Lui de nessonce :'); gotoxy(12,15); write('Adresse :'); gotoxy(12,17); write('Date de entree :'); gotoxy(31,17); write('/'); gotoxy(34,17); write('/'); gotoxy(12,19); write('Date sortie :'); gotoxy(28,19); write('/'); gotoxy(31,19); write('/'); gotoxy(12,21); write('La fonction :'); end; procedure creation; var no : char; begin assign(etu,'delfa'); rewrite(etu); repeat with E do begin fenetre; gotoxy(19,5); readln(code); gotoxy(18,7); readln(nom); gotoxy(21,9); readln(prenom); gotoxy(28,11); read(date_ne.jour); gotoxy(31,11); read(date_ne.mois); gotoxy(34,11); readln(date_ne.anne); gotoxy(27,13); readln(lui); gotoxy(20,15); readln(adress); gotoxy(26,17); read(date_ent.jour); gotoxy(29,17); read(date_ent.mois); gotoxy(32,17); readln(date_ent.anne); gotoxy(26,19); read(date_sor.jour); gotoxy(29,19); read(date_sor.mois); gotoxy(32,19); readln(date_sor.anne); gotoxy(23,21); readln(fonction); write(etu,E); end; writeln('Autre saisi o/n '); readln(no); until no='n'; close(etu); chois_aff; end; procedure ajout_12; var no1 : char; trou : boolean; begin trou:=false; assign(etu,'delfa'); reset(etu); seek(etu,filesize(etu)); repeat with E do begin fenetre; gotoxy(19,5); readln(code); gotoxy(18,7); readln(nom); gotoxy(21,9); readln(prenom); gotoxy(28,11); readln(date_ne.jour); gotoxy(31,11); readln(date_ne.mois); gotoxy(34,11); readln(date_ne.anne); gotoxy(27,13); readln(lui); gotoxy(20,15); readln(adress); gotoxy(26,17); readln(date_ent.jour); gotoxy(29,17); readln(date_ent.mois); gotoxy(32,17); readln(date_ent.anne); gotoxy(26,19); read(date_sor.jour); gotoxy(29,19); read(date_sor.mois); gotoxy(32,19); readln(date_sor.anne); gotoxy(23,21); readln(fonction); write(etu,E); end; writeln('Autre saisie ? o/n'); readln(no1); if no1='n' then trou:=true; until (no1='n')and(trou=true); close(etu); chois_aff; end; {declaration procedure affichage} procedure affichage; begin assign(etu,'delfa'); reset(etu); while not eof(etu) do begin fenetre_aa; with E do begin read(etu,E); gotoxy(19,5); write(code); gotoxy(18,7); write(nom); gotoxy(21,9); write(prenom); gotoxy(31,11); write(date_ne.jour); gotoxy(34,11); write(date_ne.mois); gotoxy(37,11); write(date_ne.anne); gotoxy(30,13); write(lui); gotoxy(22,15); write(adress); gotoxy(29,17); write(date_ent.jour); gotoxy(32,17); write(date_ent.mois); gotoxy(35,17); write(date_ent.anne); gotoxy(26,19); write(date_sor.jour); gotoxy(29,19); write(date_sor.mois); gotoxy(32,19); write(date_sor.anne); gotoxy(26,21); write(fonction); gotoxy(5,25); write('presse key continue : '); readkey; end; end; close(etu); chois_aff; end; {Procedure rechercher } procedure rechercher; const n1=1; m1=15; var tab1 : array[0..n1] of string[m1]; trouve:boolean; begin clrscr; trouve:=false; gotoxy(15,2); write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE'); gotoxy(7,15); write('Donnez le nom de rechercher :'); gotoxy(37,15); readln(tab1[n1]); assign(etu,'delfa'); reset(etu); while not eof(etu) do begin with E do begin read(etu,E); if tab1[1]=nom then begin fenetre_aa; gotoxy(19,5); write(code); gotoxy(18,7); write(nom); gotoxy(21,9); write(prenom); gotoxy(31,11); write(date_ne.jour); gotoxy(34,11); write(date_ne.mois); gotoxy(37,11); write(date_ne.anne); gotoxy(30,13); write(lui); gotoxy(22,15); write(adress); gotoxy(29,17); write(date_ent.jour); gotoxy(32,17); write(date_ent.mois); gotoxy(35,17); write(date_ent.anne); gotoxy(26,19); write(date_sor.jour); gotoxy(29,19); write(date_sor.mois); gotoxy(32,19); write(date_sor.anne); gotoxy(26,21); write(fonction); trouve:=true; end; end; end; close(etu); if trouve=false then begin gotoxy(5,20); write(' Nom ne est pas trouve de la liste'); end; readln; chois_aff; end; begin {Programmer principal} rte:=false; chois_aff; repeat case chois of 1:creation; 2:affichage; 3:rechercher; 4:ajout_12; 5:begin gotoxy(7,25); write('Fin de programmer'); rte:=true; readln; end; else chois_aff; end; until (chois=5)and(rte=true); end.