DBGridEh对非布尔字段的栏中如何出现CheckBox选择输入?(100分)

  • 主题发起人 主题发起人 guoling118
  • 开始时间 开始时间
G

guoling118

Unregistered / Unconfirmed
GUEST, unregistred user!
由于Oracle没有布尔字段类型,而在程序中常需要对该字段作出两种选择需在Grid
栏中出现DBCheckBox以供选择如何实现?谢谢!
另外我用Delphi5和Oracle8开发一套软件,打包后将BDE自动带入其它机器的同时,
BDE能自动与Oracle8联结(不需要手工作任何配置!)。
 
可将dbgrid关联的dataset中需显示特殊内容字段设为显式字段,并在OnGetText事件中写如下代码:
以table举例:
procedure TForm1.Table1Myfield1GetText(Sender: TField;
var Text: String; DisplayText: Boolean);
var Pd:string;
begin
inherited;
pd:=table1.fieldbyname('myfield1').asstring;
if pd='1' then
Text:='□'
else
if pd='2' then
text:='▲'
else
Text:='√';
end;

 
dbgirdeh做这个很方便的,设置一下属性就可以了,你试试吧。
 
对不起还没有解决我和问题,我需要显示我修改!
 
为DBGridEh添加一column,设置checkboxs为True,再在keylist中输入数据如 0,1或者是你
想要的数据即可
 
接受答案了.
 
后退
顶部