rmDealInfosDm.dfm 3.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140
  1. object rmDealInfosData: TrmDealInfosData
  2. OldCreateOrder = False
  3. Left = 667
  4. Top = 347
  5. Height = 150
  6. Width = 214
  7. object cdsDealInfos: TClientDataSet
  8. Active = True
  9. Aggregates = <>
  10. FieldDefs = <
  11. item
  12. Name = 'DealType'
  13. DataType = ftWideString
  14. Size = 20
  15. end
  16. item
  17. Name = 'DealCode'
  18. DataType = ftWideString
  19. Size = 50
  20. end
  21. item
  22. Name = 'BalanceCode'
  23. DataType = ftWideString
  24. Size = 50
  25. end
  26. item
  27. Name = 'DealName'
  28. DataType = ftWideString
  29. Size = 50
  30. end
  31. item
  32. Name = 'DealCompany'
  33. DataType = ftWideString
  34. Size = 50
  35. end
  36. item
  37. Name = 'DealTotalPrice'
  38. DataType = ftFloat
  39. end
  40. item
  41. Name = 'FinalTotalPrice'
  42. DataType = ftFloat
  43. end
  44. item
  45. Name = 'CutTotalPrice'
  46. DataType = ftFloat
  47. end
  48. item
  49. Name = 'PayTotalPrice'
  50. DataType = ftFloat
  51. end
  52. item
  53. Name = 'PaidTotalPrice'
  54. DataType = ftFloat
  55. end
  56. item
  57. Name = 'PayingTotalPrice'
  58. DataType = ftFloat
  59. end
  60. item
  61. Name = 'PayPercent'
  62. DataType = ftFloat
  63. end
  64. item
  65. Name = 'MemoStr'
  66. DataType = ftWideString
  67. Size = 50
  68. end
  69. item
  70. Name = 'ContractPrice'
  71. DataType = ftFloat
  72. end>
  73. IndexDefs = <>
  74. Params = <>
  75. StoreDefs = True
  76. Left = 64
  77. Top = 40
  78. Data = {
  79. 810100009619E0BD01000000180000000E000000000003000000810108446561
  80. 6C5479706501004A0000000100055749445448020002002800084465616C436F
  81. 646501004A00000001000557494454480200020064000B42616C616E6365436F
  82. 646501004A0000000100055749445448020002006400084465616C4E616D6501
  83. 004A00000001000557494454480200020064000B4465616C436F6D70616E7901
  84. 004A00000001000557494454480200020064000E4465616C546F74616C507269
  85. 636508000400000000000F46696E616C546F74616C5072696365080004000000
  86. 00000D437574546F74616C507269636508000400000000000D506179546F7461
  87. 6C507269636508000400000000000E50616964546F74616C5072696365080004
  88. 000000000010506179696E67546F74616C507269636508000400000000000A50
  89. 617950657263656E740800040000000000074D656D6F53747201004A00000001
  90. 000557494454480200020064000D436F6E747261637450726963650800040000
  91. 0000000000}
  92. object cdsDealInfosDealType: TWideStringField
  93. FieldName = 'DealType'
  94. end
  95. object cdsDealInfosDealCode: TWideStringField
  96. FieldName = 'DealCode'
  97. Size = 50
  98. end
  99. object cdsDealInfosBalanceCode: TWideStringField
  100. FieldName = 'BalanceCode'
  101. Size = 50
  102. end
  103. object cdsDealInfosDealName: TWideStringField
  104. FieldName = 'DealName'
  105. Size = 50
  106. end
  107. object cdsDealInfosDealCompany: TWideStringField
  108. FieldName = 'DealCompany'
  109. Size = 50
  110. end
  111. object cdsDealInfosDealTotalPrice: TFloatField
  112. FieldName = 'DealTotalPrice'
  113. end
  114. object cdsDealInfosFinalTotalPrice: TFloatField
  115. FieldName = 'FinalTotalPrice'
  116. end
  117. object cdsDealInfosCutTotalPrice: TFloatField
  118. FieldName = 'CutTotalPrice'
  119. end
  120. object cdsDealInfosPayTotalPrice: TFloatField
  121. FieldName = 'PayTotalPrice'
  122. end
  123. object cdsDealInfosPaidTotalPrice: TFloatField
  124. FieldName = 'PaidTotalPrice'
  125. end
  126. object cdsDealInfosPayingTotalPrice: TFloatField
  127. FieldName = 'PayingTotalPrice'
  128. end
  129. object cdsDealInfosPayPercent: TFloatField
  130. FieldName = 'PayPercent'
  131. end
  132. object cdsDealInfosMemoStr: TWideStringField
  133. FieldName = 'MemoStr'
  134. Size = 50
  135. end
  136. object cdsDealInfosContractPrice: TFloatField
  137. FieldName = 'ContractPrice'
  138. end
  139. end
  140. end