المشاركات : 128
المواضيع 47
:
: 24
الإنتساب : Jan 2015
السلام عليكم
كيف أجعل عملية البحث لا تتحسس بحالة الأحرف الكبيرة والصغيرة
في قاعدة البيانات Absolute
كود :
begin
Edit1.Text:=TrimLeft(Edit1.Text) ;
if Edit1.Text<>'' then
begin
DataModule1.ABSTable1.IndexFieldNames:='Num_S' ;
DataModule1.ABSTable1.MasterFields:='' ;
DataModule1.ABSTable1.close;
DataModule1.ABSTable1.Filtered:=true ;
DataModule1.ABSTable1.Filter:='[Num_S]='+#39 +Edit1.Text+'*'+#39 ;
DataModule1.ABSTable1.Active:=true;
end else
begin
DataModule1.ABSTable1.close;
DataModule1.ABSTable1.Filtered:=false ;
DataModule1.ABSTable1.Active:=true;
end;
المشاركات : 628
المواضيع 72
:
: 211
الإنتساب : Jun 2010
17-02-2020, 08:56 AM
(آخر تعديل لهذه المشاركة: 17-02-2020, 07:46 PM بواسطة S.FATEH.)
السلام عليكم
To improve peformance of a single-field case-insensitive filter, such as
PHP كود :
FilterOptions := [foCaseInsensitive];
Filter := 'State = ' + QuotedStr('CA');
you should create a case-insensitive index on the search field:
PHP كود :
ABSTable1.AddIndex('idxState_CaseIns', 'State', [ixCaseInsensitive]);
المصدر:
كود :
http://www.componentace.com/help/absdb_manual/speedupsearchesandfilters.htm
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
كل من 1 user says قال شكرا ل لؤي على المشاركة المفيدة1 user says Thank You to لؤي for this post
• فارس المطر
المشاركات : 128
المواضيع 47
:
: 24
الإنتساب : Jan 2015
شكرا جزيلا على المساعدة هذا ما كنت ابحث عنه
بعد تجربة الكود نجحت الفكرة لكن مازل عندي خطا بسيط سأحاول حله
تحياتي...