Date Filter & Paradox

[delphi4ever]

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

من أجل أن نقوم بعملية Filter بين تاريخين في دلفي وفي قاعدة بيانات، قمت بإنجاز هذا المثال البسيط للمبتدئين عن طرق قاعدة البيانات Paradox والكود كالتالي:

var F,D:string;
begin
D:=MaskDebut.Text;
F:=MaskFin.Text;
TCommande.filter:='Event_Date>='''+D+'''and Event_Date<='''+F+'''';
TCommande.filtered:=True;
TCommande.First;
end;

ولمعرفة المزيد قم بتحميل السورس وهي في المرفقات.