+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الفلترة في ال adoTable (/showthread.php?tid=9479)
الفلترة في ال adoTable - waelalkharraz - 04-06-2018
السلام عليكم جميعا وطاب يومكم بالقرب الى الله أكثر
كنت أستخدم المكون table (للربط مع بارادوكس) وكان ينفع معي الكود التالي في عملية الفلترة
كود :
procedure TForm3.edt1Change(Sender: TObject);
Var x: string;
begin
begin
If edt1.Text='' then
ds1.DataSet.Filtered:=false
Else Begin
if rb1.Checked = True then begin
X:=edt1.Text+'*';
ds1.DataSet.Filter:='material='+QuotedStr(x);
ds1.DataSet.Filtered:=true;
end;
if rb2.Checked = True then begin
X:=edt1.Text+'*';
tbl1.Filter:='type='+QuotedStr(x);
tbl1.Filtered:=true;
end;
if rb3.Checked = True then begin
x:=datetostr(strtodate(edt1.Text+'*'));
tbl1.Filter:='date='+QuotedStr(x);
tbl1.Filtered:=true;
end;
end;
end;
end;واما الان وبعد ان استخدمت adotable لم يفلح معي الكود السابق في الفلترة في قاعدة بيانات اكسس
أفيدونا جزاكم الله خيرا
RE: الفلترة في ال adoTable - Delphi4Us - 04-06-2018
نفس الشئ ونفس الخصائص عن طريق الخاصيتين
PHP كود :
DataSet.Filtered:=False
DataSet.Filter:=value
DataSet.Filtered:=true
RE: الفلترة في ال adoTable - Med-01 - 07-06-2018
adotable ابسط مع الاكسس
انشئ حقل edit1.text وفي الحدث onchange ضع هذا الكود
كود :
begin
if edit1.Text='' then ADOTable1.Filtered:=false
else
begin
ADOTable1.Filtered:=false;
ADOTable1.Filter:='الحقل المراد البحث فيه' + ' LIKE ' + QuotedStr('*' + Edit1.Text + '*');
ADOTable1.Filtered:=true;
end;RE: الفلترة في ال adoTable - ABDESLAM - 08-06-2018
(07-06-2018, 01:15 AM)Med-01 كتب : adotable ابسط مع الاكسسطبقت كل شيئ و لم ينجح معي تأتي رسالة
انشئ حقل edit1.text وفي الحدث onchange ضع هذا الكود
باتوفيق داعواتككود :begin if edit1.Text='' then ADOTable1.Filtered:=false else begin ADOTable1.Filtered:=false; ADOTable1.Filter:='الحقل المراد البحث فيه' + ' LIKE ' + QuotedStr('*' + Edit1.Text + '*'); ADOTable1.Filtered:=true; end;
LES ARGUMENTS SONT DE TYPE INCORRECT EN DEHORS DES LIMITES AUTORISEES OU EN CONFLIT LES UNS AVEC LES AUTRES
RE: الفلترة في ال adoTable - Delphi4Us - 09-06-2018
ملاحظة
اذا كانت الاداة EditBox فارغة يتم تنفيذ
PHP كود :
ADOTable1.Filtered:=false
واذا لم تكن فارغة يتم تنفيذ
PHP كود :
ADOTable1.Filtered:=false;
اعتقد بحاجة الى مراجعة
تظهر الرسالة التالية
إقتباس :[size=small]LES ARGUMENTS SONT DE TYPE INCORRECT EN DEHORS DES LIMITES AUTORISEES OU EN CONFLIT LES UNS AVEC LES AUTRES[/size]لا افهم الفرنسية