动态 SQL ODBC 差一点就好了！！！(10分)

以下是我同态建立了一个sql的odbc 名为hr
程序中我用database.alicename来连接odbc.
现在问题是我已将密码password写入注册表里，但还是要user输入密码。为什么，可解吗？
=============================================================
procedure TOdbc_form.Button1Click(Sender: TObject);
var
registry1: TRegistry;
appPath: string;
begin
registry1 := tregistry.Create;
registry1.RootKey := HKEY_CURRENT_USER;
if registry1.OpenKey('software/odbc/odbc.ini/odbc data sources', true)
then
begin
registry1.WriteString('hr', 'SQL Server');
registry1.CloseKey;
end;

if registry1.OpenKey('software/odbc/odbc.ini/hr', true) then
begin
registry1.WriteString('Server', combobox1.Text);
//combobox1用来输入sql server 名，如：192.168.1.1
registry1.WriteString('Driver', '/odbcjt32.dll');
registry1.WriteString('Database', 'hr');
registry1.WriteString('Lastuser', edit1.text);
//用edit1输入用户名
registry1.WriteString('Trusted_Connection', 'no');
registry1.WriteString('password', edit2.text);//用edit1输入数据库的验证密码
registry1.CloseKey;
end;
================================================================================

是不是使用了bde阿？

试试把程序中的AdoConnection.LoginPrompt：＝false;

是bde,
AdoConnection.LoginPrompt：＝false;
就是密码不能存储。

怎么没有高手出招！！！！！