التصفية بالتاريخ - نسخة قابلة للطباعة

التصفية بالتاريخ - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : التصفية بالتاريخ (/showthread.php?tid=11182)

التصفية بالتاريخ - hadir aek - 20-12-2020

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

RE: التصفية بالتاريخ - Delphi4Us - 20-12-2020

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

هل هو باستخدام المكونات ام عن طريق جمل 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;

RE: التصفية بالتاريخ - hadir aek - 22-12-2020

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