【導讀】Network），用于構建VPN的公共網(wǎng)絡包括Inter、幀中繼、ATM等。的VPN象企業(yè)現(xiàn)有的私有網(wǎng)絡一樣提供安全性、可靠性和可管理性等。虛擬專用網(wǎng)絡支持以安全的方式通過公共互聯(lián)網(wǎng)絡遠程訪問企業(yè)資源。與使用專線撥打長途或電話連接企業(yè)的網(wǎng)絡接入服務器不同，本地的專用線路通過本地的ISP連通Inter。VPN軟件使用與當本地ISP建立的。連接和Inter網(wǎng)絡在分支機構和企業(yè)端路由器之間創(chuàng)建一個虛擬專用網(wǎng)絡。造成通訊上的困難。用VPN方案，通過使用一臺VPN服務器既能夠?qū)崿F(xiàn)與整個企業(yè)網(wǎng)絡的連接，訪問敏感信息的權利。此外，可以對所有VPN數(shù)據(jù)進行加密，從而確保數(shù)據(jù)的安。處理，每個節(jié)點設備處理結束后，將結果匯總，返回給用戶，系統(tǒng)處理能力得到大幅度提高。備我們通常稱之為負載均衡器，由于專門的設備完成專門的任務，獨立于操作系統(tǒng)，能確保高性能的服務器得到更多的使用率，避免低性能的服務器負載過重。生極大的不同，并沒有達到真正的負載均衡。最少連接數(shù)均衡算法對內(nèi)部中需負

　　

【正文】 //獲得數(shù)據(jù)連接對象： function createConnDB(ConnDBFactory: TConnDBFactory): Boolean。 function getDBConnectionState: Boolean。 procedure ReBootDataServer。 procedure ReConnDBServer。 protected function BeginTrans: Boolean。 function CommitTrans: Boolean。 function RollBackTrans: Boolean。 function SelectData(const sSQL: String。 var sMsg: String): TADODataSet。 safecall。 function ExecuteData(const sSQL: String。 var sMsg: String): Boolean。 overload。 safecall。 function ExecuteData(const sStrList: TStrings。 var sMsg: String): Boolean。 overload。 safecall。 public function CreateDataBase: Boolean。 constructor Create。 override。 destructor Destroy。 override。 end。 詳細 說明 : 1. IConnDataBase 接口 ,封裝了 對數(shù)據(jù)庫的訪問 ，分別是查詢數(shù) 據(jù)，提交數(shù)據(jù)，事務處理。 2. TconnDataPerAdapter 實現(xiàn) IconnDataBase 接口。 , 查詢 ,和提交的函數(shù) . 重要方法： 1. CreateDataBase 調(diào)用 TConnDBConfig 的方法 setConnectionStr 從配置文件中讀取參數(shù)。 CreateConnDB 通過工廠來創(chuàng)建連接， IconnDB := 通過傳入的 TConnDBFactory（抽象工廠）創(chuàng)建真正的數(shù) 據(jù)庫連接。 3. ReBootDataServer 是重新啟動數(shù)據(jù)庫連接。 4. ReConnDBServer 重新連接數(shù)據(jù)庫。 5. ExecuteData 采用多態(tài)，可以提交一條或多條 SQL 語句。 說明： TconnDataPerAdapter 類， 對底層數(shù)據(jù) 庫 存取 ,提交 進行了 封裝 , 它是對 SQL 語句 級 別 的封裝 ,但還遠遠不夠我們的使用 , 因為我們?nèi)绻€采用這一層的使用，那么又回到手工編程的思想， 而 我們要提交的可能是純粹的對象 , 或者對象列表 , 我們將在下面看到對傳輸對象和對象列表的封裝 , 它將把一個對象， 或者對象列表 直接進行存儲的能力。 2) uDataPersistent 數(shù)據(jù)具體訪問類 接口單元 (傳輸對象和傳輸對象列表 ) 詳細 說明 : TLocalDataPerWapper = class(TPersistentAdapter) private DAOSQLWapper: TDAOSQLWapper。 gRTLCriticalSection: TRTLCriticalSection。 ConnDataPerAdapter: TConnDataPerAdapter。 InterDataPerCoon: IConnDataPerAdapter。 function InsertObj(const pDTO: TDataTransferObject。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function InsertObj(const pDTO: TDataTransferObject。 filtrateSQL: String。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function InsertObj(const pDTOList: TDataTransferObjectList。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function UpdateObj(const pDTO: TDataTransferObject。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function UpdateObj(const pDTO: TDataTransferObject。 filtrateSQL: String。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function UpdateObj(const pDTOList: TDataTransferObjectList。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function DeleteObj(const pDTO: TDataTransferObject。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function DeleteObj(const pDTO: TDataTransferObject。 filtrateSQL: String。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function DeleteObj(const pDTOList: TDataTransferObjectList。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function GetDTOStringList(const pDTOList: TDataTransferObjectList。 op: String): TStrings。 function ReturnObjList(const tmpDS: TADODataSet。 const pDTO: TDataTransferObject。 var sMsg: String):TDataTransferObjectList。 virtual。 safecall。 public function CommitTrans(const pTmpStrs: TStrings。 var sMsg: String): Boolean。 virtual。 safecall。 function GetMaxCount(const pDTO: TDataTransferObject): Integer。 virtual。 safecall。 function SelectDataSet(const sql: String。 var sMsg: String): TADODataSet。 overload。 virtual。 safecall。 function SelectDataSet(const pDTO: TDataTransferObject。 var sMsg: String): TADODataSet。 overload。 virtual。 safecall。 function SelectDataSet(const pDTO: TDataTransferObject。 filtrateSQL: String。 var sMsg: String): TADODataSet。 overload。 virtual。 safecall。 function SelectDTOList(const pDTO: TDataTransferObject。 var sMsg: String): TDataTransferObjectList。 overload。 virtual。 safecall。 function SelectDTOList(const pDTO: TDataTransferObject。 filtrateSQL: String。 var sMsg: String): TDataTransferObjectList。 overload。 virtual。 safecall。 function ExecuteSQL(const sql: String。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function ExecuteSQL(const sSQL: Variant。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function ExecuteObj(const pDTO: TDataTransferObject。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function ExecuteObj(const pDTO: TDataTransferObject。 filtrateSQL: String。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 function ExecuteObj(const pDTOList: TDataTransferObjectList。 var sMsg: String): Boolean。 overload。 virtual。 safecall。 constructor Create。 overload。 destructor Destroy。 override。 end。 解釋說明： TlocalDataPerWapper 類： 1. 借助 TconnDataPerAdapter 實現(xiàn) SQL 底層操作。 2. 借助 DAOSQLWapper 類解釋 SQL 語句。 3. 采用 大量的多態(tài)等方法，實現(xiàn)對象以 及對象列表的插入，更新，刪除，瀏覽等操作（持久化能力） 。 4. 內(nèi)部封裝了事務的處理。 5. 提供了 把底層的 數(shù)據(jù)集轉化成對象，生成對象列表的能力 。 6. 在 (插入，更新，刪除 時，自動設置提交對象 OP 狀態(tài)的能力 )。 7. 采用了批量提交的方法，效率明顯提高。 8. 采用 加鎖機制，避免多事務處理造 成的數(shù)據(jù)紊亂。 3) uDAOSQLWapper SQL 語句創(chuàng)建類 詳細 說明 : TDAOSQLWapper = class(TPersistentAdapter) public function getKeySQLString(Const pDTO: TDataTransferObject): String。 function getMaxCountString(Const pDTO: TDataTransferObject): String。 function getSearchSQLString(Const pDTO: TDataTransferObject): String。 overload。 function getSearchSQLString(Const pDTOList: TDataTransferObjectList): TStringList。 overload。 function getInsertSQLString(Const pDTO: TDataTransferObject): String。 overload。 function getInsertSQLString(Const pDTOList: TDataTransferObjectList): TStringList。 overload。 function getUpdateSQLString(Const pDTO: TDataTransferObject): String。 overload。 function getUpdateSQLString(Const pDTOList: TDataTransferObjectList): TStringList。 overload。 function getDeleteSQLString(Const pDTO: TDataTransferObject)