Question

在delphi中，数据库中的数据状态为数字，如何在查询时grid控件动态显示为中文？

数据库中任务状态用数字保存的，如0：新增，1：开始，2：完成，3：未完成
使用grid控件查询时，如何动态将这些状态在grid空间中以中文显示为（新增、开始、完成、未完成）？

Answer 1

不知你具体使用哪个Grid控件，不好说。Delphi自带的StringGrid和DBGrid是定义CustomDrawCell事件，在事件中判断是否任务状态列。是，则用canvas.DrawTextRect函数将转换后的中文画上去；否，则调用DefaultDrawCell

追问

我就是用的自带的dbgrid控件，可以详细说说嘛？最好来一段源码，我好依葫芦画瓢再举一反三，呵呵！
另外这样的时间需要遍历来判断吗？

追答

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
const
StateText: array[0..3] of String = ('新增', '开始', '完成', '未完成');
var
x, y: Integer;
text: String;
begin
with Sender as TDBGrid do
begin
if LowerCase(Field.FieldName) = 'state' then
begin
text := StateText[Field.AsInteger];
y := (Rect.Bottom - Rect.Top - Canvas.TextHeight(text)) div 2;
x := (Rect.Right - Rect.Left - Canvas.TextWidth(text)) div 2;
Canvas.TextRect(Rect, x, y, text);
end
else
DefaultDrawDataCell(Rect, Field, State);
end;
end;

追问

这个代码好像不对啊。。。怎么还要计算长宽高了？
我需要的是判断数据库中state字段的数字（0...3）；
然后在GRID控件里面根据数字显示字段“状态”的内容为新增，开始。完成，未完成，
另外这个判断条件LowerCase不知道是什么？
额，保留上面的提问记录，刚才我又查了一下资料，中间那段是重画内容的代码对吧？
这上面这个运行机制事什么，关键在哪里，还望指出

追答

解释一下：
1、LowerCase(Field.FieldName) = 'state'
这是判断字段名称是否是“state”，需改成实际的状态字段名。有的数据库支持字段大小写敏感，所以转成小写或大写字母的形式进行比较。判断条件写成 UpCase(Field.FieldName) = 'STATE' 也可以。
2、text := StateText[Field.AsInteger]; // 这句就是将字段值转成相应中文
3、控件中的内容都是画上去的，要显示自定义的内容就要自已去画了……Rect就是这个单元格的范围。所以就有了下面3句
y := (Rect.Bottom - Rect.Top - Canvas.TextHeight(text)) div 2; // 垂直居中
x := (Rect.Right - Rect.Left - Canvas.TextWidth(text)) div 2; // 水平居中
Canvas.TextRect(Rect, x, y, text); // 显示中文文本
4、DefaultDrawDataCell(Rect, Field, State); 这句用于非状态字段，调用控件默认的画单元格功能

追问

明白了，先判断在state字段，然后用枚举法确定显示的是什么状态，然后在重画到控件中去，对吧？不是state字段的就按默认字段内容，那这样的话，由于查询的数据不会只有一条，那么还是要把这段代码放到遍历代码中去进行遍历对吧？

追答

1、是的。转换过程不用数组枚举也可以，如用CASE语句，或使用Map存放Key-Value对，或从另一数据表中选取（效率较低）都可。
2、不用写程序遍历，是由系统事件不断自动触发的。每画Grid中的一个单元格（不仅限一行）就触发一次DBGrid1DrawDataCell。
3、这只是显示，如果要修改，最简单的方法就是用Lookup字段的方式（效率较低）；或者自定义InPlaceEditor创建下拉列表（很复杂）；一般都使用第三方控件来代替，如QuantumnGrid，只要自定义下拉列表的键值对就可以了。
一般常用Delphi，都会使用一两套功能更强的第三方控件或自已开发控件，Delphi自带的界面及数据库控件很少会用。

Answer 2

你可以建一个两个字段的任务状态表
把0：新增，1：开始，2：完成，3：未完成存在里面
然后在dbgrid的dataset中新增一个lookup字段，指向任务状态表，然后dbgrid中删掉原来的数字字段，增加状态中文显示字段就可以了。这样以后任务状态表变化了，代码也不用维护。

Answer 3

你可以在查询的时候，调整数据库的查询语句，使记录集返回的字段和你要求的一致即可。
不知道你的查询语句是什么样的结构，你可以参考如下写法。

select name from TWork as t,
( select '0' as id,'新增' as name
union select '1' ,'开始'
union select '2' ,'完成'
union select '3' ,'未完成'
) as p
where t.state=p.id ;

*TWork是你的表名称
*name 是要在Dbgrid中要显示的字段名要设置的

Answer 4

最简单的方法是在sql语句中做判断，如case col1 when 0 then '新增' when 1 then ‘开始' when 2 then '完成' when 3 then ‘未完成' end，当然方法有很多，看你怎么用