123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331 |
- object tpPeg_GclFrame: TtpPeg_GclFrame
- Left = 0
- Top = 0
- Width = 703
- Height = 484
- TabOrder = 0
- object sprPeg_Gcl: TSplitter
- Left = 0
- Top = 281
- Width = 703
- Height = 3
- Cursor = crVSplit
- Align = alBottom
- end
- object zgGclBills: TZJGrid
- Left = 0
- Top = 284
- Width = 703
- Height = 200
- Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
- OptionsEx = []
- ColCount = 7
- ShowGridLine = False
- DefaultColWidth = 73
- DefaultFixedColWidth = 25
- Selection.AlphaBlend = False
- Selection.TransparentColor = False
- FrozenCol = 0
- FrozenRow = 0
- Align = alBottom
- end
- object zgPeg: TZJGrid
- Left = 0
- Top = 0
- Width = 703
- Height = 281
- Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
- OptionsEx = []
- ColCount = 9
- RowCount = 6
- FixedRowCount = 2
- ShowGridLine = False
- DefaultColWidth = 73
- DefaultFixedColWidth = 25
- Selection.AlphaBlend = False
- Selection.TransparentColor = False
- FrozenCol = 0
- FrozenRow = 0
- Align = alClient
- end
- object saGclBills: 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'
- 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 = 200
- 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 = 45
- 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 = 80
- 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 = 80
- 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 = 80
- ReadOnly = True
- end>
- Grid = zgGclBills
- ExtendRowCount = 0
- Options = []
- Left = 120
- Top = 296
- end
- object saPeg: TsdGridDBA
- Columns = <
- item
- Title.Caption = #39033#30446#33410#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 = 'Code'
- Width = 120
- 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 = 200
- 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 = #23435#20307
- Font.Style = []
- FieldName = 'Unit'
- Width = 45
- ReadOnly = True
- end
- item
- Title.Caption = #37329#39069
- 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 = 'TotalPrice'
- Width = 80
- ReadOnly = True
- end
- item
- Title.Caption = #36215#28857'|'#26729#21495
- Title.CaptionAcrossCols = '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 = 'BeginPeg'
- ReadOnly = False
- end
- item
- Title.Caption = '|'#20540
- 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 = 'BeginPegNum'
- Width = 60
- ReadOnly = False
- end
- item
- Title.Caption = #32456#28857'|'#26729#21495
- Title.CaptionAcrossCols = '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 = 'EndPeg'
- ReadOnly = True
- end
- item
- Title.Caption = '|'#20540
- 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 = 'EndPegNum'
- Width = 60
- ReadOnly = True
- end>
- Grid = zgPeg
- ExtendRowCount = 0
- Options = []
- Left = 120
- Top = 88
- end
- object dxBarPopupMenu1: TdxBarPopupMenu
- BarManager = tpMainForm.dxBarManager
- ItemLinks = <
- item
- Item = tpMainForm.dxbtnGatherGclBills
- Visible = True
- end>
- UseOwnFont = False
- Left = 176
- Top = 88
- end
- end
|