دخول

tarek.inf · 29-12-2012, 07:19 PM

تحية طيبة
بما ان ADOQuery تملك الخاصية filter يمكن استعمالها مباشرة دون تعليمات sql
مثال
جدول يتكون من nom .date1

كود :
[align=left]select nom,date1 from table1[/align]

للفلترة حسب الاسم من الخاصية onChange ل edite1 نكتب الكود التالي

كود :
[align=left]procedure Form1.Edit1Change(Sender: TObject);
begin
 IF edit1.GetTextLen<> 0 then

begin

   ADOQuery1.Filter:='nom='''+Edit1.Text+'*''';

 ADOQuery1.Filtered:=true;
end
else
ADOQuery1.Filtered:=false;
end;[/align]

للفلترة بين تاريخين

كود :
[align=left]procedure Tform1.Button1Click(Sender: TObject);
begin

ADOQuery1.Filter := '(Date1>='+QuotedStr(DateToStr(DateTimePicker1.Date))+') and (Date1<='+QuotedStr(DateToStr(DateTimePicker2.Date))+')';
end;[/align]

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة