【正文】 ject): Boolean。 property FldProperty: TDTOProperty read FFldProperty write FFldProperty。 procedure SetDTOObj(pDTO: TDataTransferObject)。 destructor Destroy。 說細說明： Property OP: string Read FOP Write FOP。 使用注意的地方： 在數(shù)據(jù)序列化時，僅僅對 published 屬性的變量進行了持久化操作，其它的數(shù)據(jù)并沒有進行持久化操作 ，減少網(wǎng)絡(luò)流量，提高的傳輸效率 。 我們在定義接口的時候，盡量用基類去定義，然后實際傳遞派生 類對象，這樣如果你想改變一個調(diào)用的時候，接口是不用動的，只需改變一下調(diào)用對象和服務(wù)器端處理即可。 登錄接口 login(管理員 )。 fItems : array of TDataTransferObject。 procedure SetItems(Index: integer。 public class function GetItemType: PTypeInfo。 class function GetItemSize: integer。 procedure SetItemRef(Index: integer。 override。 override。 overload。 property Items[Index: integer]:TDataTransferObject read GetItems write SetItems。 destructor Destroy。 function FindVOIndex(pDTO: TDataTransferObject): Integer。 也就是說，如果你想獲取一個對象的列表，可以直接用該類， 它可以把服務(wù)器端的對象列表，直接序列化后，返回客戶端，在客戶端遍歷，就象在服務(wù)器端一樣使用。 //varchar // Fupid: string。 end。 safecall。 function BeginTrans: Boolean。 詳細說明： TConnDataPerAdapter = class(TPersistentAdapter, IConnDataPerAdapter) private pConnDBKind: TConnDBKind。 pconnDBFactory: TConnDBFactory。 function getDBConnectionState: Boolean。 function CommitTrans: Boolean。 safecall。 safecall。 safecall。 destructor Destroy。 2. TconnDataPerAdapter 實現(xiàn) IconnDataBase 接口。 4. ReConnDBServer 重新連接數(shù)據(jù)庫。 gRTLCriticalSection: TRTLCriticalSection。 var sMsg: String): Boolean。 function InsertObj(const pDTO: TDataTransferObject。 virtual。 overload。 var sMsg: String): Boolean。 function UpdateObj(const pDTO: TDataTransferObject。 virtual。 overload。 var sMsg: String): Boolean。 function DeleteObj(const pDTO: TDataTransferObject。 virtual。 overload。 op: String): TStrings。 virtual。 virtual。 safecall。 virtual。 overload。 filtrateSQL: String。 safecall。 virtual。 var sMsg: String): TDataTransferObjectList。 function ExecuteSQL(const sql: String。 safecall。 virtual。 overload。 filtrateSQL: String。 safecall。 virtual。 destructor Destroy。 2. 借助 DAOSQLWapper 類解釋 SQL 語句。 6. 在 (插入，更新，刪除 時，自動設(shè)置提交對象 OP 狀態(tài)的能力 )。 function getMaxCountString(Const pDTO: TDataTransferObject): String。 overload。 overload。 overload。 overload。 overload。 overload。 8. 采用 加鎖機制，避免多事務(wù)處理造 成的數(shù)據(jù)紊亂。 4. 內(nèi)部封裝了事務(wù)的處理。 end。 constructor Create。 var sMsg: String): Boolean。 overload。 safecall。 function ExecuteObj(const pDTO: TDataTransferObject。 var sMsg: String): Boolean。 overload。 virtual。 function SelectDTOList(const pDTO: TDataTransferObject。 var sMsg: String): TDataTransferObjectList。 overload。 safecall。 function SelectDataSet(const pDTO: TDataTransferObject。 var sMsg: String): TADODataSet。 function GetMaxCount(const pDTO: TDataTransferObject): Integer。 public function CommitTrans(const pTmpStrs: TStrings。 const pDTO: TDataTransferObject。 safecall。 function DeleteObj(const pDTOList: TDataTransferObjectList。 var sMsg: String): Boolean。 virtual。 safecall。 function UpdateObj(const pDTOList: TDataTransferObjectList。 var sMsg: String): Boolean。 virtual。 safecall。 function InsertObj(const pDTOList: TDataTransferObjectList。 var sMsg: String): Boolean。 virtual。 InterDataPerCoon: IConnDataPerAdapter。 說明： TconnDataPerAdapter 類， 對底層數(shù)據(jù) 庫 存取 ,提交 進行了 封裝 , 它是對 SQL 語句 級 別 的封裝 ,但還遠遠不夠我們的使用 , 因為我們?nèi)绻€采用這一層的使用，那么又回到手工編程的思想， 而 我們要提交的可能是純粹的對象 , 或者對象列表 , 我們將在下面看到對傳輸對象和對象列表的封裝 , 它將把一個對象， 或者對象列表 直接進行存儲的能力。 CreateConnDB 通過工廠來創(chuàng)建連接， IconnDB := 通過傳入的 TConnDBFactory（抽象工廠）創(chuàng)建真正的數(shù) 據(jù)庫連接。 end。 constructor Create。 var sMsg: String): Boolean。 var sMsg: String): Boolean。 function SelectData(const sSQL: String。 procedure ReConnDBServer。 ADOQuery: TADOQuery。 pConnDBConfig: TConnDBConfig。 function RollBackTrans: Boolean。 var sMsg: String): Boolean。{9860C2351E154EA0B7AD84EC7A442154}39。 Property name: string Read Fname Write Fname。 7. TDataTransferObjectTree 類： TDataTransferObjectTree = class(TDataTransferObject) private Fid: string。 end。 procedure RefurbishIndex。 public constructor Create。 overload。 override。 override。 override。 function GetItemRef(Index: integer): pointer。 class function GetItemClass: TClass。 function GetCount: integer。 virtual。 可以通過業(yè)務(wù)插件的方式在服務(wù)器端寫好插件管理器 ,對一個登錄插件進行動態(tài)替換 ,而你的 客戶端 ,只需傳一個其它的對象即可 ,這樣極大的提高了代碼的重用性和可擴展性 . 6. TDataTransferObjectList 類： 詳細說明： TDataTransferObjectList = class(TROArray) private pDTO: TDataTransferObject。 舉例： 一個登錄業(yè)務(wù)： 登錄接口 .login(TDataTransferObjectList): Boolean。 InitDTOObject 函數(shù)的調(diào)用， 這個函數(shù)做了一個數(shù)據(jù)傳輸對象的初始化操作， 因此從服務(wù)器傳遞到客戶端的對象， 僅僅有 published 區(qū)的數(shù)據(jù)傳遞過來，如果需要界面綁定操作，則 需要調(diào)用 InitDTOObject 函數(shù) , 它會初始化 Grid 的 Caption 和隱藏 UI 界面控制等 , 如果僅僅使用數(shù)據(jù)，則可以不調(diào)用該方法，而在 已經(jīng)封裝好 的 UI 綁定的 接口調(diào)用中，這些初始化都已經(jīng)被調(diào)用，如果要發(fā)布新的 綁定 UI 接口，則注意要 做 InitDTOObject 操作。 procedure RefVOCtlDisplay。 end。 public constructor Create。 property FDTODisplay: TDTODisplay read DTODisplay write DTODisplay。 abstract。 procedure SetIndex(FIndex: Integer)。 function GetDTOProperty: TDTOProperty。 FFldProperty: TDTOProperty。 附：在 DTO 進行序列化時，并不會實現(xiàn)該類的序列化。 //字段名稱 fldEx: String。 使用需知： FBindCtlList 列表存放的數(shù)據(jù)結(jié)構(gòu)如下： PTBindCtl = ^TBindCtl。 功能介紹： TDTODisplay 是一個和 UI 顯示相關(guān)的類。 override。 procedure BindControl(tmpCaptionCtl,tmpCtl: TControl。 public procedure FreeBindCtlList。 Caption: String)。 i_j: Integer): String。 //隱藏字段列表 (隱藏字段 不顯示界面 )。 因為生成這些字段，可能造成 insert 失敗。 override。 Property VisUpdateList: TStringList Read FVisUpdateList Write FVisUpdateList。 //隱藏生成 SQL 語句列表 （隱藏字段不生成 select 語句） FVisInsertList: TStringList。 FDTOType: 標識實體映射的類型 (table, view)， FmapName: 映射的名字，