如何在DBGrid中输入和显示按代码对应的字段? (如'0'--系统管理员,'1'--录入人员,...)

Question

弄一个计算字段(假设为display)，并在相应的DataSet的OnCalcField事件中写
case Dataset.FieldByName('YongHuQuanXian').AsInteger of
0: DataSet['Display'] := '系统管理员';
1: DataSet['Display'] := '录入人员';
...
end;

Answer 1

可将0--系统管理员,1--录入人员,2--一般工作人员专门存入一个数据库，在DBGrid显示时用LookUpSource,LookUpField

Answer 2

建立一个数据字典的表，把表的字段（英文）和标题（中文）写在其中，打开表的时候先从该表中取得字段和标题，然后动态设计dbgrid的标题

Answer 3

1.用户权限代码转名称显示：可在字段（权限）定义OnGetText事件上写转换代码，最好访问数据字典.
2.用户权限名称转代码输入：将数据字典中的代码，名称信息写到该DBGrid1.Colmuns的Picklist中