السلام عليكم ورحمة الله
لدي سؤال حول التصفية على حسب حقل التاريخ
مثلا سوءا بإدخال تاريخ واحد في Edit
أو بين تاريخين Edit1 et Edit2.
مشكورين مسبقا...
وعليكم السلام ورحمة الله
هل هو باستخدام المكونات ام عن طريق جمل 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;
تسلم يداك أستاذنا الفاضل وزادك الله علما...