![]() |
|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود
مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة
( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
![]() |
|
أدوات الموضوع | انواع عرض الموضوع |
![]() |
رقم المشاركة : 1 | ||||
|
![]() السلام عليكم
|
||||
![]() |
![]() |
رقم المشاركة : 2 | |||
|
![]() السي هي لغة برمجة وليست قاعدة بيانات |
|||
![]() |
![]() |
رقم المشاركة : 3 | |||
|
![]() أظن الاخت تقصد صنع struct والتعامل معها على شكل قاعدة بيانات، وممكن تسجيل المحتوى على ملف، وبالتالي تصير على شكل قاعدة بيانات، بالطبع لن تكون في مستوى قواعد البيانات العلائقية. وهذا كود في الانترنيت لقاعدة بيانات باستخدام السي كود PHP:
|
|||
![]() |
![]() |
رقم المشاركة : 4 | ||||
|
![]() اقتباس:
على العموم شكر الللك |
||||
![]() |
![]() |
رقم المشاركة : 5 | ||||
|
![]() اقتباس:
|
||||
![]() |
![]() |
رقم المشاركة : 6 | |||
|
![]() ممكن اجاااااابة ؟؟ |
|||
![]() |
![]() |
رقم المشاركة : 7 | |||
|
![]()
|
|||
![]() |
![]() |
رقم المشاركة : 8 | ||||
|
![]() اقتباس:
انا عندي عمل تطبيقي مكون من جداول client-produit-vente وهي مملوءة وقمنا بانشاءها بالاكسيس بشكل عادي واريد ان اقوم بعملها بالسي فمثلا اضافة موظف او حذفها او تعديل .... نتمنى تكون فهمتني هذا مثال بالباسكاال عن نفس العمل وبارك الله فيييك aprogram produit; uses crt; type tproduit=record company,designation:string[25]; mat,qnt:integer; prix:real; end; fproduit=file of tproduit; var prod:tproduit; fich:fproduit; rep:char; vmat:integer; choix:integer; i:longint; x:string; e:string; p:integer; trouver:boolean; c:byte; procedure ajout; begin clrscr; rep:='O'; while (rep='O') or (rep='o') do begin assign (fich,'c:\degio\produit.bak'); {$I-} reset(fich); if ioresult > 0 then rewrite (fich) else while not eof(fich) do read(fich,prod); {$I+} begin clrscr; with prod do begin writeln(' FICHE DE D''ENREGISTREMENT '); writeln; writeln; write(' MATRICULE : ');readln(prod.mat); writeln; write(' designation : ');readln(prod.designation); writeln; write(' company : ');readln(prod.company); writeln; write(' prix : ');readln(prod.prix); writeln; write(' qnt : ');readln(prod.qnt); writeln; writeln; end; write (fich,prod); write (' Voulez-vous ajouter le designation d''un autre produit : O/N :'); readln(rep); clrscr; end; end; end; { procedure consultationindividuelle; begin clrscr; rep:='O'; while (rep='O') or (rep='o') do begin assign(fich,'c:\degio\etudiant.bak'); reset (fich); writeln(' -------CONSULTATION INDIVIDUELLE-------- '); writeln; write (' MATRICULE : ');readln(vmat); clrscr; while not eof(fich) do begin read (fich,prod); if prod.mat = vmat then begin writeln(' -------CONSULTATION INDIVIDUELLE-------- '); writeln; writeln; writeln (' Nom : ',etud.nom); writeln (' Prenom : ',etud.prenom); writeln (' Date de naissance : ',etud.datenaiss); end; end; if etud.mat <> vmat then begin writeln; writeln(' MATRICULE INCONNU '); writeln; writeln; end; write (' Voulez-vous consulter un autre etudiant ? O/N : '); readln (rep); clrscr; end; end; procedure consultationgenerale; var nom: array[1..25] of string[16]; prenom: array[1..25] of string[25]; som: array[1..25] of string; mat: array[1..25] of string[4]; date: array[1..25] of string; e,f,g,h:string; j,m,n,k:integer; begin clrscr; writeln (' ----------- CONSULTATION GENERALE ------------'); writeln; assign (fich,'c:\degio\etudiant.bak'); reset(fich); i:=0; e:=' '; while not eof(fich) do begin read (fich,etud); begin i:=1+i; mat[i]:=etud.mat; date[i]:=etud.datenaiss; nom[i]:=etud.nom; prenom[i]:=etud.prenom; som[i]:=nom[i]+e+prenom[i]; end; end; for m:= 1 to i-1 do for n:= m+1 to i do if som[m] > som[n] then begin f:= som[m]; som[m]:=som[n]; som[n]:=f; g:= mat[m]; mat[m]:=mat[n]; mat[n]:=g; h:=date[m]; date[m]:=date[n]; date[n]:=h; end; writeln; k:=2; for m:=1 to i do begin write (mat[m]+e); write(som[m]+e); writeln(date[m]+e); k:= k+2; end; writeln; end; procedure suppression; Var etud:tetudiant; trouver:boolean; etud1:fetudiant; {Vetd1 sert de fichier intermediaire lors de la suppression de la donnee} { begin {Debut suppression} { clrscr; writeln (' -------------- SUPPRESSION -------------'); writeln; rep:='O'; while (rep='O') or (rep='o') do begin repeat assign(fich,'c:\degio\etudiant.bak'); {$I-} { reset(fich); {$I+ if IOresult<>0 then begin write(' L''etudiant ne figure pas dans notre fichier '); end; until IOresult=0; assign(etud1,'c:\degio\corbeil.bak'); rewrite(etud1); seek(fich,0); write(' Entrez le Matricule SVP : '); readln(vmat); writeln; writeln; trouver:=false; writeln(' '); writeln; writeln; while not eof(fich) do read(fich,etud); if etud.mat= vmat then begin trouver:=true; writeln(' SUPPRIME!!!!!! : '); writeln; write(' Nom:'); writeln(etud.nom); write(' Prenoms:'); writeln(etud.Prenom); write(' Date de naissance:'); writeln(etud.Datenaiss); writeln; writeln; end; begin seek(fich,0); while not eof(fich) do begin read(fich,etud); if vmat<> etud.mat then begin write(etud1,etud); end; end; rewrite(fich); seek(etud1,0); while not eof(etud1) do begin read(etud1,etud); write(fich,etud); end; close(etud1); erase(etud1); end; write (' Voulez-vous supprimer un autre etudiant ? O/N : '); readln (rep); clrscr; writeln; end; end; procedure Modifier; var trouver:boolean; mat:string; c:char; begin clrscr; rep:='O'; while (rep='O') or (rep='o') do begin assign (fich,'c:\degio\etudiant.bak'); reset(fich); trouver:=false; write(' MATRICULE : '); readln(mat); writeln; i:=0; while(trouver=false) and (not eof(fich)) do begin read(fich,etud); if etud.mat=mat then while (rep='O') or (rep='o') do begin clrscr; trouver:=true; writeln(' ---------------------------------------- '); writeln; writeln; write(' 1> Matricule:'); writeln(etud.mat); write(' 2> Nom:'); writeln(etud.nom); write(' 3> Prenoms:'); writeln(etud.Prenom); write(' 4> Date de naissance:'); writeln(etud.Datenaiss); writeln; writeln; writeln(' ---------------------------------------- '); writeln; writeln; writeln(' Entrez le numero de l''information a modifier '); writeln(' 1> Pour le Matricule'); writeln(' 2> Pour le nom'); writeln(' 3> Pour le prenom'); writeln(' 4> Pour la date de naissance'); writeln; writeln; write(' Faites votre choix SVP:'); readln(C); Case C of '1': begin write(' Entrez le nouveau matricule SVP : '); readln(etud.mat); end; '2': begin write(' Entrez le nouveau nom SVP : '); readln(etud.nom); end; '3': begin write(' Entrez le nouveu prenom SVP : '); readln(etud.prenom); end; '4': begin write(' Entrez la nouvelle date de naissance SVP : '); readln(etud.datenaiss); end; end; clrscr; write (' Voulez-vous modifier une autre donnees ? O/N : '); readln (rep); clrscr; end; i:=i+1; end; if trouver=true then begin Seek(fich,i-1); write(fich,etud); end else writeln(' MATRICULE INCONNU '); writeln; write (' Voulez-vous faire une autre modification ? O/N : '); writeln; readln(rep); end; end; {*********************** DEBUT DU PROGRAMME ****************} begin clrscr; rep:='O'; while (rep='O') or (rep='o') do begin write (' MENU '); writeln; writeln; writeln (' 1 Ajout '); writeln (' 2 Modification '); writeln (' 3 Suppression '); writeln (' 4 Consultation generale '); writeln (' 5 Consultation individuelle '); writeln (' 6 Sortie '); writeln; writeln; repeat write (' Faites Votre Choix : '); if choix > 6 then begin clrscr; write(' ERREUR Saisissez un nombre inferieur a 6 '); end; {$I- } readln (choix); {$I+} until ioresult=0; case choix of 1:ajout; { 2:modifier; 3:suppression; 4:consultationgenerale; 5:consultationindividuelle;} 6:exit; end; write (' Voulez-vous revenir au menu general ? O/N : '); readln (rep); clrscr; end; close (fich); end. |
||||
![]() |
![]() |
الكلمات الدلالية (Tags) |
بالصح, بيانات, قاعدة |
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc