关于动态创建表的问题(50分)

代码如下
////////////////////////////////
query2.SQL.clear;
query2.SQL.add('create table lin');
query2.SQL.add('(ID Char(10),');
query2.SQL.add('Name Char(16),');
query2.SQL.add('Kes integer,');
query2.SQL.add('Beg integer,');
query2.SQL.add('En integer)');
query2.ExecSQL;
query2.Active:=false;
query2.SQL.Clear;
query2.sql.Add('select * from lin');
query2.ExecSQL;
query2.Active:=true;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
query2.close;
query2.SQL.Clear;
query2.sql.Add('drop table lin');
query2.ExecSQL;
end;
///////////////////////////////
为啥提示"table is busy"的错误;
应该动态怎样创建表,动态创建表和创建虚拟表一样吗?
怎样创建虚拟表?
我幻想问一下,用create语句创建时number型如何在于语句中表示,我用如下语句表示时出现错误
///////////////////////
query2.SQL.clear;
query2.SQL.add('create table lin');
query2.SQL.add('(ID Char(10),');
query2.SQL.add('Name Char(16),');
query2.SQL.add('Kes numberic,');
query2.SQL.add('Beg numberic,');
query2.SQL.add('En numberic)');
query2.ExecSQL;
/////////////////////
在nuberic加参数,numberic(9,2)仍出错,应怎样写.
谢谢!

提示"table is busy"的错误;
什么时候提示，打开/关闭， 如是打开试一试改
query2.sql.Add('select * from lin');
query2.Open;
// query2.Active:=true;
number我一般写decimal

///////////////
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin
query2.close;
query2.SQL.Clear;
query2.sql.Add('drop table lin');
query2.ExecSQL;
end;
///////////////////////////////
运行以上代码时出现:"table is busy";

请注意结束问题

>>