+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة في فلترة القيم الموجوده في الجدول (/showthread.php?tid=12279)
مشكلة في فلترة القيم الموجوده في الجدول - chers0vsky - 16-04-2023
السلام عليكم،
ممكن مساعدة في حل مشكلة ، عندي dbgrid يعرض معلومات من جدولين ( قمت باضافة معلومات الجدول الثاني باستخدام lookup )
و عندي زر بحث يعتمد على قيم radiongroup لاختيار عمود البحث،
الكود المستخدم في الزر هو
كود :
var x:string[20];
begin
case RadioGroup1.ItemIndex of
0:x:= 'Num_Emp';
1:x:= 'Prenom_E';
2:x:= 'name';
4:x:= 'Nom_E';
end;
adotable1.Filter:=x+'='''+edit1.text+'''';
adotable1.Filtered:=true;لكن عند البحث يقوم بفلترة القيم حسب اعمدة الجدول الاول فقط اما الأعمدة التي اضفتها لا يقوم بالفلتره
كيف احل المشكلة لو سمحتم
RE: مشكلة في فلترة القيم الموجوده في الجدول - larbiparadox - 16-04-2023
(16-04-2023, 10:14 AM)chers0vsky كتب : السلام عليكم،
ممكن مساعدة في حل مشكلة ، عندي dbgrid يعرض معلومات من جدولين ( قمت باضافة معلومات الجدول الثاني باستخدام lookup )
و عندي زر بحث يعتمد على قيم radiongroup لاختيار عمود البحث،
الكود المستخدم في الزر هو
كود :var x:string[20]; begin case RadioGroup1.ItemIndex of 0:x:= 'Num_Emp'; 1:x:= 'Prenom_E'; 2:x:= 'name'; 4:x:= 'Nom_E'; end; adotable1.Filter:=x+'='''+edit1.text+''''; adotable1.Filtered:=true;
لكن عند البحث يقوم بفلترة القيم حسب اعمدة الجدول الاول فقط اما الأعمدة التي اضفتها لا يقوم بالفلتره
كيف احل المشكلة لو سمحتم
وعليك السلام
المشكل هو أنك أين تضع هذا الكود ؟ ، في حالتك تضعه في RadioGroup1 و تضعه في edit1
RE: مشكلة في فلترة القيم الموجوده في الجدول - chers0vsky - 17-04-2023
الكود اضعه في button مثلا اختار الاسم او اللقب او الولاية من radiogroup ثم اضغط على الزر للفلترة
RE: مشكلة في فلترة القيم الموجوده في الجدول - larbiparadox - 17-04-2023
(17-04-2023, 08:04 AM)chers0vsky كتب : الكود اضعه في button مثلا اختار الاسم او اللقب او الولاية من radiogroup ثم اضغط على الزر للفلترة
على السريع ، جرب هذا
كود :
var x:string[20];
begin
case RadioGroup1.ItemIndex of
0:x:= 'Num_Emp = ';
1:x:= 'Prenom_E = ';
2:x:= 'name = ';
3:x:= 'Nom_E = ';
end;
adotable1.Filtered:=false;
adotable1.Filter:= x + QuotedStr(Edit1.text);
adotable1.Filtered:=true;