Measure/Frames/ProjectGLFme.dfm

object ProjectGLFrame: TProjectGLFrame
  Left = 0
  Top = 0
  Width = 946
  Height = 313
  TabOrder = 0
  object zgProjectGL: TZJGrid
    Left = 0
    Top = 0
    Width = 646
    Height = 313
    Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
    OptionsEx = []
    ColCount = 18
    RowCount = 6
    FixedRowCount = 2
    ShowGridLine = False
    DefaultColWidth = 73
    DefaultFixedColWidth = 25
    Selection.AlphaBlend = False
    Selection.TransparentColor = False
    FrozenCol = 0
    FrozenRow = 0
    OnMouseDown = zgProjectGLMouseDown
    Align = alClient
  end
  object zgGather: TZJGrid
    Left = 646
    Top = 0
    Width = 300
    Height = 313
    Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
    OptionsEx = []
    ColCount = 4
    ShowGridLine = False
    DefaultColWidth = 73
    DefaultFixedColWidth = 25
    Selection.AlphaBlend = False
    Selection.TransparentColor = False
    FrozenCol = 0
    FrozenRow = 0
    Align = alRight
  end
  object saProjectGL: TsdGridDBA
    Columns = <
      item
        Title.Caption = #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 = taCenter
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        FieldName = 'Code'
        Width = 60
        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 = 150
        ReadOnly = False
      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 = 'smartSimSun'
        Font.Style = []
        FieldName = 'Units'
        Width = 45
        ReadOnly = False
      end
      item
        Title.Caption = #35268#26684
        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 = 'Specs'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = #26412#26399#24212#32791#25968#37327
        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 = 'PM_Quantity'
        Width = 85
        ReadOnly = True
      end
      item
        Title.Caption = #22522#20934#20215
        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 = 'BasePrice'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = #26412#26399#20449#24687#20215'|'#20215#26684
        Title.CaptionAcrossCols = '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 = 'InfoPrice'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = '|'#26102#38388
        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 = 'InfoDate'
        ReadOnly = False
      end
      item
        Title.Caption = '|'#20215#24046
        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 = 'DeltaPrice'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = #26412#26399#26448#26009#35843#24046'|'#39118#38505#24133#24230
        Title.CaptionAcrossCols = '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 = 'RiskRange'
        Width = 60
        ReadOnly = False
      end
      item
        Title.Caption = '|'#26377#25928#20215#24046
        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 = 'ValidDeltaPrice'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = '|'#35843#24046#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 = 'PM_TotalPrice'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = #26412#26399#23454#32791#20998#26512'|'#26412#26399#23454#32791#25968#37327
        Title.CaptionAcrossCols = '5'
        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 = 85
        ReadOnly = False
      end
      item
        Title.Caption = #26412#26399#28040#32791#30408#20111'|'#25968#37327#24046
        Title.CaptionAcrossCols = '4'
        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 = 'PAL_UsedQuantity'
        Width = 60
        ReadOnly = True
      end
      item
        Title.Caption = '|'#25968#37327#24046#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 = 'PAL_UsedTotalPrice'
        Width = 70
        ReadOnly = True
      end
      item
        Title.Caption = '|'#23454#32791#20215#24046#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 = 'PAL_DeltaPrice'
        Width = 85
        ReadOnly = True
      end
      item
        Title.Caption = '|'#33410#20313#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 = 'PAL_Total'
        Width = 60
        ReadOnly = True
      end>
    Grid = zgProjectGL
    ExtendRowCount = 3
    Options = [aoAllowInsert, aoAllowEdit, aoAllowDelete, aoAutoInsert]
    Left = 96
    Top = 88
  end
  object dxpmProjectGL: TdxBarPopupMenu
    BarManager = MainForm.dxBarManager
    ItemLinks = <
      item
        Item = MainForm.dxbtnCalculatePriceMargin
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnCopy
        Visible = True
      end
      item
        Item = MainForm.dxbtnPaste
        Visible = True
      end
      item
        BeginGroup = True
        Item = MainForm.dxbtnDelete
        Visible = True
      end>
    UseOwnFont = False
    OnPopup = dxpmProjectGLPopup
    Left = 152
    Top = 88
  end
  object actnProjectGL: TActionList
    Images = MainForm.Images
    Left = 208
    Top = 88
    object actnCalculatePriceMargin: TAction
      Caption = #20215#24046#35745#31639
      ImageIndex = 15
      OnExecute = actnCalculatePriceMarginExecute
    end
  end
  object saGather: TsdGridDBA
    Columns = <
      item
        Title.Caption = #36153#29992#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 = #26412#26399#37329#39069'('#20803')'
        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 = 'CurTotalPrice'
        Width = 85
        ReadOnly = True
      end
      item
        Title.Caption = #32047#35745#37329#39069'('#20803')'
        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 = 'AddTotalPrice'
        Width = 85
        ReadOnly = True
      end>
    Grid = zgGather
    ExtendRowCount = 0
    Options = []
    Left = 744
    Top = 104
  end
end