数据库设计中,某些字段可能被设计成 Integer 类型,不同的 Integer 代表不同的含义;而在实际开发应用中若将这些 Integer 显示给用户明显意义不大——用户需要的是这些 Integer 的确切含义而不是这些 Integer 本身...
于是在显示数据时需在 Integer 及其相应的 字符串 间稍作转换。
实现代码:
//Tfrm_Main: TForm;
//DBGrid_QryRst: TdxDBGrid;
//先为 DBGrid_QryRst 增加几列,设置好其对应字段,再在某列(如第七列)的 OnGetText 中撰写代码
procedure Tfrm_Main.DBGrid_QryRstColumn7GetText(
Sender: TObject; ANode: TdxTreeListNode; var AText: String);
begin
try
case (Sender as TdxDBGridColumn).Field.AsInteger of
1:
AText:= '货到付款';
2:
AText:= '网付通ChinaPay';
3:
AText:= '支付宝';
4:
AText:= '银行转账';
5:
AText:= '邮局汇款';
else
AText:= (Sender as TdxDBGridColumn).Field.AsString;
end;
except
end;
end;
另,Delphi 自带的 DBGrid 的 Column 同有 OnGetText(及 OnSetText) 方法。
于是在显示数据时需在 Integer 及其相应的 字符串 间稍作转换。
实现代码:
//Tfrm_Main: TForm;
//DBGrid_QryRst: TdxDBGrid;
//先为 DBGrid_QryRst 增加几列,设置好其对应字段,再在某列(如第七列)的 OnGetText 中撰写代码
procedure Tfrm_Main.DBGrid_QryRstColumn7GetText(
Sender: TObject; ANode: TdxTreeListNode; var AText: String);
begin
try
case (Sender as TdxDBGridColumn).Field.AsInteger of
1:
AText:= '货到付款';
2:
AText:= '网付通ChinaPay';
3:
AText:= '支付宝';
4:
AText:= '银行转账';
5:
AText:= '邮局汇款';
else
AText:= (Sender as TdxDBGridColumn).Field.AsString;
end;
except
end;
end;
另,Delphi 自带的 DBGrid 的 Column 同有 OnGetText(及 OnSetText) 方法。
转载于:https://blog.51cto.com/adelphicoder/214655