queryallcheckform.vb

这是一个人事工资管理系统

'文件名：QueryAllCheckForm.vb
Imports System.Data.SqlClient
Imports Microsoft.Office.Interop.Excel
Imports System.Reflection
Imports Microsoft.Office.Core
Public Class QueryAllCheckForm
    Public MyCompany As String
    Private Sub 查询ToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查询ToolStripButton.Click
        Try
            Me.考勤记录TableAdapter.FillBy1(Me.MyPersonnelDataSet.考勤记录, 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.MyPersonnelDataSet.考勤记录.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 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)
        MyRange = MyWorkSheet.Range("A5", "AF5")
        MyData(0, 0) = "员工姓名"
        For i = 1 To 31 Step 1
            MyData(0, i) = i.ToString()
        Next
        j = 1
        '输出数据库记录
        For Each MyRow As DataRow In Me.MyPersonnelDataSet.考勤记录.Rows
            For i = 2 To 33 Step 1
                MyData(j, i - 2) = MyRow(i).ToString()
            Next
            j = j + 1
        Next
        MyRange = MyRange.Resize(Me.MyPersonnelDataSet.考勤记录.Rows.Count + 1, 32)
        MyRange.Value2 = MyData
        MyRange.EntireColumn.AutoFit()
        MyWorkSheet.Cells(2, 2) = Me.MyCompany + "员工考勤表"
        MyWorkSheet.Cells(4, 1) = "考勤日期：" + Me.年份ToolStripComboBox.Text + "年" + Me.月份ToolStripComboBox.Text + "月"
        MyWorkSheet.Cells(Me.MyPersonnelDataSet.考勤记录.Rows.Count + 7, 1) = "考勤符号说明：出勤 /， 迟到>， 早退<， 产假√，事假#，病假+，婚假△，旷工×"
    End Sub
    Private Sub QueryAllCheckForm_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