الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود لا يعمل

بدأه hbate_allah في 14 يناير 2009 · 2 رد · 626 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه

اقتباس
procedure TFPRINCIPALE.Relevedenote1Click(Sender: TObject);

Var Rep,Rep1,Filtre:string;

begin

Fbulletin.Query1.Open;

Fbulletin.Query1.Refresh;

Fbulletin.Query1.Filtered:=False;

Rep:= Inputbox('Impression d''un Relevé de notes','Entrer le N d''inscription de l''étudiant :','');

Rep1:=Inputbox('Impression d''un Relevé de notes',

'Enter le semestre(Taper I,II','');

if(Rep<>'') then and (Rep1<>'') then

begin

if Fbulletin.Query1.Locate('Numero_inscription;Semestre',VarArrayOf([Rep,Rep1]),[])=False then

begin

Fbulletin.Query1.Filtered:=False;

showmessage('ce N d''inscription : '+rep+ chr(13)+rep1+' ne possede pas de bulletin');

end

Else

begin

Filtre:='Numero_inscription='''+Rep+''' and Semestre= '''+Rep1+'';

Fbulletin.Query1.Filter:=Filtre;

Fbulletin.Query1.Filtered:=true;

Fbulletin.QuickRep1.Preview ;

end;

end;

end;

ان هذا الكود لا يعمل حتى ولو ادخلت له رقم تسجل صحيح فانه يقول لي ان هذا الرقم لا يوجد

#2

السلام عليكم

أختي الكريمة ما هو الأستعلام الموجود في الـ Query1 ؟؟

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#3 
SELECT DISTINCT Etudiant.Numero_inscription,Nom,Prenom,DateNais,lieuDeNaissance,année_scolaire,N
ote.Nom_module,Controle1,Controle2,Synthese,Rattrapage,Td,Tp,Semestre,Moyenne,Moy
xCoef,
Module.Coefficient,Filiere.F_nom
FROM Etudiant,Module,Filiere,Note


WHERE 
(Note.Numero_inscription=Etudiant.Numero_inscription)
AND(Note.Nom_module=Module.M_nom)
and (Etudiant.F_code=filiere.F_code)

ORDER BY F_nom

مواضيع مشابهة