zoukankan      html  css  js  c++  java
  • 动态生成lookup字段

    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;

  • 相关阅读:
    Oracle表级约束和列级约束
    什么是SSL证书服务?
    什么是阿里云SCDN
    什么是阿里云CDN
    什么是弹性公网IP?
    什么是云解析DNS?
    什么是DataV数据可视化
    什么是大数据计算服务MaxCompute
    什么是文件存储NAS
    什么是云存储网关
  • 原文地址:https://www.cnblogs.com/jijm123/p/8283605.html
Copyright © 2011-2022 走看看