object tpPeg_GclFrame: TtpPeg_GclFrame
  Left = 0
  Top = 0
  Width = 703
  Height = 484
  TabOrder = 0
  object sprPeg_Gcl: TSplitter
    Left = 0
    Top = 281
    Width = 703
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object zgGclBills: TZJGrid
    Left = 0
    Top = 284
    Width = 703
    Height = 200
    Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
    OptionsEx = []
    ColCount = 7
    ShowGridLine = False
    DefaultColWidth = 73
    DefaultFixedColWidth = 25
    Selection.AlphaBlend = False
    Selection.TransparentColor = False
    FrozenCol = 0
    FrozenRow = 0
    Align = alBottom
  end
  object zgPeg: TZJGrid
    Left = 0
    Top = 0
    Width = 703
    Height = 281
    Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
    OptionsEx = []
    ColCount = 9
    RowCount = 6
    FixedRowCount = 2
    ShowGridLine = False
    DefaultColWidth = 73
    DefaultFixedColWidth = 25
    Selection.AlphaBlend = False
    Selection.TransparentColor = False
    FrozenCol = 0
    FrozenRow = 0
    Align = alClient
  end
  object saGclBills: TsdGridDBA
    Columns = <
      item
        Title.Caption = #28165#21333#32534#21495
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'B_Code'
        ReadOnly = True
      end
      item
        Title.Caption = #21517#31216
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Name'
        Width = 200
        ReadOnly = True
      end
      item
        Title.Caption = #21333#20301
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taCenter
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Units'
        Width = 45
        ReadOnly = True
      end
      item
        Title.Caption = #21333#20215
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Price'
        Width = 80
        ReadOnly = True
      end
      item
        Title.Caption = #25968#37327
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Quantity'
        Width = 80
        ReadOnly = True
      end
      item
        Title.Caption = #37329#39069
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'TotalPrice'
        Width = 80
        ReadOnly = True
      end>
    Grid = zgGclBills
    ExtendRowCount = 0
    Options = []
    Left = 120
    Top = 296
  end
  object saPeg: TsdGridDBA
    Columns = <
      item
        Title.Caption = #39033#30446#33410#32534#21495
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 2
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Code'
        Width = 120
        ReadOnly = False
      end
      item
        Title.Caption = #21517#31216
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 2
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Name'
        Width = 200
        ReadOnly = True
      end
      item
        Title.Caption = #21333#20301
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 2
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taCenter
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Unit'
        Width = 45
        ReadOnly = True
      end
      item
        Title.Caption = #37329#39069
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 2
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'TotalPrice'
        Width = 80
        ReadOnly = True
      end
      item
        Title.Caption = #36215#28857'|'#26729#21495
        Title.CaptionAcrossCols = '2'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'BeginPeg'
        ReadOnly = False
      end
      item
        Title.Caption = '|'#20540
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'BeginPegNum'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = #32456#28857'|'#26729#21495
        Title.CaptionAcrossCols = '2'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'EndPeg'
        ReadOnly = True
      end
      item
        Title.Caption = '|'#20540
        Title.CaptionAcrossCols = '1'
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taRightJustify
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'EndPegNum'
        Width = 60
        ReadOnly = True
      end>
    Grid = zgPeg
    ExtendRowCount = 0
    Options = []
    Left = 120
    Top = 88
  end
  object dxBarPopupMenu1: TdxBarPopupMenu
    BarManager = tpMainForm.dxBarManager
    ItemLinks = <
      item
        Item = tpMainForm.dxbtnGatherGclBills
        Visible = True
      end>
    UseOwnFont = False
    Left = 176
    Top = 88
  end
end