在delphi中的AdoDataSet中用SQL语句查询数据库中的数据,但是数据库中的数据不是保留两位小数的,现在我查询出来的数据要保留两位小数。(是补足两位小数)
解决方案 »
- 如何取得动态创建的combobox的值
- 招聘兼职:上海大型印刷企业招聘ERP开发人员(delphi7+sqlserver+cxgrid+fastreport)
- 运行错误 debugger kernel bordbk70.dll is missing or not register 怎么解决
- 天啊,难道BDE QUERY不能运行带括号的SQL语句吗?
- 请问高手,有没有在某个文件夹中判断某个文件是否存在的例子啊
- 如何能知道正在运行的程序的硬盘路径?
- 菜鸟问题,高手赐教!!!!!!!100分(关于pcomm控件的)
- delphi问题请教!为什么中文是乱码?
- WebBrowser控件的难题!!!!!!!!!!!!!!!!!!!!????????????
- 如何编程实现在一个文本文件中快速查找某个字符串所在行
- 关于数据连接中断后的处理问题?
- 大家可好?我可是偷跑出来的
如DBgrid的DataSource设为一个Query,
添加一个字段,在CalcFields中编程
以下是例子
Procedure TdataM1.Adoquery2.CalcFeids(DataSet:TDataSet):
begin
if adoquery2.fieldbyname('type').asstring = 1 then
adoquery2.fieldbyname('Newtype'):='进口'
else adoquery2.fieldbyname('Newtype'):='国产';
end;在adoquery2的datafield中加入type(visible:=false) ,Newtype(visible:=true)不知能否实现你的要求end;
uField :Tfield;
uPField:^TFlaotField;
//......uField:=DataSet..Fields.Fields[i];
uPfield:=@uField;
uPfield.displayformat:='#.00;; '
set @a = 1
set @b = 1.2
select cast(cast(@a as real) as numeric(10,2)),
cast(cast(@b as real) as numeric(10,2))
/*显示结果为
------------ ------------
1.00 1.20(所影响的行数为 1 行)
*/