| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349 | 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 = 10    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      item        Title.Caption = #22270#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 = 'DrawingCode'        ReadOnly = False      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  endend
 |