高手看过来,关于动态修改SQL SERVER表结构的问题

Question

有两个表,项目表,明细表项目表结构如下
字段名字 类型
FN       VARHCAR(10)
FT       CHAR(4)其中内容类似下面FN  FT
A1  CHAR(4)
A2  CHAR(3)
A3  BIT明细表由项目表的字段内容动态生成,即明细表的表结构为
字段名字 类型
A1  CHAR(4)
A2  CHAR(3)
A3  BIT对于明细表的表结构的修改也希望通过对项目表的修改来实现
例如 修改A1 CHAR(4) 为 A1  VARCHAR(20)
希望高手指点,在修改了项目表的记录以后,如何生成修改明细表结构的SQL 语句,或者用其他方法实现此功能.
数据控件均使用ADO

Answer 1

adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 项目结构表');
adoquery1.open;
tmpstr := 'create table 明细表 (';
while not adoquery1.eof do
begin
  tmpstr := tmpstr + adoquery1.fieldbyname('fn').asstring+' ';
  tmpstr := tmpstr + adoquery1.fieldbyname('ft').asstring+ '';
  tmpstr := tmpstr + ',';
  adoquery1.next;
end;
tmpstr := copy(tmpstr,0,length(tmpstr)-1);
tmpstr := tmpstr+')';
adoquery2.close;
adoquery2.sql.text := tmpstr;
adoquery2.execsql;
ado