我又来了，我想用线程做一个查询，帮我看看为什么这样就不对呢，

Question

with TForm2.Create(Application) do
      begin
          Session.SessionName  := Format('Sess%d',[QryNum]);
          with Database do
          begin
              DatabaseName:= Format('DB%d',[QryNum]);
              AliasName := Alias;
              SessionName:=session.SessionName;
              Params.Values ['USER NAME']:= UserName;
              Params.Values ['PASSOWRD']:=Password;
          end;
          with Query do
          begin
               DatabaseName:= Database.DatabaseName;// 就这句，出错，为什么不能这样赋值呀.
               SessionName := Session.SessionName;
               SQL.Assign(Qry);
          end;

Answer 1

Query 没有被创建吧 你应该调调 Query = Tquery.create; 

Answer 2

with Query do
   begin
      DatabaseName:= Database.DatabaseName;// 就这句，出错，为什么不能这样赋值呀.//你的  Database 产生异议了，把程序中的 Database 改名 ，比如 Database_1 就可以了
      DatabaseName:= Database_1.DatabaseName;// 就这句，不会出错了.

Answer 3

我是从BDE里拖到窗体上的都是，应该都创建了呢