用SQL Server 做后台,程序登录时需要输入口令?我怎么才能在程序中提供这个登录数据库的口令?

Question

with DATABASE do
        begin
          DataBaseName :='..' //别名；
          Name :='..'//和别名相同；
          LoginPrompt := False;          
          Params.Clear;
          Params.Add('USER NAME=AAA');
          Params.Add('PASSWORD=BBB');
          connected:=true;
        end;

Answer 1

//登录服务器并保持连接（ADO）
function  TMainDataModule.LoginServer:boolean;
var
  ConnectCfg : string;
begin
  Result := true;
  try
    With myConnection do
    begin
      ConnectCfg := 'Provider=SqlOLEDB.1;Persist Security Info=True;';
      ConnectCfg := ConnectCfg+'Password='+YOURPassword+';';
      ConnectCfg := ConnectCfg+'User ID='+YOURdbUser+';';
      ConnectCfg := ConnectCfg+'Initial Catalog='+当前数据库+';';
      ConnectCfg := ConnectCfg+'Data Source='+ServerName+';';
      ConnectCfg := ConnectCfg+'Application Name=我的应用程序';
      ConnectionString:=ConnectCfg;
      LoginPrompt := false;
      Connected;
      Open;
    end;
  except
    Result := false;
    Application.MessageBox('登录报务器失败，请检查网络连接和系统设置！','系统提示',MB_OK+MB_ICONERROR);
    Application.Terminate;
  end;
  myTable.Connection := myConnection;
  myQuery.Connection := myConnection;
  myStoredProc.Connection := myConnection;
end;

Answer 2

//登录服务器并保持连接（BDE）
function  TMainDataModule.LoginServer:boolean;
begin
  Result := true;
  try
    with DataBase1 do
    begin
      DataBaseName := 'testdb';
      DriverName := 'MSSQL';
      Params.Add('SERVER NAME='+dbServerName);
      Params.Add('DATABASE NAME='+dbCurData);//当前数据库名
      Params.Add('USER NAME='+dbUser);
      Params.Add('MAX QUERY TIME=50');
      Params.Add('ENABLE BCD=TRUE');
      Params.Add('PASSWORD='+dbPassword);
      Params.Add('APPLICATION NAME=Testdb');
      Params.Add('TDS PACKET SIZE=4096');
      LoginPrompt := false;
      Connected;
      Open;
    end;
  except
    Result := false;
    WARNING('登录报务器失败，请检查网络连接和系统设置！');
    Application.Terminate;
  end;
  Table1.DatabaseName := DataBase1.DatabaseName;
  Query1.DatabaseName := DataBase1.DatabaseName;
end;

Answer 3

//登录服务器并保持连接（BDE）
function  TMainDataModule.LoginServer:boolean;
begin
  Result := true;
  try
    with DataBase1 do
    begin
      DataBaseName := 'testdb';
      DriverName := 'MSSQL';
      Params.Add('SERVER NAME='+dbServerName);
      Params.Add('DATABASE NAME='+dbCurData);
      Params.Add('USER NAME='+dbUser);
      Params.Add('MAX QUERY TIME=50');
      Params.Add('ENABLE BCD=TRUE');
      Params.Add('PASSWORD='+dbPassword);
      Params.Add('APPLICATION NAME=我的应用');
      Params.Add('TDS PACKET SIZE=4096');
      LoginPrompt := false;
      Connected;
      Open;
    end;
  except
    Result := false;
    WARNING('登录报务器失败，请检查网络连接和系统设置！');
    Application.Terminate;
  end;
  Table1.DatabaseName := DataBase1.DatabaseName;
  Query1.DatabaseName := DataBase1.DatabaseName;
end;

Answer 4

楼上已经说清楚了，你必须增加一个TdataBase，照楼上的写，
TDataBase的用法，我刚已经说过了。没问题了。

Answer 5

同意 netlib(河外孤星)的说法，使用TDATABASE控件来建立数据库的连接，可以实现屏蔽数据库的登录，提供应用级的数据库别名，总之好处多多

Answer 6

用adocontion的属性LoginPrompt := False;