如何设置paradox数据库的number字段类型,使得dbgrid显示的数字一律是2位小数,如:10-〉10.00??(50分)

  • 主题发起人 主题发起人 applepie
  • 开始时间 开始时间
A

applepie

Unregistered / Unconfirmed
GUEST, unregistred user!
我是个菜鸟,向诸位高手求教:
我做了一个工资管理系统,需要制作工资报表,但是怎样才能令工资都显示为带两位小数的数字呢?
谢谢!![:)][:)]
 
设置displayformat属性为 #.00

if query1.fields.datatype in [ftFloat,ftCurrenty,ftBcd] then
begin
TNumericField(query1.field).displayformat:=#.00;
end;
 
table1.Close;
//在一个空表格中添加一个名为edit1的长度为edit2.text的字符型字段。
table1.FieldDefs.Add(edit1.Text,ftString,strtoint(trim(edit2.Text)),false);
Table1.CreateTable;
table1.Open;

这样生成的新数据表格虽然在paradox数据库中已经有了这个新字段,但是dbgrid中
却没有出现,为何?(我已经为table1的属性添加了字段)
请教:如何令已经存有数据的数据表格增加/删除一个字段,并且使dbgrid随着更新,
原数据却不丢失?
 
不应该呀。你是不是用table1的字段编辑器设置字段了,如果是的话,应该把新加的字段
加上。
 
如何动态加上用户命名的新字段呢?
 
动态创建一个Paradox数据库:
with ttable.Create(self) do begin
databasename:='d:/';
tablename:='test';
tabletype:=ttparadox;
with fielddefs do begin
add('name',ftinteger,0,false); //创建字段部分
add('password',ftstring,25,false);
end;
CreateTable;
end;
 
shangmin:如果这样的话,字段编辑器的字段是不是全部都要删除?如果不删除,就会
加不上新字段,如果删除了,那么怎样设置字段的displayformat属性呢?是不是像
mlzhou的那种写法?
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
I
回复
0
查看
618
import
I
后退
顶部