123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745 |
- object PriceMarginBillsFrame: TPriceMarginBillsFrame
- Left = 0
- Top = 0
- Width = 1178
- Height = 645
- TabOrder = 0
- object pnlBills: TPanel
- Left = 0
- Top = 0
- Width = 1178
- Height = 645
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object sprDetail: TSplitter
- Left = 0
- Top = 435
- Width = 1178
- Height = 3
- Cursor = crVSplit
- Align = alBottom
- end
- object pnlGclBills: TPanel
- Left = 0
- Top = 0
- Width = 1178
- Height = 435
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object zgGclBills: TZJGrid
- Left = 0
- Top = 0
- Width = 1178
- Height = 435
- Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
- OptionsEx = []
- ColCount = 8
- RowCount = 6
- FixedRowCount = 2
- ShowGridLine = False
- DefaultColWidth = 73
- DefaultFixedColWidth = 25
- Selection.AlphaBlend = False
- Selection.TransparentColor = False
- FrozenCol = 0
- FrozenRow = 0
- Align = alClient
- end
- end
- object pnlDetail: TPanel
- Left = 0
- Top = 438
- Width = 1178
- Height = 207
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object sprRela: TSplitter
- Left = 638
- Top = 0
- Height = 207
- Align = alRight
- end
- object pnlRelaData: TPanel
- Left = 641
- Top = 0
- Width = 537
- Height = 207
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- object pnlRelaTop: TPanel
- Left = 0
- Top = 0
- Width = 537
- Height = 21
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object tbRelaTop: TToolBar
- Left = 0
- Top = 0
- Width = 134
- Height = 21
- Align = alLeft
- AutoSize = True
- ButtonHeight = 21
- ButtonWidth = 67
- EdgeBorders = []
- Flat = True
- ShowCaptions = True
- TabOrder = 0
- object tobtnDetailGL: TToolButton
- Left = 0
- Top = 0
- Caption = ' '#35843#24046#24037#26009' '
- Down = True
- ImageIndex = 2
- Style = tbsCheck
- end
- object tobtnParent: TToolButton
- Tag = 1
- Left = 67
- Top = 0
- Caption = #28165#21333#29238#39033
- ImageIndex = 0
- Style = tbsCheck
- end
- end
- end
- object jpsRela: TJimPages
- Left = 0
- Top = 21
- Width = 537
- Height = 186
- ActivePage = jpsRelaDetailGL
- ActivePageIndex = 0
- Align = alClient
- Caption = 'jpsRela'
- object jpsRelaDetailGL: TJimPage
- Left = 0
- Top = 0
- Width = 537
- Height = 186
- TabName = 'DetailGL'
- Caption = 'DetailGL'
- object zgDetailGL: TZJGrid
- Left = 0
- Top = 0
- Width = 537
- Height = 186
- Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
- OptionsEx = []
- ShowGridLine = False
- DefaultColWidth = 73
- DefaultFixedColWidth = 25
- Selection.AlphaBlend = False
- Selection.TransparentColor = False
- FrozenCol = 0
- FrozenRow = 0
- OnMouseDown = zgDetailGLMouseDown
- Align = alClient
- end
- end
- object jpsRelaBillsParent: TJimPage
- Left = 0
- Top = 0
- Width = 537
- Height = 186
- TabName = 'BillsParent'
- Caption = 'BillsParent'
- end
- end
- end
- object pnlDetailBills: TPanel
- Left = 0
- Top = 0
- Width = 638
- Height = 207
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object labTitle: TJimGradLabel
- Left = 0
- Top = 0
- Width = 638
- Height = 20
- Align = alTop
- AutoSize = False
- ColorBegin = clGradientInactiveCaption
- ColorEnd = clGradientInactiveCaption
- Caption = ' '#35814#32454#28165#21333
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = [fsBold]
- ParentFont = False
- Layout = tlCenter
- end
- object zgDetailGclBills: TZJGrid
- Left = 0
- Top = 20
- Width = 638
- Height = 187
- Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
- OptionsEx = []
- ColCount = 13
- RowCount = 6
- FixedRowCount = 2
- ShowGridLine = False
- DefaultColWidth = 73
- DefaultFixedColWidth = 25
- Selection.AlphaBlend = False
- Selection.TransparentColor = False
- FrozenCol = 0
- FrozenRow = 0
- OnMouseDown = zgDetailGclBillsMouseDown
- Align = alClient
- end
- end
- end
- end
- object saGclBills: TsdGridDBA
- Columns = <
- item
- Title.Caption = #28165#21333#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 = 'B_Code'
- ReadOnly = True
- 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 = 180
- 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 = 'smartSimSun'
- Font.Style = []
- FieldName = 'Units'
- Width = 45
- ReadOnly = True
- end
- item
- Title.Caption = #21333#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 = 'Price'
- Width = 60
- ReadOnly = True
- end
- item
- Title.Caption = #26412#26399#35745#37327#25968#37327'|'#21512#21516
- 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 = 'CurDealQuantity'
- Width = 65
- ReadOnly = True
- end
- item
- Title.Caption = '|'#25968#37327#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 = 'CurQcQuantity'
- Width = 65
- ReadOnly = True
- end
- item
- Title.Caption = '|'#23567#35745
- 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 = 'CurGatherQuantity'
- Width = 65
- ReadOnly = True
- end>
- Grid = zgGclBills
- ExtendRowCount = 3
- Options = []
- Left = 112
- Top = 96
- end
- object saDetailGclBills: TsdGridDBA
- Columns = <
- item
- Title.Caption = #25152#23646#39033#30446#33410'|'#32534#21495
- 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 = taLeftJustify
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- FieldName = 'XmjCode'
- Width = 80
- 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 = 'XmjName'
- 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 = 'XmjUnits'
- Width = 45
- ReadOnly = True
- end
- item
- Title.Caption = #37096#20301#20449#24687'|'#26729#21495
- 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 = taLeftJustify
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- FieldName = 'Peg'
- Width = 80
- ReadOnly = True
- end
- item
- Title.Caption = '|'#21333#20301#24037#31243
- 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 = 'NameDanWei'
- Width = 80
- ReadOnly = True
- end
- item
- Title.Caption = '|'#20998#37096#24037#31243
- 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 = 'NameFenBu'
- Width = 80
- ReadOnly = True
- end
- item
- Title.Caption = '|'#20998#39033#24037#31243
- 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 = 'NameFenXiang'
- Width = 80
- ReadOnly = True
- end
- item
- Title.Caption = '|'#35745#37327#21333#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 = taLeftJustify
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- FieldName = 'NameUnit'
- Width = 80
- ReadOnly = True
- end
- item
- Title.Caption = #26412#26399#35745#37327#25968#37327'|'#21512#21516
- 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 = 'CurDealQuantity'
- Width = 60
- ReadOnly = True
- end
- item
- Title.Caption = '|'#25968#37327#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 = 'CurQcQuantity'
- Width = 60
- ReadOnly = True
- end
- item
- Title.Caption = '|'#23567#35745
- 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 = 'CurGatherQuantity'
- Width = 60
- ReadOnly = True
- end
- item
- Title.Caption = #26412#26399#20215#24046
- 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_TotalPrice'
- Width = 60
- ReadOnly = True
- end>
- Grid = zgDetailGclBills
- ExtendRowCount = 3
- Options = []
- Left = 96
- Top = 496
- end
- object saDetailGL: TsdGridDBA
- Columns = <
- item
- Title.Caption = #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 = taCenter
- Font.Charset = GB2312_CHARSET
- Font.Color = clWindowText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- FieldName = 'Code'
- Width = 50
- 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 = 120
- 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 = 'smartSimSun'
- Font.Style = []
- FieldName = 'Units'
- Width = 45
- 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 = 60
- ReadOnly = False
- end>
- Grid = zgDetailGL
- ExtendRowCount = 3
- Options = [aoAllowEdit, aoAllowDelete, aoAutoInsert]
- Left = 728
- Top = 504
- end
- object dxpmDetailGL: TdxBarPopupMenu
- BarManager = MainForm.dxBarManager
- ItemLinks = <
- item
- Item = MainForm.dxbtnAddDetailGLs
- Visible = True
- end
- item
- Item = MainForm.dxbtnDelete
- Visible = True
- end>
- UseOwnFont = False
- OnPopup = dxpmDetailGLPopup
- Left = 768
- Top = 504
- end
- object actnPriceMarginBills: TActionList
- Images = MainForm.Images
- Left = 160
- Top = 96
- object actnAddDetailGLs: TAction
- Caption = #26032#22686#35843#24046#24037#26009
- ImageIndex = 2
- OnExecute = actnAddDetailGLsExecute
- OnUpdate = actnAddDetailGLsUpdate
- end
- object actnCopyDetailGLs: TAction
- Caption = #22797#21046#35843#24046#24037#26009
- ImageIndex = 4
- end
- object actnApplyToSameBills: TAction
- Caption = #24212#29992#35843#24046#24037#26009#33267#30456#21516#28165#21333
- OnExecute = actnApplyToSameBillsExecute
- OnUpdate = actnAddDetailGLsUpdate
- end
- end
- object dxpmDetailGclBills: TdxBarPopupMenu
- BarManager = MainForm.dxBarManager
- ItemLinks = <
- item
- Item = MainForm.dxbtnApplyToSameBills
- Visible = True
- end
- item
- BeginGroup = True
- Item = MainForm.dxbtnCopyDetailGls
- Visible = True
- end
- item
- Item = MainForm.dxbtnPaste
- Visible = True
- end>
- UseOwnFont = False
- OnPopup = dxpmDetailGclBillsPopup
- Left = 136
- Top = 496
- end
- object xpm: TXPMenu
- DimLevel = 30
- GrayLevel = 10
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clMenuText
- Font.Height = -12
- Font.Name = #23435#20307
- Font.Style = []
- Color = clBtnFace
- IconBackColor = clBtnFace
- MenuBarColor = clBtnFace
- SelectColor = 38640
- SelectBorderColor = clHighlight
- SelectFontColor = clMenuText
- DisabledColor = clInactiveCaption
- SeparatorColor = clBtnFace
- CheckedColor = clHighlight
- IconWidth = 24
- DrawSelect = True
- UseSystemColors = False
- OverrideOwnerDraw = False
- Gradient = False
- FlatMenu = False
- AutoDetect = True
- XPControls = [xcToolbar]
- Active = True
- ControlUseTrueXPStyle = True
- BtnRoundArc = 5
- BtnOutLineBorderColor = 7552000
- BtnInnerBorderMoveColor = 3257087
- BtnInnerBorderFocusColor = 15183500
- BtnSurfaceNormalColor = 16251903
- BtnSurfaceDownColor = 14608359
- BtnSurfaceBottomLineColor = 14608359
- BtnSurfaceDownBottomLineColor = 15199215
- RdoChkControlChkColor = 41472
- ComboBoxChkColor = 9201994
- ComboboxSurfaceMoveColor = 16771030
- ControlDisabledBorderColor = 11913158
- Left = 207
- Top = 96
- end
- end
|