depreciation.vb

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

        'ColumnHeader6
        '
        Me.ColumnHeader6.Text = "原 值"
        Me.ColumnHeader6.Width = 80
        '
        'ColumnHeader7
        '
        Me.ColumnHeader7.Text = "残值率"
        '
        'ColumnHeader3
        '
        Me.ColumnHeader3.Text = "折旧年限"
        Me.ColumnHeader3.Width = 50
        '
        'ColumnHeader8
        '
        Me.ColumnHeader8.Text = "折算日期"
        Me.ColumnHeader8.Width = 120
        '
        'ColumnHeader9
        '
        Me.ColumnHeader9.Text = "折算方法"
        Me.ColumnHeader9.Width = 100
        '
        'ColumnHeader10
        '
        Me.ColumnHeader10.Text = "本月折旧"
        '
        'ColumnHeader11
        '
        Me.ColumnHeader11.Text = "累计折旧"
        '
        'ColumnHeader12
        '
        Me.ColumnHeader12.Text = "净 值"
        '
        'Panel3
        '
        Me.Panel3.BackColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Panel3.Location = New System.Drawing.Point(64, 0)
        Me.Panel3.Name = "Panel3"
        Me.Panel3.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Panel3.Size = New System.Drawing.Size(576, 40)
        Me.Panel3.TabIndex = 2
        '
        'Panel4
        '
        Me.Panel4.BackgroundImage = CType(resources.GetObject("Panel4.BackgroundImage"), System.Drawing.Image)
        Me.Panel4.Font = New System.Drawing.Font("宋体", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(134, Byte))
        Me.Panel4.Location = New System.Drawing.Point(8, 0)
        Me.Panel4.Name = "Panel4"
        Me.Panel4.Size = New System.Drawing.Size(56, 40)
        Me.Panel4.TabIndex = 3
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 472)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.StatusBarPanel1, Me.StatusBarPanel3, Me.StatusBarPanel2, Me.StatusBarPanel5, Me.StatusBarPanel4})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(640, 22)
        Me.StatusBar1.TabIndex = 4
        Me.StatusBar1.Text = "StatusBar1"
        '
        'StatusBarPanel1
        '
        Me.StatusBarPanel1.Text = "--总计--"
        Me.StatusBarPanel1.Width = 80
        '
        'StatusBarPanel3
        '
        Me.StatusBarPanel3.Text = "总计原值:"
        Me.StatusBarPanel3.Width = 135
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.Text = "总计本月折旧:"
        Me.StatusBarPanel2.Width = 135
        '
        'StatusBarPanel5
        '
        Me.StatusBarPanel5.Text = "总计累计折旧:"
        Me.StatusBarPanel5.Width = 135
        '
        'StatusBarPanel4
        '
        Me.StatusBarPanel4.Text = "总计净值:"
        Me.StatusBarPanel4.Width = 150
        '
        'Depreciation
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(640, 494)
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.Panel4)
        Me.Controls.Add(Me.Panel3)
        Me.Controls.Add(Me.Panel2)
        Me.Controls.Add(Me.Panel1)
        Me.MaximizeBox = False
        Me.Name = "Depreciation"
        Me.Text = "Depreciation"
        Me.Panel1.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        CType(Me.StatusBarPanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel5, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

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

        For Each DepartementRow In DepartementDataSet.Tables("T_DEPARTMENT").Rows
            Me.ComboBox2.Items.Add(DepartementRow("TYPE_NAME"))
        Next

        sql = New SqlConnection(StrData)
        sql.Open()
        SqlDataAdapter2 = New SqlDataAdapter("select distinct ASSET_NAME  from T_ASSET_MAIN  ", sql)
        SqlDataAdapter2.Fill(DataSet1)
        DataTable1 = DataSet1.Tables(0)

        Dim i As Integer

        For i = 0 To DataTable1.Rows.Count - 1

            ComboBox3.Items.Add(DataTable1.Rows.Item(i).Item("ASSET_NAME"))
        Next

    End Sub

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

        NowDate = DateTimePicker1.Text()

        Me.ListView1.GridLines = True
        sql = New SqlConnection(StrData)

        Try

            If CheckBox2.Checked And CheckBox3.Checked 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 = ComboBox2.Text.ToString

                Command.Parameters.Add(OrdYear)

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

                OrdYear1.Value = ComboBox3.Text.ToString

                Command.Parameters.Add(OrdYear1)

                SqlDataAdapter1.SelectCommand = Command

                DataSet1.Clear()

            ElseIf CheckBox2.Checked Then
                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 = ComboBox2.Text.ToString

                Command.Parameters.Add(OrdYear)

                SqlDataAdapter1.SelectCommand = Command

                DataSet1.Clear()

            ElseIf CheckBox3.Checked Then
                str = "select * from  T_ASSET_MAIN  where  ASSET_NAME= @ASSET_NAME"
                Dim Command As New SqlClient.SqlCommand(str, sql)
                Dim OrdYear As New SqlClient.SqlParameter
                OrdYear.ParameterName = "@ASSET_NAME"
                OrdYear.SqlDbType = SqlDbType.NVarChar

                OrdYear.Value = ComboBox3.Text.ToString

                Command.Parameters.Add(OrdYear)

                SqlDataAdapter1.SelectCommand = Command

                DataSet1.Clear()

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

            ListView1.Items.Clear()
            Dim ItemView as new ListViewItem 
            For Each DrRowPicker In DataSet1.Tables("T_ASSET_MAIN").Rows

                YearMoney = (DrRowPicker(5) - (DrRowPicker(5) * 0.05)) / 5
                JMoney = DrRowPicker(5) - YearMoney
                Dim StrSearchRow As String() = {DrRowPicker(0), DrRowPicker(1), DrRowPicker(2), DrRowPicker(3), DrRowPicker(5), "5.00%", "5", NowDate, "平均年限法", YearMoney, YearMoney, JMoney}
                ListView1.Items.Add(New ListViewItem(StrSearchRow))

                ZMoney = ZMoney + DrRowPicker(5)
                ZYearMoney = ZYearMoney + YearMoney
                ZJMoney = ZJMoney + JMoney
            Next
        Catch ex As Exception

            ' MsgBox("找不到数据。。。")

        End Try

        Dim ZRow As String() = {"", "", "--总计--", "", ZMoney, "", "", "", "", ZYearMoney, ZYearMoney, ZJMoney}
        ListView1.Items.Add(New ListViewItem(ZRow))

        Me.StatusBarPanel3.Text = "总计原值:" & ZMoney
        Me.StatusBarPanel2.Text = "总计本月折旧:" & ZYearMoney
        Me.StatusBarPanel5.Text = "总计累计折旧:" & ZYearMoney
        Me.StatusBarPanel4.Text = "总计净值:" & ZJMoney


    End Sub

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

        If CheckBox1.Checked = True Then
            DateTimePicker1.Enabled = True
        Else
            DateTimePicker1.Enabled = False
        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