دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

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

مُساهمة  mah11 21/7/2013, 8:30 pm

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين

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

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

الكود:

{
      ***   REPUBLIQUE ALGERIENNE DEMOCRATIQUE ET POPULAIRE   ***
}
program project2_de_delfa;
uses crt;
const n1=1; m1=15;
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,etu1 : file of etudiant;
   chois:integer;
   rte,trouve,trou,trou1,trou2:boolean;
   var no : char;
   tab1 : array[0..n1] of string[m1];

begin
repeat
   clrscr;
   gotoxy(15,2);
   write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE');
   gotoxy(10,5); write('1. Creation du fichier');
   gotoxy(10,7); write('2. Ajout');
   gotoxy(10,9); write('3. Affichage');
   gotoxy(10,11); write('4. Rechercher');
   gotoxy(10,13); write('5. Supprimer');
   gotoxy(10,15); write('6. Quitter');
   gotoxy(5,18); write('Entrez votre chois : '); readln(chois);

 case chois of {debut d'alternative }

  1:begin
     assign(etu,'delfa'); rewrite(etu);
     repeat
      with E do
      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 : ');
       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);
    end;

 2:begin  trou:=false;               { Ajout }

     assign(etu,'delfa'); reset(etu);
     seek(etu,filesize(etu));
     repeat
      with E do
      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 : ');
       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(no);
      if no='n' then trou:=true;
     until (no='n')and(trou=true);
     close(etu);
   end;
                  { affichage }
 3:begin

     assign(etu,'delfa'); reset(etu);
     while not eof(etu) do
     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 :');
       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);
   end;
                { rechercher }
 4: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]); clrscr;
     assign(etu,'delfa'); reset(etu);
     while not eof(etu) do
     begin
      with E do
      begin
       read(etu,E);
       if tab1[1]=nom then
       begin
        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 :');
        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;
   end;

 5:begin  {************************************************************}
                           { supprimer }
        clrscr; trou1:=false; trou2:=false;       {alger_ler;}
        gotoxy(15,2);
        write('REPUBLIQUE ALGERIENNE DEMOCRATIQUE POPULAIRE');
        gotoxy(8,14); write('Donnez le nom a suprimer :');
        gotoxy(35,14); readln(tab1[n1]);
        assign(etu,'delfa'); reset(etu);
        assign(etu1,'delfa3'); rewrite(etu1);
        while not eof(etu) do
        begin
        read(etu,E);
        if tab1[n1]<>E.nom then
        begin
          write(etu1,E);
          trou1:=true;
          end else trou2:=true;
        end;
        close(etu1);

        if (trou1=true)and(trou2=true) then
        begin
        reset(etu1); rewrite(etu);
        while not eof(etu1) do
        begin
          read(etu1,E);
           write(etu,E);
        end;
        rewrite(etu1);
        close(etu); close(etu1);
        end else
        begin
          gotoxy(5,15); write('Le nom non trouve');
          readln;
        end;

   end;   {************************************************************}

 6:begin

     gotoxy(7,25); write('Fin de programmer');
              rte:=true; readln; end;
   end;                              { fin d'alternative }

until (chois=6)and(rte=true);

end.

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

https://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى