object BatchInsertBillsForm: TBatchInsertBillsForm Left = 384 Top = 229 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = #25209#37327#25554#20837#21518#39033 ClientHeight = 382 ClientWidth = 779 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poMainFormCenter PixelsPerInch = 96 TextHeight = 12 object pnlButton: TPanel Left = 0 Top = 354 Width = 779 Height = 28 Align = alBottom BevelOuter = bvNone TabOrder = 0 object lblHint: TLabel Left = 6 Top = 8 Width = 204 Height = 12 Caption = #21487#20174#31614#32422#21512#21516#28165#21333#22788#21452#20987#28155#21152#28165#21333#20449#24687 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False Visible = False end object btnOK: TButton Left = 615 Top = 1 Width = 72 Height = 23 Caption = #30830' '#23450 TabOrder = 0 OnClick = btnOKClick end object btnCancel: TButton Left = 702 Top = 1 Width = 72 Height = 23 Caption = #21462' '#28040 ModalResult = 2 TabOrder = 1 end end object pnlAllGrid: TPanel Left = 0 Top = 0 Width = 779 Height = 354 Align = alClient BevelOuter = bvNone TabOrder = 1 object pnlPositon_Bills: TPanel Left = 0 Top = 0 Width = 480 Height = 354 Align = alClient BevelOuter = bvNone TabOrder = 0 object pnlPosition: TPanel Left = 0 Top = 0 Width = 480 Height = 194 Align = alClient BevelOuter = bvNone TabOrder = 0 object lblPostion: TLabel Left = 8 Top = 8 Width = 84 Height = 12 Caption = #37096#20301#25968#37327#22797#26680#34920 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object zgPosition: TZJGrid Left = 3 Top = 27 Width = 474 Height = 166 OptionsEx = [] ColCount = 8 ShowGridLine = False DefaultColWidth = 50 DefaultFixedColWidth = 25 Selection.AlphaBlend = False Selection.TransparentColor = False FrozenCol = 0 FrozenRow = 0 OnCellTextChanged = zgPositionCellTextChanged OnCustomPaste = zgPositionCustomPaste OnMouseDown = zgPositionMouseDown end object pnlPositionSpr: TPanel Left = 99 Top = 14 Width = 378 Height = 2 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 1 end end object pnlBills: TPanel Left = 0 Top = 194 Width = 480 Height = 135 Align = alBottom BevelOuter = bvNone TabOrder = 1 object lblBills: TLabel Left = 8 Top = 8 Width = 48 Height = 12 Caption = #28165#21333#32534#21495 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object zgBills: TZJGrid Left = 2 Top = 27 Width = 475 Height = 105 OptionsEx = [] ColCount = 6 RowCount = 7 ShowGridLine = False DefaultColWidth = 50 DefaultFixedColWidth = 60 Selection.AlphaBlend = False Selection.TransparentColor = False FrozenCol = 0 FrozenRow = 0 OnCellTextChanged = zgBillsCellTextChanged OnMouseDown = zgPositionMouseDown end object pnlBillsSpr: TPanel Left = 62 Top = 14 Width = 414 Height = 2 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 1 end end object pnlOther: TPanel Left = 0 Top = 329 Width = 480 Height = 25 Align = alBottom BevelOuter = bvNone TabOrder = 2 object leBeginCode: TLabeledEdit Left = 99 Top = 1 Width = 38 Height = 20 EditLabel.Width = 90 EditLabel.Height = 12 EditLabel.Caption = #36215#22987#37096#20301#32534#21495#65306' ' EditLabel.Font.Charset = ANSI_CHARSET EditLabel.Font.Color = clBlue EditLabel.Font.Height = -12 EditLabel.Font.Name = #23435#20307 EditLabel.Font.Style = [] EditLabel.ParentFont = False LabelPosition = lpLeft TabOrder = 0 Text = '1' OnKeyPress = leBeginCodeKeyPress end object leDrawingCode: TLabeledEdit Left = 231 Top = 0 Width = 244 Height = 20 EditLabel.Width = 66 EditLabel.Height = 12 EditLabel.Caption = #22270'('#20876')'#21495#65306' ' EditLabel.Font.Charset = ANSI_CHARSET EditLabel.Font.Color = clBlue EditLabel.Font.Height = -12 EditLabel.Font.Name = #23435#20307 EditLabel.Font.Style = [] EditLabel.ParentFont = False LabelPosition = lpLeft MaxLength = 255 TabOrder = 1 end object udBeginCode: TUpDown Left = 137 Top = 1 Width = 16 Height = 20 Associate = leBeginCode Max = 10 Position = 1 TabOrder = 2 end end end object pnlDealBills: TPanel Left = 480 Top = 0 Width = 299 Height = 354 Align = alRight BevelOuter = bvNone TabOrder = 1 object lblDealBills: TLabel Left = 5 Top = 8 Width = 48 Height = 12 Caption = #31614#32422#28165#21333 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False end object zgDealBills: TZJGrid Left = 0 Top = 27 Width = 295 Height = 322 Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection] OptionsEx = [] RowCount = 7 ShowGridLine = False DefaultColWidth = 50 DefaultFixedColWidth = 25 Selection.AlphaBlend = False Selection.TransparentColor = False FrozenCol = 0 FrozenRow = 0 OnMouseDown = zgDealBillsMouseDown end object pnlDealBillsSpr: TPanel Left = 58 Top = 14 Width = 236 Height = 2 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 1 end end end object dxpmInsertBills: TdxBarPopupMenu BarManager = MainForm.dxBarManager ItemLinks = < item Visible = True end item Visible = True end item Item = MainForm.dxbtnCopy Visible = True end item Item = MainForm.dxbtnPaste Visible = True end item Item = MainForm.dxbtnInsertCol Visible = True end> UseOwnFont = False OnPopup = dxpmInsertBillsPopup Left = 139 Top = 99 end object sgdDealBills: 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' Width = 60 ReadOnly = True end item Title.Caption = #28165#21333#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 = #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 = 40 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 = 60 ReadOnly = True end> Grid = zgDealBills ExtendRowCount = 0 Options = [] Left = 568 Top = 139 end object alBatchInsertBills: TActionList Left = 203 Top = 99 object actnInsertCol: TAction Caption = #25554#20837#19968#21015 OnExecute = actnInsertColExecute end end end