rmXmjBGLDetailDm.dfm 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208
  1. object rmXmjBGLDetailData: TrmXmjBGLDetailData
  2. OldCreateOrder = False
  3. Left = 651
  4. Top = 311
  5. Height = 150
  6. Width = 215
  7. object cdsXmjBGLDetail: TClientDataSet
  8. Active = True
  9. Aggregates = <>
  10. FieldDefs = <
  11. item
  12. Name = 'Code'
  13. DataType = ftString
  14. Size = 50
  15. end
  16. item
  17. Name = 'Name'
  18. DataType = ftWideString
  19. Size = 200
  20. end
  21. item
  22. Name = 'DgnQuantity1'
  23. DataType = ftFloat
  24. end
  25. item
  26. Name = 'DgnQuantity2'
  27. DataType = ftFloat
  28. end
  29. item
  30. Name = 'DgnQuantity'
  31. DataType = ftString
  32. Size = 50
  33. end
  34. item
  35. Name = 'Xmj_BGLName'
  36. DataType = ftWideString
  37. Size = 200
  38. end
  39. item
  40. Name = 'BGLCode'
  41. DataType = ftWideString
  42. Size = 50
  43. end
  44. item
  45. Name = 'BGLName'
  46. DataType = ftWideString
  47. Size = 50
  48. end
  49. item
  50. Name = 'BGLType'
  51. DataType = ftWideString
  52. Size = 20
  53. end
  54. item
  55. Name = 'Reason'
  56. DataType = ftWideString
  57. Size = 255
  58. end
  59. item
  60. Name = 'Direction'
  61. DataType = ftWideString
  62. Size = 255
  63. end
  64. item
  65. Name = 'EndDealTotalPrice'
  66. DataType = ftFloat
  67. end
  68. item
  69. Name = 'EndGatherTotalPrice'
  70. DataType = ftFloat
  71. end
  72. item
  73. Name = 'BGTotalPrice'
  74. DataType = ftFloat
  75. end
  76. item
  77. Name = 'DrawingCode'
  78. DataType = ftWideString
  79. Size = 50
  80. end
  81. item
  82. Name = 'ApprovalCode'
  83. DataType = ftWideString
  84. Size = 50
  85. end
  86. item
  87. Name = 'BGLRelaFile'
  88. DataType = ftWideString
  89. end
  90. item
  91. Name = 'MemoStr'
  92. DataType = ftWideString
  93. Size = 50
  94. end
  95. item
  96. Name = 'TotalPrice'
  97. DataType = ftFloat
  98. end
  99. item
  100. Name = 'EndQcTotalPrice'
  101. DataType = ftFloat
  102. end
  103. item
  104. Name = 'FinalTotalPrice'
  105. DataType = ftFloat
  106. end>
  107. IndexDefs = <>
  108. Params = <>
  109. StoreDefs = True
  110. Left = 72
  111. Top = 32
  112. Data = {
  113. 4E0200009619E0BD0100000018000000150000000000030000004E0204436F64
  114. 650100490000000100055749445448020002003200044E616D6502004A000000
  115. 01000557494454480200020090010C44676E5175616E74697479310800040000
  116. 0000000C44676E5175616E746974793208000400000000000B44676E5175616E
  117. 7469747901004900000001000557494454480200020032000B586D6A5F42474C
  118. 4E616D6502004A00000001000557494454480200020090010742474C436F6465
  119. 01004A00000001000557494454480200020064000742474C4E616D6501004A00
  120. 000001000557494454480200020064000742474C5479706501004A0000000100
  121. 05574944544802000200280006526561736F6E02004A00000001000557494454
  122. 4802000200FE0109446972656374696F6E02004A000000010005574944544802
  123. 000200FE0111456E644465616C546F74616C5072696365080004000000000013
  124. 456E64476174686572546F74616C507269636508000400000000000C4247546F
  125. 74616C507269636508000400000000000B44726177696E67436F646501004A00
  126. 000001000557494454480200020064000C417070726F76616C436F646501004A
  127. 00000001000557494454480200020064000B42474C52656C6146696C6501004A
  128. 0000000100055749445448020002000100074D656D6F53747201004A00000001
  129. 000557494454480200020064000A546F74616C50726963650800040000000000
  130. 0F456E645163546F74616C507269636508000400000000000F46696E616C546F
  131. 74616C507269636508000400000000000000}
  132. object cdsXmjBGLDetailCode: TStringField
  133. FieldName = 'Code'
  134. Size = 50
  135. end
  136. object cdsXmjBGLDetailName: TWideStringField
  137. FieldName = 'Name'
  138. Size = 200
  139. end
  140. object cdsXmjBGLDetailDgnQuantity1: TFloatField
  141. FieldName = 'DgnQuantity1'
  142. end
  143. object cdsXmjBGLDetailDgnQuantity2: TFloatField
  144. FieldName = 'DgnQuantity2'
  145. end
  146. object cdsXmjBGLDetailDgnQuantity: TStringField
  147. FieldName = 'DgnQuantity'
  148. Size = 50
  149. end
  150. object cdsXmjBGLDetailXmj_BGLName: TWideStringField
  151. FieldName = 'Xmj_BGLName'
  152. Size = 200
  153. end
  154. object cdsXmjBGLDetailBGLCode: TWideStringField
  155. FieldName = 'BGLCode'
  156. Size = 50
  157. end
  158. object cdsXmjBGLDetailBGLName: TWideStringField
  159. FieldName = 'BGLName'
  160. Size = 50
  161. end
  162. object cdsXmjBGLDetailBGLType: TWideStringField
  163. FieldName = 'BGLType'
  164. end
  165. object cdsXmjBGLDetailReason: TWideStringField
  166. FieldName = 'Reason'
  167. Size = 255
  168. end
  169. object cdsXmjBGLDetailDirection: TWideStringField
  170. FieldName = 'Direction'
  171. Size = 255
  172. end
  173. object cdsXmjBGLDetailEndDealTotalPrice: TFloatField
  174. FieldName = 'EndDealTotalPrice'
  175. end
  176. object cdsXmjBGLDetailEndGatherTotalPrice: TFloatField
  177. FieldName = 'EndGatherTotalPrice'
  178. end
  179. object cdsXmjBGLDetailBGTotalPrice: TFloatField
  180. FieldName = 'BGTotalPrice'
  181. end
  182. object cdsXmjBGLDetailDrawingCode: TWideStringField
  183. FieldName = 'DrawingCode'
  184. Size = 50
  185. end
  186. object cdsXmjBGLDetailApprovalCode: TWideStringField
  187. FieldName = 'ApprovalCode'
  188. Size = 50
  189. end
  190. object cdsXmjBGLDetailBGLRelaFile: TWideStringField
  191. FieldName = 'BGLRelaFile'
  192. Size = 0
  193. end
  194. object cdsXmjBGLDetailMemoStr: TWideStringField
  195. FieldName = 'MemoStr'
  196. Size = 50
  197. end
  198. object cdsXmjBGLDetailTotalPrice: TFloatField
  199. FieldName = 'TotalPrice'
  200. end
  201. object cdsXmjBGLDetailEndQcTotalPrice: TFloatField
  202. FieldName = 'EndQcTotalPrice'
  203. end
  204. object cdsXmjBGLDetailFinalTotalPrice: TFloatField
  205. FieldName = 'FinalTotalPrice'
  206. end
  207. end
  208. end