form1.vb

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

        Me.MenuItem43.Index = 0
        Me.MenuItem43.Text = "固定资产统计"
        '
        'MenuItem44
        '
        Me.MenuItem44.Index = 1
        Me.MenuItem44.Text = "转移资产统计"
        '
        'MenuItem45
        '
        Me.MenuItem45.Index = 2
        Me.MenuItem45.Text = "报废资产统计"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 1
        Me.ToolBarButton4.Text = "资产查找"
        Me.ToolBarButton4.ToolTipText = "  资 产 查 找"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 2
        Me.ToolBarButton5.Text = "打 印"
        Me.ToolBarButton5.ToolTipText = "打   印"
        '
        'ToolBarButton8
        '
        Me.ToolBarButton8.ImageIndex = 3
        Me.ToolBarButton8.Text = "帮   助"
        Me.ToolBarButton8.ToolTipText = "帮   助"
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.ImageIndex = 0
        Me.ToolBarButton6.Text = "退出系统"
        Me.ToolBarButton6.ToolTipText = "退出系统"
        '
        'ToolBar1
        '
        Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton2, Me.ToolBarButton7, Me.ToolBarButton1, Me.ToolBarButton11, Me.ToolBarButton12, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton9, Me.ToolBarButton5, Me.ToolBarButton8, Me.ToolBarButton10, Me.ToolBarButton6})
        Me.ToolBar1.ButtonSize = New System.Drawing.Size(200, 100)
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.Font = New System.Drawing.Font("宋体", 10.5!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.ToolBar1.ImageList = Me.ImageList2
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(696, 72)
        Me.ToolBar1.TabIndex = 0
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton11
        '
        Me.ToolBarButton11.ImageIndex = 7
        Me.ToolBarButton11.Text = "资产转移"
        Me.ToolBarButton11.ToolTipText = "  资 产 转 移"
        '
        'ToolBarButton12
        '
        Me.ToolBarButton12.ImageIndex = 8
        Me.ToolBarButton12.Text = "资产报废"
        Me.ToolBarButton12.ToolTipText = "  资 产 报 废"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 9
        Me.ToolBarButton3.Text = "折 旧"
        Me.ToolBarButton3.ToolTipText = "     折    旧"
        '
        'ToolBarButton9
        '
        Me.ToolBarButton9.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton10
        '
        Me.ToolBarButton10.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(536, 8)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.Size = New System.Drawing.Size(0, 21)
        Me.TextBox1.TabIndex = 10
        Me.TextBox1.Text = "TextBox1"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(600, 8)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(0, 21)
        Me.TextBox2.TabIndex = 11
        Me.TextBox2.Text = "TextBox2"
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(536, 40)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.Size = New System.Drawing.Size(0, 21)
        Me.TextBox3.TabIndex = 12
        Me.TextBox3.Text = "TextBox3"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(600, 40)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(0, 21)
        Me.TextBox4.TabIndex = 13
        Me.TextBox4.Text = "TextBox4"
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(664, 8)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.Size = New System.Drawing.Size(0, 21)
        Me.TextBox5.TabIndex = 14
        Me.TextBox5.Text = "TextBox5"
        '
        'ImageList3
        '
        Me.ImageList3.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList3.ImageStream = CType(resources.GetObject("ImageList3.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList3.TransparentColor = System.Drawing.Color.Transparent
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(696, 532)
        Me.Controls.Add(Me.TextBox5)
        Me.Controls.Add(Me.TextBox4)
        Me.Controls.Add(Me.TextBox3)
        Me.Controls.Add(Me.TextBox2)
        Me.Controls.Add(Me.TextBox1)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.ListView1)
        Me.Controls.Add(Me.TreeView1)
        Me.Controls.Add(Me.ToolBar1)
        Me.Menu = Me.MainMenu1
        Me.MinimizeBox = False
        Me.Name = "Form1"
        Me.Text = "----------资产管理系统 (蚂蚁工作室)"
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region

    Public Sub type(ByVal i)

        'type_2 = i

        Select Case type_2

            Case 1

                Me.MenuItem10.Enabled = False
                'Me.MenuItem30.Enabled = False
                Me.MenuItem6.Enabled = False
                ' Me.MenuItem36.Visible = False
                Me.MenuItem1.Enabled = False
                Me.MenuItem2.Enabled = False
                Me.ToolBarButton1.Visible = False
                Me.ToolBarButton1.Visible = False
                Me.ToolBarButton11.Visible = False
                Me.ToolBarButton12.Visible = False
                Me.MenuItem31.Enabled = False
                Me.MenuItem34.Enabled = False
                Me.MenuItem21.Enabled = False
                Me.Enabled = True
                Me.Activate()

            Case 2



                Me.MenuItem1.Enabled = False
                Me.MenuItem2.Enabled = False
                Me.MenuItem24.Enabled = False
                Me.MenuItem25.Enabled = False
                'Me.MenuItem30.Enabled = False
                Me.ToolBarButton1.Visible = True
                Me.ToolBarButton11.Visible = True
                Me.ToolBarButton12.Visible = True
                Me.MenuItemOut.Enabled = False
                Me.MenuItemDelet.Enabled = False
                Me.MenuItem31.Enabled = False
                Me.MenuItem34.Enabled = False
                Me.MenuItem21.Enabled = False
                Me.Enabled = True
                Me.Activate()


            Case 3


                Me.MenuItem10.Enabled = True
                'Me.MenuItem30.Enabled = True
                Me.MenuItem6.Enabled = True
                ' Me.MenuItem36.Visible = True
                Me.MenuItem1.Enabled = True
                Me.MenuItem2.Enabled = True
                Me.ToolBarButton1.Visible = True
                Me.MenuItem31.Enabled = True
                Me.MenuItem34.Enabled = True
                Me.MenuItem21.Enabled = True
                'Me.ToolBarButton1.Visible = True
                Me.Enabled = True
                Me.Activate()

        End Select

        'Me.Activate()
        Dim ObjLogin As New Login
        StatusBarPanel2.Text = "用户名：" & ObjLogin.userName

    End Sub

    Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
        Me.Activate()
        type(i)


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim ObjLogin As New Login
        Me.Enabled = False
        ObjLogin.Show()
        'MsgBox(ObjLogin.userName)

        Dim MyTime As Date
        MyTime = TimeOfDay

        StatusBarPanel4.Text = " 当前时间：" & MyTime

        ToolBar1.ImageList = ImageList2

        'MsgBox("COUNT" & datb.Columns.Count) 

        node = TreeView1.Nodes.Add("浏览")
        node_1.Text = "部门"
        node_2.Text = "资产类型"
        node_3.Text = "资产状态"
        node.Nodes.Add(node_1)
        node.Nodes.Add(node_2)
        node.Nodes.Add(node_3)

        Departement()
        For i = 0 To (DepartementTable.Rows.Count - 1)
            node_1.Nodes.Add(DepartementTable.Rows.Item(i).Item(1).ToString)
        Next

        AssentClass()
        For i = 0 To (classTable.Rows.Count - 1)
            node_2.Nodes.Add(classTable.Rows.Item(i).Item(1).ToString)
        Next

        StatusBarPanel3.Text = i

        node_3.Nodes.Add("空闲")
        node_3.Nodes.Add("使用")
        node_3.Nodes.Add("报废")
        node_3.Nodes.Add("转出")

        Assent()

        For i = 0 To (assentTable.Rows.Count - 1)
            Select Case CInt(assentTable.Rows.Item(i).Item(11))
                Case 1
                    strAssetType = "空闲"
                Case 2
                    strAssetType = "使用"
                Case 3
                    strAssetType = "报废"
                Case 4
                    strAssetType = "转出"

            End Select

            Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem(New String() {"" + assentTable.Rows.Item(i).Item(0).ToString + "", "" + assentTable.Rows.Item(i).Item(1).ToString + "", "" + assentTable.Rows.Item(i).Item(2).ToString + "", "" + assentTable.Rows.Item(i).Item(3).ToString + "", "" + assentTable.Rows.Item(i).Item(4).ToString + "", "" + assentTable.Rows.Item(i).Item(5).ToString + "", "" + assentTable.Rows.Item(i).Item(6).ToString + "", "" + assentTable.Rows.Item(i).Item(7).ToString + "", "" + assentTable.Rows.Item(i).Item(8).ToString + "", "" + assentTable.Rows.Item(i).Item(9).ToString + "", "" + assentTable.Rows.Item(i).Item(10).ToString + "", strAssetType, "" + assentTable.Rows.Item(i).Item(12).ToString + ""}, -1)
            Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1})

        Next

        StatusBarPanel3.Text = " 当前共有记录：" & i


    End Sub


    Public Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick

        Select Case ToolBar1.Buttons.IndexOf(e.Button)


            Case 0

                Dim ObjLogin As New Login
                ObjLogin.Show()

                ' ObjLogin.Button1_Click(sender, e)
                'closeFrom1()
                Me.Enabled = False
                'type_2 = ObjLogin.type_1
                ' MsgBox(type_2)

                ' type(type_2)
                ' Me.Enabled = True


            Case 2

                Dim ObjAssent_main As New Assent_Main
                ' If falg = 0 Then
                'ObjAssent_main.MdiParent = Me
                ObjAssent_main.Show()
                ' End If

                falg = 1