المساعدة في كود للبحث بثلاث حقول

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

اخي الكريم راجع برنامج تسيير مؤسسة تربوية . هناك مثال لطلبك قدمة الاخ علي

سأشرح قليلا عن الطريقة

اضف query ومن خاصية SQL اضف ثلاث Parameter كما في الصورة .

وفي مفتاح البحث اكتب الكود التالي بعد تعريف البارمترات باسماء الedit

procedure TForm4.Button2Click(Sender: TObject);
begin

//		Groupe		 F_code	   Anne_scolaire

DM.QListE.Close;
DM.DEtud.DataSet := DM.QListE;
DM.QListE.ParamByName( 'fil') .Value := edit2.text ;
DM.QListE.ParamByName( 'gro') .Value := edit3.text ;
DM.QListE.ParamByName( 'ans') .Value := edit4.text ;
DM.QListE.Open;
end;

procedure TForm4.Button3Click(Sender: TObject);
begin
DM.DEtud.DataSet:= DM.TEtud;
end;

end.

وارجع الى المشروع المذكور لتتعلم الطريقة بشكل جيد

جزاكم الله عنا كل خير لقد وجدت غايتي في الموضوع الذي وجهتني إليه يا أخ طلال

شكرً جزيلاً على تعاونكم معنا ولا زالت هنا مطالب أخرى حتى اكمل البرنامج إن صعبت علي

ارجو ان لا تقنطو منا