10-07-2012, 01:34 PM
مشكور اخي علي الرد
انا اعمل في برنامج محاسبي هناك شاشة اسمه الدائنون فيها عديد من الاسماء وهذه الاسماء تتكرر كثيرا
عرض الاسماء في شكل group بالاضافة الي مجموع الدائن ومجموع المدين في فترة المحددة واضافة لذلك ايضا مجموع الدائن ومجموع المدين لفترة سابقة وايضا محددة كل ذلك يستخرج من جدول واحد وهو جدول الدائنون
وهذه هي محاولتي
انا اعمل في برنامج محاسبي هناك شاشة اسمه الدائنون فيها عديد من الاسماء وهذه الاسماء تتكرر كثيرا
عرض الاسماء في شكل group بالاضافة الي مجموع الدائن ومجموع المدين في فترة المحددة واضافة لذلك ايضا مجموع الدائن ومجموع المدين لفترة سابقة وايضا محددة كل ذلك يستخرج من جدول واحد وهو جدول الدائنون
وهذه هي محاولتي
كود :
ADOQuery2.Close;
ADOQuery2.SQL.Clear ;
ADOQuery2.SQL.Add('select name_emp,sum(daen) as sdaen,sum(mden) as smden from t_daenen where date_e between :p1 and :p2 and name_emp in (select name_emp,sum(daen) as sdaen1,sum(mden) as smden1 from t_daenen where date_e between :p3 and :p4 group by name_emp'+')'+'group by name_emp');
ADOQuery2.Parameters.ParamByName('p1').Value := datetostr(datetimepicker1.Date) ;
ADOQuery2.Parameters.ParamByName('p2').Value := datetostr(datetimepicker2.Date) ;
ADOQuery2.Parameters.ParamByName('p3').Value := datetostr(datetimepicker17.Date) ;
ADOQuery2.Parameters.ParamByName('p4').Value := datetostr(datetimepicker18.Date) ;
ADOQuery2.Open;
if ADOQuery2.Recordcount=0 then
ShowMessage('áÇ ÊæÌÏ ÈíÇäÇÊ ãÊæÝÑÉ Ýí åÐÇ ÇáãÏì')
else
begin
Form47.QuickRep1.PreviewModal;
end;