请问这样的语句怎么样才能找到数据库阿？(前提是bde中没有DBNAME)(10分)

procedure TMgrUserF.InsUser(UserName, UserPwd: string;
Power: integer);
var
Query : TQuery;
begin
Query := TQuery.Create(nil);
Query.DatabaseName := DBName;
Query.SQL.Add('insert into tsyhb(UserName,UserPwd,Class) '+
'valuesUserName,:UserPwd,:Class)');
Query.ParamByName('UserName').AsString := UserName;
Query.ParamByName('UserPwd').AsString := UserPwd;
Query.ParamByName('Class').AsInteger:= Power;
Query.ExecSQL;
Query.Free;
end;

DBName可以直接是数据库所在的目录名。
比如你的tsyhb.db在c:/test目录中，即使你的BDE中没有任何数据库变量。你都可以输入：
Query.DatabaseName := 'c:/test';
这样就可以实现程序中更改数据库路径了[]

接受答案了.