| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140 | 
							- object rmDealInfosData: TrmDealInfosData
 
-   OldCreateOrder = False
 
-   Left = 667
 
-   Top = 347
 
-   Height = 150
 
-   Width = 214
 
-   object cdsDealInfos: TClientDataSet
 
-     Active = True
 
-     Aggregates = <>
 
-     FieldDefs = <
 
-       item
 
-         Name = 'DealType'
 
-         DataType = ftWideString
 
-         Size = 20
 
-       end
 
-       item
 
-         Name = 'DealCode'
 
-         DataType = ftWideString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'BalanceCode'
 
-         DataType = ftWideString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'DealName'
 
-         DataType = ftWideString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'DealCompany'
 
-         DataType = ftWideString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'DealTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'FinalTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'CutTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'PayTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'PaidTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'PayingTotalPrice'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'PayPercent'
 
-         DataType = ftFloat
 
-       end
 
-       item
 
-         Name = 'MemoStr'
 
-         DataType = ftWideString
 
-         Size = 50
 
-       end
 
-       item
 
-         Name = 'ContractPrice'
 
-         DataType = ftFloat
 
-       end>
 
-     IndexDefs = <>
 
-     Params = <>
 
-     StoreDefs = True
 
-     Left = 64
 
-     Top = 40
 
-     Data = {
 
-       810100009619E0BD01000000180000000E000000000003000000810108446561
 
-       6C5479706501004A0000000100055749445448020002002800084465616C436F
 
-       646501004A00000001000557494454480200020064000B42616C616E6365436F
 
-       646501004A0000000100055749445448020002006400084465616C4E616D6501
 
-       004A00000001000557494454480200020064000B4465616C436F6D70616E7901
 
-       004A00000001000557494454480200020064000E4465616C546F74616C507269
 
-       636508000400000000000F46696E616C546F74616C5072696365080004000000
 
-       00000D437574546F74616C507269636508000400000000000D506179546F7461
 
-       6C507269636508000400000000000E50616964546F74616C5072696365080004
 
-       000000000010506179696E67546F74616C507269636508000400000000000A50
 
-       617950657263656E740800040000000000074D656D6F53747201004A00000001
 
-       000557494454480200020064000D436F6E747261637450726963650800040000
 
-       0000000000}
 
-     object cdsDealInfosDealType: TWideStringField
 
-       FieldName = 'DealType'
 
-     end
 
-     object cdsDealInfosDealCode: TWideStringField
 
-       FieldName = 'DealCode'
 
-       Size = 50
 
-     end
 
-     object cdsDealInfosBalanceCode: TWideStringField
 
-       FieldName = 'BalanceCode'
 
-       Size = 50
 
-     end
 
-     object cdsDealInfosDealName: TWideStringField
 
-       FieldName = 'DealName'
 
-       Size = 50
 
-     end
 
-     object cdsDealInfosDealCompany: TWideStringField
 
-       FieldName = 'DealCompany'
 
-       Size = 50
 
-     end
 
-     object cdsDealInfosDealTotalPrice: TFloatField
 
-       FieldName = 'DealTotalPrice'
 
-     end
 
-     object cdsDealInfosFinalTotalPrice: TFloatField
 
-       FieldName = 'FinalTotalPrice'
 
-     end
 
-     object cdsDealInfosCutTotalPrice: TFloatField
 
-       FieldName = 'CutTotalPrice'
 
-     end
 
-     object cdsDealInfosPayTotalPrice: TFloatField
 
-       FieldName = 'PayTotalPrice'
 
-     end
 
-     object cdsDealInfosPaidTotalPrice: TFloatField
 
-       FieldName = 'PaidTotalPrice'
 
-     end
 
-     object cdsDealInfosPayingTotalPrice: TFloatField
 
-       FieldName = 'PayingTotalPrice'
 
-     end
 
-     object cdsDealInfosPayPercent: TFloatField
 
-       FieldName = 'PayPercent'
 
-     end
 
-     object cdsDealInfosMemoStr: TWideStringField
 
-       FieldName = 'MemoStr'
 
-       Size = 50
 
-     end
 
-     object cdsDealInfosContractPrice: TFloatField
 
-       FieldName = 'ContractPrice'
 
-     end
 
-   end
 
- end
 
 
  |