Measure/Forms/BatchInsertBillsFrm.dfm

object BatchInsertBillsForm: TBatchInsertBillsForm
  Left = 384
  Top = 229
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25209#37327#25554#20837#21518#39033
  ClientHeight = 382
  ClientWidth = 779
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object pnlButton: TPanel
    Left = 0
    Top = 354
    Width = 779
    Height = 28
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object lblHint: TLabel
      Left = 6
      Top = 8
      Width = 204
      Height = 12
      Caption = #21487#20174#31614#32422#21512#21516#28165#21333#22788#21452#20987#28155#21152#28165#21333#20449#24687
      Font.Charset = ANSI_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      Visible = False
    end
    object btnOK: TButton
      Left = 615
      Top = 1
      Width = 72
      Height = 23
      Caption = #30830'  '#23450
      TabOrder = 0
      OnClick = btnOKClick
    end
    object btnCancel: TButton
      Left = 702
      Top = 1
      Width = 72
      Height = 23
      Caption = #21462'  '#28040
      ModalResult = 2
      TabOrder = 1
    end
  end
  object pnlAllGrid: TPanel
    Left = 0
    Top = 0
    Width = 779
    Height = 354
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object pnlPositon_Bills: TPanel
      Left = 0
      Top = 0
      Width = 480
      Height = 354
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 0
      object pnlPosition: TPanel
        Left = 0
        Top = 0
        Width = 480
        Height = 194
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
        object lblPostion: TLabel
          Left = 8
          Top = 8
          Width = 84
          Height = 12
          Caption = #37096#20301#25968#37327#22797#26680#34920
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object zgPosition: TZJGrid
          Left = 3
          Top = 27
          Width = 474
          Height = 166
          OptionsEx = []
          ColCount = 9
          ShowGridLine = False
          DefaultColWidth = 50
          DefaultFixedColWidth = 25
          Selection.AlphaBlend = False
          Selection.TransparentColor = False
          FrozenCol = 0
          FrozenRow = 0
          OnCellTextChanged = zgPositionCellTextChanged
          OnCustomPaste = zgPositionCustomPaste
          OnMouseDown = zgPositionMouseDown
        end
        object pnlPositionSpr: TPanel
          Left = 99
          Top = 14
          Width = 378
          Height = 2
          BevelInner = bvLowered
          BevelOuter = bvNone
          TabOrder = 1
        end
      end
      object pnlBills: TPanel
        Left = 0
        Top = 194
        Width = 480
        Height = 135
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 1
        object lblBills: TLabel
          Left = 8
          Top = 8
          Width = 48
          Height = 12
          Caption = #28165#21333#32534#21495
          Font.Charset = ANSI_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object zgBills: TZJGrid
          Left = 2
          Top = 27
          Width = 475
          Height = 105
          OptionsEx = []
          ColCount = 6
          RowCount = 7
          ShowGridLine = False
          DefaultColWidth = 50
          DefaultFixedColWidth = 60
          Selection.AlphaBlend = False
          Selection.TransparentColor = False
          FrozenCol = 0
          FrozenRow = 0
          OnCellTextChanged = zgBillsCellTextChanged
          OnMouseDown = zgPositionMouseDown
        end
        object pnlBillsSpr: TPanel
          Left = 62
          Top = 14
          Width = 414
          Height = 2
          BevelInner = bvLowered
          BevelOuter = bvNone
          TabOrder = 1
        end
      end
      object pnlOther: TPanel
        Left = 0
        Top = 329
        Width = 480
        Height = 25
        Align = alBottom
        BevelOuter = bvNone
        TabOrder = 2
        object leBeginCode: TLabeledEdit
          Left = 99
          Top = 1
          Width = 38
          Height = 20
          EditLabel.Width = 90
          EditLabel.Height = 12
          EditLabel.Caption = #36215#22987#37096#20301#32534#21495#65306' '
          EditLabel.Font.Charset = ANSI_CHARSET
          EditLabel.Font.Color = clBlue
          EditLabel.Font.Height = -12
          EditLabel.Font.Name = #23435#20307
          EditLabel.Font.Style = []
          EditLabel.ParentFont = False
          LabelPosition = lpLeft
          TabOrder = 0
          Text = '1'
          OnKeyPress = leBeginCodeKeyPress
        end
        object leDrawingCode: TLabeledEdit
          Left = 231
          Top = 0
          Width = 244
          Height = 20
          EditLabel.Width = 66
          EditLabel.Height = 12
          EditLabel.Caption = #22270'('#20876')'#21495#65306' '
          EditLabel.Font.Charset = ANSI_CHARSET
          EditLabel.Font.Color = clBlue
          EditLabel.Font.Height = -12
          EditLabel.Font.Name = #23435#20307
          EditLabel.Font.Style = []
          EditLabel.ParentFont = False
          LabelPosition = lpLeft
          MaxLength = 255
          TabOrder = 1
          Visible = False
        end
        object udBeginCode: TUpDown
          Left = 137
          Top = 1
          Width = 16
          Height = 20
          Associate = leBeginCode
          Max = 10
          Position = 1
          TabOrder = 2
        end
      end
    end
    object pnlDealBills: TPanel
      Left = 480
      Top = 0
      Width = 299
      Height = 354
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      object lblDealBills: TLabel
        Left = 5
        Top = 8
        Width = 48
        Height = 12
        Caption = #31614#32422#28165#21333
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object zgDealBills: TZJGrid
        Left = 0
        Top = 27
        Width = 295
        Height = 322
        Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
        OptionsEx = []
        RowCount = 7
        ShowGridLine = False
        DefaultColWidth = 50
        DefaultFixedColWidth = 25
        Selection.AlphaBlend = False
        Selection.TransparentColor = False
        FrozenCol = 0
        FrozenRow = 0
        OnMouseDown = zgDealBillsMouseDown
      end
      object pnlDealBillsSpr: TPanel
        Left = 58
        Top = 14
        Width = 236
        Height = 2
        BevelInner = bvLowered
        BevelOuter = bvNone
        TabOrder = 1
      end
    end
  end
  object dxpmInsertBills: TdxBarPopupMenu
    BarManager = MainForm.dxBarManager
    ItemLinks = <
      item
        Visible = True
      end
      item
        Visible = True
      end
      item
        Item = MainForm.dxbtnCopy
        Visible = True
      end
      item
        Item = MainForm.dxbtnPaste
        Visible = True
      end
      item
        Item = MainForm.dxbtnInsertCol
        Visible = True
      end>
    UseOwnFont = False
    OnPopup = dxpmInsertBillsPopup
    Left = 139
    Top = 99
  end
  object sgdDealBills: 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'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = #28165#21333#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 = 80
        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 = 40
        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 = 60
        ReadOnly = True
      end>
    Grid = zgDealBills
    ExtendRowCount = 0
    Options = []
    Left = 568
    Top = 139
  end
  object alBatchInsertBills: TActionList
    Left = 203
    Top = 99
    object actnInsertCol: TAction
      Caption = #25554#20837#19968#21015
      OnExecute = actnInsertColExecute
    end
  end
end