form1.vb

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

            Case 3

                Dim ObjTransfer As New Transfer

                ObjTransfer.Show()

            Case 4
                Dim ObjScrap As New Scrap
                'If falg = 0 Then
                'ObjScrap.MdiParent = Me
                ObjScrap.Show()
                ' End If

                falg = 1

            Case 5

                Dim ObjDepreciation As New Depreciation
                ObjDepreciation.Show()

            Case 6

                Dim ObjResch As New resch
                ObjResch.Show()

                'System.Diagnostics.Process.Start("resch.exe")

                'Dim ObjAssetCount As New AssetCount
                ' ObjAssetCount.show()

                'falg = 1

            Case 8
                Pprint()

            Case 9

                System.Diagnostics.Process.Start("notepad.chm")

            Case 11
                falg = 0
                MsgBox("你确定要退出系统吗？", 65, "退出")
                End


        End Select



    End Sub



    Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click

        Dim ObjAddClass As New AddClass
        'If falg = 0 Then
        ' ObjNoteHeader.MdiParent = Me
        'ObjNoteHeader.Show()

        ObjAddClass.Show()
        '  End If

        falg = 1


    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click


        Dim ObjAddDepartment As New AddDepartment
        ' If falg = 0 Then
        ' ObjNoteHeader.MdiParent = Me
        'ObjNoteHeader.Show()

        ObjAddDepartment.Show()
        '  End If

        falg = 1


    End Sub

    Private Sub MenuItem40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem40.Click

        Dim ObjLogin As New Login
        ObjLogin.Show()

    End Sub


    Private Sub MenuItem24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem24.Click


        Dim ObjTransfer As New Transfer
        ' If falg = 0 Then
        ' ObjNoteHeader.MdiParent = Me
        'ObjNoteHeader.Show()

        ObjTransfer.Show()
        ' End If

        falg = 1

    End Sub

    Private Sub MenuItem15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem15.Click

        Pprint()

    End Sub

    Private Sub MenuItem25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem25.Click


        Dim ObjScrap As New Scrap
        'If falg = 0 Then
        ' ObjNoteHeader.MdiParent = Me
        'ObjNoteHeader.Show()

        ObjScrap.Show()
        ' End If

        falg = 1

    End Sub

    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click

        Dim ObjHelp As New Help
        ObjHelp.Show()

    End Sub

    Private Sub MenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem27.Click

        System.Diagnostics.Process.Start("notepad.chm")

    End Sub

    Private Sub MenuItem35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem35.Click
        falg = 0
        MsgBox("你确定要退出系统吗？", 65, "退出")
        End
    End Sub

    Private Sub MenuItem23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem23.Click

        Dim ObjAssent_main As New Assent_Main

        'If falg = 0 Then
        ' ObjNoteHeader.MdiParent = Me
        'ObjNoteHeader.Show()

        ObjAssent_main.Show()
        'End If

        falg = 1

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        ObjAssent_main.Show()

    End Sub

    Private Sub MenuItem7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem7.Click

        Dim ObjNote As New note
        ' If falg = 0 Then
        'ObjTransfer.MdiParent = Me
        ObjNote.Show()
        ' End If

        falg = 1

    End Sub

    Private Sub Form1_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        MsgBox("你确定要退出系统吗？", 65, "退出")
        falg = 0
        End

    End Sub

    Private Sub MenuItem20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem20.Click

        Dim ObjResch As New resch
        ObjResch.Show()

        'System.Diagnostics.Process.Start("resch.exe")


    End Sub

    Private Sub ListView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDown

        Try
            node1 = ListView1.SelectedItems.Item(0).SubItems(0).Text
            node2 = ListView1.SelectedItems.Item(0).SubItems(1).Text
            node3 = ListView1.SelectedItems.Item(0).SubItems(2).Text
            node4 = ListView1.SelectedItems.Item(0).SubItems(3).Text
            node5 = ListView1.SelectedItems.Item(0).SubItems(4).Text
            node6 = ListView1.SelectedItems.Item(0).SubItems(5).Text
            node7 = ListView1.SelectedItems.Item(0).SubItems(6).Text
            node8 = ListView1.SelectedItems.Item(0).SubItems(7).Text
            node9 = ListView1.SelectedItems.Item(0).SubItems(8).Text
            node10 = ListView1.SelectedItems.Item(0).SubItems(9).Text
            node11 = ListView1.SelectedItems.Item(0).SubItems(10).Text
            node12 = ListView1.SelectedItems.Item(0).SubItems(11).Text
            node13 = ListView1.SelectedItems.Item(0).SubItems(12).Text

        Catch ex As Exception
            'MsgBox("from1 listview1_mousedown error")
        End Try

    End Sub

    Private Sub ListView1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.DoubleClick
        Dim ObjAssetInfor As New AssetInfor
        ObjAssetInfor.Show()
    End Sub



    Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

        ListView1.Items.Clear()

        'If TreeView1.SelectedNode.Text = "浏览" Then

        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

        ' End If

        trv()
        Dim sb As String
        sb = TextBox1.Text.ToString

        ListView1.Items.Clear()

        If sb = "空闲" Then
            'ListView1.Items.Clear()
            TextBox2.Text = "1"
            trv()

        ElseIf sb = "使用" Then
            '  ListView1.Items.Clear()
            TextBox2.Text = "2"
            trv()

        ElseIf sb = "报废" Then
            'ListView1.Items.Clear()
            TextBox2.Text = "3"
            trv()

        ElseIf sb = "转出" Then
            ' ListView1.Items.Clear()
            TextBox2.Text = "4"
            trv()

        Else
            ListView1.Items.Clear()
            trv()
            typen()

        End If

    End Sub



    Public Sub typen()

        Try

            Dim conn1t As New SqlConnection
            Dim comm1t As New SqlCommand
            Dim ds1t As New DataSet
            Dim ada1t As New SqlDataAdapter
            Dim row As DataRow

            myConnStr = connstr()

            conn1t = New SqlConnection(myConnStr)
            conn1t.Open()
            TextBox1.Text = TreeView1.SelectedNode.Text
            Dim t As String
            t = Mid(TextBox1.Text, 1, 1)
            TextBox3.Text = t
            'comm1t = New SqlCommand("select * from T_ASSET_TYPE where TYPE_CODE ='" + TextBox3.Text.Trim + "'", conn1t)

            comm1t = New SqlCommand("select * from T_ASSET_TYPE where TYPE_NAME ='" + TextBox1.Text.Trim + "'", conn1t)
            Dim i1t As Integer

            i1t = comm1t.ExecuteNonQuery()
            ada1t.SelectCommand = comm1t
            conn1t.Close()
            ds1t.Clear()
            ada1t.Fill(ds1t, "T_ASSET_TYPE")
            assentTable.Clear()

            assentTable = ds1t.Tables("T_ASSET_TYPE")
            Dim i As Integer

            'typestr = assentTable.Rows(0).Item(1).ToString
            'typestr = "YYYY"
            row = assentTable.Rows(0)
            typestr = row.Item(0)