关于数值型字段的小数位问题。 在BDE中把Enabled BCD设为True 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在数据表的字段中定义小数位数如果是Sql server 可decimal (18,2) a:float;a:= Round(a*100)/100或用format函数 可按如下例子: Table.Open; TNumericField(Table.FieldByName('Price')).DisplayFormat:='0.00';即可。 那你就在把数据写入字段前对数据进行格式化,如:var a:double;a:=1.23456789;a:=StrToFloat(FormatFloat('#.##',a); // 这时 a=1.23;table1.Fieldbyname('fieldname').asfloat:=a; 最好是用FLOAT型的数据类型。。(sqlserver中) 我在建的是用Paradox7的表,字段如下字段名 字段类型Price N 你可以把数据类型定义成字符串类型。在读出和写入的时候进行转换一下就可。var a:double; s:String;a:=1.23456789;s:=FormatFloat('#.##',a); // 这时 s='1.23';table1.Fieldbyname('fieldname').asstring:=s; // 写入;s:= table1.Fieldbyname('fieldname').asstring // 读出, s='1.23' ;a:=StrToFloat(s); // a=1.23 ; 难道只有Apollo47(阿波罗)所说的方法吗? 这可能是 paradox 的原因。只要数据读出并格式化后,不发生错误。这并不是什么大问题。要不然你换数据库。 程序退出,进程还在?是什么原因? 动态生成的TTabSheet 退出要报错 如何将数据库中的内容赋值给edit显示出来啊?谢谢! 出售神龙卡8400 8471等卡OSD源码或组件: 我用SocketConnection连的,客户端为何不能运行? 关于BDE的问题 文本中某一行的替换 从TControl类继承的类如何拥有Click、MouseMove等标准事件? BDE数据库连接问题 哪有读写ini文件的控件? 求助,在简体98上开发的软件要用于繁体98,该如何是好?有何解决方案? Download kylix 1.0 now!!!
如果是Sql server 可
decimal (18,2)
Table.Open;
TNumericField(Table.FieldByName('Price')).DisplayFormat:='0.00';
即可。
var a:double;a:=1.23456789;
a:=StrToFloat(FormatFloat('#.##',a); // 这时 a=1.23;
table1.Fieldbyname('fieldname').asfloat:=a;
字段名 字段类型
Price N
var a:double;
s:String;a:=1.23456789;
s:=FormatFloat('#.##',a); // 这时 s='1.23';
table1.Fieldbyname('fieldname').asstring:=s; // 写入;s:= table1.Fieldbyname('fieldname').asstring // 读出, s='1.23' ;
a:=StrToFloat(s); // a=1.23 ;