كيف يمكنني إظهار مبلغ على Qrlabel1 في Quickrep

السلام عليكم ورحمة الله وبركاته

ضع هذا العدد في متغيير ثم حوله الى String ولنسمه X مثلا

Form2.QRLabel1.Caption:=FloatToStr(x);

ارجو ان اكون قد فهمت سؤال وان اكون وفقت في الاجابة

تحياتي لك

علي .ع كتب:

السلام عليكم ورحمة الله وبركاته

ضع هذا العدد في متغيير ثم حوله الى String ولنسمه X مثلا

Form2.QRLabel1.Caption:=FloatToStr(x);

ارجو ان اكون قد فهمت سؤال وان اكون وفقت في الاجابة

تحياتي لك

مشكور يا أخ علي حاول أن توضح أكثر

medreg كتب:

مشكور يا أخ علي حاول أن توضح أكثر

سأعطيك مثال

اردت وضع ناتج حقل في Label1

label1.caption:=table1MT.Value;

مثال إذا كان MT= 25.000,00

لا بد من وضع Formatfloatحتى يظهر في label1 بهذا الشكل أي 25.000,00

ارجو أن توضح الكود أكثر لأنني لم أفهم ماذ تقصد بوضع العدد في متغير وتحويله الى string

العفو اخي قمت بتوضيح ذلك بمثال

وضعت فيه مكون Edit يمكنك من خلالة تمرير اي قيمة ومهما كانت الى التقرير

حاول ان تجسد ذلك في مشروعك

وفقنا الله واياكم لما يحب ويرضى

medreg.rar

علي .ع كتب:

العفو اخي قمت بتوضيح ذلك بمثال

وضعت فيه مكون Edit يمكنك من خلالة تمرير اي قيمة ومهما كانت الى التقرير

حاول ان تجسد ذلك في مشروعك

وفقنا الله واياكم لما يحب ويرضى

ربما لم تفهم ما قصدته

أنظر الى المرفق وحاول وضع مبلغ في DBEdit1 و مبلغ في DBEdit2 واضغط على الزر وانظر الى Label1 كيف تظهر النتيجة

اريده ان يظهر مثل ما هو في DEBedit

medreg كتب:

ربما لم تفهم ما قصدته

أنظر الى المرفق وحاول وضع مبلغ في DBEdit1 و مبلغ في DBEdit2 واضغط على الزر وانظر الى Label1 كيف تظهر النتيجة

اريده ان يظهر مثل ما هو في DEBedit

أنظر الى المرفق ذو الحجم 279,46 وليس الذي حجمه 278

TEXTE_QRLABEL.rar

TEXTE_QRLABEL.rar

medreg كتب:

ربما لم تفهم ما قصدته

أنظر الى المرفق وحاول وضع مبلغ في DBEdit1 و مبلغ في DBEdit2 واضغط على الزر وانظر الى Label1 كيف تظهر النتيجة

اريده ان يظهر مثل ما هو في DEBedit

أنظر الى المرفق ذو الحجم 279,46 وليس الذي حجمه 278

[/quot

مشكورين على المشاركات بالحلول ولكني قد وجدت الحل وهو كتابة هذا الكود

procedure TForm1.Button1Click(Sender: TObject); 
var t1:real; 
begin 
t1:=0;  
table1.first; 
while not table1.eof do begin 
table1.edit; 
t1:=t1+Table1..FieldByName('MT_AR').AsFloat; 
table1.post; 
table1.next; 
	QRLabel1.Caption:=formatfloat('### ### ##0.00',t1);	if t1<=0.00 then QRLabel.Caption:=''; 
end; 
end;