rmGclBillsCompareDm.dfm 3.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136
  1. object rmGclBillsCompareData: TrmGclBillsCompareData
  2. OldCreateOrder = False
  3. Left = 577
  4. Top = 287
  5. Height = 150
  6. Width = 215
  7. object cdsBills: 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 = 'CodeIndex'
  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 = 'SQuantity'
  33. DataType = ftFloat
  34. end
  35. item
  36. Name = 'SPrice'
  37. DataType = ftFloat
  38. end
  39. item
  40. Name = 'STotalPrice'
  41. DataType = ftFloat
  42. end
  43. item
  44. Name = 'CQuantity'
  45. DataType = ftFloat
  46. end
  47. item
  48. Name = 'CPrice'
  49. DataType = ftFloat
  50. end
  51. item
  52. Name = 'CTotalPrice'
  53. DataType = ftFloat
  54. end
  55. item
  56. Name = 'DQuantity'
  57. DataType = ftFloat
  58. end
  59. item
  60. Name = 'DPrice'
  61. DataType = ftFloat
  62. end
  63. item
  64. Name = 'DTotalPrice'
  65. DataType = ftFloat
  66. end
  67. item
  68. Name = 'MemoStr'
  69. DataType = ftWideString
  70. Size = 50
  71. end>
  72. IndexDefs = <>
  73. Params = <>
  74. StoreDefs = True
  75. Left = 56
  76. Top = 40
  77. Data = {
  78. 410100009619E0BD01000000180000000E000000000003000000410106425F43
  79. 6F6465010049000000010005574944544802000200320009436F6465496E6465
  80. 780100490000000100055749445448020002003200044E616D6502004A000000
  81. 010005574944544802000200900105556E69747301004A000000010005574944
  82. 544802000200280009535175616E746974790800040000000000065350726963
  83. 6508000400000000000B53546F74616C50726963650800040000000000094351
  84. 75616E7469747908000400000000000643507269636508000400000000000B43
  85. 546F74616C5072696365080004000000000009445175616E7469747908000400
  86. 000000000644507269636508000400000000000B44546F74616C507269636508
  87. 00040000000000074D656D6F53747201004A0000000100055749445448020002
  88. 0064000000}
  89. object cdsBillsB_Code: TStringField
  90. FieldName = 'B_Code'
  91. Size = 50
  92. end
  93. object cdsBillsCodeIndex: TStringField
  94. FieldName = 'CodeIndex'
  95. Size = 50
  96. end
  97. object cdsBillsName: TWideStringField
  98. FieldName = 'Name'
  99. Size = 200
  100. end
  101. object cdsBillsUnits: TWideStringField
  102. FieldName = 'Units'
  103. end
  104. object cdsBillsSQuantity: TFloatField
  105. FieldName = 'SQuantity'
  106. end
  107. object cdsBillsSPrice: TFloatField
  108. FieldName = 'SPrice'
  109. end
  110. object cdsBillsSTotalPrice: TFloatField
  111. FieldName = 'STotalPrice'
  112. end
  113. object cdsBillsCQuantity: TFloatField
  114. FieldName = 'CQuantity'
  115. end
  116. object cdsBillsCPrice: TFloatField
  117. FieldName = 'CPrice'
  118. end
  119. object cdsBillsCTotalPrice: TFloatField
  120. FieldName = 'CTotalPrice'
  121. end
  122. object cdsBillsDQuantity: TFloatField
  123. FieldName = 'DQuantity'
  124. end
  125. object cdsBillsDPrice: TFloatField
  126. FieldName = 'DPrice'
  127. end
  128. object cdsBillsDTotalPrice: TFloatField
  129. FieldName = 'DTotalPrice'
  130. end
  131. object cdsBillsMemoStr: TWideStringField
  132. FieldName = 'MemoStr'
  133. Size = 50
  134. end
  135. end
  136. end