const
  sID = 'User ID=sa;';
  sPass = 'Password=sa;';
var
  F,SCF: TextFile;
  sConstr,sTemp,sConStrSC: string;
begin
  if not FileExists('Conf.cfg') then
  begin
    Application.MessageBox ('数据库连接配置文件丢失！','系统提示',MB_OK+MB_ICONEXCLAMATION);
    Halt;
  end;
  try
    AssignFile(F,'Conf.Cfg');    

    ReSet(F);
    ReadLn(F,sTemp);
    SconStr := STemp + sPass + sID;
    while not Eof(F) do
    begin
      ReadLn(F,sTemp);
      SconStr := SConStr + STemp;
    end;
  finally
    CloseFile(F);
  end;

  DC_Pub.Connected := False;
  DC_Pub.ConnectionString := sConStr;

   try
    DC_Pub.Open;
    dc_pub.Connected := true;
  except
    Application.MessageBox('无法连接系统数据库,请检查与服务器的连接!'
                           ,'提示',MB_OK+MB_ICONEXCLAMATION);;
    Halt;
  end;
end;