rmHaBaiCustomizedDm.dfm 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432
  1. object rmHaBaiCustomizedData: TrmHaBaiCustomizedData
  2. OldCreateOrder = False
  3. Left = 723
  4. Top = 455
  5. Height = 222
  6. Width = 337
  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. item
  262. Name = 'SerialNo'
  263. DataType = ftInteger
  264. end>
  265. IndexDefs = <>
  266. IndexFieldNames = 'ProjectID;ChapterID;InnerPartID;IndexCode'
  267. Params = <>
  268. StoreDefs = True
  269. Left = 264
  270. Top = 48
  271. Data = {
  272. 270200009619E0BD01000000180000001600000000000300000027020950726F
  273. 6A656374494404000100000000000B50726F6A6563744E616D6502004A000000
  274. 0100055749445448020002009001094368617074657249440400010000000000
  275. 0B496E6E6572506172744944040001000000000009496E646578436F64650100
  276. 4A000000010005574944544802000200640006425F436F646501004A00000001
  277. 00055749445448020002006400044E616D6502004A0000000100055749445448
  278. 02000200900105556E69747301004A0000000100055749445448020002002800
  279. 0550726963650800040000000000085175616E7469747908000400000000000A
  280. 546F74616C50726963650800040000000000114375724761746865725175616E
  281. 74697479080004000000000013437572476174686572546F74616C5072696365
  282. 080004000000000011456E644761746865725175616E74697479080004000000
  283. 000013456E64476174686572546F74616C507269636508000400000000001350
  284. 5F4375724761746865725175616E74697479080004000000000015505F437572
  285. 476174686572546F74616C5072696365080004000000000013505F456E644761
  286. 746865725175616E74697479080004000000000015505F456E64476174686572
  287. 546F74616C507269636508000400000000000A43757250657263656E74080004
  288. 00000000000A456E6450657263656E7408000400000000000853657269616C4E
  289. 6F04000100000000000000}
  290. object cdsCustomProjProjectID: TIntegerField
  291. FieldName = 'ProjectID'
  292. end
  293. object cdsCustomProjProjectName: TWideStringField
  294. FieldName = 'ProjectName'
  295. Size = 200
  296. end
  297. object cdsCustomProjChapterID: TIntegerField
  298. FieldName = 'ChapterID'
  299. end
  300. object cdsCustomProjInnerPartID: TIntegerField
  301. FieldName = 'InnerPartID'
  302. end
  303. object cdsCustomProjIndexCode: TWideStringField
  304. FieldName = 'IndexCode'
  305. Size = 50
  306. end
  307. object cdsCustomProjB_Code: TWideStringField
  308. FieldName = 'B_Code'
  309. Size = 50
  310. end
  311. object cdsCustomProjName: TWideStringField
  312. FieldName = 'Name'
  313. Size = 200
  314. end
  315. object cdsCustomProjUnits: TWideStringField
  316. FieldName = 'Units'
  317. end
  318. object cdsCustomProjPrice: TFloatField
  319. FieldName = 'Price'
  320. end
  321. object cdsCustomProjQuantity: TFloatField
  322. FieldName = 'Quantity'
  323. end
  324. object cdsCustomProjTotalPrice: TFloatField
  325. FieldName = 'TotalPrice'
  326. end
  327. object cdsCustomProjCurGatherQuantity: TFloatField
  328. FieldName = 'CurGatherQuantity'
  329. end
  330. object cdsCustomProjCurGatherTotalPrice: TFloatField
  331. FieldName = 'CurGatherTotalPrice'
  332. end
  333. object cdsCustomProjEndGatherQuantity: TFloatField
  334. FieldName = 'EndGatherQuantity'
  335. end
  336. object cdsCustomProjEndGatherTotalPrice: TFloatField
  337. FieldName = 'EndGatherTotalPrice'
  338. end
  339. object cdsCustomProjP_CurGatherQuantity: TFloatField
  340. FieldName = 'P_CurGatherQuantity'
  341. end
  342. object cdsCustomProjP_CurGatherTotalPrice: TFloatField
  343. FieldName = 'P_CurGatherTotalPrice'
  344. end
  345. object cdsCustomProjP_EndGatherQuantity: TFloatField
  346. FieldName = 'P_EndGatherQuantity'
  347. end
  348. object cdsCustomProjP_EndGatherTotalPrice: TFloatField
  349. FieldName = 'P_EndGatherTotalPrice'
  350. end
  351. object cdsCustomProjCurPercent: TFloatField
  352. FieldName = 'CurPercent'
  353. end
  354. object cdsCustomProjEndPercent: TFloatField
  355. FieldName = 'EndPercent'
  356. end
  357. object cdsCustomProjSerialNo: TIntegerField
  358. FieldName = 'SerialNo'
  359. end
  360. end
  361. object cdsCustomCS_1: TClientDataSet
  362. Active = True
  363. Aggregates = <>
  364. Params = <>
  365. Left = 32
  366. Top = 120
  367. Data = {
  368. 900000009619E0BD01000000180000000400000000000300000090000B50756C
  369. 735061794E616D6502004A00000001000557494454480200020090011150756C
  370. 73506179546F74616C507269636508000400000000000C4D696E75735061794E
  371. 616D6502004A0000000100055749445448020002009001124D696E7573506179
  372. 546F74616C507269636508000400000000000000}
  373. object cdsCustomCS_1PulsPayName: TWideStringField
  374. FieldName = 'PulsPayName'
  375. Size = 200
  376. end
  377. object cdsCustomCS_1PulsPayTotalPrice: TFloatField
  378. FieldName = 'PulsPayTotalPrice'
  379. end
  380. object cdsCustomCS_1MinusPayName: TWideStringField
  381. FieldName = 'MinusPayName'
  382. Size = 200
  383. end
  384. object cdsCustomCS_1MinusPayTotalPrice: TFloatField
  385. FieldName = 'MinusPayTotalPrice'
  386. end
  387. end
  388. object cdsCustomCS_2: TClientDataSet
  389. Active = True
  390. Aggregates = <>
  391. FieldDefs = <
  392. item
  393. Name = 'DealTotalPrice'
  394. DataType = ftFloat
  395. end
  396. item
  397. Name = 'EndCompleteTotalPrice'
  398. DataType = ftFloat
  399. end
  400. item
  401. Name = 'PreCompleteTotalPrice'
  402. DataType = ftFloat
  403. end
  404. item
  405. Name = 'CurPayTotalPrice'
  406. DataType = ftFloat
  407. end>
  408. IndexDefs = <>
  409. Params = <>
  410. StoreDefs = True
  411. Left = 120
  412. Top = 120
  413. Data = {
  414. 860000009619E0BD01000000180000000400000000000300000086000E446561
  415. 6C546F74616C5072696365080004000000000015456E64436F6D706C65746554
  416. 6F74616C5072696365080004000000000015507265436F6D706C657465546F74
  417. 616C5072696365080004000000000010437572506179546F74616C5072696365
  418. 08000400000000000000}
  419. object cdsCustomCS_2DealTotalPrice: TFloatField
  420. FieldName = 'DealTotalPrice'
  421. end
  422. object cdsCustomCS_2EndCompleteTotalPrice: TFloatField
  423. FieldName = 'EndCompleteTotalPrice'
  424. end
  425. object cdsCustomCS_2PreCompleteTotalPrice: TFloatField
  426. FieldName = 'PreCompleteTotalPrice'
  427. end
  428. object cdsCustomCS_2CurPayTotalPrice: TFloatField
  429. FieldName = 'CurPayTotalPrice'
  430. end
  431. end
  432. end