دخول

**kachwahed**

@tempuser

إقتباس : لوكان لديك مليون سجل

نتحدث هنا عن مجموع تفاصيل سجل معين (مثل مبلغ إجمالي الفاتورة)

إقتباس :عموما أفضل الحلول

وجدت مؤخرا (برأيي) أفضل طريقة لذلك في حالة استخدام ADO.
بارسال استعلام عن مجموع حقل من خلال TADOConnection يمكن استقبال الناتج على شكل _Recordset واقتناص أول سجل الذي يمثل المجموع.
أعتقد أن أحسن حدث لذلك هو OnDataChange للمكون TDataSource التابع لجدول الحقل الذي نريد الاستعلام عن مجموعه.
الطريقة لعرض المجموع في TLabel كما يلي:

كود :
procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  lblTotal.Caption := ADOConnection1.Execute('SELECT SUM(FieldName) FROM TableName').Fields[0].Value;
end;

هذا إلى حين نجد حل DefaultExpression مع ADO أو استعمال TAgregate.

**kachwahed**

DefaultExpression لا تعمل مع ADO الحل استخدام شيء مثل

كود :
procedure Flds_SetToDefExpr(const AFlds: array of TField);
var
  i : Integer;
begin
  for i := Low(AFlds) to High(AFlds) do
    with AFlds[i] do begin
      DataSet.Edit;
      if ( DefaultExpression='' ) then
        Clear
      else if HasOuterQuotes(DefaultExpression) then
        Value := RemoveOuterQuotes( DefaultExpression,True,False )
      else
        Value := StrToInt(DefaultExpression); //raises if not an integer!
    end;
end;

متوفر في مكون مجاني لـ Vassil Nazarov:
http://www.delphi4arab.net/forum/showthr...#post11509
ملاحظة: يمكن إرسال وتنفيذ استعلام مع TDatabase لكنه لا يعيد نتائج(_Recordset).

sami2008 · 13-09-2013, 02:33 PM

السيد Nabilkeb فعلا الكود مهم واستعملته في حينه ويعطي نتيجة فعلية وصواب 100% مشكور أخي والله مشكور

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