query的问题

Question

如何为query建立动态的数据表，请附语句（query中包还classroom,classtime字段，根据classtime的条件创建数据表)

Answer 1

create table (classroom 类型，
classtime 类型，
)

Answer 2

procedure TCreateDataBaseFrm.Createjxinfwh;
var
  SQL_Str : String;
begin
  SQL_Str := 'CREATE TABLE thrjxinfwh('+
  'ID int   IDENTITY (10001, 1) NOT FOR REPLICATION  NOT NULL , '+
  'thrname char(20) NULL,thrcode Char(20) NULL,sfbzr char(2) NULL,ksf Int NULL,'+
          'xqpj Varchar(100) NULL,tsqk Varchar(200) NULL,tbrq SmallDateTime NULL ) ';
  Try
    DataModuleFrm.xyglxtADOConnection.Connected := True;
    with DataModuleFrm.CreateDataBaseADOQuery do
    begin
      if Active then
        Active := False;
      SQL.Clear;
      SQL.Add(SQL_Str);
      ExecSQL;
    end;
  Except
  end;
end;