كيف اسند قيمة sumFooter لعدد حقيقي في محرر التقارير FastReport
#1
Question 
كيف اسند مجموع   sumFooter  لعدد حقيقي في محرر التقارير FastReport
مثال: 
var Sum1:real
begin 
sum1:=StrToFloat(memo_sumFooter.memo.strings[0]);
end;
الرد
#2
هل تقصد إسناد الكود من محرر الكود في الدالفي و إظهاره في ميمو للفاست روبورت ؟
صدقة العلم تعليمه
الرد
#3
(26-01-2019, 07:35 PM)Mustapha29 كتب : هل تقصد إسناد الكود من محرر الكود في الدالفي و إظهاره في ميمو للفاست روبورت ؟

نعم هذا الذي اقصده
الرد
#4
على الفورم :
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;

و للإيضاح أكثر إليك هذا التطبيق في المرفقات


الملفات المرفقة
.rar   LB_FR.rar (الحجم : 7.08 ك ب / التحميلات : 22)
صدقة العلم تعليمه
الرد
#5
(27-01-2019, 08:49 AM)procedure TForm1.Button1Click(Seend; كتب : لا اقصد هذا كما ان اعمل على كود الفاست روبور مباشرة
اقصد كيف ارجع قيمة sumFooter يعني مجموع لل band masterData في متغيير حقيقي 
الصورة في الرفقات 
و للإيضاح أكثر إليك هذا التطبيق في المرفقات

الصورة في المرفقات


الملفات المرفقة
.png   Sans titre.png (الحجم : 7.73 ك ب / التحميلات : 18)
الرد
#6
Photo 
داخل برنامج FastReport
من جهة تبويب Code
جرّب ما يلي

Memo1.Text:=Memo2.Text
بحيث :
Memo1  = Sum
Memo2 = [Sum(<frxDBDataset1."val">,MasterData1)]

انظر المرفق


الملفات المرفقة
.png   FR_.png (الحجم : 67.56 ك ب / التحميلات : 16)
صدقة العلم تعليمه
الرد
#7
لم ينجح الامر معي 
اليك المثال الذي اعمل عليه 
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/lna12nn45u...r.rar/file
الرد
#8
عندي يعمل عادي
إليك العمل في المرفقات

مشكلة في التحميل
ربما في المساء يكون المشكل و أرفع الملف Rar
صدقة العلم تعليمه
الرد
#9
ملاحظة : استعمل Delphi 2010 Architect

راجع هذا الرابط
https://www.4shared.com/rar/ysJ2SQufda/sumHeader.html?
صدقة العلم تعليمه
الرد
#10
قصدي كيف اسند القيمة الموجودة في memo المسمى Mustapha29 الى العدد g
اي 

var g:real;                                    
begin
g := Mustapha29.text ;

كيف اكتبها
الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم