BillsGatherDm.dfm 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471
  1. object BillsGatherData: TBillsGatherData
  2. OldCreateOrder = False
  3. Left = 571
  4. Top = 314
  5. Height = 207
  6. Width = 215
  7. object cdsBillsGather: TClientDataSet
  8. Active = True
  9. Aggregates = <>
  10. FieldDefs = <
  11. item
  12. Name = 'B_Code'
  13. DataType = ftString
  14. Size = 50
  15. end
  16. item
  17. Name = 'IndexCode'
  18. DataType = ftString
  19. Size = 50
  20. end
  21. item
  22. Name = 'Name'
  23. DataType = ftWideString
  24. Size = 200
  25. end
  26. item
  27. Name = 'Units'
  28. DataType = ftWideString
  29. Size = 20
  30. end
  31. item
  32. Name = 'Price'
  33. DataType = ftFloat
  34. end
  35. item
  36. Name = 'NewPrice'
  37. DataType = ftFloat
  38. end
  39. item
  40. Name = 'DealQuantity'
  41. DataType = ftFloat
  42. end
  43. item
  44. Name = 'DealTotalPrice'
  45. DataType = ftFloat
  46. end
  47. item
  48. Name = 'Quantity'
  49. DataType = ftFloat
  50. end
  51. item
  52. Name = 'TotalPrice'
  53. DataType = ftFloat
  54. end
  55. item
  56. Name = 'CurDealQuantity'
  57. DataType = ftFloat
  58. end
  59. item
  60. Name = 'CurDealTotalPrice'
  61. DataType = ftFloat
  62. end
  63. item
  64. Name = 'CurQcQuantity'
  65. DataType = ftFloat
  66. end
  67. item
  68. Name = 'CurQcTotalPrice'
  69. DataType = ftFloat
  70. end
  71. item
  72. Name = 'CurPcQuantity'
  73. DataType = ftFloat
  74. end
  75. item
  76. Name = 'CurPcTotalPrice'
  77. DataType = ftFloat
  78. end
  79. item
  80. Name = 'CurGatherQuantity'
  81. DataType = ftFloat
  82. end
  83. item
  84. Name = 'CurGatherTotalPrice'
  85. DataType = ftFloat
  86. end
  87. item
  88. Name = 'AddDealQuantity'
  89. DataType = ftFloat
  90. end
  91. item
  92. Name = 'AddDealTotalPrice'
  93. DataType = ftFloat
  94. end
  95. item
  96. Name = 'AddQcQuantity'
  97. DataType = ftFloat
  98. end
  99. item
  100. Name = 'AddQcTotalPrice'
  101. DataType = ftFloat
  102. end
  103. item
  104. Name = 'AddPcQuantity'
  105. DataType = ftFloat
  106. end
  107. item
  108. Name = 'AddPcTotalPrice'
  109. DataType = ftFloat
  110. end
  111. item
  112. Name = 'AddGatherQuantity'
  113. DataType = ftFloat
  114. end
  115. item
  116. Name = 'AddGatherTotalPrice'
  117. DataType = ftFloat
  118. end
  119. item
  120. Name = 'EndDealQuantity'
  121. DataType = ftFloat
  122. end
  123. item
  124. Name = 'EndDealTotalPrice'
  125. DataType = ftFloat
  126. end
  127. item
  128. Name = 'EndQcQuantity'
  129. DataType = ftFloat
  130. end
  131. item
  132. Name = 'EndQcTotalPrice'
  133. DataType = ftFloat
  134. end
  135. item
  136. Name = 'EndPcQuantity'
  137. DataType = ftFloat
  138. end
  139. item
  140. Name = 'EndPcTotalPrice'
  141. DataType = ftFloat
  142. end
  143. item
  144. Name = 'EndGatherQuantity'
  145. DataType = ftFloat
  146. end
  147. item
  148. Name = 'EndGatherTotalPrice'
  149. DataType = ftFloat
  150. end
  151. item
  152. Name = 'BGLQuantity'
  153. DataType = ftFloat
  154. end
  155. item
  156. Name = 'BGLTotalPrice'
  157. DataType = ftFloat
  158. end
  159. item
  160. Name = 'Deal_BGLQuantity'
  161. DataType = ftFloat
  162. end
  163. item
  164. Name = 'Deal_BGLTotalPrice'
  165. DataType = ftFloat
  166. end
  167. item
  168. Name = 'CompletionRate'
  169. DataType = ftFloat
  170. end>
  171. IndexDefs = <>
  172. Params = <>
  173. StoreDefs = True
  174. AfterScroll = cdsBillsGatherAfterScroll
  175. Left = 64
  176. Top = 16
  177. Data = {
  178. B60300009619E0BD010000001800000027000000000003000000B60306425F43
  179. 6F6465010049000000010005574944544802000200320009496E646578436F64
  180. 650100490000000100055749445448020002003200044E616D6502004A000000
  181. 010005574944544802000200900105556E69747301004A000000010005574944
  182. 54480200020028000550726963650800040000000000084E6577507269636508
  183. 000400000000000C4465616C5175616E7469747908000400000000000E446561
  184. 6C546F74616C50726963650800040000000000085175616E7469747908000400
  185. 000000000A546F74616C507269636508000400000000000F4375724465616C51
  186. 75616E746974790800040000000000114375724465616C546F74616C50726963
  187. 6508000400000000000D43757251635175616E7469747908000400000000000F
  188. 4375725163546F74616C507269636508000400000000000D4375725063517561
  189. 6E7469747908000400000000000F4375725063546F74616C5072696365080004
  190. 0000000000114375724761746865725175616E74697479080004000000000013
  191. 437572476174686572546F74616C507269636508000400000000000F41646444
  192. 65616C5175616E746974790800040000000000114164644465616C546F74616C
  193. 507269636508000400000000000D41646451635175616E746974790800040000
  194. 0000000F4164645163546F74616C507269636508000400000000000D41646450
  195. 635175616E7469747908000400000000000F4164645063546F74616C50726963
  196. 650800040000000000114164644761746865725175616E746974790800040000
  197. 00000013416464476174686572546F74616C507269636508000400000000000F
  198. 456E644465616C5175616E74697479080004000000000011456E644465616C54
  199. 6F74616C507269636508000400000000000D456E6451635175616E7469747908
  200. 000400000000000F456E645163546F74616C507269636508000400000000000D
  201. 456E6450635175616E7469747908000400000000000F456E645063546F74616C
  202. 5072696365080004000000000011456E644761746865725175616E7469747908
  203. 0004000000000013456E64476174686572546F74616C50726963650800040000
  204. 0000000B42474C5175616E7469747908000400000000000D42474C546F74616C
  205. 50726963650800040000000000104465616C5F42474C5175616E746974790800
  206. 040000000000124465616C5F42474C546F74616C507269636508000400000000
  207. 000E436F6D706C6574696F6E5261746508000400000000000000}
  208. object cdsBillsGatherB_Code: TStringField
  209. FieldName = 'B_Code'
  210. Size = 50
  211. end
  212. object cdsBillsGatherIndexCode: TStringField
  213. DisplayWidth = 50
  214. FieldName = 'IndexCode'
  215. Size = 50
  216. end
  217. object cdsBillsGatherName: TWideStringField
  218. FieldName = 'Name'
  219. Size = 200
  220. end
  221. object cdsBillsGatherUnits: TWideStringField
  222. FieldName = 'Units'
  223. end
  224. object cdsBillsGatherPrice: TFloatField
  225. FieldName = 'Price'
  226. OnGetText = cdsBillsGatherQuantityGetText
  227. end
  228. object cdsBillsGatherNewPrice: TFloatField
  229. FieldName = 'NewPrice'
  230. OnGetText = cdsBillsGatherQuantityGetText
  231. end
  232. object cdsBillsGatherDealQuantity: TFloatField
  233. FieldName = 'DealQuantity'
  234. OnGetText = cdsBillsGatherQuantityGetText
  235. end
  236. object cdsBillsGatherDealTotalPrice: TFloatField
  237. FieldName = 'DealTotalPrice'
  238. OnGetText = cdsBillsGatherQuantityGetText
  239. end
  240. object cdsBillsGatherQuantity: TFloatField
  241. FieldName = 'Quantity'
  242. OnGetText = cdsBillsGatherQuantityGetText
  243. end
  244. object cdsBillsGatherTotalPrice: TFloatField
  245. FieldName = 'TotalPrice'
  246. OnGetText = cdsBillsGatherQuantityGetText
  247. end
  248. object cdsBillsGatherCurDealQuantity: TFloatField
  249. FieldName = 'CurDealQuantity'
  250. OnGetText = cdsBillsGatherQuantityGetText
  251. end
  252. object cdsBillsGatherCurDealTotalPrice: TFloatField
  253. FieldName = 'CurDealTotalPrice'
  254. OnGetText = cdsBillsGatherQuantityGetText
  255. end
  256. object cdsBillsGatherCurQcQuantity: TFloatField
  257. FieldName = 'CurQcQuantity'
  258. OnGetText = cdsBillsGatherQuantityGetText
  259. end
  260. object cdsBillsGatherCurQcTotalPrice: TFloatField
  261. FieldName = 'CurQcTotalPrice'
  262. OnGetText = cdsBillsGatherQuantityGetText
  263. end
  264. object cdsBillsGatherCurPcQuantity: TFloatField
  265. FieldName = 'CurPcQuantity'
  266. OnGetText = cdsBillsGatherQuantityGetText
  267. end
  268. object cdsBillsGatherCurPcTotalPrice: TFloatField
  269. FieldName = 'CurPcTotalPrice'
  270. OnGetText = cdsBillsGatherQuantityGetText
  271. end
  272. object cdsBillsGatherCurGatherQuantity: TFloatField
  273. FieldName = 'CurGatherQuantity'
  274. OnGetText = cdsBillsGatherQuantityGetText
  275. end
  276. object cdsBillsGatherCurGatherTotalPrice: TFloatField
  277. FieldName = 'CurGatherTotalPrice'
  278. OnGetText = cdsBillsGatherQuantityGetText
  279. end
  280. object cdsBillsGatherAddDealQuantity: TFloatField
  281. FieldName = 'AddDealQuantity'
  282. OnGetText = cdsBillsGatherQuantityGetText
  283. end
  284. object cdsBillsGatherAddDealTotalPrice: TFloatField
  285. FieldName = 'AddDealTotalPrice'
  286. OnGetText = cdsBillsGatherQuantityGetText
  287. end
  288. object cdsBillsGatherAddQcQuantity: TFloatField
  289. FieldName = 'AddQcQuantity'
  290. OnGetText = cdsBillsGatherQuantityGetText
  291. end
  292. object cdsBillsGatherAddQcTotalPrice: TFloatField
  293. FieldName = 'AddQcTotalPrice'
  294. OnGetText = cdsBillsGatherQuantityGetText
  295. end
  296. object cdsBillsGatherAddPcQuantity: TFloatField
  297. FieldName = 'AddPcQuantity'
  298. OnGetText = cdsBillsGatherQuantityGetText
  299. end
  300. object cdsBillsGatherAddPcTotalPrice: TFloatField
  301. FieldName = 'AddPcTotalPrice'
  302. OnGetText = cdsBillsGatherQuantityGetText
  303. end
  304. object cdsBillsGatherAddGatherQuantity: TFloatField
  305. FieldName = 'AddGatherQuantity'
  306. OnGetText = cdsBillsGatherQuantityGetText
  307. end
  308. object cdsBillsGatherAddGatherTotalPrice: TFloatField
  309. FieldName = 'AddGatherTotalPrice'
  310. OnGetText = cdsBillsGatherQuantityGetText
  311. end
  312. object cdsBillsGatherEndDealQuantity: TFloatField
  313. FieldName = 'EndDealQuantity'
  314. OnGetText = cdsBillsGatherQuantityGetText
  315. end
  316. object cdsBillsGatherEndDealTotalPrice: TFloatField
  317. FieldName = 'EndDealTotalPrice'
  318. OnGetText = cdsBillsGatherQuantityGetText
  319. end
  320. object cdsBillsGatherEndQcQuantity: TFloatField
  321. FieldName = 'EndQcQuantity'
  322. OnGetText = cdsBillsGatherQuantityGetText
  323. end
  324. object cdsBillsGatherEndQcTotalPrice: TFloatField
  325. FieldName = 'EndQcTotalPrice'
  326. OnGetText = cdsBillsGatherQuantityGetText
  327. end
  328. object cdsBillsGatherEndPcQuantity: TFloatField
  329. FieldName = 'EndPcQuantity'
  330. OnGetText = cdsBillsGatherQuantityGetText
  331. end
  332. object cdsBillsGatherEndPcTotalPrice: TFloatField
  333. FieldName = 'EndPcTotalPrice'
  334. OnGetText = cdsBillsGatherQuantityGetText
  335. end
  336. object cdsBillsGatherEndGatherQuantity: TFloatField
  337. FieldName = 'EndGatherQuantity'
  338. OnGetText = cdsBillsGatherQuantityGetText
  339. end
  340. object cdsBillsGatherEndGatherTotalPrice: TFloatField
  341. FieldName = 'EndGatherTotalPrice'
  342. OnGetText = cdsBillsGatherQuantityGetText
  343. end
  344. object cdsBillsGatherBGLQuantity: TFloatField
  345. FieldName = 'BGLQuantity'
  346. end
  347. object cdsBillsGatherBGLTotalPrice: TFloatField
  348. FieldName = 'BGLTotalPrice'
  349. end
  350. object cdsBillsGatherDeal_BGLQuantity: TFloatField
  351. FieldName = 'Deal_BGLQuantity'
  352. OnGetText = cdsBillsGatherQuantityGetText
  353. end
  354. object cdsBillsGatherDeal_BGLTotalPrice: TFloatField
  355. FieldName = 'Deal_BGLTotalPrice'
  356. OnGetText = cdsBillsGatherQuantityGetText
  357. end
  358. object cdsBillsGatherCompletionRate: TFloatField
  359. FieldName = 'CompletionRate'
  360. end
  361. end
  362. object cdsRelaXmj: TClientDataSet
  363. Active = True
  364. Aggregates = <>
  365. FieldDefs = <
  366. item
  367. Name = 'Code'
  368. DataType = ftString
  369. Size = 50
  370. end
  371. item
  372. Name = 'Peg'
  373. DataType = ftWideString
  374. Size = 200
  375. end
  376. item
  377. Name = 'Name'
  378. DataType = ftWideString
  379. Size = 200
  380. end
  381. item
  382. Name = 'Units'
  383. DataType = ftWideString
  384. Size = 20
  385. end
  386. item
  387. Name = 'Quantity'
  388. DataType = ftFloat
  389. end
  390. item
  391. Name = 'NameDanWei'
  392. DataType = ftWideString
  393. Size = 200
  394. end
  395. item
  396. Name = 'NameFenBu'
  397. DataType = ftWideString
  398. Size = 200
  399. end
  400. item
  401. Name = 'NameFenXiang'
  402. DataType = ftWideString
  403. Size = 200
  404. end
  405. item
  406. Name = 'NameUnit'
  407. DataType = ftWideString
  408. Size = 200
  409. end
  410. item
  411. Name = 'DrawingCode'
  412. DataType = ftWideString
  413. Size = 50
  414. end>
  415. IndexDefs = <>
  416. Params = <>
  417. StoreDefs = True
  418. Left = 64
  419. Top = 88
  420. Data = {
  421. 2A0100009619E0BD01000000180000000A0000000000030000002A0104436F64
  422. 6501004900000001000557494454480200020032000350656702004A00000001
  423. 00055749445448020002009001044E616D6502004A0000000100055749445448
  424. 02000200900105556E69747301004A0000000100055749445448020002002800
  425. 085175616E7469747908000400000000000A4E616D6544616E57656902004A00
  426. 00000100055749445448020002009001094E616D6546656E427502004A000000
  427. 01000557494454480200020090010C4E616D6546656E5869616E6702004A0000
  428. 000100055749445448020002009001084E616D65556E697402004A0000000100
  429. 0557494454480200020090010B44726177696E67436F646501004A0000000100
  430. 0557494454480200020064000000}
  431. object cdsRelaXmjCode: TStringField
  432. FieldName = 'Code'
  433. Size = 50
  434. end
  435. object cdsRelaXmjPeg: TWideStringField
  436. FieldName = 'Peg'
  437. Size = 200
  438. end
  439. object cdsRelaXmjName: TWideStringField
  440. FieldName = 'Name'
  441. Size = 200
  442. end
  443. object cdsRelaXmjUnits: TWideStringField
  444. FieldName = 'Units'
  445. end
  446. object cdsRelaXmjQuantity: TFloatField
  447. FieldName = 'Quantity'
  448. OnGetText = cdsBillsGatherQuantityGetText
  449. end
  450. object cdsRelaXmjNameDanWei: TWideStringField
  451. FieldName = 'NameDanWei'
  452. Size = 200
  453. end
  454. object cdsRelaXmjNameFenBu: TWideStringField
  455. FieldName = 'NameFenBu'
  456. Size = 200
  457. end
  458. object cdsRelaXmjNameFenXiang: TWideStringField
  459. FieldName = 'NameFenXiang'
  460. Size = 200
  461. end
  462. object cdsRelaXmjNameUnit: TWideStringField
  463. FieldName = 'NameUnit'
  464. Size = 200
  465. end
  466. object cdsRelaXmjDrawingCode: TWideStringField
  467. FieldName = 'DrawingCode'
  468. Size = 50
  469. end
  470. end
  471. end