form1.vb

固定资产管理信息系统,虽然还有些不足,但基本功能已实现!希望大家多多改进!

        Me.MenuItem22.Enabled = False
        Me.MenuItem22.Index = 4
        Me.MenuItem22.Text = "权限管理"
        '
        'MenuItem10
        '
        Me.MenuItem10.Index = 2
        Me.MenuItem10.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem23, Me.MenuItem24, Me.MenuItem25})
        Me.MenuItem10.Text = "资产管理(&G)"
        '
        'MenuItem23
        '
        Me.MenuItem23.Index = 0
        Me.MenuItem23.Text = "资产购进"
        '
        'MenuItem24
        '
        Me.MenuItem24.Index = 1
        Me.MenuItem24.Text = "资产转移"
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 2
        Me.MenuItem25.Text = "资产报废"
        '
        'MenuItem8
        '
        Me.MenuItem8.Index = 3
        Me.MenuItem8.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem16, Me.MenuItem17})
        Me.MenuItem8.Text = "视图(&V)"
        '
        'MenuItem16
        '
        Me.MenuItem16.Checked = True
        Me.MenuItem16.Index = 0
        Me.MenuItem16.Text = "状态栏"
        '
        'MenuItem17
        '
        Me.MenuItem17.Checked = True
        Me.MenuItem17.Index = 1
        Me.MenuItem17.Text = "分类列表"
        '
        'MenuItem6
        '
        Me.MenuItem6.Index = 4
        Me.MenuItem6.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem12})
        Me.MenuItem6.Text = "资产统计(&Y)"
        '
        'MenuItem12
        '
        Me.MenuItem12.Index = 0
        Me.MenuItem12.Text = "资产统计"
        '
        'MenuItem38
        '
        Me.MenuItem38.Index = 5
        Me.MenuItem38.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem39, Me.MenuItem41, Me.MenuItem42})
        Me.MenuItem38.Text = "报表(&B)"
        '
        'MenuItem39
        '
        Me.MenuItem39.Index = 0
        Me.MenuItem39.Text = "规定资产报表"
        '
        'MenuItem41
        '
        Me.MenuItem41.Index = 1
        Me.MenuItem41.Text = "报废资产报表"
        '
        'MenuItem42
        '
        Me.MenuItem42.Index = 2
        Me.MenuItem42.Text = "转移资产报表"
        '
        'MenuItem9
        '
        Me.MenuItem9.Index = 6
        Me.MenuItem9.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem20})
        Me.MenuItem9.Text = "查找(&L)"
        '
        'MenuItem20
        '
        Me.MenuItem20.Index = 0
        Me.MenuItem20.Text = "资产查找"
        '
        'MenuItem4
        '
        Me.MenuItem4.Index = 7
        Me.MenuItem4.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem7, Me.MenuItem3})
        Me.MenuItem4.Text = "工具(&T)"
        '
        'MenuItem7
        '
        Me.MenuItem7.Index = 0
        Me.MenuItem7.Text = "记事本"
        '
        'MenuItem3
        '
        Me.MenuItem3.Index = 1
        Me.MenuItem3.Text = "计算器"
        '
        'MenuItem11
        '
        Me.MenuItem11.Index = 8
        Me.MenuItem11.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem26, Me.MenuItem28, Me.MenuItem27})
        Me.MenuItem11.Text = "帮助(&P)"
        '
        'MenuItem26
        '
        Me.MenuItem26.Index = 0
        Me.MenuItem26.Text = "关于资产管理系统"
        '
        'MenuItem28
        '
        Me.MenuItem28.Index = 1
        Me.MenuItem28.Text = "-"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 2
        Me.MenuItem27.Text = "帮助"
        '
        'ImageList2
        '
        Me.ImageList2.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
        Me.ImageList2.ImageSize = New System.Drawing.Size(45, 45)
        Me.ImageList2.ImageStream = CType(resources.GetObject("ImageList2.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList2.TransparentColor = System.Drawing.Color.Transparent
        '
        'TreeView1
        '
        Me.TreeView1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.TreeView1.ContextMenu = Me.ContextMenu1
        Me.TreeView1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.TreeView1.FullRowSelect = True
        Me.TreeView1.ImageIndex = 1
        Me.TreeView1.ImageList = Me.ImageList1
        Me.TreeView1.LabelEdit = True
        Me.TreeView1.Location = New System.Drawing.Point(8, 72)
        Me.TreeView1.Name = "TreeView1"
        Me.TreeView1.Scrollable = False
        Me.TreeView1.Size = New System.Drawing.Size(136, 576)
        Me.TreeView1.TabIndex = 1
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItemAdd, Me.MenuItem13, Me.MenuItemOut, Me.MenuItem14, Me.MenuItemDelet, Me.MenuItem37, Me.MenuItem36})
        '
        'MenuItemAdd
        '
        Me.MenuItemAdd.Index = 0
        Me.MenuItemAdd.Text = "添加/删除部门"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 1
        Me.MenuItem13.Text = "-"
        '
        'MenuItemOut
        '
        Me.MenuItemOut.Index = 2
        Me.MenuItemOut.Text = "添加/删除资产类型"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 3
        Me.MenuItem14.Text = "-"
        '
        'MenuItemDelet
        '
        Me.MenuItemDelet.Index = 4
        Me.MenuItemDelet.Text = "分类列表"
        '
        'MenuItem37
        '
        Me.MenuItem37.Index = 5
        Me.MenuItem37.Text = "-"
        '
        'MenuItem36
        '
        Me.MenuItem36.Index = 6
        Me.MenuItem36.Text = "状态栏"
        '
        'ImageList1
        '
        Me.ImageList1.ColorDepth = System.Windows.Forms.ColorDepth.Depth32Bit
        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
        '
        'ListView1
        '
        Me.ListView1.Activation = System.Windows.Forms.ItemActivation.OneClick
        Me.ListView1.AllowColumnReorder = True
        Me.ListView1.AllowDrop = True
        Me.ListView1.CheckBoxes = True
        Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3, Me.ColumnHeader4, Me.ColumnHeader11, Me.ColumnHeader12, Me.ColumnHeader5, Me.ColumnHeader6, Me.ColumnHeader7, Me.ColumnHeader8, Me.ColumnHeader9, Me.ColumnHeader10, Me.ColumnHeader13})
        Me.ListView1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.ListView1.FullRowSelect = True
        Me.ListView1.GridLines = True
        Me.ListView1.HoverSelection = True
        Me.ListView1.ImeMode = System.Windows.Forms.ImeMode.NoControl
        Me.ListView1.LabelEdit = True
        Me.ListView1.Location = New System.Drawing.Point(144, 72)
        Me.ListView1.Name = "ListView1"
        Me.ListView1.Size = New System.Drawing.Size(880, 576)
        Me.ListView1.Sorting = System.Windows.Forms.SortOrder.Ascending
        Me.ListView1.TabIndex = 2
        Me.ListView1.View = System.Windows.Forms.View.Details
        '
        'ColumnHeader1
        '
        Me.ColumnHeader1.Text = "资产编号"
        Me.ColumnHeader1.Width = 70
        '
        'ColumnHeader2
        '
        Me.ColumnHeader2.Text = "资产名称"
        Me.ColumnHeader2.Width = 95
        '
        'ColumnHeader3
        '
        Me.ColumnHeader3.Text = "使用部门"
        Me.ColumnHeader3.Width = 100
        '
        'ColumnHeader4
        '
        Me.ColumnHeader4.Text = "购进时间"
        Me.ColumnHeader4.Width = 130
        '
        'ColumnHeader11
        '
        Me.ColumnHeader11.Text = "数 量"
        Me.ColumnHeader11.Width = 62
        '
        'ColumnHeader12
        '
        Me.ColumnHeader12.Text = "资产价格"
        Me.ColumnHeader12.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
        Me.ColumnHeader12.Width = 79
        '
        'ColumnHeader5
        '
        Me.ColumnHeader5.Text = "经手人"
        Me.ColumnHeader5.Width = 80
        '
        'ColumnHeader6
        '
        Me.ColumnHeader6.Text = "责任人"
        Me.ColumnHeader6.Width = 80
        '
        'ColumnHeader7
        '
        Me.ColumnHeader7.Text = "使用人"
        Me.ColumnHeader7.Width = 80
        '
        'ColumnHeader8
        '
        Me.ColumnHeader8.Text = "登记日期"
        Me.ColumnHeader8.Width = 130
        '
        'ColumnHeader9
        '
        Me.ColumnHeader9.Text = "登记人"
        Me.ColumnHeader9.Width = 80
        '
        'ColumnHeader10
        '
        Me.ColumnHeader10.Text = "资产状态"
        Me.ColumnHeader10.Width = 50
        '
        'ColumnHeader13
        '
        Me.ColumnHeader13.Text = "备 注"
        Me.ColumnHeader13.Width = 200
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 508)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel2, Me.StatusBarPanel3, Me.StatusBarPanel4})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(696, 24)
        Me.StatusBar1.TabIndex = 9
        Me.StatusBar1.Text = "StatusBar1"
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.Text = "   开发商：蚂蚁工作室"
        Me.StatusBarPanel1.ToolTipText = "　　开发商：蚂蚁工作室"
        Me.StatusBarPanel1.Width = 200
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.Text = "    用户类型："
        Me.StatusBarPanel2.ToolTipText = "　　用户类型"
        Me.StatusBarPanel2.Width = 200
        '
        'StatusBarPanel3
        '
        Me.StatusBarPanel3.Text = "     当前共有记录："
        Me.StatusBarPanel3.ToolTipText = "　　当前共有记录"
        Me.StatusBarPanel3.Width = 200
        '
        'StatusBarPanel4
        '
        Me.StatusBarPanel4.Text = "     当前时间："
        Me.StatusBarPanel4.ToolTipText = "　　当前时间"
        Me.StatusBarPanel4.Width = 450
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 4
        Me.ToolBarButton1.Text = "资产购进"
        Me.ToolBarButton1.ToolTipText = "  资 产 购 进"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 6
        Me.ToolBarButton2.Text = "重新登陆"
        Me.ToolBarButton2.ToolTipText = "  重 新 登 陆"
        '
        'ContextMenu2
        '
        Me.ContextMenu2.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem43, Me.MenuItem44, Me.MenuItem45})
        '
        'MenuItem43
        '