delphi4arab منتديات دلفي للعرب

السلام عليكم جميعا وطاب يومكم بالقرب الى الله أكثر

كنت أستخدم المكون 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 لم يفلح معي الكود السابق في الفلترة في قاعدة بيانات اكسس

أفيدونا جزاكم الله خيرا

نفس الشئ ونفس الخصائص عن طريق الخاصيتين

PHP كود :
DataSet.Filtered:=False
DataSet.Filter:=value
DataSet.Filtered:=true 

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;

باتوفيق داعواتك

(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

ملاحظة
اذا كانت الاداة 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]

لا افهم الفرنسية

waelalkharraz

Delphi4Us

Med-01

ABDESLAM

Delphi4Us