+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport (/showthread.php?tid=10026)
كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - bouh25 - 26-01-2019
كيف اسند مجموع sumFooter لعدد حقيقي في محرر التقارير FastReport
مثال:
var Sum1:real
begin
sum1:=StrToFloat(memo_sumFooter.memo.strings[0]);
end;
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - Mustapha29 - 26-01-2019
هل تقصد إسناد الكود من محرر الكود في الدالفي و إظهاره في ميمو للفاست روبورت ؟
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - bouh25 - 27-01-2019
(26-01-2019, 07:35 PM)Mustapha29 كتب : هل تقصد إسناد الكود من محرر الكود في الدالفي و إظهاره في ميمو للفاست روبورت ؟
نعم هذا الذي اقصده
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - Mustapha29 - 27-01-2019
على الفورم :
frxReort1
Button
Label = // Somme
داخل مكون الفاست ربورت أضف : Memo1
كود :
procedure TForm1.Button1Click(Sender: TObject);
var LbSum : TfrxMemoView; //
begin
LbSum := frxReport1.FindObject('Memo1') as TfrxMemoView; // affect LabelSum a Memo1
LbSum.Text :=Label1.caption ; // affect Label1 a LbSum ===> Memo1
frxReport1.ShowReport();
end;و للإيضاح أكثر إليك هذا التطبيق في المرفقات
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - bouh25 - 27-01-2019
(27-01-2019, 08:49 AM)procedure TForm1.Button1Click(Seend; كتب : لا اقصد هذا كما ان اعمل على كود الفاست روبور مباشرة
اقصد كيف ارجع قيمة sumFooter يعني مجموع لل band masterData في متغيير حقيقي
الصورة في الرفقات
و للإيضاح أكثر إليك هذا التطبيق في المرفقات
الصورة في المرفقات
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - Mustapha29 - 28-01-2019
داخل برنامج FastReport
من جهة تبويب Code
جرّب ما يلي
Memo1.Text:=Memo2.Text
بحيث :
Memo1 = Sum
Memo2 = [Sum(<frxDBDataset1."val">,MasterData1)]
انظر المرفق
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - bouh25 - 29-01-2019
لم ينجح الامر معي
اليك المثال الذي اعمل عليه
1/ في حاله اذا كان العدد ثابت مثل ماهو في memo المسمى total دالة التفقيط تعمل عادي
2/ في حالة اذا كان مجموع كما هو في memo المسمى memo_sumFooter يعطيني القيمة صفر
(29-01-2019, 08:08 AM)bouh25 كتب : لم ينجح الامر معي
اليك المثال الذي اعمل عليه
1/ في حاله اذا كان العدد ثابت مثل ماهو في memo المسمى total دالة التفقيط تعمل عادي
2/ في حالة اذا كان مجموع كما هو في memo المسمى memo_sumFooter يعطيني القيمة صفر
المثال في البرنامج
(29-01-2019, 08:08 AM)bouh25 كتب : المثال في البرنامج
المثال في البرنامج
(29-01-2019, 08:08 AM)bouh25 كتب : لم ينجح في تحميل البرنامج
المثال في الرابط :
http://www.mediafire.com/file/lna12nn45ujd8dm/sumHeader.rar/file
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - Mustapha29 - 29-01-2019
عندي يعمل عادي
إليك العمل في المرفقات
مشكلة في التحميل
ربما في المساء يكون المشكل و أرفع الملف Rar
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - Mustapha29 - 29-01-2019
ملاحظة : استعمل Delphi 2010 Architect
راجع هذا الرابط
https://www.4shared.com/rar/ysJ2SQufda/sumHeader.html?
RE: كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport - bouh25 - 29-01-2019
قصدي كيف اسند القيمة الموجودة في memo المسمى Mustapha29 الى العدد g
اي
var g:real;
begin
g := Mustapha29.text ;
كيف اكتبها