[分享]代码定义查找属性

Akon

关键字：
    代码定义查找属性 查找属性 LookupDef

描述：
    运行期间可以用代码方式定义字段的查找属性（定义完成后，必需要重新打开一次数据集，应用最新的属性定义）。

例子：
  with TSQlDataSet(YWXX6.TYWXX6(InfoBroker1.Info).DataSetBZSJJ1).BizFieldByName('DJ') do
  begin
    LookupDef.Kind :=TLookUpKind.lkDataValues;    //定义查找类型
    LookupDef.DataBase.URL := 'Biz:\OPERATION\OPERATIONDB.DATABASE';                                                       //定义数据库
    LookupDef.SQL.Add(        'SELECT *'+
        '  FROM ASJB');                                //查找数据表
    LookupDef.DisplayField := 'ZD1';         //显示字段
    LookupDef.KeyField := 'ID';                 //关键字
    LookupDef.QuickCodeField := 'ZD1';  //快速编码字段
    LookupDef.ViewID := 'GridView';    //定义显示视图(如：标准、编码树)
    LookupDef.ViewProperties.Add(         //视图各类属性
      'object _1: TGridViewDesigner'+
      '  VisibleColumns.Strings = ('+
      '    '#39'ZD1'#39')'+
      '  Options = []'+
      'end');
    LookupDef.Options := [TLookupOption.loDropDownButton]; //表现(如：下拉，自动下拉，显示下拉按钮)
  end;