frminstore.vb

一个公司的光盘仓库管理软件源码

            '
            'ToolBar1
            '
            Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
            Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.tlbFirst, Me.tlbPreview, Me.tlbNext, Me.tlbEnd, Me.ToolBarButton5, Me.tlbNew, Me.tlbEdit, Me.tlbSave, Me.tlbCancel, Me.tlbDelete, Me.tlbExit})
            Me.ToolBar1.DropDownArrows = True
            Me.ToolBar1.ImageList = Me.ImageList1
            Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
            Me.ToolBar1.Name = "ToolBar1"
            Me.ToolBar1.ShowToolTips = True
            Me.ToolBar1.Size = New System.Drawing.Size(904, 28)
            Me.ToolBar1.TabIndex = 31
            Me.ToolBar1.TextAlign = System.Windows.Forms.ToolBarTextAlign.Right
            '
            'tlbFirst
            '
            Me.tlbFirst.ImageIndex = 0
            Me.tlbFirst.Text = "第一条"
            Me.tlbFirst.Visible = False
            '
            'tlbPreview
            '
            Me.tlbPreview.ImageIndex = 1
            Me.tlbPreview.Text = "前一条"
            Me.tlbPreview.Visible = False
            '
            'tlbNext
            '
            Me.tlbNext.ImageIndex = 2
            Me.tlbNext.Text = "后一条"
            Me.tlbNext.Visible = False
            '
            'tlbEnd
            '
            Me.tlbEnd.ImageIndex = 3
            Me.tlbEnd.Text = "末一条"
            Me.tlbEnd.Visible = False
            '
            'ToolBarButton5
            '
            Me.ToolBarButton5.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
            Me.ToolBarButton5.Visible = False
            '
            'tlbNew
            '
            Me.tlbNew.ImageIndex = 4
            Me.tlbNew.Text = "新建(&New)"
            '
            'tlbEdit
            '
            Me.tlbEdit.ImageIndex = 5
            Me.tlbEdit.Text = "编辑(&Edit)"
            Me.tlbEdit.Visible = False
            '
            'tlbSave
            '
            Me.tlbSave.ImageIndex = 6
            Me.tlbSave.Text = "保存(&Save)"
            '
            'tlbCancel
            '
            Me.tlbCancel.ImageIndex = 8
            Me.tlbCancel.Text = "取消(&Cancel)"
            '
            'tlbDelete
            '
            Me.tlbDelete.ImageIndex = 9
            Me.tlbDelete.Text = "删除(&Delete)"
            Me.tlbDelete.Visible = False
            '
            'tlbExit
            '
            Me.tlbExit.ImageIndex = 10
            Me.tlbExit.Text = "退出(&Exit)"
            '
            'ImageList1
            '
            Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
            Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
            Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
            '
            'Label9
            '
            Me.Label9.Location = New System.Drawing.Point(16, 392)
            Me.Label9.Name = "Label9"
            Me.Label9.Size = New System.Drawing.Size(48, 23)
            Me.Label9.TabIndex = 32
            Me.Label9.Text = "备注"
            '
            'txbInStoreMemo
            '
            Me.txbInStoreMemo.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
            Me.txbInStoreMemo.Location = New System.Drawing.Point(80, 392)
            Me.txbInStoreMemo.Name = "txbInStoreMemo"
            Me.txbInStoreMemo.Size = New System.Drawing.Size(810, 21)
            Me.txbInStoreMemo.TabIndex = 4
            Me.txbInStoreMemo.Text = ""
            '
            'tdbg_InStore
            '
            Me.tdbg_InStore.AllowDelete = True
            Me.tdbg_InStore.AlternatingRows = True
            Me.tdbg_InStore.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
            Me.tdbg_InStore.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
            Me.tdbg_InStore.ColumnFooters = True
            Me.tdbg_InStore.GroupByCaption = "Drag a column header here to group by that column"
            Me.tdbg_InStore.Images.Add(CType(resources.GetObject("resource"), System.Drawing.Image))
            Me.tdbg_InStore.Location = New System.Drawing.Point(8, 72)
            Me.tdbg_InStore.Name = "tdbg_InStore"
            Me.tdbg_InStore.PreviewInfo.Location = New System.Drawing.Point(0, 0)
            Me.tdbg_InStore.PreviewInfo.Size = New System.Drawing.Size(0, 0)
            Me.tdbg_InStore.PreviewInfo.ZoomFactor = 75
            Me.tdbg_InStore.RowDivider.Color = System.Drawing.Color.FromArgb(CType(224, Byte), CType(224, Byte), CType(224, Byte))
            Me.tdbg_InStore.RowDivider.Style = C1.Win.C1TrueDBGrid.LineStyleEnum.Single
            Me.tdbg_InStore.Size = New System.Drawing.Size(888, 312)
            Me.tdbg_InStore.TabIndex = 3
            Me.tdbg_InStore.Text = "tdbg_InStore"
            Me.tdbg_InStore.PropBag = "<?xml version=""1.0""?><Blob><DataCols><C1DataColumn Caption=""序号"" DataField=""序号"" Da" & _
            "taTypeInternal=""System.Int16""><ValueItems /><GroupInfo /></C1DataColumn><C1DataC" & _
            "olumn Caption=""规格单号"" DataField=""规格单号"" DropDownCtl=""tdbd_SpecBill""><ValueItems />" & _
            "<GroupInfo /></C1DataColumn><C1DataColumn Caption=""库位号"" DataField=""库位号"" DropDown" & _
            "Ctl=""tdbd_StorePosition""><ValueItems /><GroupInfo /></C1DataColumn><C1DataColumn" & _
            " Caption=""客户名称"" DataField=""客户名称""><ValueItems /><GroupInfo /></C1DataColumn><C1Da" & _
            "taColumn Caption=""内编码"" DataField=""内编码""><ValueItems /><GroupInfo /></C1DataColumn" & _
            "><C1DataColumn Caption=""节目名称"" DataField=""节目名称""><ValueItems /><GroupInfo /></C1Da" & _
            "taColumn><C1DataColumn Caption=""母盘号码"" DataField=""母盘号码""><ValueItems /><GroupInfo " & _
            "/></C1DataColumn><C1DataColumn Caption=""菲林索引"" DataField=""菲林索引""><ValueItems /><Gr" & _
            "oupInfo /></C1DataColumn><C1DataColumn Caption=""节目种类"" DataField=""节目种类""><ValueIte" & _
            "ms /><GroupInfo /></C1DataColumn><C1DataColumn Caption=""印刷方式"" DataField=""印刷方式""><" & _
            "ValueItems /><GroupInfo /></C1DataColumn><C1DataColumn Caption=""印刷颜色"" DataField=" & _
            """印刷颜色""><ValueItems /><GroupInfo /></C1DataColumn><C1DataColumn Caption=""印刷内圈"" Da" & _
            "taField=""印刷内圈""><ValueItems /><GroupInfo /></C1DataColumn><C1DataColumn Caption=""" & _
            "入库数量"" DataField=""入库数量"" DataTypeInternal=""System.Int32""><ValueItems /><GroupInfo " & _
            "/></C1DataColumn><C1DataColumn Caption=""摘要"" DataField=""摘要""><ValueItems /><GroupI" & _
            "nfo /></C1DataColumn></DataCols><Styles type=""C1.Win.C1TrueDBGrid.Design.Context" & _
            "Wrapper""><Data>HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Inactiv" & _
            "e{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style119{AlignHorz:Ne" & _
            "ar;}Style118{AlignHorz:Near;}Style115{}Editor{}Style117{}Style116{}Style113{Alig" & _
            "nHorz:Far;}Style112{AlignHorz:Far;}Style185{AlignHorz:Far;}Style186{}Style187{}S" & _
            "tyle180{}Style181{}Style182{}Style183{}Style188{}Style189{}Footer{}FilterBar{}He" & _
            "ading{Wrap:True;AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText" & _
            ";BackColor:PowderBlue;}Style14{}Style15{}Style139{}Style138{}Style137{AlignHorz:" & _
            "Near;}Style136{AlignHorz:Near;}Style135{}Style134{}Style133{}Style132{}Style131{" & _
            "AlignHorz:Near;}Style130{AlignHorz:Near;}Style10{AlignHorz:Center;}Style11{}Styl" & _
            "e12{}Style13{}Style128{}Style129{}Style158{}Style124{AlignHorz:Near;}Style125{Al" & _
            "ignHorz:Near;}Style122{}Style123{}Style120{}Style121{}Style169{}Style9{}Style8{B" & _
            "ackColor2:WindowFrame;}Style126{}Style127{}Style5{}Style4{}Style7{}Style6{}Style" & _
            "1{}Style159{}Style3{}Style2{}Style151{}Style150{}Style153{}Style152{}Style155{Al" & _
            "ignHorz:Near;}Style154{AlignHorz:Near;}Style157{}Style156{}Style148{AlignHorz:Ne" & _
            "ar;}Style149{AlignHorz:Near;}Normal{Font:宋体, 12world;}Style140{}Style141{}Style1" & _
            "42{AlignHorz:Near;}Style143{AlignHorz:Near;}Style144{}Style145{}Style146{}Style1" & _
            "47{}Selected{ForeColor:HighlightText;BackColor:Highlight;}EvenRow{BackColor:231," & _
            " 235, 247;}Style179{AlignHorz:Near;}Style178{AlignHorz:Near;}OddRow{BackColor2:1" & _
            "92, 255, 192;BackColor:239, 243, 255;}RecordSelector{AlignImage:Center;}Style173" & _
            "{AlignHorz:Near;}Style172{AlignHorz:Near;}Style171{}Style170{}Style177{}Style176" & _
            "{}Style175{}Style174{}Style184{AlignHorz:Far;}Style165{}Style114{}Style168{}Capt" & _
            "ion{AlignHorz:Center;BackColor:128, 128, 255;}Style162{}Style163{}Style160{Align" & _
            "Horz:Near;}Style161{AlignHorz:Near;}Style166{AlignHorz:Near;}Style167{AlignHorz:" & _
            "Near;}Style164{}Style195{}Style194{}Style191{AlignHorz:Near;}Style190{AlignHorz:" & _
            "Near;}Style193{}Style192{}Group{BackColor:ControlDark;Border:None,,0, 0, 0, 0;Al" & _
            "ignVert:Center;}</Data></Styles><Splits><C1.Win.C1TrueDBGrid.MergeView Name="""" A" & _
            "lternatingRowStyle=""True"" CaptionHeight=""18"" ColumnCaptionHeight=""18"" ColumnFoot" & _
            "erHeight=""18"" MarqueeStyle=""DottedCellBorder"" RecordSelectorWidth=""16"" DefRecSel" & _
            "Width=""16"" VerticalScrollGroup=""1"" HorizontalScrollGroup=""1""><Height>308</Height" & _
            "><CaptionStyle parent=""Style2"" me=""Style10"" /><EditorStyle parent=""Editor"" me=""S" & _
            "tyle5"" /><EvenRowStyle parent=""EvenRow"" me=""Style8"" /><FilterBarStyle parent=""Fi" & _
            "lterBar"" me=""Style13"" /><FooterStyle parent=""Footer"" me=""Style3"" /><GroupStyle p" & _
            "arent=""Group"" me=""Style12"" /><HeadingStyle parent=""Heading"" me=""Style2"" /><HighL" & _
            "ightRowStyle parent=""HighlightRow"" me=""Style7"" /><InactiveStyle parent=""Inactive" & _
            """ me=""Style4"" /><OddRowStyle parent=""OddRow"" me=""Style9"" /><RecordSelectorStyle " & _
            "parent=""RecordSelector"" me=""Style11"" /><SelectedStyle parent=""Selected"" me=""Styl" & _
            "e6"" /><Style parent=""Normal"" me=""Style1"" /><internalCols><C1DisplayColumn><Headi" & _
            "ngStyle parent=""Style2"" me=""Style112"" /><Style parent=""Style1"" me=""Style113"" /><" & _
            "FooterStyle parent=""Style3"" me=""Style114"" /><EditorStyle parent=""Style5"" me=""Sty" & _
            "le115"" /><GroupHeaderStyle parent=""Style1"" me=""Style117"" /><GroupFooterStyle par" & _
            "ent=""Style1"" me=""Style116"" /><Visible>True</Visible><ColumnDivider>148, 190, 231" & _
            ",Single</ColumnDivider><Width>31</Width><Height>16</Height><DCIdx>0</DCIdx></C1D" & _
            "isplayColumn><C1DisplayColumn><HeadingStyle parent=""Style2"" me=""Style118"" /><Sty" & _
            "le parent=""Style1"" me=""Style119"" /><FooterStyle parent=""Style3"" me=""Style120"" />" & _
            "<EditorStyle parent=""Style5"" me=""Style121"" /><GroupHeaderStyle parent=""Style1"" m" & _
            "e=""Style123"" /><GroupFooterStyle parent=""Style1"" me=""Style122"" /><Visible>True</" & _
            "Visible><ColumnDivider>148, 190, 231,Single</ColumnDivider><Height>16</Height><B" & _