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


الملفات المرفقة
.png   foooooo.PNG (الحجم : 128.52 ك ب / التحميلات : 26)
لا يمكن تحقيق النجاح الا إذا أحببت ما تقوم به  Idea
الرد
#2
السلام عليكم
تقريبا نفس الفكرة :
http://delphi4arab.net/forum/showthread.php?tid=8058
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
[-] كل من 1 user says قال شكرا ل لؤي على المشاركة المفيدة
  • nassim
الرد
#3
شكرا اخي لؤس
تقريبا نفس الفكرة لكن لا تصلح ...
توضيح اكثرا .. مثال لدي قاعدة معطيات فيها عدة جداول اختار انا جدول مثلا فيه 10 حقول
اردت الفلتر على حسب 3 حقول يعني حقل فيه البلد و حقل فيه الولاية وحقل فيه الدائرة وباقي الحقول هي اسم ..القب .العنوان ....الخ
عند اختيار القيم الي في الكومبو الاول وهي (البلد) نعمل فلتر لجميع الاشخاص الي في البلد المحدد و دلك في الحدث onchange و ثم اختار الكومبو الثاني (الولاية) يتم الفلتر الاشخاص الدين يحملون نفس ( البلد و الولاية) و هكدا مع الكمبو الثالث و طريقة الفلتر تقتصر في بعض الاحيان على البلد فقط او لبلد و الولاية ....
وشكرا مرة اخرى اخي لؤي و عذرا على الاطالة ...
لا يمكن تحقيق النجاح الا إذا أحببت ما تقوم به  Idea
الرد
#4
السلام عليكم
بإستعمال 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; 
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
[-] كل من 1 user says قال شكرا ل لؤي على المشاركة المفيدة
  • nassim
الرد
#5
http://delphi4arab.net/forum/showthread.php?tid=7430
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
الرد
#6
شكرا اخي لؤي و عبد العزيز
هل ممكن ولو مثال بسيط على 3 كمبوبوكس ان امكن و اكون شاكر لكم
لا يمكن تحقيق النجاح الا إذا أحببت ما تقوم به  Idea
الرد
#7
إقتباس :ممكن ولو مثال بسيط على 3 كمبوبوكس
ارفق محاولتك بها المكونات وبعض من البيانات وان شاء الله يتم التعديل عليها
رَبَّنَا اغْفِرْ لِي وَلِوَالِدَيَّ وَلِلْمُؤْمِنِينَ يَوْمَ يَقُومُ الْحِسَابُ
[-] كل من 1 user says قال شكرا ل محمد عبد العزيز على المشاركة المفيدة
  • nassim
الرد
#8
السلام عليكم
تابع الرد
http://delphi4arab.net/forum/showthread....9#pid14139
و لرب نازلة يضيق لها الفتى ذرعا و عند الله منها المخرج
ضاقت فلما استحكمت حلقاتها فرجت و كنت اضنها لا تفرج
[-] كل من 1 user says قال شكرا ل S.FATEH على المشاركة المفيدة
  • nassim
الرد
#9
السلام عليكم و شكرا على التفاعل
هده ماحاولة بسيطة  http://www.mediafire.com/download/4j190e...xemple.rar
و ما اريده  بالضبط هو نزع رز البحث  
حيث يتم البحث ألـــيا  عند اختيار قيمة من الكومبوبوكس
لا يمكن تحقيق النجاح الا إذا أحببت ما تقوم به  Idea
الرد
#10
تعديل على محاولتك
كود :
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 ) ضيف كريم