السلام عليكم
اريد منكم حل لهذه المشكلة
اردت إظهار المبلغ في QRLabel1 الموجودة على QuicReport
بهذا الشكل 999.999.999,99
كيف يمكنني فعل ذلك
ارجو الرد انا في الإنتظار
نسخة كاملة: كيف يمكنني إظهار مبلغ على Qrlabel1 في Quickrep
برمجة - شبكات - كمبيوتر - منتديات الفريق العربي للبرمجة > منتديات لغات البرمجة العام > منتدى مبرمجي Borland Delphi
السلام عليكم ورحمة الله وبركاته
ضع هذا العدد في متغيير ثم حوله الى String ولنسمه X مثلا
ارجو ان اكون قد فهمت سؤال وان اكون وفقت في الاجابة
تحياتي لك
ضع هذا العدد في متغيير ثم حوله الى String ولنسمه X مثلا
كود
Form2.QRLabel1.Caption:=FloatToStr(x);
ارجو ان اكون قد فهمت سؤال وان اكون وفقت في الاجابة
تحياتي لك
إقتباس(علي .ع @ Nov 15 2008, 11:31 PM) 
السلام عليكم ورحمة الله وبركاته
ضع هذا العدد في متغيير ثم حوله الى String ولنسمه X مثلا
ارجو ان اكون قد فهمت سؤال وان اكون وفقت في الاجابة
تحياتي لك
ضع هذا العدد في متغيير ثم حوله الى String ولنسمه X مثلا
كود
Form2.QRLabel1.Caption:=FloatToStr(x);
ارجو ان اكون قد فهمت سؤال وان اكون وفقت في الاجابة
تحياتي لك
مشكور يا أخ علي حاول أن توضح أكثر
إقتباس(medreg @ Nov 16 2008, 12:01 AM)
مشكور يا أخ علي حاول أن توضح أكثر
سأعطيك مثال
اردت وضع ناتج حقل في Label1
label1.caption:=table1MT.Value;
مثال إذا كان MT= 25.000,00
لا بد من وضع Formatfloatحتى يظهر في label1 بهذا الشكل أي 25.000,00
ارجو أن توضح الكود أكثر لأنني لم أفهم ماذ تقصد بوضع العدد في متغير وتحويله الى string
العفو اخي قمت بتوضيح ذلك بمثال
وضعت فيه مكون Edit يمكنك من خلالة تمرير اي قيمة ومهما كانت الى التقرير
حاول ان تجسد ذلك في مشروعك
وفقنا الله واياكم لما يحب ويرضى
وضعت فيه مكون Edit يمكنك من خلالة تمرير اي قيمة ومهما كانت الى التقرير
حاول ان تجسد ذلك في مشروعك
وفقنا الله واياكم لما يحب ويرضى
إقتباس(علي .ع @ Nov 16 2008, 12:30 AM)
العفو اخي قمت بتوضيح ذلك بمثال
وضعت فيه مكون Edit يمكنك من خلالة تمرير اي قيمة ومهما كانت الى التقرير
حاول ان تجسد ذلك في مشروعك
وفقنا الله واياكم لما يحب ويرضى
وضعت فيه مكون Edit يمكنك من خلالة تمرير اي قيمة ومهما كانت الى التقرير
حاول ان تجسد ذلك في مشروعك
وفقنا الله واياكم لما يحب ويرضى
ربما لم تفهم ما قصدته
أنظر الى المرفق وحاول وضع مبلغ في DBEdit1 و مبلغ في DBEdit2 واضغط على الزر وانظر الى Label1 كيف تظهر النتيجة
اريده ان يظهر مثل ما هو في DEBedit
إقتباس(medreg @ Nov 16 2008, 12:52 AM)
ربما لم تفهم ما قصدته
أنظر الى المرفق وحاول وضع مبلغ في DBEdit1 و مبلغ في DBEdit2 واضغط على الزر وانظر الى Label1 كيف تظهر النتيجة
اريده ان يظهر مثل ما هو في DEBedit
أنظر الى المرفق وحاول وضع مبلغ في DBEdit1 و مبلغ في DBEdit2 واضغط على الزر وانظر الى Label1 كيف تظهر النتيجة
اريده ان يظهر مثل ما هو في DEBedit
أنظر الى المرفق ذو الحجم 279,46 وليس الذي حجمه 278
[quote name='medreg' date='Nov 16 2008, 12:56 AM' post='897881']
ربما لم تفهم ما قصدته
أنظر الى المرفق وحاول وضع مبلغ في DBEdit1 و مبلغ في DBEdit2 واضغط على الزر وانظر الى Label1 كيف تظهر النتيجة
اريده ان يظهر مثل ما هو في DEBedit
أنظر الى المرفق ذو الحجم 279,46 وليس الذي حجمه 278
[/quot
مشكورين على المشاركات بالحلول ولكني قد وجدت الحل وهو كتابة هذا الكود
ربما لم تفهم ما قصدته
أنظر الى المرفق وحاول وضع مبلغ في 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;
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;
هذه "نسخة - خفيفة" من محتويات الرئيسية للإستعراض الكامل مع المزيد من الصور والخيارات الرجاء إضغط هنا.