دخول

format82 · 21-10-2009, 10:42 AM

سلام عليك
قم بتعديل هذا الكود علي حسب اسماء جداولك
حيث q_account و t_client اسماء جداول و date_buy حقل التاريخ

كود :
q_account.Close;
q_account.SQL.Clear ;
q_account.SQL.Add('select * from t_account,t_client where t_account.name_c=t_client.name_c and  t_account.date_buy between :p1 and :p2 order by date_buy') ;
q_account.Parameters.ParamByName('p1').Value := datetostr(datetimepicker1.Date) ;
q_account.Parameters.ParamByName('p2').Value := datetostr(datetimepicker2.Date) ;
q_account.Open;
//q_account.Active := true ;
if q_account.Recordcount=0 then
 ShowMessage('&aacute;&Ccedil; &Ecirc;&aelig;&Igrave;&Iuml; &Egrave;&iacute;&Ccedil;&auml;&Ccedil;&Ecirc; &atilde;&Ecirc;&aelig;&Yacute;&Ntilde; &Yacute;&iacute; &aring;&ETH;&Ccedil; &Ccedil;&aacute;&Ocirc;&aring;&Ntilde;')
 else
Form9.QuickRep1.Preview;

سوف تجد في هذا المسار امثلة
C:\Program Files\Borland\Delphi7\Demos\Quickrpt

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