database问题(50分)

  • 主题发起人 主题发起人 z_w_q
  • 开始时间 开始时间
Z

z_w_q

Unregistered / Unconfirmed
GUEST, unregistred user!
DELPHI中的DataBase控件如何在程序运行时改变它的username 和 password
 
你肯定要在DataBase没有Connect前修改。
将DataBase放到DataModule中,DataModule有一个Create事件,将修改用户和密码的工作
放在这个事件里,然后再连接就可以了。
 
用params属性
 
database.connection:=false;
database.Params.Values['user name']:=用户名;
database.Params.Values['password']:=密码;
 
the answer same as scorpions.
database.connection:=false;
database.Params.strings[0] :=username
database.Params.strings[1] := password.
you may set the database.loginprompt := false
 
var
servername,username,password:string;
begin
database1.Params[0]:='server name='+servername;
database1.Params[1]:='user name='+username;
database1.Params[2]:='password='+password;
database1.connected:=true;
end;
 
在TDatabase控件的OnLogin事件中,修改LoginParams参数
 
var
servername,username,password:string;
begin
database1.close;
database1.Params[1]:='user name='+username;
database1.Params[2]:='password='+password;
database1.connected:=true;
end;
 
var
servername,username,password:string;
begin
database1.close;
database1.Params[1]:='user name='+username;
database1.Params[2]:='password='+password;
database1.connected:=true;
end;
还有一点:所有和此database连上的诸如table,query等,最好在使用之前有以下几句:
eg:
query1.close;
query1.database:=database1;
......
query1.open;
 
scorpions可以,zama pressanykey不通
 
多人接受答案了。
 
后退
顶部