还是有关TQuery, TSession和TDatabase

Question

请问，如果要手工创建TQuery, TSession和TDatabase实例，并且将它们联系起来，应该怎么做，如果有源码，则更是感激不尽。

Answer 1

var
  sn : Tsession;
  db : TdataBase;
  qy : Tquery;
begin
  SN:=TSession.Create(nil);
  SN.SessionName := 'Destest';
  DB:=TDataBase.Create(nil);
  Qy := TQuery.Create(nil);
  with DB do
  begin
    SessionName := 'Destest';
    DataBaseName := 'test';
  end;
  Qy.DatabaseName := 'test';
  Qy.SessionName := 'Destest';

Answer 2

多谢，多谢，我已经成功的用了它们三个。
　　不过还有一个问题，我给TDatabase实例设置了用户名（user name)和密码(password)两个参数，如果密码为空（此时数据库登陆密码也为空）则能够登陆到数据库，并且工作正常；如果密码不为空（此时数据库登陆密码也不为空）则不能登陆到数据库。请问这是怎么一回事？

Answer 3

我用的是SQL Server和ODBC数据源

Answer 4

不过还有一个问题，我给TDatabase实例设置了用户名（user name)和密码(password)两个参数，如果密码为空（此时数据库登陆密码也为空）则能够登陆到数据库，并且工作正常；如果密码不为空（此时数据库登陆密码也不为空）则不能登陆到数据库。请问这是怎么一回事？我怀疑你根本没有成功的检测到密码为空的字段，或者是你判断空的语句刚好使你自己以为通过了，我开始的时候也试过这样。最后发觉程序里面根本就是逻辑有错

Answer 5

“检测到密码为空的字段”是什么意思？
我是简单的给TDatebase的属性赋值（常量）。