الفلترة في ال adoTable
#1
السلام عليكم جميعا وطاب يومكم بالقرب الى الله أكثر


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


أفيدونا جزاكم الله خيرا
[-] كل من 1 user says قال شكرا ل waelalkharraz على المشاركة المفيدة
  • Med-01
الرد
#2
نفس الشئ ونفس الخصائص عن طريق الخاصيتين

PHP كود :
DataSet.Filtered:=False
DataSet
.Filter:=value
DataSet
.Filtered:=true 
الرد
#3
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;
باتوفيق داعواتك
الرد
#4
(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
الرد
#5
ملاحظة 
اذا كانت الاداة 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]
لا افهم الفرنسية
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف