在数据集打开的情况下新增加一个字段

最新推荐文章于 2025-02-06 13:57:57 发布

转载最新推荐文章于 2025-02-06 13:57:57 发布 · 1.2k 阅读

标签

#dataset

收录于

Delphi 专栏收录该内容

66 篇文章

订阅专栏

本文介绍了一个使用 Delphi 的 TDataSetDesigner 对 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;