adoquery1.close; adoquery1.sql.text := 'select name from syscolumns where id = object_id(N'tablename')'; adoquery1.open; while not eof do begin with TdbEdit.create do begin parent := nil; top := 10; left := ; name := ; field := ... end; end;
if AdoQuery.FindField('name') then begin dbedit := new dbedit.Create(self); dbedit.Datasource := DataSource; dbedit.DataField := name; dbedit.top := ; dbedit.left := ; end; dbedit的位置。。
adoquery1.sql.text := 'select name from syscolumns where id = object_id(N'tablename')';
adoquery1.open;
while not eof do
begin
with TdbEdit.create do
begin
parent := nil;
top := 10;
left := ;
name := ;
field :=
...
end;
end;
begin
dbedit := new dbedit.Create(self);
dbedit.Datasource := DataSource;
dbedit.DataField := name;
dbedit.top := ;
dbedit.left := ;
end;
dbedit的位置。。
2,在窗体创建的时候,查找该表单;寻找有没有需要在本单元下新增的字段;如果有,动态创建tdbebit,用来显示和更新内容
用Grid控件不是更容易,动态添加列后直接录入就是了