Conectar a SQL Server desde código

[ContraVeneno]

Para SQL Server 2000

Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
var ini: TIniFile;
begin

  ini := TIniFile.Create(ExtractFilePath(ParamStr(0))+'Conexion.ini');
  try
     UsuarioBase:=ini.ReadString('Principal', 'Usuario', '');
     Clave:=ini.ReadString('Principal', 'Clave', '');
     Base:=ini.ReadString('Principal', 'BaseDatos', 'BasePredeterminada');
     Servidor:=ini.ReadString('Principal', 'Servidor', 'ServidorPredeterminado');
     Alias:=ini.ReadString('Principal', 'Alias', 'ODBCPredeterminado');
  finally
    ini.Free;
  end;
  with COnexion do begin //Conexión es un TADOConnection, pero puedes usar lo que quieras.
   If not Connected then begin
    ConnectionString := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False'+
    ';User ID='+QuotedStr(UsuarioBase)+
    ';PassWord='+QuotedStr(Clave)+
    ';Initial Catalog='+QuotedStr(Base)+
    ';Data Source='+QuotedStr(Servidor);
    Connected := True;
   end;
  end;

end;

PUedes crear una función que reciba como parámetro que sección de archivo ini quieres utilizar, de esa forma podrías conectarte a varios lados con solo cambiar la sección ("Principal" en el ejemplo anterior) de donde obtienes los datos de conexión.