+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : استفسار: الفلترة بااستخدام combobox (/showthread.php?tid=8063)
الصفحات:
1
2
استفسار: الفلترة بااستخدام combobox - nassim - 06-08-2016
السلام عليكم
اريد طرقة عمل فلترة باستخدام 3 كومبوبوكس
يعني مثلا _ لدينا جدول واريد الفلتر ب3 حقول تارة في ان واحد او معا حسب اختيار القيمة التي في الكومبوبوكس و في الحدث Onchange
صورة في المرفق
وشكرا .........
RE: استفسار: الفلترة بااستخدام combobox - لؤي - 06-08-2016
السلام عليكم
تقريبا نفس الفكرة :
http://delphi4arab.net/forum/showthread.php?tid=8058
RE: استفسار: الفلترة بااستخدام combobox - nassim - 07-08-2016
شكرا اخي لؤس
تقريبا نفس الفكرة لكن لا تصلح ...
توضيح اكثرا .. مثال لدي قاعدة معطيات فيها عدة جداول اختار انا جدول مثلا فيه 10 حقول
اردت الفلتر على حسب 3 حقول يعني حقل فيه البلد و حقل فيه الولاية وحقل فيه الدائرة وباقي الحقول هي اسم ..القب .العنوان ....الخ
عند اختيار القيم الي في الكومبو الاول وهي (البلد) نعمل فلتر لجميع الاشخاص الي في البلد المحدد و دلك في الحدث onchange و ثم اختار الكومبو الثاني (الولاية) يتم الفلتر الاشخاص الدين يحملون نفس ( البلد و الولاية) و هكدا مع الكمبو الثالث و طريقة الفلتر تقتصر في بعض الاحيان على البلد فقط او لبلد و الولاية ....
وشكرا مرة اخرى اخي لؤي و عذرا على الاطالة ...
RE: استفسار: الفلترة بااستخدام combobox - لؤي - 07-08-2016
السلام عليكم
بإستعمال 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;
RE: استفسار: الفلترة بااستخدام combobox - محمد عبد العزيز - 07-08-2016
http://delphi4arab.net/forum/showthread.php?tid=7430
RE: استفسار: الفلترة بااستخدام combobox - nassim - 08-08-2016
شكرا اخي لؤي و عبد العزيز
هل ممكن ولو مثال بسيط على 3 كمبوبوكس ان امكن و اكون شاكر لكم
RE: استفسار: الفلترة بااستخدام combobox - محمد عبد العزيز - 08-08-2016
إقتباس :ممكن ولو مثال بسيط على 3 كمبوبوكسارفق محاولتك بها المكونات وبعض من البيانات وان شاء الله يتم التعديل عليها
RE: استفسار: الفلترة بااستخدام combobox - S.FATEH - 08-08-2016
السلام عليكم
تابع الرد
http://delphi4arab.net/forum/showthread.php?tid=6983&pid=14139#pid14139
RE: استفسار: الفلترة بااستخدام combobox - nassim - 08-08-2016
السلام عليكم و شكرا على التفاعل
هده ماحاولة بسيطة http://www.mediafire.com/download/4j190es8ouo97yc/Exemple.rar
و ما اريده بالضبط هو نزع رز البحث
حيث يتم البحث ألـــيا عند اختيار قيمة من الكومبوبوكس
RE: استفسار: الفلترة بااستخدام combobox - محمد عبد العزيز - 09-08-2016
تعديل على محاولتك
كود :
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;