Hola
Yo uso una base de datos access, pero el sistema tal vez podria funcionar en sqlserver, con un archivo ini, desde el que se lee la ruta, supongo usas un datamodule, en este pon el siguiente codigo:
Código Delphi
[-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
IniFile: TIniFile;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'NombredelArchivo.ini');
BasedeDatos := IniFile.ReadString('BD','Path','');
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source='+BaseDeDatos+';'+
'Persist Security Info=False;'+
'Jet OLEDBatabase Password=admin';
AC1.ConnectionString := ConStr;
AC1.Open;
end;
El provider en este caso sera el que usas, asi como los demas parametros.
en el archivo ini. pon esto:
Código:
[BD]
Path="Z:\La Direccion\tu base de datos"
[Logon]
Auto="No"
Login=""
Pass=""
Desconozco si sirva en sqlserver pero espero te funcione.
Saludos