object rmGclBillsPlaneData: TrmGclBillsPlaneData
  OldCreateOrder = False
  Left = 192
  Top = 110
  Height = 150
  Width = 215
  object cdsGclBillsPlane: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 64
    Top = 40
    Data = {
      920100009619E0BD01000000180000000E000000000003000000920107507265
      436F64650100490000000100055749445448020002003200084C617374436F64
      650100490000000100055749445448020002000A0004436F6465010049000000
      010005574944544802000200320007586D6A4E616D6502004A00000001000557
      4944544802000200900108586D6A556E69747301004A00000001000557494454
      480200020028000350656701004A000000010005574944544802000200640008
      426567696E50656701004A000000010005574944544802000200640006456E64
      50656701004A0000000100055749445448020002006400094E616D6542755765
      6902004A00000001000557494454480200020090010B44726177696E67436F64
      6501004A000000010005574944544802000200640006425F436F646501004900
      00000100055749445448020002003200044E616D6502004A0000000100055749
      44544802000200900105556E69747301004A0000000100055749445448020002
      002800085175616E7469747908000400000000000000}
    object cdsGclBillsPlanePreCode: TStringField
      FieldName = 'PreCode'
      Size = 50
    end
    object cdsGclBillsPlaneLastCode: TStringField
      FieldName = 'LastCode'
      Size = 10
    end
    object cdsGclBillsPlaneCode: TStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsGclBillsPlaneXmjName: TWideStringField
      FieldName = 'XmjName'
      Size = 200
    end
    object cdsGclBillsPlaneXmjUnits: TWideStringField
      FieldName = 'XmjUnits'
    end
    object cdsGclBillsPlanePeg: TWideStringField
      FieldName = 'Peg'
      Size = 50
    end
    object cdsGclBillsPlaneBeginPeg: TWideStringField
      FieldName = 'BeginPeg'
      Size = 50
    end
    object cdsGclBillsPlaneEndPeg: TWideStringField
      FieldName = 'EndPeg'
      Size = 50
    end
    object cdsGclBillsPlaneNameBuWei: TWideStringField
      FieldName = 'NameBuWei'
      Size = 200
    end
    object cdsGclBillsPlaneDrawingCode: TWideStringField
      FieldName = 'DrawingCode'
      Size = 50
    end
    object cdsGclBillsPlaneB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsGclBillsPlaneName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsGclBillsPlaneUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsGclBillsPlaneQuantity: TFloatField
      FieldName = 'Quantity'
    end
  end
end
