【正文】 etDTOStringList(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。解釋說(shuō)明：TlocalDataPerWapper類：1. 借助TconnDataPerAdapter實(shí)現(xiàn)SQL底層操作。2. 借助DAOSQLWapper類解釋SQL語(yǔ)句。3. 采用大量的多態(tài)等方法，實(shí)現(xiàn)對(duì)象以及對(duì)象列表的插入，更新，刪除，瀏覽等操作（持久化能力）。4. 內(nèi)部封裝了事務(wù)的處理。5. 提供了把底層的數(shù)據(jù)集轉(zhuǎn)化成對(duì)象，生成對(duì)象列表的能力。6. 在(插入，更新，刪除時(shí)，自動(dòng)設(shè)置提交對(duì)象OP狀態(tài)的能力)。7. 采用了批量提交的方法，效率明顯提高。8. 采用加鎖機(jī)制，避免多事務(wù)處理造成的數(shù)據(jù)紊亂。3) uDAOSQLWapper SQL語(yǔ)句創(chuàng)建類詳細(xì)說(shuō)明: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): String。 overload。 function getDeleteSQLString(Const pDTOList: TDataTransferObjectList): TStringList。 overload。 constructor Create。 override。 destructor Destroy。 override。end。詳細(xì)說(shuō)明：1. 該類實(shí)現(xiàn)了，對(duì)任意一個(gè)TdataTransferObject（數(shù)據(jù)傳輸對(duì)象）進(jìn)行SQL解釋，動(dòng)態(tài)取得一個(gè)對(duì)象的屬性，字段的能力。 最后可以動(dòng)態(tài)的轉(zhuǎn)化成一條SQL語(yǔ)句（Select, Insert, Update, Delete）的能力。2. 采用多態(tài)，可以批量生成SQL語(yǔ)句列表。 自動(dòng)生成源碼介紹MachineCode文件夾下源碼：1. 該文件夾下源碼都是由隨文檔發(fā)送的代碼生成工具生成，2. 這些類都是從TdataTransferObject派生，加入了序列化功能。3. 主鍵字段，會(huì)在Property 前加PK_標(biāo)志。4. 創(chuàng)建對(duì)象時(shí)調(diào)用了InitDTOObject方法，初始化。5. 實(shí)現(xiàn)了TdataTransferObject里的虛方法IsEqual，作為判斷兩個(gè)Obj是否相等的關(guān)鍵。 默認(rèn)生成的代碼，如果有主鍵，則通過(guò)主鍵映射的屬性就可比較，否則會(huì)全部屬性比較，如果全部相等，才算判定兩個(gè)obj相等。附：可根據(jù)情況，自己修改IsEqual，來(lái)判定兩個(gè)obj是否相等。 公共函數(shù)單元介紹1．uDataStructure 全局?jǐn)?shù)據(jù)結(jié)構(gòu)。2．uLogSrv全局日志類及單元。3．uPublicFunc全局公共函數(shù)單元。4．uResourceStr全局字符串單元。 服務(wù)器端接口定義介紹1). ServerLibrary_Intf單元詳細(xì)說(shuō)明：IServerService = interface [39。{33672D4B8A564B3284E807D1664D5E1E}39。] procedure GetDataSet(const sSQL: String。 var BinData: Binary。 var sMsg: String)。 procedure GetDataSetObj(const pDTO: TDataTransferObject。 var BinData: Binary。 var sMsg: String)。 procedure GetDataSetObjEx(const pDTO: TDataTransferObject。 const sSQL: String。 var BinData: Binary。 var sMsg: String)。 function GetDataTransObjList(const pDTO: TDataTransferObject。 var sMsg: String): TDataTransferObjectList。 function GetDataTransObjListEx(const pDTO: TDataTransferObject。 const sSQL: String。 var sMsg: String): TDataTransferObjectList。 procedure ExecuteData(const sSQL: String。 var bFlag: Boolean。 var sMsg: String)。 procedure ExecuteDataList(const sSQL: Variant。 var bFlag: Boolean。 var sMsg: String)。 procedure ExecuteDataTransObj(const pDTO: TDataTransferObject。 var bFlag: Boolean。 var sMsg: String)。 procedure ExecuteDataTransObjEx(const pDTO: TDataTransferObject。 const sSQL: String。 var bFlag: Boolean。 var sMsg: String)。 procedure ExecuteDataTransObjList(const pDTOList: TDataTransferObjectList。 var bFlag: Boolean。 var sMsg: String)。 end。 TServerService_Proxy = class(TROProxy, IServerService) protected function __GetInterfaceName:string。 override。 procedure GetDataSet(const sSQL: String。 var BinData: Binary。 var sMsg: String)。 procedure GetDataSetObj(const pDTO: TDataTransferObject。 var BinData: Binary。 var sMsg: String)。 procedure GetDataSetObjEx(const pDTO: TDataTransferObject。 const sSQL: String。 var BinData: Binary。 var sMsg: String)。 function GetDataTransObjList(const pDTO: TDataTransferObject。 var sMsg: String): TDataTransferObjectList。 function GetDataTransObjListEx(const pDTO: TDataTransferObject。 const sSQL: String。 var sMsg: String): TDataTransferObjectList。 procedure ExecuteData(const sSQL: String。 var bFlag: Boolean。 var sMsg: String)。 procedure ExecuteDataList(const sSQL: Variant。 var bFlag: Boolean。 var sMsg: String)。 procedure ExecuteDataTransObj(const pDTO: TDataTransferObject。 var bFlag: Boolean。 var sMsg: String)。 procedure ExecuteDataTransObjEx(const pD