rmZhongKaiDm.dfm 5.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170
  1. object rmZhongKaiData: TrmZhongKaiData
  2. OldCreateOrder = False
  3. Left = 658
  4. Top = 507
  5. Height = 156
  6. Width = 322
  7. object cdsCustom2: TClientDataSet
  8. Active = True
  9. Aggregates = <>
  10. Params = <>
  11. Left = 40
  12. Top = 40
  13. Data = {
  14. 290100009619E0BD01000000180000000C000000000003000000290109436861
  15. 7074657249440400010000000000074368617074657201004A00000001000557
  16. 49445448020002006400044E616D6502004A0000000100055749445448020002
  17. 00FE010A546F74616C507269636508000400000000000B43546F74616C507269
  18. 636508000400000000000B47546F74616C507269636508000400000000001345
  19. 6E64476174686572546F74616C507269636508000400000000000A456E645065
  20. 7263656E74080004000000000013507265476174686572546F74616C50726963
  21. 6508000400000000000A50726550657263656E74080004000000000013437572
  22. 476174686572546F74616C507269636508000400000000000A43757250657263
  23. 656E7408000400000000000000}
  24. object cdsCustom2ChapterID: TIntegerField
  25. FieldName = 'ChapterID'
  26. end
  27. object cdsCustom2Chapter: TWideStringField
  28. FieldName = 'Chapter'
  29. Size = 50
  30. end
  31. object cdsCustom2Name: TWideStringField
  32. FieldName = 'Name'
  33. Size = 255
  34. end
  35. object cdsCustom2TotalPrice: TFloatField
  36. FieldName = 'TotalPrice'
  37. end
  38. object cdsCustom2CTotalPrice: TFloatField
  39. FieldName = 'CTotalPrice'
  40. end
  41. object cdsCustom2GTotalPrice: TFloatField
  42. FieldName = 'GTotalPrice'
  43. end
  44. object cdsCustom2EndGatherTotalPrice: TFloatField
  45. FieldName = 'EndGatherTotalPrice'
  46. end
  47. object cdsCustom2EndPercent: TFloatField
  48. FieldName = 'EndPercent'
  49. end
  50. object cdsCustom2PreGatherTotalPrice: TFloatField
  51. FieldName = 'PreGatherTotalPrice'
  52. end
  53. object cdsCustom2PrePercent: TFloatField
  54. FieldName = 'PrePercent'
  55. end
  56. object cdsCustom2CurGatherTotalPrice: TFloatField
  57. FieldName = 'CurGatherTotalPrice'
  58. end
  59. object cdsCustom2CurPercent: TFloatField
  60. FieldName = 'CurPercent'
  61. end
  62. end
  63. object cdsCustom3: TClientDataSet
  64. Active = True
  65. Aggregates = <>
  66. IndexFieldNames = 'ChapterID;IndexCode'
  67. Params = <>
  68. Left = 120
  69. Top = 40
  70. Data = {
  71. 750200009619E0BD010000001800000019000000000003000000750209436861
  72. 707465724944040001000000000009496E646578436F646501004A0000000100
  73. 05574944544802000200640006425F436F646501004A00000001000557494454
  74. 48020002006400044E616D6502004A000000010005574944544802000200FE01
  75. 05556E69747301004A0000000100055749445448020002002800055072696365
  76. 08000400000000000C4465616C5175616E7469747908000400000000000E4465
  77. 616C546F74616C507269636508000400000000000E456E644D71635175616E74
  78. 697479080004000000000010456E644D7163546F74616C507269636508000400
  79. 0000000011456E644D716361546F74616C507269636508000400000000000E45
  80. 6E645071635175616E74697479080004000000000010456E64507163546F7461
  81. 6C5072696365080004000000000011456E6450716361546F74616C5072696365
  82. 08000400000000000D456E6451635175616E7469747908000400000000000F45
  83. 6E645163546F74616C5072696365080004000000000010456E64516361546F74
  84. 616C5072696365080004000000000009475175616E7469747908000400000000
  85. 000B47546F74616C5072696365080004000000000011456E6447617468657251
  86. 75616E74697479080004000000000013456E64476174686572546F74616C5072
  87. 6963650800040000000000115072654761746865725175616E74697479080004
  88. 000000000013507265476174686572546F74616C507269636508000400000000
  89. 00114375724761746865725175616E7469747908000400000000001343757247
  90. 6174686572546F74616C507269636508000400000000000000}
  91. object cdsCustom3ChapterID: TIntegerField
  92. FieldName = 'ChapterID'
  93. end
  94. object cdsCustom3IndexCode: TWideStringField
  95. FieldName = 'IndexCode'
  96. Size = 50
  97. end
  98. object cdsCustom3B_Code: TWideStringField
  99. FieldName = 'B_Code'
  100. Size = 50
  101. end
  102. object cdsCustom3Name: TWideStringField
  103. FieldName = 'Name'
  104. Size = 255
  105. end
  106. object cdsCustom3Units: TWideStringField
  107. FieldName = 'Units'
  108. end
  109. object cdsCustom3Price: TFloatField
  110. FieldName = 'Price'
  111. end
  112. object cdsCustom3DealQuantity: TFloatField
  113. FieldName = 'DealQuantity'
  114. end
  115. object cdsCustom3DealTotalPrice: TFloatField
  116. FieldName = 'DealTotalPrice'
  117. end
  118. object cdsCustom3EndMqcQuantity: TFloatField
  119. FieldName = 'EndMqcQuantity'
  120. end
  121. object cdsCustom3EndMqcTotalPrice: TFloatField
  122. FieldName = 'EndMqcTotalPrice'
  123. end
  124. object cdsCustom3EndMqcaTotalPrice: TFloatField
  125. FieldName = 'EndMqcaTotalPrice'
  126. end
  127. object cdsCustom3EndPqcQuantity: TFloatField
  128. FieldName = 'EndPqcQuantity'
  129. end
  130. object cdsCustom3EndPqcTotalPrice: TFloatField
  131. FieldName = 'EndPqcTotalPrice'
  132. end
  133. object cdsCustom3EndPqcaTotalPrice: TFloatField
  134. FieldName = 'EndPqcaTotalPrice'
  135. end
  136. object cdsCustom3EndQcQuantity: TFloatField
  137. FieldName = 'EndQcQuantity'
  138. end
  139. object cdsCustom3EndQcTotalPrice: TFloatField
  140. FieldName = 'EndQcTotalPrice'
  141. end
  142. object cdsCustom3EndQcaTotalPrice: TFloatField
  143. FieldName = 'EndQcaTotalPrice'
  144. end
  145. object cdsCustom3GQuantity: TFloatField
  146. FieldName = 'GQuantity'
  147. end
  148. object cdsCustom3GTotalPrice: TFloatField
  149. FieldName = 'GTotalPrice'
  150. end
  151. object cdsCustom3EndGatherQuantity: TFloatField
  152. FieldName = 'EndGatherQuantity'
  153. end
  154. object cdsCustom3EndGatherTotalPrice: TFloatField
  155. FieldName = 'EndGatherTotalPrice'
  156. end
  157. object cdsCustom3PreGatherQuantity: TFloatField
  158. FieldName = 'PreGatherQuantity'
  159. end
  160. object cdsCustom3PreGatherTotalPrice: TFloatField
  161. FieldName = 'PreGatherTotalPrice'
  162. end
  163. object cdsCustom3CurGatherQuantity: TFloatField
  164. FieldName = 'CurGatherQuantity'
  165. end
  166. object cdsCustom3CurGatherTotalPrice: TFloatField
  167. FieldName = 'CurGatherTotalPrice'
  168. end
  169. end
  170. end