首页 > 其他 > 详细

动态生成lookup字段

时间:2018-01-14 17:29:55      阅读:66      评论:0      收藏:0      [点我收藏+]

标签:def   tde   classes   sse   class   增加   designer   nal   data   

var
  i: Integer;
begin
  //ADOQuery已打开
   //在数据集打开的情况下新增加一个字段
  with Self.ADOQuery1 do
  begin
    TDataSetDesigner.Create(Self.ADOQuery1);
    try
      Designer.BeginDesign;
      //Keep Old Field
      //保留旧的字段
      Designer.DataSet.Fields.Clear;
      for i := 0 to FieldDefList.Count - 1 do
      begin
        with FieldDefList.FieldDefs[i].CreateField(Self) do
        begin
          DisplayLabel := IntToStr(i);
        end;
      end;

      //Add New Field
      //增加新的字段
      with DB.DefaultFieldClasses[TFieldType(2)].Create(Self) do
      begin
        FieldKind := TFieldKind(1);
        FieldName := ‘FieldName‘ + IntToStr(i + 1);
        Name := ‘FieldName1‘ + IntToStr(i + 1);
        DataSet := Self.ADOQuery1;
      end;
      //用于做后续增加字段的标志
      DesignerData := ‘Design‘;
    finally
      Designer.EndDesign;
      Designer.Free;
      Self.RefreshListBox;
    end;
  end;
end;

动态生成lookup字段

标签:def   tde   classes   sse   class   增加   designer   nal   data   

原文:https://www.cnblogs.com/jijm123/p/8283605.html

(0)
(0)
   
举报
评论 一句话评论(0
0条  
登录后才能评论!
© 2014 bubuko.com 版权所有 鲁ICP备09046678号-4
打开技术之扣,分享程序人生!
             

鲁公网安备 37021202000002号