Measure/Frames/BillsCompileFme.dfm

object BillsCompileFrame: TBillsCompileFrame
  Left = 0
  Top = 0
  Width = 1052
  Height = 397
  TabOrder = 0
  object pnlExprs: TPanel
    Left = 0
    Top = 0
    Width = 1052
    Height = 21
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    DesignSize = (
      1052
      21)
    object laEdtExprs: TLabeledEdit
      Left = 56
      Top = 1
      Width = 995
      Height = 20
      Anchors = [akLeft, akTop, akRight]
      Ctl3D = True
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #34920#36798#24335#65306
      LabelPosition = lpLeft
      ParentCtl3D = False
      TabOrder = 0
      OnExit = laEdtExprsExit
      OnKeyDown = laEdtExprsKeyDown
    end
  end
  object pnlBills: TPanel
    Left = 0
    Top = 21
    Width = 1052
    Height = 376
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object zgBillsCompile: TZJGrid
      Left = 0
      Top = 0
      Width = 1052
      Height = 376
      Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection, goShowTreeLine]
      OptionsEx = []
      ColCount = 23
      RowCount = 7
      FixedRowCount = 3
      ShowGridLine = False
      DefaultColWidth = 73
      DefaultFixedColWidth = 30
      Selection.AlphaBlend = False
      Selection.TransparentColor = False
      OnCustomPaste = zgBillsCompileCustomPaste
      OnCopy = zgBillsCompileCopy
      OnPaste = zgBillsCompilePaste
      OnCellGetColor = zgBillsCompileCellGetColor
      OnCellGetFont = zgBillsCompileCellGetFont
      OnMouseDown = zgBillsCompileMouseDown
      OnKeyDown = zgBillsCompileKeyDown
      Align = alClient
    end
  end
  object dxpmBillsCompile: TdxBarPopupMenu
    BarManager = MainForm.dxBarManager
    ItemLinks = <
      item
        Item = MainForm.dxbtnCalculateLedger
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnCopyBillsBlock
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnCopy
        Visible = True
      end
      item
        Item = MainForm.dxbtnPaste
        Visible = True
      end
      item
        Item = MainForm.dxbtnCut
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnRemapedPaste
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnBatchAddChild
        Visible = True
      end
      item
        Item = MainForm.dxbtnBatchAddNext
        Visible = True
      end
      item
        Item = MainForm.dxbtnReorderChildrenCode
        Visible = True
      end
      item
        Item = MainForm.dxbtnBatchReplaceBillsInfo
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnImportGclBillsToXmj
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnCheckAndClear
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnSetBookmark
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnUnlockInfo
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnInsert
        Visible = True
      end
      item
        Item = MainForm.dxseBatchInsert
        Visible = True
      end
      item
        Visible = True
      end
      item
        Item = MainForm.dxbtnDelete
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnExportGridToExcel
        Visible = True
      end>
    UseOwnFont = False
    OnPopup = dxpmBillsCompilePopup
    Left = 120
    Top = 120
  end
  object stdBillsCompile: TsdGridTreeDBA
    Columns = <
      item
        Title.Caption = #39033#30446#33410#32534#21495
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = 150
        ReadOnly = False
      end
      item
        Title.Caption = #28165#21333#32534#21495
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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.CaptionAcrossRows = 3
        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 = 180
        ReadOnly = False
      end
      item
        Title.Caption = #21035#21517
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = 'Alias'
        Visible = False
        ReadOnly = False
      end
      item
        Title.Caption = #21333#20301
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = 55
        ReadOnly = False
      end
      item
        Title.Caption = #21333#20215
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = False
      end
      item
        Title.Caption = #35774#35745#25968#37327'||'#25968#37327'1'
        Title.CaptionAcrossCols = '2'
        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 = 'DgnQuantity1'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = '||'#25968#37327'2'
        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 = 'DgnQuantity2'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = #32463#27982#25351#26631
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = 'DgnPrice'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = '0'#21495#21488#36134#21512#21516'|'#26045#24037#22270#21407#35774#35745'|'#25968#37327
        Title.CaptionAcrossCols = '8|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 = 'OrgQuantity'
        Width = 60
        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 = 'OrgTotalPrice'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = '|'#35774#35745#38169#28431#22686#20943'|'#25968#37327
        Title.CaptionAcrossCols = '0|2'
        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 = 'MisQuantity'
        Width = 60
        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 = 'MisTotalPrice'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = '|'#20854#20182#38169#28431#22686#20943'|'#25968#37327
        Title.CaptionAcrossCols = '0|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 = 'OthQuantity'
        Width = 60
        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 = 'OthTotalPrice'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = '|'#23567#35745'|'#25968#37327
        Title.CaptionAcrossCols = '0|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 = 'Quantity'
        Width = 60
        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 = 60
        ReadOnly = True
      end
      item
        Title.Caption = 'ParentID'
        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 = 'ParentID'
        Visible = False
        ReadOnly = False
      end
      item
        Title.Caption = 'NextSiblingID'
        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 = 'NextSiblingID'
        Visible = False
        ReadOnly = False
      end
      item
        Title.Caption = #22270'('#20876')'#21495
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = 60
        ReadOnly = False
      end
      item
        Title.Caption = #22791#27880
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = 'MemoStr'
        ReadOnly = False
      end
      item
        Title.Caption = #38145#23450
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        EditType = sgeCheckBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'LockedInfo'
        Width = 40
        ReadOnly = True
      end
      item
        Title.Caption = #21464#26356#28165#21333
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        Title.Font.Charset = GB2312_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -12
        Title.Font.Name = #23435#20307
        Title.Font.Style = []
        Alignment = taLeftJustify
        EditType = sgeCheckBox
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'IsMeasureAdd'
        Width = 40
        ReadOnly = True
      end
      item
        Title.Caption = #21512#21516#32534#21495
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = 'DealCode'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = #21512#21516#31614#35746#21333#20301
        Title.CaptionAcrossCols = '1'
        Title.CaptionAcrossRows = 3
        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 = 'DealCompany'
        Width = 80
        ReadOnly = False
      end
      item
        Title.Caption = 'ID'
        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 = 'ID'
        Width = 50
        Visible = False
        ReadOnly = True
      end
      item
        Title.Caption = 'ParentID'
        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 = 'ParentID'
        Width = 50
        Visible = False
        ReadOnly = True
      end
      item
        Title.Caption = 'NextSiblingID'
        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 = 'NextSiblingID'
        Width = 50
        Visible = False
        ReadOnly = True
      end>
    Grid = zgBillsCompile
    ExtendRowCount = 3
    AutoExpand = False
    KeyFieldName = 'ID'
    ParentFieldName = 'ParentID'
    NextSiblingFieldName = 'NextSiblingID'
    TopLevelBold = True
    Left = 72
    Top = 120
  end
  object alBillsCompile: TActionList
    Images = MainForm.Images
    Left = 176
    Top = 120
    object actnCalculateLedger: TAction
      Caption = #21488#36134#35745#31639
      ImageIndex = 15
      OnExecute = actnCalculateLedgerExecute
    end
    object actnCopyBillsBlock: TAction
      Caption = #22797#21046#25972#22359
      OnExecute = actnCopyBillsBlockExecute
    end
    object actnExportGridToExcel: TAction
      Caption = #23548#20986#34920#26684#25968#25454
      ImageIndex = 13
      OnExecute = actnExportGridToExcelExecute
    end
    object actnBatchAddChild: TAction
      Caption = #25209#37327#25554#20837#23376#39033
      OnExecute = actnBatchAddChildExecute
      OnUpdate = actnBatchAddChildUpdate
    end
    object actnBatchAddNext: TAction
      Caption = #25209#37327#25554#20837#21518#39033
      OnExecute = actnBatchAddNextExecute
      OnUpdate = actnBatchAddNextUpdate
    end
    object actnReorderChildrenCode: TAction
      Caption = #39034#24207#37325#25490#23376#39033#32534#21495
      OnExecute = actnReorderChildrenCodeExecute
      OnUpdate = actnReorderChildrenCodeUpdate
    end
    object actnBatchReplaceBillsInfo: TAction
      Caption = #25209#37327#26367#25442#28165#21333#20449#24687
      OnExecute = actnBatchReplaceBillsInfoExecute
      OnUpdate = actnBatchReplaceBillsInfoUpdate
    end
    object actnCheckAndClear: TAction
      Caption = #26816#26597#28165#29702
      OnExecute = actnCheckAndClearExecute
    end
    object actnModifiedDealBills: TAction
      Caption = #32534#36753#31614#32422#28165#21333
      OnExecute = actnModifiedDealBillsExecute
      OnUpdate = actnModifiedDealBillsUpdate
    end
    object actnSetBillsBookmark: TAction
      Caption = #35774#32622'/'#21462#28040#20070#31614
      OnExecute = actnSetBillsBookmarkExecute
    end
    object actnImportGclBillsToXmj: TAction
      Caption = #23548#20837#24037#31243#37327#28165#21333#33267#39033#30446#33410
      OnExecute = actnImportGclBillsToXmjExecute
      OnUpdate = actnImportGclBillsToXmjUpdate
    end
  end
end