كيف اسند مجموع sumFooter لعدد حقيقي في محرر التقارير FastReport
مثال:
var Sum1:real
begin
sum1:=StrToFloat(memo_sumFooter.memo.strings[0]);
end;
هل تقصد إسناد الكود من محرر الكود في الدالفي و إظهاره في ميمو للفاست روبورت ؟
(26-01-2019, 07:35 PM)Mustapha29 كتب : [ -> ]هل تقصد إسناد الكود من محرر الكود في الدالفي و إظهاره في ميمو للفاست روبورت ؟
نعم هذا الذي اقصده
على الفورم :
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;
و للإيضاح أكثر إليك هذا التطبيق في المرفقات
(27-01-2019, 08:49 AM)procedure TForm1.Button1Click(Seend; كتب : [ -> ]لا اقصد هذا كما ان اعمل على كود الفاست روبور مباشرة
اقصد كيف ارجع قيمة sumFooter يعني مجموع لل band masterData في متغيير حقيقي
الصورة في الرفقات
و للإيضاح أكثر إليك هذا التطبيق في المرفقات
الصورة في المرفقات
داخل برنامج FastReport
من جهة تبويب Code
جرّب ما يلي
Memo1.Text:=Memo2.Text
بحيث :
Memo1 = Sum
Memo2 = [Sum(<frxDBDataset1."val">,MasterData1)]
انظر المرفق
لم ينجح الامر معي
اليك المثال الذي اعمل عليه
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
عندي يعمل عادي
إليك العمل في المرفقات
مشكلة في التحميل
ربما في المساء يكون المشكل و أرفع الملف Rar
قصدي كيف اسند القيمة الموجودة في memo المسمى Mustapha29 الى العدد g
اي
var g:real;
begin
g := Mustapha29.text ;
كيف اكتبها