No.1
procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
var
I: Integer;
begin
for I := 0 to DataSet.FieldCount - 1 do
case DataSet.Fields[I].DataType of
ftBCD, ftFloat, ftInteger:
TBCDField(DataSet.Fields[I]).DisplayFormat := '0.00';
end;
end;
procedure TForm1.Table1AfterOpen(DataSet: TDataSet);
var
I: Integer;
begin
for I := 0 to DataSet.FieldCount - 1 do
case DataSet.Fields[I].DataType of
ftBCD, ftFloat, ftInteger:
TBCDField(DataSet.Fields[I]).DisplayFormat := '0.00';
end;
end;
解决方案 »
- delphi 数据库编程创建数据表,表名可以是变量吗?变量应该怎么表示阿。谢谢
- ValueListEditor 如何实现自动换行 (在线等)
- 文件合并和分割问题!!高手帮忙!
- 关于showmessage()函数
- 程序在部分XP版本上运行不正常,如何解决
- 如何让DbGrid和StringGrid具有这样的功能???
- 如何来查询一整型的数据
- (急急)delphi安装后为什么打不开呀?提示是无法找到动态链接库RTL60.BPL于指定的路径
- 怎样在程序中选择不同的打印机进行打印?up有分!一定给分!
- 请帮帮忙,各位高手!!!!!!!(寻找会计凭证控件)
- DELPHI高手请进,系统问题
- ·#¥%—*现在最热的Websnap的问题,有高手就进来看一下,说不定有回报呢?*—%¥#·
Add All Fields,逐一为整形金额的字段,设它们的属性Currency 为True