+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : فلترة حقل باكثر من كلمة (/showthread.php?tid=12533)
فلترة حقل باكثر من كلمة - AgroSoft - 18-02-2024
السلام عليكم الطريقة الصحيحة لفلترة حقل string باكثر من كلمة في بعض البرامج ان اردت ان تبحث عن حقل تقوم بكتابة اول كلمة ثم / و تستعين بكلمة اخرى لكي تقرب لك البحث اكثر و يكون سهل و ديناميكي شكرا مسبقا .
كود :
if Edit1.Text='' then
begin
FDM.ADOT1.Filter := 'colum like '+ QuotedStr ('%'+ Edit1.Text +'%');
FDM.ADOT1.Filtered := True;
end else
FDM.ADOT1.Filtered := False;RE: فلترة حقل باكثر من كلمة - larbiparadox - 09-03-2024
(18-02-2024, 12:03 PM)AgroSoft كتب : السلام عليكم الطريقة الصحيحة لفلترة حقل string باكثر من كلمة في بعض البرامج ان اردت ان تبحث عن حقل تقوم بكتابة اول كلمة ثم / و تستعين بكلمة اخرى لكي تقرب لك البحث اكثر و يكون سهل و ديناميكي شكرا مسبقا .
كود :if Edit1.Text='' then begin FDM.ADOT1.Filter := 'colum like '+ QuotedStr ('%'+ Edit1.Text +'%'); FDM.ADOT1.Filtered := True; end else FDM.ADOT1.Filtered := False;
ـ يوجد خطأ ، يجب قلب الشرطين
ـ بالنسبة لـ % لا تعمل مع جميع قواعد البيانات ، مع قواعد اخرى نستبدلها بـ *
RE: فلترة حقل باكثر من كلمة - wadoud - 11-03-2024
(18-02-2024, 12:03 PM)AgroSoft كتب : السلام عليكم الطريقة الصحيحة لفلترة حقل string باكثر من كلمة في بعض البرامج ان اردت ان تبحث عن حقل تقوم بكتابة اول كلمة ثم / و تستعين بكلمة اخرى لكي تقرب لك البحث اكثر و يكون سهل و ديناميكي شكرا مسبقا .
كود :if Edit1.Text='' then begin FDM.ADOT1.Filter := 'colum like '+ QuotedStr ('%'+ Edit1.Text +'%'); FDM.ADOT1.Filtered := True; end else FDM.ADOT1.Filtered := False;
كود :
if Length(Edit1.Text) = 0 thenRE: فلترة حقل باكثر من كلمة - AgroSoft - 17-03-2024
(09-03-2024, 09:52 PM)larbiparadox كتب :(18-02-2024, 12:03 PM)AgroSoft كتب : السلام عليكم الطريقة الصحيحة لفلترة حقل string باكثر من كلمة في بعض البرامج ان اردت ان تبحث عن حقل تقوم بكتابة اول كلمة ثم / و تستعين بكلمة اخرى لكي تقرب لك البحث اكثر و يكون سهل و ديناميكي شكرا مسبقا .
كود :if Edit1.Text='' then begin FDM.ADOT1.Filter := 'colum like '+ QuotedStr ('%'+ Edit1.Text +'%'); FDM.ADOT1.Filtered := True; end else FDM.ADOT1.Filtered := False;
ـ يوجد خطأ ، يجب قلب الشرطين
ـ بالنسبة لـ % لا تعمل مع جميع قواعد البيانات ، مع قواعد اخرى نستبدلها بـ *
القاعدة المستعملة هي sql server او access
اما بقلب الشرط لم افهمك جيدا هل يمكن شرح اكثر
(11-03-2024, 01:54 PM)wadoud كتب :(18-02-2024, 12:03 PM)AgroSoft كتب : السلام عليكم الطريقة الصحيحة لفلترة حقل string باكثر من كلمة في بعض البرامج ان اردت ان تبحث عن حقل تقوم بكتابة اول كلمة ثم / و تستعين بكلمة اخرى لكي تقرب لك البحث اكثر و يكون سهل و ديناميكي شكرا مسبقا .
كود :if Edit1.Text='' then begin FDM.ADOT1.Filter := 'colum like '+ QuotedStr ('%'+ Edit1.Text +'%'); FDM.ADOT1.Filtered := True; end else FDM.ADOT1.Filtered := False;
يعتبر أكثر كفاءة في الأداء لأنه يتطلب حساب طول واحد فقط بدلاً من مقارنة كل حرف على حدة.كود :if Length(Edit1.Text) = 0 then
حاولت لكن لم تعد الفلترة تعمل ان امكن ان توضف لي الشرط في الجملة فوق
RE: فلترة حقل باكثر من كلمة - larbiparadox - 17-03-2024
غير هذا if Edit1.Text='' then إلى if Edit1.Text<>'' then