دخول

hallal02 · 28-03-2014, 10:40 AM

hallal02 كتب :بارك الله فيك أخي لكن كيف يمكنني إستعماله بوضع datetimepicker عوض dbedit4

و للتوضيح أكثر هذا المثال الذي أعمل عليه

كود :
procedure TForm8.BitBtn8Click(Sender: TObject);
var dt1,dt2:Tdate;
begin
if sdateedit3.Text:='' then
begin showmessage('enter la date')
else
  adoquery1.Close;
  adoquery1.SQL.Text:=('Select [COD COMPTES], Sum(Debit)as Sumdebit from DEBIT where LADATE Between :Dt1 and :Dt2 GROUP BY [COD COMPTES]');
  adoquery1.Parameters.ParamValues['Dt1']:=strtodate(sdateedit3.text);
  adoquery1.Parameters.ParamValues['Dt2']:=strtodate(sdateedit4.text);
  adoquery1.Open;
  bitbtn16.Enabled:=true;
end;
end;

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة