怎样控制DBGRID的显示。如:表中的数据为1,DBgrid显示‘是’
解决方案 »
- ServerSocket和ClientSocket在局域网通讯问题
- 显示图片一部分!
- !!求助!!在panel上动态生成一组按钮的问题,非常规!
- 我輿沒有溫柔的女孩接吻了..........
- 关于cxGrid控件导入EXCEL文件的问题
- 服务程序,如何点击运行就自动安装而不必调用 /install?
- 请问:在那里可下basca.tpu,dos.tpu,crt.tpu先谢谢了!!
- delphi新手问题:delphi项目文件的结构
- 关于用uLKJSON解析JSON数据时,拿不到中文的数据。
- delphi游戏编程里有哪些方法实现全屏模式呢?
- 关于clientsocket的问题!!!
- 新装的delphi6.0,根本无法编译,编译时说找不到文件system.pas??
然后在DBGRID里,新建一个虚的LOOKUP字段,把1和你的这个编码表的数据一一对应,就可以了~!显示的时候,显示的是这个个虚的LOOKUP字段~!
begin
if query1.fieldbyname('评价').asstring='1' then
begin
text:='好'
end;
if query1.fieldbyname('评价').asstring='2' then
begin
text:='一般'
end;
if query1.fieldbyname('评价').asstring='3' then
begin
text:='差'
end;
2.在数据集相关字段的OnGetText、OnSetText中做读写的转化;
3.用内存表,在这里大材小用,权做一个参考
DisplayText: Boolean);
begin
if Sender.AsBoolean = true then
Text := '是'
else
Text := '否';
end;procedure TfrmAdmin.aqAdminsysSetText(Sender: TField; const Text: String);
begin
if Text = '是' then
Sender.AsBoolean := true
else
Sender.AsBoolean := false;
end;