+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة في الفلتر في FMX (/showthread.php?tid=10719)
مشكلة في الفلتر في FMX - SOFIANE09 - 27-03-2020
السلام اخواني الكرام
لدي مشكلة او كود من اجل الفلتر في قاعدة البيانات في فايرمنكي مع العلم اني استعمل قاعدة البيانات ado كما استعمال ComboEdit1 في اختيار الحقل الذي اود البحث فيه ( الاسم او اللقب او تاريخ ) و Edit للبحث كما هو موضح في الصورة المرفقة
RE: مشكلة في الفلتر في FMX - ghostdz - 29-03-2020
(27-03-2020, 01:58 PM)SOFIANE09 كتب : السلام اخواني الكرام
لدي مشكلة او كود من اجل الفلتر في قاعدة البيانات في فايرمنكي مع العلم اني استعمل قاعدة البيانات ado كما استعمال ComboEdit1 في اختيار الحقل الذي اود البحث فيه ( الاسم او اللقب او تاريخ ) و Edit للبحث كما هو موضح في الصورة المرفقة
جرب هذا الكود
كود :
procedure TForm2.Button1Click(Sender: TObject);
begin
SetFilter(ComboBox1.ItemIndex, Edit1.Text);
end;
function TForm2.CreateFilter(FieldName, Value: string): string;
begin
if (FieldName = '') or (Value = '') then
Result:= ''
else Result:= FieldName + '=' + Value;
end;
procedure TForm2.SetFilter(FieldIndex: Integer; Value: string);
const
FieldsName: array [0..2]of string =('Nom', 'Prenom', 'DateNaissance');
begin
if FieldIndex in [0..2] then
begin
if FieldIndex = 2 then
ADOTable1.Filter:= CreateFilter(FieldsName[FieldIndex], Value)
else ADOTable1.Filter:= CreateFilter(FieldsName[FieldIndex], QuotedStr(Value));
ADOTable1.Filtered:= True;
end
else ADOTable1.Filtered:= False;
end;RE: مشكلة في الفلتر في FMX - SOFIANE09 - 30-03-2020
السلام اخي الكريم و اسمحلي اولا ان اشكرك على تفاعلك واهتمامك بالموضوع الذي طرحته كما لا يفوتني ان احيطك علما ان الكود الذي ادرجته في موضوعي لا يعمل لاسباب اجهلها وانا متاكد انه يعمل عندك بشكل عادي ، و استسمحك اخي الكريم ان اضع بين يديك برنامج في المرفقات لتوضيح فكرتي اكثر و المتمثلة في: عند تحديد الحقل المراد البحث فيه عن طريق المكون combobox ( الاسم او اللقب)، اتجه الى edit3 و اكتب الحرف ، حينها تظهر النتائج في grid1 ، وذلك عن طريق خاصية في الحدث onchange لمكون edit3 وشكرا مرة اخرى.
RE: مشكلة في الفلتر في FMX - ghostdz - 30-03-2020
(30-03-2020, 08:15 AM)SOFIANE09 كتب : السلام اخي الكريم و اسمحلي اولا ان اشكرك على تفاعلك واهتمامك بالموضوع الذي طرحته كما لا يفوتني ان احيطك علما ان الكود الذي ادرجته في موضوعي لا يعمل لاسباب اجهلها وانا متاكد انه يعمل عندك بشكل عادي ، و استسمحك اخي الكريم ان اضع بين يديك برنامج في المرفقات لتوضيح فكرتي اكثر و المتمثلة في: عند تحديد الحقل المراد البحث فيه عن طريق المكون combobox ( الاسم او اللقب)، اتجه الى edit3 و اكتب الحرف ، حينها تظهر النتائج في grid1 ، وذلك عن طريق خاصية في الحدث onchange لمكون edit3 وشكرا مرة اخرى.
في FMX يوجد حدث OnChange يحدث لما يتغير قيمة text لكن ليس عندما تضغط على الحروف وإنما عندما تضغط على زر enter ،
أما الحدث OnTyping فهو يحدث عندما تضغط على الحروف
كما أنني إستخدمت LIKE عوضا عن المساواة في الفلتر
إليك البرنامج الذي وضعته مع بعض التغييرات في المرفقات
RE: مشكلة في الفلتر في FMX - SOFIANE09 - 31-03-2020
مشكر اخي الكريم و لله نزعت عني عقبة كانتفي طريق ان امكن التواصل معك