printdepreciationform.vb

这是一个固定资产管理系统的源代码

'文件名：PrintDepreciationForm.vb
Imports System.Data.SqlClient
Imports Microsoft.Office.Interop.Excel
Imports System.Reflection
Imports Microsoft.Office.Core
Public Class PrintDepreciationForm
    Public MyCompany As String
    Private MyQueryTable As System.Data.DataTable
    Private Sub PrintDepreciationForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: 这行代码将数据加载到表“MyAssetsDataSet.固定资产明细”中。您可以根据需要移动或移除它。
        Me.固定资产明细TableAdapter.Fill(Me.MyAssetsDataSet.固定资产明细)
    End Sub
    Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Dim My名称 As String = Me.资产名称ToolStripTextBox.Text
        Dim MySQLConnectionString As String = My.Settings.MyAssetsConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyAssetsTable As New System.Data.DataTable()
        Dim MySQL As String = "SELECT * FROM 固定资产明细 WHERE 名称 LIKE '" + My名称 + "'"
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyAssetsTable)
        Me.固定资产明细DataGridView.DataSource = MyAssetsTable
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Private Sub 固定资产明细DataGridView_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 固定资产明细DataGridView.SelectionChanged
        Me.groupBox2.Text = Me.固定资产明细DataGridView.CurrentRow.Cells(2).Value.ToString() + "计提的累计折旧明细表"
        Dim My资产编号 As String = Me.固定资产明细DataGridView.CurrentRow.Cells(1).Value.ToString()
        Dim MySQLConnectionString As String = My.Settings.MyAssetsConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        MyQueryTable = New System.Data.DataTable()
        Dim MySQL As String = "SELECT 折旧年份,折旧月份,折旧方法,月度折旧额 FROM 计提累计折旧 WHERE 资产编号='" + My资产编号 + "'"
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyQueryTable)
        Me.累计折旧DataGridView.DataSource = MyQueryTable
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    Private Sub 打印ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印ToolStripButton.Click
        If (Me.MyQueryTable.Rows.Count < 1) Then
            Return
        End If
          '导出Excel表格数据文件
        Dim MyExcel As ApplicationClass
        Dim MyWorkBooks As Workbooks
        Dim MyWorkBook As Workbook
        Dim MyWorkSheet As Worksheet
        Dim MyColumns As Char
        Dim MyRange As Range
        Dim MyData(500, 35) As Object
        Dim i, j As Integer
        MyExcel = New ApplicationClass()
        MyExcel.Visible = True
        If (MyExcel Is Nothing) Then
            MessageBox.Show("Excel程序无法启动！", "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Return
        End If
        MyWorkBooks = MyExcel.Workbooks
        MyWorkBook = MyWorkBooks.Add(Missing.Value)
        MyWorkSheet = MyWorkBook.Worksheets(1)
        Dim MyChar As Integer = Me.MyQueryTable.Columns.Count + 64
        MyColumns = Convert.ToChar(MyChar)
        MyRange = MyWorkSheet.Range("A5", MyColumns.ToString() + "5")
        Dim Count As Integer = 0
        For Each MyNewColumn As DataColumn In Me.MyQueryTable.Columns
            MyData(0, Count) = MyNewColumn.ColumnName
            Count = Count + 1
        Next
        j = 1
        '输出数据库记录
        For Each MyRow As DataRow In Me.MyQueryTable.Rows
            For i = 0 To Me.MyQueryTable.Columns.Count - 1 Step 1
                MyData(j, i) = MyRow(i).ToString()
            Next
            j = j + 1
        Next
        MyRange = MyRange.Resize(Me.MyQueryTable.Rows.Count + 1, Me.MyQueryTable.Columns.Count)
        MyRange.Value2 = MyData
        MyRange.EntireColumn.AutoFit()
        MyWorkSheet.Cells(2, 2) = Me.MyCompany + "固定资产累计折旧明细表"
        MyWorkSheet.Cells(4, 1) = "资产编号：" + Me.固定资产明细DataGridView.CurrentRow.Cells(1).Value.ToString() + " 名称：" + Me.固定资产明细DataGridView.CurrentRow.Cells(2).Value.ToString() + " 折旧月数：" + Me.固定资产明细DataGridView.CurrentRow.Cells(19).Value.ToString() + " 已提月数：" + Me.固定资产明细DataGridView.CurrentRow.Cells(20).Value.ToString()
    End Sub
End Class