object rmFxBillsCompareData: TrmFxBillsCompareData OldCreateOrder = False Left = 567 Top = 304 Height = 150 Width = 215 object cdsBills: TClientDataSet Active = True Aggregates = <> FieldDefs = < item Name = 'Code' DataType = ftString Size = 50 end item Name = 'B_Code' DataType = ftString Size = 50 end item Name = 'Name' DataType = ftWideString Size = 100 end item Name = 'Units' DataType = ftWideString Size = 20 end item Name = 'SQuantity' DataType = ftFloat end item Name = 'SPrice' DataType = ftFloat end item Name = 'STotalPrice' DataType = ftFloat end item Name = 'CQuantity' DataType = ftFloat end item Name = 'CPrice' DataType = ftFloat end item Name = 'CTotalPrice' DataType = ftFloat end item Name = 'DQuantity' DataType = ftFloat end item Name = 'DPrice' DataType = ftFloat end item Name = 'DTotalPrice' DataType = ftFloat end item Name = 'MemoStr' DataType = ftString Size = 50 end item Name = 'SDgnQuantity1' DataType = ftFloat end item Name = 'SDgnQuantity2' DataType = ftFloat end item Name = 'SDgnQuantity' DataType = ftString Size = 50 end item Name = 'CDgnQuantity1' DataType = ftFloat end item Name = 'CDgnQuantity2' DataType = ftFloat end item Name = 'CDgnQuantity' DataType = ftString Size = 50 end item Name = 'DDgnQuantity1' DataType = ftFloat end item Name = 'DDgnQuantity2' DataType = ftFloat end item Name = 'DDgnQuantity' DataType = ftString Size = 50 end item Name = 'XiangCode' DataType = ftWideString Size = 20 end item Name = 'MuCode' DataType = ftString Size = 20 end item Name = 'JieCode' DataType = ftString Size = 20 end item Name = 'XiMuCode' DataType = ftString Size = 20 end> IndexDefs = <> Params = <> StoreDefs = True Left = 48 Top = 40 Data = { 950200009619E0BD01000000180000001B000000000003000000950204436F64 65010049000000010005574944544802000200320006425F436F646501004900 00000100055749445448020002003200044E616D6501004A0000000100055749 44544802000200C80005556E69747301004A0000000100055749445448020002 00280009535175616E7469747908000400000000000653507269636508000400 000000000B53546F74616C5072696365080004000000000009435175616E7469 747908000400000000000643507269636508000400000000000B43546F74616C 5072696365080004000000000009445175616E74697479080004000000000006 44507269636508000400000000000B44546F74616C5072696365080004000000 0000074D656D6F53747201004900000001000557494454480200020032000D53 44676E5175616E746974793108000400000000000D5344676E5175616E746974 793208000400000000000C5344676E5175616E74697479010049000000010005 57494454480200020032000D4344676E5175616E746974793108000400000000 000D4344676E5175616E746974793208000400000000000C4344676E5175616E 7469747901004900000001000557494454480200020032000D4444676E517561 6E746974793108000400000000000D4444676E5175616E746974793208000400 000000000C4444676E5175616E74697479010049000000010005574944544802 0002003200095869616E67436F646501004A0000000100055749445448020002 002800064D75436F64650100490000000100055749445448020002001400074A 6965436F646501004900000001000557494454480200020014000858694D7543 6F646501004900000001000557494454480200020014000000} object cdsBillsCode: TStringField FieldName = 'Code' Size = 50 end object cdsBillsB_Code: TStringField FieldName = 'B_Code' Size = 50 end object cdsBillsName: TWideStringField FieldName = 'Name' Size = 100 end object cdsBillsUnits: TWideStringField FieldName = 'Units' end object cdsBillsSQuantity: TFloatField FieldName = 'SQuantity' end object cdsBillsSPrice: TFloatField FieldName = 'SPrice' end object cdsBillsSTotalPrice: TFloatField FieldName = 'STotalPrice' end object cdsBillsCQuantity: TFloatField FieldName = 'CQuantity' end object cdsBillsCPrice: TFloatField FieldName = 'CPrice' end object cdsBillsCTotalPrice: TFloatField FieldName = 'CTotalPrice' end object cdsBillsDQuantity: TFloatField FieldName = 'DQuantity' end object cdsBillsDPrice: TFloatField FieldName = 'DPrice' end object cdsBillsDTotalPrice: TFloatField FieldName = 'DTotalPrice' end object cdsBillsMemoStr: TStringField FieldName = 'MemoStr' Size = 50 end object cdsBillsSDgnQuantity1: TFloatField FieldName = 'SDgnQuantity1' end object cdsBillsSDgnQuantity2: TFloatField FieldName = 'SDgnQuantity2' end object cdsBillsSDgnQuantity: TStringField FieldName = 'SDgnQuantity' Size = 50 end object cdsBillsCDgnQuantity1: TFloatField FieldName = 'CDgnQuantity1' end object cdsBillsCDgnQuantity2: TFloatField FieldName = 'CDgnQuantity2' end object cdsBillsCDgnQuantity: TStringField FieldName = 'CDgnQuantity' Size = 50 end object cdsBillsDDgnQuantity1: TFloatField FieldName = 'DDgnQuantity1' end object cdsBillsDDgnQuantity2: TFloatField FieldName = 'DDgnQuantity2' end object cdsBillsDDgnQuantity: TStringField FieldName = 'DDgnQuantity' Size = 50 end object cdsBillsXiangCode: TWideStringField FieldName = 'XiangCode' end object cdsBillsMuCode: TStringField FieldName = 'MuCode' end object cdsBillsJieCode: TStringField FieldName = 'JieCode' end object cdsBillsXiMuCode: TStringField FieldName = 'XiMuCode' end end end