Measure/Frames/BGLFme.dfm

object BGLFrame: TBGLFrame
  Left = 0
  Top = 0
  Width = 399
  Height = 638
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  ParentFont = False
  TabOrder = 0
  object labTitle: TJimGradLabel
    Left = 0
    Top = 0
    Width = 399
    Height = 20
    Align = alTop
    AutoSize = False
    ColorBegin = clGradientInactiveCaption
    ColorEnd = clGradientInactiveCaption
    Caption = ' '#21464#26356#20196
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    Layout = tlCenter
  end
  object sprBGL: TSplitter
    Left = 0
    Top = 435
    Width = 399
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 20
    Width = 399
    Height = 22
    AutoSize = True
    ButtonWidth = 87
    Caption = 'ToolBar'
    Color = clBtnFace
    EdgeBorders = []
    EdgeInner = esNone
    EdgeOuter = esNone
    Flat = True
    Images = MainForm.Images
    List = True
    ParentColor = False
    ShowCaptions = True
    TabOrder = 0
    TabStop = True
    Visible = False
    object tobtnNew: TToolButton
      Left = 0
      Top = 0
      Action = actnNew
      ParentShowHint = False
      ShowHint = True
    end
  end
  object pnlBGBills: TPanel
    Left = 0
    Top = 438
    Width = 399
    Height = 200
    Align = alBottom
    BevelOuter = bvNone
    Caption = 'pnlBGBills'
    TabOrder = 1
    object zgBGBills: TZJGrid
      Left = 0
      Top = 0
      Width = 399
      Height = 200
      Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
      OptionsEx = []
      ColCount = 8
      RowCount = 2
      ShowGridLine = False
      DefaultColWidth = 73
      DefaultFixedColWidth = 25
      DefaultFixedRowHeight = 25
      Selection.AlphaBlend = False
      Selection.TransparentColor = False
      FrozenCol = 0
      FrozenRow = 0
      OnMouseDown = zgBGBillsMouseDown
      Align = alClient
    end
  end
  object pnlBGL: TPanel
    Left = 0
    Top = 42
    Width = 399
    Height = 393
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 2
    object pnlBGLList: TPanel
      Left = 0
      Top = 0
      Width = 399
      Height = 271
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object zgBGL: TZJGrid
        Left = 0
        Top = 0
        Width = 399
        Height = 271
        Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
        OptionsEx = []
        ColCount = 8
        RowCount = 2
        ShowGridLine = False
        DefaultColWidth = 73
        DefaultFixedColWidth = 25
        DefaultFixedRowHeight = 25
        Selection.AlphaBlend = False
        Selection.TransparentColor = False
        FrozenCol = 0
        FrozenRow = 0
        OnCellTextChanged = zgBGLCellTextChanged
        OnCopy = zgBGLCopy
        OnPaste = zgBGLPaste
        OnMouseDown = zgBGLMouseDown
        Align = alClient
      end
    end
    object pnlBGLMemo: TPanel
      Left = 0
      Top = 271
      Width = 399
      Height = 122
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      DesignSize = (
        399
        122)
      object lblPosition: TLabel
        Left = 5
        Top = 5
        Width = 96
        Height = 12
        Caption = #21464#26356#37096#20301#21450#21407#22240#65306
      end
      object lblDirection: TLabel
        Left = 5
        Top = 65
        Width = 96
        Height = 12
        Caption = #21464#26356#24037#31243#37327#35828#26126#65306
      end
      object dbmPos_Reason: TDBMemo
        Left = 5
        Top = 20
        Width = 389
        Height = 37
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'Pos_Reason'
        ParentCtl3D = False
        TabOrder = 0
        OnExit = dbmPos_ReasonExit
      end
      object dbmDirection: TDBMemo
        Left = 5
        Top = 80
        Width = 389
        Height = 37
        Anchors = [akLeft, akTop, akRight]
        Ctl3D = False
        DataField = 'Direction'
        ParentCtl3D = False
        TabOrder = 1
        OnExit = dbmPos_ReasonExit
      end
    end
  end
  object cbbBGLType: TZjComboBox
    Left = 198
    Top = 160
    Width = 145
    Height = 20
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'smartSimSun'
    Font.Style = []
    ItemHeight = 12
    ParentFont = False
    TabOrder = 3
    Visible = False
    Items.Strings = (
      #19968#33324
      #36739#22823
      #37325#22823)
  end
  object zaBGL: TZjGridDBA
    Columns = <
      item
        Title.Caption = #21464#26356#20196#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 = 'Code'
        Width = 80
        ReadOnly = False
      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 = 120
        ReadOnly = False
      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 = 60
        ReadOnly = True
      end
      item
        Title.Caption = #25209#22797#25991#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 = 'ApprovalCode'
        Width = 80
        ReadOnly = False
      end
      item
        Title.Caption = #21464#26356#22270#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 = 'DrawingCode'
        Width = 80
        ReadOnly = False
      end
      item
        Title.Caption = #21464#26356#24615#36136
        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 = 'BGLType'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = #24050#25191#34892'(%)'
        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 = 'ExecutionRate'
        Width = 60
        ReadOnly = True
      end>
    Grid = zgBGL
    ExtendRowCount = 1
    Left = 96
    Top = 88
  end
  object zaBGBills: TZjGridDBA
    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'
        Width = 60
        ReadOnly = False
      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 = 110
        ReadOnly = False
      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 = 'smartSimSun'
        Font.Style = []
        FieldName = 'Units'
        Width = 35
        ReadOnly = False
      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 = 45
        ReadOnly = False
      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 = 50
        ReadOnly = False
      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 = 50
        ReadOnly = True
      end
      item
        Title.Caption = #24050#21464#26356
        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 = 'UsedQuantity'
        Width = 50
        ReadOnly = True
      end>
    Grid = zgBGBills
    ExtendRowCount = 1
    OnGridSetCellText = zaBGBillsGridSetCellText
    Left = 96
    Top = 456
  end
  object alBGL: TActionList
    Images = MainForm.Images
    Left = 232
    Top = 88
    object actnNew: TAction
      Caption = #26032#22686#21464#26356#20196
      ImageIndex = 11
      OnExecute = actnNewExecute
    end
    object actnApply: TAction
      Caption = #24212#29992#21040#28165#21333
      ImageIndex = 32
    end
    object actnBatchWritePos_Reason: TAction
      Caption = #19968#38190#22635#21517#31216#33267#21407#22240
      Visible = False
      OnExecute = actnBatchWritePos_ReasonExecute
    end
    object actnCopyBGLBlock: TAction
      Caption = #22797#21046#25972#22359
      OnExecute = actnCopyBGLBlockExecute
      OnUpdate = actnCopyBGLBlockUpdate
    end
  end
  object dxpmBGL: TdxBarPopupMenu
    BarManager = MainForm.dxBarManager
    ItemLinks = <
      item
        Item = MainForm.dxbtnCopyBillsBlock
        Visible = True
      end
      item
        Item = MainForm.dxbtnCopy
        Visible = True
      end
      item
        Item = MainForm.dxbtnPaste
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnDelete
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnBatchWritePos_Reason
        Visible = True
      end>
    UseOwnFont = False
    OnPopup = dxpmBGLPopup
    Left = 168
    Top = 88
  end
  object dxpmBGBills: TdxBarPopupMenu
    BarManager = MainForm.dxBarManager
    ItemLinks = <
      item
        Item = MainForm.dxbtnCopy
        Visible = True
      end
      item
        Item = MainForm.dxbtnPaste
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnDelete
        Visible = True
      end>
    UseOwnFont = False
    Left = 160
    Top = 456
  end
end