uasrvconfig.pas

来自「基于Midas 技术的多层应用开发包第二版（带开发文档）」· PAS 代码 · 共 68 行

{******************************************************************************************}
{                                                                                          }
{       Universal Agent on demond SDK                                                      }
{                                                                                          }
{                                                                                          }
{ COPYRIGHT                                                                                }
{ =========                                                                                }
{ The UA SDK (software) is Copyright (C) 2001-2003, by vinson zeng(曾胡龙).                }
{ All rights reserved.                                                                     }
{ The authors - vinson zeng (曾胡龙),                                                      }
{ exclusively own all copyrights to the Advanced Application                               }
{ Controls (AppControls) and all other products distributed by Utilmind Solutions(R).      }
{                                                                                          }
{ LIABILITY DISCLAIMER                                                                     }
{ ====================                                                                     }
{ THIS SOFTWARE IS DISTRIBUTED "AS IS" AND WITHOUT WARRANTIES AS TO PERFORMANCE            }
{ OF MERCHANTABILITY OR ANY OTHER WARRANTIES WHETHER EXPRESSED OR IMPLIED.                 }
{ YOU USE IT AT YOUR OWN RISK. THE AUTHOR WILL NOT BE LIABLE FOR DATA LOSS,                }
{ DAMAGES, LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS SOFTWARE.}
{                                                                                          }
{ RESTRICTIONS                                                                             }
{ ============                                                                             }
{ You may not attempt to reverse compile, modify,                                          }
{ translate or disassemble the software in whole or in part.                               }
{ You may not remove or modify any copyright notice or the method by which                 }
{ it may be invoked.                                                                       }
{******************************************************************************************}


unit uaSrvConfig;

interface
uses
   IniFiles,SysUtils;

var
  SQLSERVER_MAIN_CONNECT_STRING :string;

  function Read_DB_ConnStr:string;

implementation

function Read_DB_ConnStr:string;
var
  DbConn_Ini: TIniFile;
  sUser,sServer,sPassWord,sDB:string;
begin

  DbConn_Ini := TIniFile.Create(ExtractFilePath(Paramstr(0))+'\DbConn.ini');
  sServer := DbConn_Ini.ReadString('Db_PARAMS', 'SERVER NAME', 'Db_Error');
  sDB := DbConn_Ini.ReadString('Db_PARAMS', 'DATABASE NAME', 'Db_Error');
  sUser := DbConn_Ini.ReadString('Db_PARAMS', 'User NAME', 'Db_Error');
  sPassWord := DbConn_Ini.ReadString('Db_PARAMS', 'PASSWORD', 'Db_Error');

  Result := 'Provider=SQLOLEDB.1;Persist Security Info=True;Password='''+sPassWord+''''+';User ID='+sUser+';Initial Catalog='+sDB+'; Data Source='+sServer;

end;


initialization

    SQLSERVER_MAIN_CONNECT_STRING := Read_DB_ConnStr;

finalization


end.