delphi4arab منتديات دلفي للعرب

الصفحات : 1 2

السلام عليكم
اريد طرقة عمل فلترة باستخدام 3 كومبوبوكس
يعني مثلا _ لدينا جدول واريد الفلتر ب3 حقول تارة في ان واحد او معا حسب اختيار القيمة التي في الكومبوبوكس و في الحدث Onchange
صورة في المرفق
وشكرا .........

السلام عليكم
تقريبا نفس الفكرة :
http://delphi4arab.net/forum/showthread.php?tid=8058

شكرا اخي لؤس
تقريبا نفس الفكرة لكن لا تصلح ...
توضيح اكثرا .. مثال لدي قاعدة معطيات فيها عدة جداول اختار انا جدول مثلا فيه 10 حقول
اردت الفلتر على حسب 3 حقول يعني حقل فيه البلد و حقل فيه الولاية وحقل فيه الدائرة وباقي الحقول هي اسم ..القب .العنوان ....الخ
عند اختيار القيم الي في الكومبو الاول وهي (البلد) نعمل فلتر لجميع الاشخاص الي في البلد المحدد و دلك في الحدث onchange و ثم اختار الكومبو الثاني (الولاية) يتم الفلتر الاشخاص الدين يحملون نفس ( البلد و الولاية) و هكدا مع الكمبو الثالث و طريقة الفلتر تقتصر في بعض الاحيان على البلد فقط او لبلد و الولاية ....
وشكرا مرة اخرى اخي لؤي و عذرا على الاطالة ...

السلام عليكم
بإستعمال Query:

PHP كود :
with   Query do
begin
   sql.Clear;
   SQL.Add('SELECT * FROM Table where Country ='+QuotedStr(ComboBox1.Items[0])+'and ' +'Wilaya ='+QuotedStr(ComboBox2.Items[0]));
   Open;
end;
 DBGrid1.Visible:=true; 

http://delphi4arab.net/forum/showthread.php?tid=7430

شكرا اخي لؤي و عبد العزيز
هل ممكن ولو مثال بسيط على 3 كمبوبوكس ان امكن و اكون شاكر لكم

إقتباس :ممكن ولو مثال بسيط على 3 كمبوبوكس

ارفق محاولتك بها المكونات وبعض من البيانات وان شاء الله يتم التعديل عليها

السلام عليكم
تابع الرد
http://delphi4arab.net/forum/showthread....9#pid14139

السلام عليكم و شكرا على التفاعل
هده ماحاولة بسيطة http://www.mediafire.com/download/4j190e...xemple.rar
و ما اريده بالضبط هو نزع رز البحث
حيث يتم البحث ألـــيا عند اختيار قيمة من الكومبوبوكس

تعديل على محاولتك

كود :
Var
s,s1,s2,s3 : String;
begin
s:='';

s1:=ComboBox1.Text;
s2:=ComboBox2.Text;
s3:=ComboBox3.Text;

if s1<>'' then s:='(AnneeScolaire='+QuotedStr(s1)+')';

if s2<>'' then begin
   if s<>'' then s:=s+' AND ';
   s:=s+'(Niveau='+QuotedStr(s2)+')';
   end;

if s3<>'' then begin
      if s<>'' then s:=s+' AND ';
   s:=s+'(Classe='+QuotedStr(s3)+')' ;
end;

ADOTable1.Filtered:= (s<>'');
end;

يمكن حذف الزر وكتابة الكود بحدث مناسب مثلا OnClick للمكون ComboBox وجعله نفس الحدث لباقي مكونات ComboBox

الصفحات : 1 2

nassim

لؤي

nassim

لؤي

محمد عبد العزيز

nassim

محمد عبد العزيز

S.FATEH

nassim

محمد عبد العزيز