masset.vb

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

        Me.Name = "MAsset"
        Me.Text = "固定资产"
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox2.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim sql As New SqlConnection
    Dim adapter As SqlDataAdapter
    Dim BSearchStrEmpty As Boolean
    Dim StrBrowseBy As String
    Dim result As Integer
    Dim StrQuery As String

    Dim SqlDataAdapter1 As New SqlDataAdapter
    Dim SqlDataAdapter2 As SqlDataAdapter
    Dim SqlDataAdapter3 As SqlDataAdapter
    Dim SqlSelectCommand1 As New SqlCommand
    Dim DrRowPicker As DataRow
    Dim DataSet2 As New DataSet
    Dim DataTable2 As DataTable
    Dim flag As Integer
    Dim ic As Integer
    Dim DataSet1 As New DataSet
    Dim str As String
    Dim DataTable1 As DataTable

    ' Dim cr As New CrystalReport1

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



        ListView1.View = View.Details
        ListView1.Columns.Add("资产代号", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("资产名称", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("部门名称", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("购进的时间", 60, HorizontalAlignment.Left)
        ListView1.Columns.Add("数量", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("价格", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("购进人", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("负责人", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("使用人", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("登记的日期", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("登记人", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("资产状态", 80, HorizontalAlignment.Left)
        ListView1.Columns.Add("备注说明", 80, HorizontalAlignment.Left)

        sql = New SqlConnection(StrData)
        sql.Open()

        SqlDataAdapter1 = New SqlDataAdapter("select distinct ASSET_NAME  from T_ASSET_MAIN  ", sql)
        SqlDataAdapter1.Fill(DataSet1)
        DataTable1 = DataSet1.Tables(0)

        Dim i As Integer


        For i = 0 To DataTable1.Rows.Count - 1
            ' ComboBox1.Items.Add(DataTable1.Rows.Item(i).Item("USE_DEP"))
            ComboBox4.Items.Add(DataTable1.Rows.Item(i).Item("ASSET_NAME"))
            ' ComboBox3.Items.Add(DataTable1.Rows.Item(i).Item("ASSET_TYPE"))

        Next



        SqlDataAdapter1 = New SqlDataAdapter("select * from T_DEPARTMENT  ", sql)
        SqlDataAdapter1.Fill(DataSet1)
        DataTable2 = DataSet1.Tables(0)

        Dim k As Integer

        For k = 0 To DataTable2.Rows.Count - 1
            ComboBox3.Items.Add(DataTable2.Rows.Item(k).Item("TYPE_NAME"))

        Next

        SqlDataAdapter1 = New SqlDataAdapter("select *  from T_ASSET_MAIN  ", sql)
        SqlDataAdapter1.Fill(DataSet1, "T_ASSET_MAIN")

        Dim t As Integer
        t = 0
        Dim total As Integer
        Dim Amount As Integer

        ListView1.Items.Clear()
        For Each DrRowPicker In DataSet1.Tables("T_ASSET_MAIN").Rows
            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), DrRowPicker(11), DrRowPicker(12)}

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

            Amount += DrRowPicker(4)
            total += 1

        Next

        Label6.Text = "总计：" + "   " + CStr(total)
        Label7.Text = "拆算：" + "   " + CStr(Amount)



    End Sub

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

        If ComboBox1.Text = "一个月内" Then
            StrBrowseBy = "1"
        ElseIf ComboBox1.Text = "三个月内" Then
            StrBrowseBy = "3"
        ElseIf ComboBox1.Text = "一年之内" Then
            StrBrowseBy = "12"
        ElseIf ComboBox1.Text = "五年之内" Then
            StrBrowseBy = "60"
        ElseIf ComboBox1.Text = "超过十年" Then
            StrBrowseBy = "120"
        End If


        If flag = 1 Then
            'MsgBox("flag=1")


            str = "SELECT * FROM T_ASSET_MAIN WHERE DATEDIFF(MM, BUY_TIME, getdate())> @param"
            Dim Command As New SqlClient.SqlCommand(str, sql)


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

            OrdYear.Value = CInt(StrBrowseBy)


            Command.Parameters.Add(OrdYear)

            'MsgBox("ic1" & ic)
            ic = Command.ExecuteNonQuery()
            'MsgBox("ic" & ic)

            SqlDataAdapter1.SelectCommand = Command


            'MsgBox("flag=11")



        ElseIf flag = 2 Then
            StrBrowseBy = ComboBox2.Text.ToString

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


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

            OrdYear.Value = CInt(StrBrowseBy)



            Command.Parameters.Add(OrdYear)

            ic = Command.ExecuteNonQuery()

            SqlDataAdapter1.SelectCommand = Command



        ElseIf flag = 3 Then
            StrBrowseBy = ComboBox3.Text.ToString

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


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

            OrdYear.Value = StrBrowseBy


            Command.Parameters.Add(OrdYear)
            ic = Command.ExecuteNonQuery()
            SqlDataAdapter1.SelectCommand = Command


        ElseIf flag = 4 Then
            StrBrowseBy = ComboBox4.Text.ToString

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


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

            OrdYear.Value = StrBrowseBy


            Command.Parameters.Add(OrdYear)

            SqlDataAdapter1.SelectCommand = Command

        End If
        MsgBox("fill")
        DataSet1.Clear()
        SqlDataAdapter1.Fill(DataSet1, "T_ASSET_MAIN")



        Dim t As Integer
        t = 0
        Dim total As Integer
        Dim Amount As Integer

        ListView1.Items.Clear()
        For Each DrRowPicker In DataSet1.Tables("T_ASSET_MAIN").Rows
            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), DrRowPicker(11), DrRowPicker(12)}

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

            Amount += DrRowPicker(4)
            total += 1



        Next

        Label6.Text = "总计：" + "   " + CStr(total)
        Label7.Text = "拆算：" + "   " + CStr(Amount)


    End Sub


    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        flag = 1
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        flag = 2
    End Sub

    Private Sub ComboBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox3.SelectedIndexChanged
        flag = 3
    End Sub

    Private Sub ComboBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox4.SelectedIndexChanged
        flag = 4
    End Sub

End Class