جمع کردن مقدار بدهکار یا بستانکار یک جدول

[ghulam yahya ayobi]

سلام دوستان اگر محبت کنید این مشکل مرا حل کنید
چطوردر کویک ریپورت دلفی بتوانیم رکورد های ستون های بدهکار یا بستانکار یک جدول را با هم جمع کنیم . روش کار را کاملا بگوید ممنون میشوم چون کارم فقط در همین قسمت گیر است

[SYNDROME]

با سلام

سلام دوستان اگر محبت کنید این مشکل مرا حل کنید
چطوردر کویک ریپورت دلفی بتوانیم رکورد های ستون های بدهکار یا بستانکار یک جدول را با هم جمع کنیم . روش کار را کاملا بگوید ممنون میشوم چون کارم فقط در همین قسمت گیر است
1-می توانی با یک دستور SQLجمع فیلدها را به دست بیاوری


Select Sum(Bed) As Bed , Sum(bes) As Bes
From Tbl_Test

حالا بعد از انداختن Bandهای در QueickReportیک Bandاز نوع rbSubDetail تعریف کن و 2 تا QRlabelروی آن قرار بده.
3-حالا قبل از نمایش فرم چاپی مقدار دو تا QRlabelرا پر کن.


QRLabel_Bed.Caption := ADO.FieldByName('Bed').Asstring;
QRLabel_Bes.Caption := ADO.FieldByName('Bes').Asstring;
QuickRep1.Preview;

البته می توانی در خاصیت مربوط به QRDBText که برای نمایش بدهکاران و بستانکاران قرار داده اید در رویداد OnPrintهر کدام از QRDBText یک متغییر تعریف کنی و مقدار را در آن ذخیره کنی


procedure TForm2.QRDBText_BedPrint(sender: TObject; var Value: string);
begin
Bed := Bed + strtofloat(Value);
end;

و در OnPrintمربوط به QRlabelها که در بالا ذکر شد مقدار را در آنها بریزی.


procedure TForm2.QRLabel_BedPrint(sender: TObject; var Value: string);
begin
Value := FloatToStr(Bed);
end;

در بالا من فقط برای بدهکاران نوشتم و شما برای بستانکاران هم به این شکل عمل کنید.
موفق باشید