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

برنامج يبين كيفية تسجيل عمال مؤسسة

2 مشترك

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

برنامج يبين كيفية تسجيل عمال مؤسسة Empty برنامج يبين كيفية تسجيل عمال مؤسسة

مُساهمة  mah11 5/8/2013, 8:23 pm

برنامج يبين كيفية تسجيل عمال مؤسسة
الكود:

{
*** 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 ET 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 ET 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 ET 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 ET 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 ET 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 في 5/11/2015, 11:31 pm عدل 1 مرات

mah11
Admin

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

https://delph.forumalgerie.net

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

برنامج يبين كيفية تسجيل عمال مؤسسة Empty رد: برنامج يبين كيفية تسجيل عمال مؤسسة

مُساهمة  sad13 8/1/2014, 9:20 pm


مشكـــــور على الموضـــــوع.................

sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

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

برنامج يبين كيفية تسجيل عمال مؤسسة Empty رد: برنامج يبين كيفية تسجيل عمال مؤسسة

مُساهمة  sad13 8/1/2014, 9:20 pm


مشكـــــور على الموضـــــوع.................

sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

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

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

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

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