rmHaBaiCustomizedDm.dfm 11 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360
  1. object rmHaBaiCustomizedData: TrmHaBaiCustomizedData
  2. OldCreateOrder = False
  3. Left = 723
  4. Top = 455
  5. Height = 154
  6. Width = 339
  7. object cdsCustom2: TClientDataSet
  8. Active = True
  9. Aggregates = <>
  10. Params = <>
  11. Left = 32
  12. Top = 48
  13. Data = {
  14. E20000009619E0BD010000001800000009000000000003000000E20007436861
  15. 707465720400010000000000044E616D6501004A000000010005574944544802
  16. 000200C8000A546F74616C507269636508000400000000000B43546F74616C50
  17. 7269636508000400000000000B47546F74616C50726963650800040000000000
  18. 13456E64476174686572546F74616C5072696365080004000000000013507265
  19. 476174686572546F74616C507269636508000400000000001343757247617468
  20. 6572546F74616C507269636508000400000000000750657263656E7408000400
  21. 000000000000}
  22. object cdsCustom2Chapter: TIntegerField
  23. FieldName = 'Chapter'
  24. end
  25. object cdsCustom2Name: TWideStringField
  26. FieldName = 'Name'
  27. Size = 100
  28. end
  29. object cdsCustom2TotalPrice: TFloatField
  30. FieldName = 'TotalPrice'
  31. end
  32. object cdsCustom2CTotalPrice: TFloatField
  33. FieldName = 'CTotalPrice'
  34. end
  35. object cdsCustom2GTotalPrice: TFloatField
  36. FieldName = 'GTotalPrice'
  37. end
  38. object cdsCustom2EndGatherTotalPrice: TFloatField
  39. FieldName = 'EndGatherTotalPrice'
  40. end
  41. object cdsCustom2PreGatherTotalPrice: TFloatField
  42. FieldName = 'PreGatherTotalPrice'
  43. end
  44. object cdsCustom2CurGatherTotalPrice: TFloatField
  45. FieldName = 'CurGatherTotalPrice'
  46. end
  47. object cdsCustom2Percent: TFloatField
  48. FieldName = 'Percent'
  49. end
  50. end
  51. object cdsCustom3: TClientDataSet
  52. Active = True
  53. Aggregates = <>
  54. IndexFieldNames = 'ChapterID;InnerPartID;IndexCode'
  55. Params = <>
  56. Left = 104
  57. Top = 48
  58. Data = {
  59. 900100009619E0BD010000001800000010000000000003000000900109436861
  60. 70746572494404000100000000000B496E6E6572506172744944040001000000
  61. 000009496E646578436F64650100490000000100055749445448020002003200
  62. 06425F436F646501004A0000000100055749445448020002006400044E616D65
  63. 02004A000000010005574944544802000200900105556E69747301004A000000
  64. 0100055749445448020002002800055072696365080004000000000008517561
  65. 6E7469747908000400000000000A546F74616C50726963650800040000000000
  66. 115072654761746865725175616E746974790800040000000000135072654761
  67. 74686572546F74616C5072696365080004000000000011456E64476174686572
  68. 5175616E74697479080004000000000013456E64476174686572546F74616C50
  69. 726963650800040000000000114375724761746865725175616E746974790800
  70. 04000000000013437572476174686572546F74616C5072696365080004000000
  71. 00000750657263656E7408000400000000000000}
  72. object cdsCustom3ChapterID: TIntegerField
  73. FieldName = 'ChapterID'
  74. end
  75. object cdsCustom3InnerPartID: TIntegerField
  76. FieldName = 'InnerPartID'
  77. end
  78. object cdsCustom3IndexCode: TStringField
  79. FieldName = 'IndexCode'
  80. Size = 50
  81. end
  82. object cdsCustom3B_Code: TWideStringField
  83. FieldName = 'B_Code'
  84. Size = 50
  85. end
  86. object cdsCustom3Name: TWideStringField
  87. FieldName = 'Name'
  88. Size = 200
  89. end
  90. object cdsCustom3Units: TWideStringField
  91. FieldName = 'Units'
  92. end
  93. object cdsCustom3Price: TFloatField
  94. FieldName = 'Price'
  95. end
  96. object cdsCustom3Quantity: TFloatField
  97. FieldName = 'Quantity'
  98. end
  99. object cdsCustom3TotalPrice: TFloatField
  100. FieldName = 'TotalPrice'
  101. end
  102. object cdsCustom3PreGatherQuantity: TFloatField
  103. FieldName = 'PreGatherQuantity'
  104. end
  105. object cdsCustom3PreGatherTotalPrice: TFloatField
  106. FieldName = 'PreGatherTotalPrice'
  107. end
  108. object cdsCustom3EndGatherQuantity: TFloatField
  109. FieldName = 'EndGatherQuantity'
  110. end
  111. object cdsCustom3EndGatherTotalPrice: TFloatField
  112. FieldName = 'EndGatherTotalPrice'
  113. end
  114. object cdsCustom3CurGatherQuantity: TFloatField
  115. FieldName = 'CurGatherQuantity'
  116. end
  117. object cdsCustom3CurGatherTotalPrice: TFloatField
  118. FieldName = 'CurGatherTotalPrice'
  119. end
  120. object cdsCustom3Percent: TFloatField
  121. FieldName = 'Percent'
  122. end
  123. end
  124. object cdsCustom14: TClientDataSet
  125. Active = True
  126. Aggregates = <>
  127. IndexFieldNames = 'IndexCode'
  128. Params = <>
  129. Left = 176
  130. Top = 48
  131. Data = {
  132. DC0000009619E0BD010000001800000008000000000003000000DC0009496E64
  133. 6578436F646501004A000000010005574944544802000200640006425F436F64
  134. 6501004A0000000100055749445448020002006400044E616D6502004A000000
  135. 010005574944544802000200900105556E69747301004A000000010005574944
  136. 54480200020028000550726963650800040000000000085175616E7469747908
  137. 000400000000000A546F74616C507269636508000400000000000F4365727469
  138. 666963617465436F646501004A00000001000557494454480200020064000000}
  139. object cdsCustom14IndexCode: TWideStringField
  140. FieldName = 'IndexCode'
  141. Size = 50
  142. end
  143. object cdsCustom14B_Code: TWideStringField
  144. FieldName = 'B_Code'
  145. Size = 50
  146. end
  147. object cdsCustom14Name: TWideStringField
  148. FieldName = 'Name'
  149. Size = 200
  150. end
  151. object cdsCustom14Units: TWideStringField
  152. FieldName = 'Units'
  153. end
  154. object cdsCustom14Price: TFloatField
  155. FieldName = 'Price'
  156. end
  157. object cdsCustom14Quantity: TFloatField
  158. FieldName = 'Quantity'
  159. end
  160. object cdsCustom14TotalPrice: TFloatField
  161. FieldName = 'TotalPrice'
  162. end
  163. object cdsCustom14CertificateCode: TWideStringField
  164. FieldName = 'CertificateCode'
  165. Size = 50
  166. end
  167. end
  168. object cdsCustomProj: TClientDataSet
  169. Active = True
  170. Aggregates = <>
  171. FieldDefs = <
  172. item
  173. Name = 'ProjectID'
  174. DataType = ftInteger
  175. end
  176. item
  177. Name = 'ProjectName'
  178. DataType = ftWideString
  179. Size = 200
  180. end
  181. item
  182. Name = 'ChapterID'
  183. DataType = ftInteger
  184. end
  185. item
  186. Name = 'InnerPartID'
  187. DataType = ftInteger
  188. end
  189. item
  190. Name = 'IndexCode'
  191. DataType = ftWideString
  192. Size = 50
  193. end
  194. item
  195. Name = 'B_Code'
  196. DataType = ftWideString
  197. Size = 50
  198. end
  199. item
  200. Name = 'Name'
  201. DataType = ftWideString
  202. Size = 200
  203. end
  204. item
  205. Name = 'Units'
  206. DataType = ftWideString
  207. Size = 20
  208. end
  209. item
  210. Name = 'Price'
  211. DataType = ftFloat
  212. end
  213. item
  214. Name = 'Quantity'
  215. DataType = ftFloat
  216. end
  217. item
  218. Name = 'TotalPrice'
  219. DataType = ftFloat
  220. end
  221. item
  222. Name = 'CurGatherQuantity'
  223. DataType = ftFloat
  224. end
  225. item
  226. Name = 'CurGatherTotalPrice'
  227. DataType = ftFloat
  228. end
  229. item
  230. Name = 'EndGatherQuantity'
  231. DataType = ftFloat
  232. end
  233. item
  234. Name = 'EndGatherTotalPrice'
  235. DataType = ftFloat
  236. end
  237. item
  238. Name = 'P_CurGatherQuantity'
  239. DataType = ftFloat
  240. end
  241. item
  242. Name = 'P_CurGatherTotalPrice'
  243. DataType = ftFloat
  244. end
  245. item
  246. Name = 'P_EndGatherQuantity'
  247. DataType = ftFloat
  248. end
  249. item
  250. Name = 'P_EndGatherTotalPrice'
  251. DataType = ftFloat
  252. end
  253. item
  254. Name = 'CurPercent'
  255. DataType = ftFloat
  256. end
  257. item
  258. Name = 'EndPercent'
  259. DataType = ftFloat
  260. end>
  261. IndexDefs = <
  262. item
  263. Name = 'DEFAULT_ORDER'
  264. end
  265. item
  266. Name = 'CHANGEINDEX'
  267. end>
  268. IndexFieldNames = 'ProjectID;ChapterID;InnerPartID;IndexCode'
  269. Params = <>
  270. StoreDefs = True
  271. Left = 264
  272. Top = 48
  273. Data = {
  274. 2C0200009619E0BD0100000018000000150000000000030000002C020950726F
  275. 6A656374494404000100000000000B50726F6A6563744E616D6502004A000000
  276. 0100055749445448020002009001094368617074657249440400010000000000
  277. 0B496E6E6572506172744944040001000000000009496E646578436F64650100
  278. 4A000000010005574944544802000200640006425F436F646501004A00000001
  279. 00055749445448020002006400044E616D6502004A0000000100055749445448
  280. 02000200900105556E69747301004A0000000100055749445448020002002800
  281. 0550726963650800040000000000085175616E7469747908000400000000000A
  282. 546F74616C50726963650800040000000000114375724761746865725175616E
  283. 74697479080004000000000013437572476174686572546F74616C5072696365
  284. 080004000000000011456E644761746865725175616E74697479080004000000
  285. 000013456E64476174686572546F74616C507269636508000400000000001350
  286. 5F4375724761746865725175616E74697479080004000000000015505F437572
  287. 476174686572546F74616C5072696365080004000000000013505F456E644761
  288. 746865725175616E74697479080004000000000015505F456E64476174686572
  289. 546F74616C507269636508000400000000000A43757250657263656E74080004
  290. 00000000000A456E6450657263656E74080004000000000001000D4445464155
  291. 4C545F4F524445520200820000000000}
  292. object cdsCustomProjProjectID: TIntegerField
  293. FieldName = 'ProjectID'
  294. end
  295. object cdsCustomProjProjectName: TWideStringField
  296. FieldName = 'ProjectName'
  297. Size = 200
  298. end
  299. object cdsCustomProjChapterID: TIntegerField
  300. FieldName = 'ChapterID'
  301. end
  302. object cdsCustomProjInnerPartID: TIntegerField
  303. FieldName = 'InnerPartID'
  304. end
  305. object cdsCustomProjIndexCode: TWideStringField
  306. FieldName = 'IndexCode'
  307. Size = 50
  308. end
  309. object cdsCustomProjB_Code: TWideStringField
  310. FieldName = 'B_Code'
  311. Size = 50
  312. end
  313. object cdsCustomProjName: TWideStringField
  314. FieldName = 'Name'
  315. Size = 200
  316. end
  317. object cdsCustomProjUnits: TWideStringField
  318. FieldName = 'Units'
  319. end
  320. object cdsCustomProjPrice: TFloatField
  321. FieldName = 'Price'
  322. end
  323. object cdsCustomProjQuantity: TFloatField
  324. FieldName = 'Quantity'
  325. end
  326. object cdsCustomProjTotalPrice: TFloatField
  327. FieldName = 'TotalPrice'
  328. end
  329. object cdsCustomProjCurGatherQuantity: TFloatField
  330. FieldName = 'CurGatherQuantity'
  331. end
  332. object cdsCustomProjCurGatherTotalPrice: TFloatField
  333. FieldName = 'CurGatherTotalPrice'
  334. end
  335. object cdsCustomProjEndGatherQuantity: TFloatField
  336. FieldName = 'EndGatherQuantity'
  337. end
  338. object cdsCustomProjEndGatherTotalPrice: TFloatField
  339. FieldName = 'EndGatherTotalPrice'
  340. end
  341. object cdsCustomProjP_CurGatherQuantity: TFloatField
  342. FieldName = 'P_CurGatherQuantity'
  343. end
  344. object cdsCustomProjP_CurGatherTotalPrice: TFloatField
  345. FieldName = 'P_CurGatherTotalPrice'
  346. end
  347. object cdsCustomProjP_EndGatherQuantity: TFloatField
  348. FieldName = 'P_EndGatherQuantity'
  349. end
  350. object cdsCustomProjP_EndGatherTotalPrice: TFloatField
  351. FieldName = 'P_EndGatherTotalPrice'
  352. end
  353. object cdsCustomProjCurPercent: TFloatField
  354. FieldName = 'CurPercent'
  355. end
  356. object cdsCustomProjEndPercent: TFloatField
  357. FieldName = 'EndPercent'
  358. end
  359. end
  360. end