打印格式:打印价格时候,需要打出两位小数,怎么实现阿?

Question

数据库内保存格式是有2位小数.

Answer 1

楼主用的是什么打印控件
一般可以设置displayformat为0.00即可

Answer 2

TNumericField(ADOQuery.Fields[i]).DisplayFormat:='#0.00';

Answer 3

在QRBand1的BeforePrint事件里对对要输出的字段进行格式化。
如：
procedure TPcdmrepform.QRBand3BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  fdanjia.Caption:=formatfloat('0.00',cdmrepform.ADOQuery1.FieldValues['danjia']);
  fshmoney.Caption:=formatfloat('0.00',cdmrepform.ADOQuery1.FieldValues['shmoney']);
  fsdanjia.Caption:=formatfloat('0.000000',cdmrepform.ADOQuery1.FieldValues['sdanjia']);
  fsmoney.Caption:=formatfloat('0.00',cdmrepform.ADOQuery1.FieldValues['smoney']);
end;

Answer 4

我用canvas.textout()
 :-)
这样该怎么做呢?

Answer 5

在你显示价格的那列的onPrint 事件里添加如下代码：
 Value := Formatfloat('0.00',StrToFloat(Value));