DataSet动态生成字段

最新推荐文章于 2024-01-16 10:32:59 发布

原创最新推荐文章于 2024-01-16 10:32:59 发布 · 1.7k 阅读

2 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#dataset #query #integer

收录于

delphi 专栏收录该内容

36 篇文章

订阅专栏

本文介绍了一种在两个不同的数据库查询对象间进行字段同步的方法。通过遍历源查询对象的所有字段，并在目标查询对象中创建对应的字段，实现了从一个查询对象到另一个查询对象的数据结构复制。此外，还展示了如何为新的查询对象添加计算字段。

procedure TForm1.Button1Click(Sender: TObject);
var
j: integer;
t: tstringfield;
begin
query2.open;
Query1.Close;
query1.fielddefs.clear;
for j := 0 to query2.FieldDefs.Count - 1 do
with query2.FieldDefs.Items[j].FieldClass.Create(self) do
begin
FieldName := query2.FieldDefs.Items[j].name;
Name := Query1.Name + FieldName;
size := query2.FieldDefs.Items[j].size;
Index := j;
DataSet := Query1;
end; // with
Query1.FieldDefs.UpDate;
T := TStringField.Create(Self);
T.FieldName := 'myfield';
t.FieldKind := fkcalculated;
T.Name := Query1.Name + T.FieldName;
T.Index := query2.FieldDefs.Count;
T.DataSet := Query1;

Query1.FieldDefs.UpDate;
Query1.Open;
end;