برنامج لتسجيل موظفين أو طلبة النسخة الاولى
صفحة 1 من اصل 1
برنامج لتسجيل موظفين أو طلبة النسخة الاولى
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
برنامج لتسجيل موظفين أو طلبة النسخة الاولى
1 اعادة تهيئة السجلات من جديد
2 اضافة سجل الى السجلات
3 عرض محتوى السجلات
4 بحث في السجلات
5 حذف سجل من السجلات
6 خروج من البرنامج
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
برنامج لتسجيل موظفين أو طلبة النسخة الاولى
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.
مواضيع مماثلة
» برنامج لتسجيل موظفين أو طلبة النسخة الثانية
» برنامج لتسجيل موظفين أو طلبة النسخة الثالثة
» النسخة الجديدة من برنامج - برنامج تسيير محل تجاري - الموضوع من الاعضاء فقط
» النسخة الجديدة من برنامج برنامج تسيير محل تجاري
» برنامج بالدلفي لتسيير مــحل تـجـــاري النسخة 2
» برنامج لتسجيل موظفين أو طلبة النسخة الثالثة
» النسخة الجديدة من برنامج - برنامج تسيير محل تجاري - الموضوع من الاعضاء فقط
» النسخة الجديدة من برنامج برنامج تسيير محل تجاري
» برنامج بالدلفي لتسيير مــحل تـجـــاري النسخة 2
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى