如何显示字段的类型

atiger

如果需要显示字段的类型可以访问字段的DataType属性，参考如下代码：

Uses
  Business.System;Business.Data; Business.Model
var
  lFilterFields : TStrings;
  lField: TDataField;
  lBizField: TBizField;
  lFieldType: TFieldType;
  i : Integer;
  FieldTypeName: string;
begin
  DataSetBZSJJ1.Open;
  lFilterFields := DataSetBZSJJ1.FilterFields ;
  try
    if lFilterFields.Count > 0 then
    begin
      for i := 0 to lFilterFields.Count - 1 do
      begin
        lBizField := DataSetBZSJJ1.BizFieldByName(lFilterFields.Strings);
        lField := DataSetBZSJJ1.FieldByName(lFilterFields.Strings);
        Dialogs.ShowMessage(lField.DisplayName);
        { 获得物理数据库的字段类型 }
        case lField.DataType of
          TFieldType.ftString: FieldTypeName := '字符';
          TFieldType.ftInteger: FieldTypeName := '整数';
          TFieldType.ftFloat: FieldTypeName := '浮点数';
        end;
        Dialogs.ShowMessage(FieldTypeName);
        { 获得studio中设计的字段类型即数据类型 }
        case lBizField.DataType of
          TDataType.dtString: FieldTypeName := '字符';
          TDataType.dtInteger: FieldTypeName := '整数';
          TDataType.dtFloat: FieldTypeName := '浮点数';
          TDataType.dtNumber: FieldTypeName := '数字';
          TDataType.dtDateTime: FieldTypeName := '日期时间';
          TDataType.dtBlob: FieldTypeName := '文本';
          TDataType.dtUnknown: FieldTypeName := '未知';
        end;
        Dialogs.ShowMessage(FieldTypeName);
      end;
    end;
  finally
end;


提示： TBizField是在业务数据集中用于描述业务字段定义的，而TDataField是在业务数据集打开时根据TBizField的定义而创建出来的。ID可以认为是字段的“英文字段名”，DisplayName是“字段中文名”，而Name是“这个TBizField组件的组件名”。