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

[hadir aek]

السلام عليكم ورحمة الله
لدي سؤال حول التصفية على حسب حقل التاريخ
مثلا سوءا بإدخال تاريخ واحد في Edit
أو بين تاريخين Edit1 et Edit2.
مشكورين مسبقا...

[Delphi4Us]

وعليكم السلام ورحمة الله

هل هو باستخدام المكونات ام عن طريق جمل SQL ...؟
ان كان بالمكونات

يمكن بطريقة

كود :

ADODataSet1.Filter := 'TimeField = 11:00:00'; ADODataSet1.Filtered := True;

اسم حقل التاريخ او الوقت والقيمة المطلوب البحث عنها ويمكن استبدالها بقيمة EDit.Text 

ويمكن في حدث الفلترة للمكون استخدام شئ مثل

كود :

procedure TForm4.ADODataSet1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin     if DataSet.FieldByName('TimeField').AsDateTime = FilterValue then         Accept := True     else         Accept := False end;

ويمكن وضع شرطين

كود :

ADODataSet1.Filter := 'TimeField >= 10:00:00 and TimeField < 11:00:00'; ADODataSet1.Filtered := True;

او كما بالشكل

كود :

procedure TForm4.ADODataSet1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin     if (DataSet.FieldByName('DateField').AsDateTime >= FromTime) and         (DataSet.FieldByName('DateField').AsDateTime < ToTime) then         Accept := True     else         Accept := False end;

[hadir aek]

تسلم يداك أستاذنا الفاضل وزادك الله علما...