dxDBGrid 中如何将整型字段值显示为相应字符串

数据库设计中,某些字段可能被设计成 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) 方法。

你可能感兴趣的:(职场,休闲)