本人写的通用的连接配置,暂保存上来

 Function TForm1.ContoSQL(svr, uid, pwd, db: String): Boolean;
Const
  constr='Provider=SQLOLEDB.1;Password=%s;'+
  'Persist Security Info=True;'+
  'User ID=%s;Initial Catalog=%s;Data Source=%s';
Begin
  Result := False;
  try
    With ADOConnection1 Do
    Begin
      Connected := False;
      ConnectionString := Format(constr,[pwd, uid, db, svr]);
      LoginPrompt := False;
      Connected := true;
      Connected := False;
    End;
    Result := True;
  except On E: Exception Do
    Application.MessageBox(PChar(E.Message),'连接数据库失败！',16);
  end;
End;


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  If ContoSQL('127.0.0.1', 'sa', 'sa', 'Northwind') Then
  Application.MessageBox(PChar('ok'),'系统提示',64);
end;