querydepreciationform.vb

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

'文件名：QueryDepreciationForm.vb
Imports Microsoft.Office.Interop.Excel
Imports System.Reflection
Imports Microsoft.Office.Core
Public Class QueryDepreciationForm
    Public MyCompany As String
    Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Try
            Me.累计折旧查询视图TableAdapter.FillBy(Me.MyAssetsDataSet.累计折旧查询视图, New System.Nullable(Of Integer)(CType(折旧年份ToolStripComboBox.Text, Integer)), New System.Nullable(Of Integer)(CType(折旧月份ToolStripComboBox.Text, Integer)))
        Catch ex As System.Exception
            System.Windows.Forms.MessageBox.Show(ex.Message)
        End Try
    End Sub
    Private Sub 打印ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 打印ToolStripButton.Click
        If (Me.MyAssetsDataSet.累计折旧查询视图.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.MyAssetsDataSet.累计折旧查询视图.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.MyAssetsDataSet.累计折旧查询视图.Columns
            MyData(0, Count) = MyNewColumn.ColumnName
            Count = Count + 1
        Next
        j = 1
        '输出数据库记录
        For Each MyRow As DataRow In Me.MyAssetsDataSet.累计折旧查询视图.Rows
            For i = 0 To Me.MyAssetsDataSet.累计折旧查询视图.Columns.Count - 1 Step 1
                MyData(j, i) = MyRow(i).ToString()
            Next
            j = j + 1
        Next
        MyRange = MyRange.Resize(Me.MyAssetsDataSet.累计折旧查询视图.Rows.Count + 1, Me.MyAssetsDataSet.累计折旧查询视图.Columns.Count - 2)
        MyRange.Value2 = MyData
        MyRange.EntireColumn.AutoFit()
        MyWorkSheet.Cells(2, 2) = Me.MyCompany + "月度累计折旧计提统计表"
        MyWorkSheet.Cells(4, 1) = "计提日期：" + Me.折旧年份ToolStripComboBox.Text + "年" + Me.折旧月份ToolStripComboBox.Text + "月"
    End Sub
    Private Sub QueryDepreciationForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 2006 To 2100 Step 1
            Me.折旧年份ToolStripComboBox.Items.Add(i.ToString())
        Next
        For i As Integer = 1 To 12 Step 1
            Me.折旧月份ToolStripComboBox.Items.Add(i.ToString())
        Next
    End Sub
End Class