配置文件连接

//*****************************
//*       连接数据库
//* INI参数变量说明
//*   mcb_addr  :服务器地址
//*   mcb_user  :数据库用户名;
//*   mcb_pwd   :密码;
//*   mcb_DBName:数据库名;

Function ConnectDB:boolean;
var
  f:Tinifile;//INI文件
  mcb_DBname,mcb_addr,mcb_User,mcb_Pwd:string;
  iSection:string;
begin
    //初始化数据库连接--SQL SERVER版本
  iSection:='Syspz_DB';
  f:=Tinifile.Create(DB_FileName);
  mcb_Addr  :=trim(f.readString(iSection,'DBAddr',''));
  mcb_User  :=trim(f.readString(iSection,'DBUser',''));
  mcb_Pwd   :=trim(f.readString(iSection,'DBPwd',''));
  mcb_DBName:=trim(f.readString(iSection,'DBName',''));
  f.Free;
  try
    if Fmain.ADOConnection1.Connected then
      Fmain.ADOConnection1.Close;
    with Fmain.ADOConnection1 do
    begin
      Provider := 'SQLOLEDB';                           //数据库：SQL Server
      Properties['Data Source'].Value     := mcb_addr;  //服务器地址
      Properties['User ID'].Value         := mcb_user;  //数据库用户名
      Properties['Password'].Value        := mcb_Pwd;   //密码
      Properties['Initial Catalog'].Value := mcb_DbName;//数据库名
      Open;
    end;//with
    Result := True;
  except
    Result := False;
    Fmain.ADOConnection1.Close;
    ShowMess('连接数据库失败！请确认是否有"'+ mcb_DBName +'"的数据库');
  end;//try
end;