【正文】 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。解釋說明：TlocalDataPerWapper類：1. 借助TconnDataPerAdapter實現(xiàn)SQL底層操作。2. 借助DAOSQLWapper類解釋SQL語句。3. 采用大量的多態(tài)等方法，實現(xiàn)對象以及對象列表的插入，更新，刪除，瀏覽等操作（持久化能力）。4. 內部封裝了事務的處理。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): String。 overload。 function getDeleteSQLString(Const pDTOList: TDataTransferObjectList): TStringList。 overload。 constructor Create。 override。 destructor Destroy。 override。end。詳細說明：1. 該類實現(xiàn)了，對任意一個TdataTransferObject（數(shù)據(jù)傳輸對象）進行SQL解釋，動態(tài)取得一個對象的屬性，字段的能力。 最后可以動態(tài)的轉化成一條SQL語句（Select, Insert, Update, Delete）的能力。2. 采用多態(tài)，可以批量生成SQL語句列表。 自動生成源碼介紹MachineCode文件夾下源碼：1. 該文件夾下源碼都是由隨文檔發(fā)送的代碼生成工具生成，2. 這些類都是從TdataTransferObject派生，加入了序列化功能。3. 主鍵字段，會在Property 前加PK_標志。4. 創(chuàng)建對象時調用了InitDTOObject方法，初始化。5. 實現(xiàn)了TdataTransferObject里的虛方法IsEqual，作為判斷兩個Obj是否相等的關鍵。 默認生成的代碼，如果有主鍵，則通過主鍵映射的屬性就可比較，否則會全部屬性比較，如果全部相等，才算判定兩個obj相等。附：可根據(jù)情況，自己修改IsEqual，來判定兩個obj是否相等。 公共函數(shù)單元介紹1．uDataStructure 全局數(shù)據(jù)結構。2．uLogSrv全局日志類及單元。3．uPublicFunc全局公共函數(shù)單元。4．uResourceStr全局字符串單元。 服務器端接口定義介紹1). ServerLibrary_Intf單元詳細說明：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