برنامج يبين كيفية تسجيل عمال مؤسسة
2 مشترك
صفحة 1 من اصل 1
برنامج يبين كيفية تسجيل عمال مؤسسة
برنامج يبين كيفية تسجيل عمال مؤسسة
.
- الكود:
{
*** 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 مرات
رد: برنامج يبين كيفية تسجيل عمال مؤسسة
مشكـــــور على الموضـــــوع.................
sad13- مبرمج
- عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014
رد: برنامج يبين كيفية تسجيل عمال مؤسسة
مشكـــــور على الموضـــــوع.................
sad13- مبرمج
- عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014
مواضيع مماثلة
» كيفية تسجيل بيانات شخص باستعمال اوامر اس كي ال بواسطة دلفي 5
» كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-
» النسخة الجديدة من برنامج - برنامج تسيير محل تجاري - الموضوع من الاعضاء فقط
» النسخة الجديدة من برنامج برنامج تسيير محل تجاري
» طلب تسجيل في المنتدى "دلفي تعليم"
» كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-
» النسخة الجديدة من برنامج - برنامج تسيير محل تجاري - الموضوع من الاعضاء فقط
» النسخة الجديدة من برنامج برنامج تسيير محل تجاري
» طلب تسجيل في المنتدى "دلفي تعليم"
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى