object rmXmjBGLDetailData: TrmXmjBGLDetailData OldCreateOrder = False Left = 651 Top = 311 Height = 150 Width = 215 object cdsXmjBGLDetail: TClientDataSet Active = True Aggregates = <> FieldDefs = < item Name = 'Code' DataType = ftString Size = 50 end item Name = 'Name' DataType = ftWideString Size = 200 end item Name = 'DgnQuantity1' DataType = ftFloat end item Name = 'DgnQuantity2' DataType = ftFloat end item Name = 'DgnQuantity' DataType = ftString Size = 50 end item Name = 'Xmj_BGLName' DataType = ftWideString Size = 200 end item Name = 'BGLCode' DataType = ftWideString Size = 50 end item Name = 'BGLName' DataType = ftWideString Size = 50 end item Name = 'BGLType' DataType = ftWideString Size = 20 end item Name = 'Reason' DataType = ftWideString Size = 255 end item Name = 'Direction' DataType = ftWideString Size = 255 end item Name = 'EndDealTotalPrice' DataType = ftFloat end item Name = 'EndGatherTotalPrice' DataType = ftFloat end item Name = 'BGTotalPrice' DataType = ftFloat end item Name = 'DrawingCode' DataType = ftWideString Size = 50 end item Name = 'ApprovalCode' DataType = ftWideString Size = 50 end item Name = 'BGLRelaFile' DataType = ftWideString end item Name = 'MemoStr' DataType = ftWideString Size = 50 end item Name = 'TotalPrice' DataType = ftFloat end item Name = 'EndQcTotalPrice' DataType = ftFloat end item Name = 'FinalTotalPrice' DataType = ftFloat end> IndexDefs = <> Params = <> StoreDefs = True Left = 72 Top = 32 Data = { 4E0200009619E0BD0100000018000000150000000000030000004E0204436F64 650100490000000100055749445448020002003200044E616D6502004A000000 01000557494454480200020090010C44676E5175616E74697479310800040000 0000000C44676E5175616E746974793208000400000000000B44676E5175616E 7469747901004900000001000557494454480200020032000B586D6A5F42474C 4E616D6502004A00000001000557494454480200020090010742474C436F6465 01004A00000001000557494454480200020064000742474C4E616D6501004A00 000001000557494454480200020064000742474C5479706501004A0000000100 05574944544802000200280006526561736F6E02004A00000001000557494454 4802000200FE0109446972656374696F6E02004A000000010005574944544802 000200FE0111456E644465616C546F74616C5072696365080004000000000013 456E64476174686572546F74616C507269636508000400000000000C4247546F 74616C507269636508000400000000000B44726177696E67436F646501004A00 000001000557494454480200020064000C417070726F76616C436F646501004A 00000001000557494454480200020064000B42474C52656C6146696C6501004A 0000000100055749445448020002000100074D656D6F53747201004A00000001 000557494454480200020064000A546F74616C50726963650800040000000000 0F456E645163546F74616C507269636508000400000000000F46696E616C546F 74616C507269636508000400000000000000} object cdsXmjBGLDetailCode: TStringField FieldName = 'Code' Size = 50 end object cdsXmjBGLDetailName: TWideStringField FieldName = 'Name' Size = 200 end object cdsXmjBGLDetailDgnQuantity1: TFloatField FieldName = 'DgnQuantity1' end object cdsXmjBGLDetailDgnQuantity2: TFloatField FieldName = 'DgnQuantity2' end object cdsXmjBGLDetailDgnQuantity: TStringField FieldName = 'DgnQuantity' Size = 50 end object cdsXmjBGLDetailXmj_BGLName: TWideStringField FieldName = 'Xmj_BGLName' Size = 200 end object cdsXmjBGLDetailBGLCode: TWideStringField FieldName = 'BGLCode' Size = 50 end object cdsXmjBGLDetailBGLName: TWideStringField FieldName = 'BGLName' Size = 50 end object cdsXmjBGLDetailBGLType: TWideStringField FieldName = 'BGLType' end object cdsXmjBGLDetailReason: TWideStringField FieldName = 'Reason' Size = 255 end object cdsXmjBGLDetailDirection: TWideStringField FieldName = 'Direction' Size = 255 end object cdsXmjBGLDetailEndDealTotalPrice: TFloatField FieldName = 'EndDealTotalPrice' end object cdsXmjBGLDetailEndGatherTotalPrice: TFloatField FieldName = 'EndGatherTotalPrice' end object cdsXmjBGLDetailBGTotalPrice: TFloatField FieldName = 'BGTotalPrice' end object cdsXmjBGLDetailDrawingCode: TWideStringField FieldName = 'DrawingCode' Size = 50 end object cdsXmjBGLDetailApprovalCode: TWideStringField FieldName = 'ApprovalCode' Size = 50 end object cdsXmjBGLDetailBGLRelaFile: TWideStringField FieldName = 'BGLRelaFile' Size = 0 end object cdsXmjBGLDetailMemoStr: TWideStringField FieldName = 'MemoStr' Size = 50 end object cdsXmjBGLDetailTotalPrice: TFloatField FieldName = 'TotalPrice' end object cdsXmjBGLDetailEndQcTotalPrice: TFloatField FieldName = 'EndQcTotalPrice' end object cdsXmjBGLDetailFinalTotalPrice: TFloatField FieldName = 'FinalTotalPrice' end end end