ReportManagerDM.dfm 6.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264
  1. object Reports: TReports
  2. OldCreateOrder = False
  3. OnCreate = DataModuleCreate
  4. OnDestroy = DataModuleDestroy
  5. Left = 455
  6. Top = 350
  7. Height = 283
  8. Width = 280
  9. object cdsOnline: TClientDataSet
  10. Active = True
  11. Aggregates = <>
  12. FieldDefs = <
  13. item
  14. Name = 'ID'
  15. DataType = ftInteger
  16. end
  17. item
  18. Name = 'Category'
  19. DataType = ftString
  20. Size = 100
  21. end
  22. item
  23. Name = 'Name'
  24. DataType = ftString
  25. Size = 100
  26. end
  27. item
  28. Name = 'LocalVer'
  29. DataType = ftString
  30. Size = 20
  31. end
  32. item
  33. Name = 'State'
  34. DataType = ftString
  35. Size = 10
  36. end
  37. item
  38. Name = 'History'
  39. DataType = ftString
  40. Size = 10
  41. end
  42. item
  43. Name = 'NewestVer'
  44. DataType = ftString
  45. Size = 20
  46. end>
  47. IndexDefs = <>
  48. Params = <>
  49. StoreDefs = True
  50. Left = 112
  51. Top = 16
  52. Data = {
  53. CC0000009619E0BD010000001800000007000000000003000000CC0002494404
  54. 000100000000000843617465676F727901004900000001000557494454480200
  55. 02006400044E616D650100490000000100055749445448020002006400084C6F
  56. 63616C5665720100490000000100055749445448020002001400055374617465
  57. 0100490000000100055749445448020002000A0007486973746F727901004900
  58. 00000100055749445448020002000A00094E6577657374566572010049000000
  59. 01000557494454480200020014000000}
  60. object cdsOnlineID: TIntegerField
  61. FieldName = 'ID'
  62. end
  63. object cdsOnlineCategory: TStringField
  64. FieldName = 'Category'
  65. Size = 100
  66. end
  67. object cdsOnlineName: TStringField
  68. FieldName = 'Name'
  69. Size = 100
  70. end
  71. object cdsOnlineVer: TStringField
  72. FieldName = 'LocalVer'
  73. end
  74. object cdsOnlineState: TStringField
  75. FieldName = 'State'
  76. Size = 10
  77. end
  78. object cdsOnlineHistory: TStringField
  79. FieldName = 'History'
  80. Size = 10
  81. end
  82. object cdsOnlineNewest: TStringField
  83. FieldName = 'NewestVer'
  84. end
  85. end
  86. object cdsLocal: TClientDataSet
  87. Active = True
  88. Aggregates = <>
  89. FieldDefs = <
  90. item
  91. Name = 'ID'
  92. DataType = ftInteger
  93. end
  94. item
  95. Name = 'Category'
  96. DataType = ftString
  97. Size = 100
  98. end
  99. item
  100. Name = 'Name'
  101. DataType = ftString
  102. Size = 100
  103. end
  104. item
  105. Name = 'LocalVer'
  106. DataType = ftString
  107. Size = 20
  108. end
  109. item
  110. Name = 'State'
  111. DataType = ftString
  112. Size = 10
  113. end
  114. item
  115. Name = 'History'
  116. DataType = ftString
  117. Size = 10
  118. end
  119. item
  120. Name = 'NewestVer'
  121. DataType = ftString
  122. Size = 20
  123. end>
  124. IndexDefs = <>
  125. Params = <>
  126. StoreDefs = True
  127. Left = 32
  128. Top = 16
  129. Data = {
  130. CC0000009619E0BD010000001800000007000000000003000000CC0002494404
  131. 000100000000000843617465676F727901004900000001000557494454480200
  132. 02006400044E616D650100490000000100055749445448020002006400084C6F
  133. 63616C5665720100490000000100055749445448020002001400055374617465
  134. 0100490000000100055749445448020002000A0007486973746F727901004900
  135. 00000100055749445448020002000A00094E6577657374566572010049000000
  136. 01000557494454480200020014000000}
  137. object cdsLocalID: TIntegerField
  138. FieldName = 'ID'
  139. end
  140. object cdsLocalCategory: TStringField
  141. FieldName = 'Category'
  142. Size = 100
  143. end
  144. object cdsLocalName: TStringField
  145. FieldName = 'Name'
  146. Size = 100
  147. end
  148. object cdsLocalVer: TStringField
  149. FieldName = 'LocalVer'
  150. end
  151. object cdsLocalState: TStringField
  152. FieldName = 'State'
  153. Size = 10
  154. end
  155. object cdsLocalHistory: TStringField
  156. FieldName = 'History'
  157. Size = 10
  158. end
  159. object cdsLocalNewest: TStringField
  160. FieldName = 'NewestVer'
  161. end
  162. end
  163. object cdsCustom: TClientDataSet
  164. Active = True
  165. Aggregates = <>
  166. FieldDefs = <
  167. item
  168. Name = 'ID'
  169. DataType = ftInteger
  170. end
  171. item
  172. Name = 'Category'
  173. DataType = ftString
  174. Size = 100
  175. end
  176. item
  177. Name = 'Name'
  178. DataType = ftString
  179. Size = 100
  180. end
  181. item
  182. Name = 'LocalVer'
  183. DataType = ftString
  184. Size = 20
  185. end
  186. item
  187. Name = 'State'
  188. DataType = ftString
  189. Size = 10
  190. end
  191. item
  192. Name = 'History'
  193. DataType = ftString
  194. Size = 10
  195. end
  196. item
  197. Name = 'NewestVer'
  198. DataType = ftString
  199. Size = 20
  200. end>
  201. IndexDefs = <>
  202. Params = <>
  203. StoreDefs = True
  204. Left = 184
  205. Top = 16
  206. Data = {
  207. CC0000009619E0BD010000001800000007000000000003000000CC0002494404
  208. 000100000000000843617465676F727901004900000001000557494454480200
  209. 02006400044E616D650100490000000100055749445448020002006400084C6F
  210. 63616C5665720100490000000100055749445448020002001400055374617465
  211. 0100490000000100055749445448020002000A0007486973746F727901004900
  212. 00000100055749445448020002000A00094E6577657374566572010049000000
  213. 01000557494454480200020014000000}
  214. object cdsCustomID: TIntegerField
  215. FieldName = 'ID'
  216. end
  217. object cdsCustomCategory: TStringField
  218. FieldName = 'Category'
  219. Size = 100
  220. end
  221. object cdsCustomName: TStringField
  222. FieldName = 'Name'
  223. Size = 100
  224. end
  225. object cdsCustomLocalVer: TStringField
  226. FieldName = 'LocalVer'
  227. end
  228. object cdsCustomState: TStringField
  229. FieldName = 'State'
  230. Size = 10
  231. end
  232. object cdsCustomHistory: TStringField
  233. FieldName = 'History'
  234. Size = 10
  235. end
  236. object cdsCustomNewestVer: TStringField
  237. FieldName = 'NewestVer'
  238. end
  239. end
  240. object cdsTemp: TClientDataSet
  241. Aggregates = <>
  242. Params = <>
  243. Left = 80
  244. Top = 104
  245. end
  246. object cdsCode: TClientDataSet
  247. Active = True
  248. Aggregates = <>
  249. Params = <>
  250. Left = 160
  251. Top = 112
  252. Data = {
  253. 4F0000009619E0BD0100000018000000020000000000030000004F000750726F
  254. 6A656374010049000000010005574944544802000200640004436F6465010049
  255. 00000001000557494454480200020014000000}
  256. object cdsCodeProject: TStringField
  257. FieldName = 'Project'
  258. Size = 100
  259. end
  260. object cdsCodeCode: TStringField
  261. FieldName = 'Code'
  262. end
  263. end
  264. end