delphi7+ sqlserver2000 数据库界面指定连接

Question

delphi7+ sqlserver2000 数据库界面指定连接
要求：在界面输入 服务器名    数据库名   用户名   密码
也就是指定连接到指定机器上的指定的数据库 用指定的用户。
本人初学请写详细代码 
谢谢！！！再线等！！！！

Answer 1

TADOConnection,界面就自己做了。连接字符串：ConnectionStrings :='Provider=SQLOLEDB.1;'+
'Password=连接密码;'+
'User ID=用户名;'+
'Data Source=服务器地址';

Answer 2

如果想不要系统对话框，就把 LoginPrompt := False;

Answer 3

IniFileNameStr:=ExpandFileName(ExtractFilePath(Application.ExeName)+'\Database.ini');
    MyIniFileStr:=TIniFile.Create(IniFileNameStr);
    ServerNameStr:=MyIniFileStr.ReadString('DataBase','DataServer','wrong');
    DataBaseNameStr:=MyIniFileStr.ReadString('DataBase','DataBaseName','wrong');
    UserStr:=MyIniFileStr.ReadString('DataBase','UserName','wrong');    ConnectStr:='provider=SQLOLEDB.1;Persist Security Info=false;'+      //手动配置连接字串
                 'User ID='+UserStr+';'+
                 'Initial Catalog='+DataBaseNameStr+';'+
                 'Data Source='+ServerNameStr;
   ADOConnection1.Connected:=false;
   ADOConnection1.ConnectionString:=ConnectStr;
   ADOConnection1.Connected:=true;

Answer 4

新開一個記事，另存為uld文件，然後配置，再把裡面的東東讀出來給ConnectionStrings,這是很好的方法。

Answer 5

ADOConnection1.ConnectionStrings：='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;Initial Catalog=数据库名;Data Source=计算机名';

Answer 6

try
    with AllData.AdoConn do
      if not connected then
      begin
        Connected := false;
        LoginPrompt := false;
        ConnectionString := 'Provider=SQLOLEDB.1;Password=' + pwd +
          ';Persist Security Info=True;User ID=' + 数据库用户名 + ';Initial Catalog=' +
          数据库名 + ';Data Source=' + 计算机名 + ';Use Procedure for Prepare=1;Auto ' +
          'Translate=True;Packet Size=4096;Workstation ID='+计算机名+';Use ' +
          'Encryption for Data=False;Tag with column collation when possible=False';
        Connected := True;
      end;
  except
    ErrMSG('数据连接失败！');
    exit;
  end;