resch.vb

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

            ElseIf StrBrowseBy = "报废" Then

                a = 3

            ElseIf StrBrowseBy = "转移" Then

                a = 4

            End If

            str = "select * from T_ASSET_MAIN where USE_DEP= @USE_DEP and ASSET_NAME = @ASSET_NAME and ASSET_TYPE = @ASSET_TYPE"
            Dim Command As New SqlClient.SqlCommand(str, sql)

            Dim OrdYear As New SqlClient.SqlParameter
            OrdYear.ParameterName = "@USE_DEP"
            OrdYear.SqlDbType = SqlDbType.NVarChar

            OrdYear.Value = ComboBox1.Text.ToString

            Command.Parameters.Add(OrdYear)

            Dim OrdYear1 As New SqlClient.SqlParameter
            OrdYear1.ParameterName = "@ASSET_NAME"
            OrdYear1.SqlDbType = SqlDbType.NVarChar

            OrdYear1.Value = ComboBox2.Text.ToString

            Command.Parameters.Add(OrdYear1)

            Dim OrdYear2 As New SqlClient.SqlParameter
            OrdYear2.ParameterName = "@ASSET_TYPE"
            OrdYear2.SqlDbType = SqlDbType.NVarChar

            OrdYear2.Value = a

            Command.Parameters.Add(OrdYear2)

            SqlDataAdapter1.SelectCommand = Command

            DataSet1.Clear()
        ElseIf CheckBox1.Checked = True And CheckBox2.Checked = True Then

            str = "select * from T_ASSET_MAIN where USE_DEP= @USE_DEP and ASSET_NAME = @ASSET_NAME"
            Dim Command As New SqlClient.SqlCommand(str, sql)

            Dim OrdYear As New SqlClient.SqlParameter
            OrdYear.ParameterName = "@USE_DEP"
            OrdYear.SqlDbType = SqlDbType.NVarChar

            OrdYear.Value = ComboBox1.Text.ToString

            Command.Parameters.Add(OrdYear)

            Dim OrdYear1 As New SqlClient.SqlParameter
            OrdYear1.ParameterName = "@ASSET_NAME"
            OrdYear1.SqlDbType = SqlDbType.NVarChar

            OrdYear1.Value = ComboBox2.Text.ToString

            Command.Parameters.Add(OrdYear1)

            SqlDataAdapter1.SelectCommand = Command

            DataSet1.Clear()

        ElseIf CheckBox1.Checked = True And CheckBox3.Checked = True Then
            StrBrowseBy = ComboBox3.Text.ToString

            If StrBrowseBy = "空闲" Then

                a = 1

            ElseIf StrBrowseBy = "使用" Then

                a = 2

            ElseIf StrBrowseBy = "报废" Then

                a = 3

            ElseIf StrBrowseBy = "转移" Then

                a = 4

            End If

            str = "select * from T_ASSET_MAIN where USE_DEP= @USE_DEP and ASSET_TYPE = @ASSET_TYPE"
            Dim Command As New SqlClient.SqlCommand(str, sql)

            Dim OrdYear As New SqlClient.SqlParameter
            OrdYear.ParameterName = "@USE_DEP"
            OrdYear.SqlDbType = SqlDbType.NVarChar

            OrdYear.Value = ComboBox1.Text.ToString

            Command.Parameters.Add(OrdYear)

            Dim OrdYear1 As New SqlClient.SqlParameter
            OrdYear1.ParameterName = "@ASSET_TYPE"
            OrdYear1.SqlDbType = SqlDbType.NVarChar

            OrdYear1.Value = a

            Command.Parameters.Add(OrdYear1)

            SqlDataAdapter1.SelectCommand = Command

            DataSet1.Clear()

        ElseIf CheckBox2.Checked = True And CheckBox3.Checked = True Then
            StrBrowseBy = ComboBox3.Text.ToString

            If StrBrowseBy = "空闲" Then

                a = 1

            ElseIf StrBrowseBy = "使用" Then

                a = 2

            ElseIf StrBrowseBy = "报废" Then

                a = 3

            ElseIf StrBrowseBy = "转移" Then

                a = 4

            End If

            str = "select * from T_ASSET_MAIN where ASSET_NAME = @ASSET_NAME and ASSET_TYPE = @ASSET_TYPE"
            Dim Command As New SqlClient.SqlCommand(str, sql)

            Dim OrdYear As New SqlClient.SqlParameter
            OrdYear.ParameterName = "@ASSET_NAME"
            OrdYear.SqlDbType = SqlDbType.NVarChar

            OrdYear.Value = ComboBox2.Text.ToString

            Command.Parameters.Add(OrdYear)

            Dim OrdYear1 As New SqlClient.SqlParameter
            OrdYear1.ParameterName = "@ASSET_TYPE"
            OrdYear1.SqlDbType = SqlDbType.NVarChar

            OrdYear1.Value = a

            Command.Parameters.Add(OrdYear1)

            SqlDataAdapter1.SelectCommand = Command

            DataSet1.Clear()

        ElseIf CheckBox1.Checked = True Then
            StrBrowseBy = ComboBox1.Text.ToString

            str = "select * from  T_ASSET_MAIN  where  USE_DEP= @USE_DEP"
            Dim Command As New SqlClient.SqlCommand(str, sql)


            Dim OrdYear As New SqlClient.SqlParameter
            OrdYear.ParameterName = "@USE_DEP"
            OrdYear.SqlDbType = SqlDbType.NVarChar

            OrdYear.Value = StrBrowseBy

            Command.Parameters.Add(OrdYear)

            SqlDataAdapter1.SelectCommand = Command

            DataSet1.Clear()


        ElseIf CheckBox2.Checked = True Then
            StrBrowseBy = ComboBox2.Text.ToString

            str = "select * from  T_ASSET_MAIN  where  ASSET_NAME= @USE_DEP"
            Dim Command As New SqlClient.SqlCommand(str, sql)

            Dim OrdYear As New SqlClient.SqlParameter
            OrdYear.ParameterName = "@USE_DEP"
            OrdYear.SqlDbType = SqlDbType.NVarChar

            OrdYear.Value = StrBrowseBy

            Command.Parameters.Add(OrdYear)

            SqlDataAdapter1.SelectCommand = Command

            DataSet1.Clear()

        ElseIf CheckBox3.Checked = True Then

            StrBrowseBy = ComboBox3.Text.ToString

            If StrBrowseBy = "空闲" Then

                a = 1

            ElseIf StrBrowseBy = "使用" Then

                a = 2

            ElseIf StrBrowseBy = "报废" Then

                a = 3

            ElseIf StrBrowseBy = "转移" Then

                a = 4

            End If

            str = "select * from  T_ASSET_MAIN  where  ASSET_TYPE= @param"
            Dim Command As New SqlClient.SqlCommand(str, sql)

            Dim OrdYear As New SqlClient.SqlParameter
            OrdYear.ParameterName = "@param"
            OrdYear.SqlDbType = SqlDbType.NVarChar

            OrdYear.Value = a

            Command.Parameters.Add(OrdYear)

            SqlDataAdapter1.SelectCommand = Command

            DataSet1.Clear()

        End If
        SqlDataAdapter1.Fill(DataSet1, "T_ASSET_MAIN")

        Dim t As Integer
        t = 0

        'MsgBox("hello")
        ListView2.Items.Clear()
        For Each DrRowPicker In DataSet1.Tables("T_ASSET_MAIN").Rows

            If DrRowPicker(11) = 1 Then
                StrBrowseBy = "空闲"
            ElseIf DrRowPicker(11) = 2 Then
                StrBrowseBy = "使用"
            ElseIf DrRowPicker(11) = 3 Then
                StrBrowseBy = "报废"
            ElseIf DrRowPicker(11) = 4 Then
                StrBrowseBy = "转移"
            End If

            Dim StrSearchRow As String() = {DrRowPicker(0), DrRowPicker(1), DrRowPicker(2), DrRowPicker(3), DrRowPicker(4), DrRowPicker(5), DrRowPicker(6), DrRowPicker(7), DrRowPicker(8), DrRowPicker(9), DrRowPicker(10), StrBrowseBy, DrRowPicker(12)}

            ListView2.Items.Add(New ListViewItem(StrSearchRow))
            t += 1

        Next

        message = "电脑的台数是：" & t

        StatusBarPanel1.Text = message
    End Sub

    Private Sub RadioButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'ComboBox2.Dispose()
        'ComboBox3.Dispose()
        ComboBox1.Enabled = True
        ComboBox2.Enabled = False
        ComboBox3.Enabled = False
    End Sub

    Private Sub RadioButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'ComboBox1.Dispose()
        'ComboBox3.Dispose()
        ComboBox2.Enabled = True
        ComboBox1.Enabled = False
        ComboBox3.Enabled = False
    End Sub

    Private Sub RadioButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'ComboBox1.Dispose()
        'ComboBox2.Dispose()
        ComboBox3.Enabled = True
        ComboBox2.Enabled = False
        ComboBox1.Enabled = False
    End Sub


    Private Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        pdlg.Document = PDocument
        Dim result As DialogResult = pdlg.ShowDialog
        If result = Windows.Forms.DialogResult.OK Then
            PDocument.Print()

        End If
    End Sub


    Private Sub CheckBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox1.Click

        If CheckBox1.Checked = True Then
            ComboBox1.Enabled = True
        Else
            ComboBox1.Enabled = False
            ComboBox1.Text = ""
        End If
    End Sub

    Private Sub CheckBox2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox2.Click

        If CheckBox2.Checked = True Then
            ComboBox2.Enabled = True
        Else
            ComboBox2.Enabled = False
            ComboBox2.Text = ""
        End If
    End Sub

    Private Sub CheckBox3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CheckBox3.Click

        If CheckBox3.Checked = True Then
            ComboBox3.Enabled = True
        Else
            ComboBox3.Enabled = False
            ComboBox3.Text = ""
        End If
    End Sub


End Class