اجراء البحث لبرنامج - نسخة قابلة للطباعة

وعليكم السلام ورحمة الله وبركاته
ممكن تقصد أنك تضع على الفورم الخاصة بالموضوع ADOQuery1 أو Query1 وإثنان مكون EDIT
EDIT1 للتاريخ الأول وEDIT2 للتاريخ الثاني
ولدينا جدول إسمه tablename ولدينا ضمن الجدول حقل اسمه datename وهو تاريخ الشراء أو الدين وتريد أن تبحث حسب تاريخ معين أي من تاريخ 01/01/2012 إلى 24/05/2012 مثلا
في الحدث onKeyPress للـ EDIT2 تكتب:

PHP كود :
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key =#13 then
begin
 key :=#0;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from tablename');
ADOQuery1.SQL.Add('where datename between (#'+edit1.Text+'#and #'+edit2.Text+'#);');
ADOQuery1.Open;
end;
end; 

وبعد أن تكتب في الـedit1 التاريخ الأول وفي الـedit2 التاريخ الثاني تضغط على الزر entr تحصل على المقصود ، ويمكن استعمال MaskEdit بدلا من edit .
هذا وقد تحصل لك بعض المشاكل مع التاريخ وذلك بسبب تنسيق التاريخ ولكن يمكن حله إن شاء الله.
وإذا لم يكن هذا مقصودك فآمــــل التوضيح أكثر .
بالتوفيق.....