formreport.vb

详细介绍了系统的设计过程,对于初学者是一个不错的参考资料

Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.IO
Imports CrystalDecisions.CrystalReports.Engine

Public Class FormReport
    Inherits System.Windows.Forms.Form
    Private MyTap As Integer

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New(ByVal myttag As Integer)
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化
        MyTap = myttag
    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents CrystalReportViewer1 As CrystalDecisions.Windows.Forms.CrystalReportViewer
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.CrystalReportViewer1 = New CrystalDecisions.Windows.Forms.CrystalReportViewer
        Me.SuspendLayout()
        '
        'CrystalReportViewer1
        '
        Me.CrystalReportViewer1.ActiveViewIndex = -1
        Me.CrystalReportViewer1.DisplayGroupTree = False
        Me.CrystalReportViewer1.Dock = System.Windows.Forms.DockStyle.Fill
        Me.CrystalReportViewer1.Location = New System.Drawing.Point(0, 0)
        Me.CrystalReportViewer1.Name = "CrystalReportViewer1"
        Me.CrystalReportViewer1.ReportSource = Nothing
        Me.CrystalReportViewer1.ShowCloseButton = False
        Me.CrystalReportViewer1.ShowExportButton = False
        Me.CrystalReportViewer1.ShowGroupTreeButton = False
        Me.CrystalReportViewer1.ShowRefreshButton = False
        Me.CrystalReportViewer1.ShowTextSearchButton = False
        Me.CrystalReportViewer1.Size = New System.Drawing.Size(456, 358)
        Me.CrystalReportViewer1.TabIndex = 0
        '
        'FormReport
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(456, 358)
        Me.Controls.Add(Me.CrystalReportViewer1)
        Me.MinimizeBox = False
        Me.Name = "FormReport"
        Me.Text = "FormReport"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub FormReport_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If MyTap = 0 Then
            GZReport()
        ElseIf MyTap = 1 Then
            YGReport()
        End If
    End Sub
    Private Sub GZReport()
        '取得ADO.NET中的数据集
        '///////  获取数据库CrystalReport.mdb的文件路径
        Dim FilePath As String
        FilePath = System.Reflection.Assembly.GetExecutingAssembly.Location()
        FilePath = Microsoft.VisualBasic.Left(FilePath, InStr(FilePath, "\企业人事管理系统"))
        '///////   连接数据源
        Dim ConnectionString As String
        ConnectionString = "provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;"
        Dim connstr As New String(ConnectionString)
        Dim searchSql As String
        searchSql = "SELECT distinct 员工信息表.员工姓名, 工资福利表.岗位工资, 工资福利表.基本工资, 工资福利表.伙食补贴, " & _
        "工资福利表.住房补贴, 工资福利表.医疗保险, 工资福利表.住房公积金, 工资福利表.养老保险, 工资福利表.其他补贴, " & _
        "工资福利表.发放时间, 工资福利表.实发工资 FROM wage.dbo.员工信息表 ,wage.dbo.工资福利表 where  员工信息表.员工编号=工资福利表.员工编号"

        '///////   取得数据集
        Dim da As New OleDbDataAdapter(searchSql, connstr)
        Dim dsDatab As New DataSet
        Try
            da.Fill(dsDatab)

            '创建报表文件
            '///////   根据ProductInfo.rpt模版创建报表文件
            Dim MyReportDoc As New ReportDocument
            MyReportDoc.Load(FilePath & "\企业人事管理系统\报表模版\CrystalReport1.rpt")
            '///////   设置报表文件的数据集
            '    MyReportDoc.SetDataSource(dsDatab.Tables(0))

            '为Crystal Report Viewer报表查看器控件设置报表文件
            Me.CrystalReportViewer1.ReportSource = MyReportDoc
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        '消除创建的对象
        da.Dispose()
        dsDatab.Dispose()
    End Sub
    Private Sub YGReport()
        '取得ADO.NET中的数据集
        '///////  获取数据库CrystalReport.mdb的文件路径
        Dim FilePath As String
        FilePath = System.Reflection.Assembly.GetExecutingAssembly.Location()
        FilePath = Microsoft.VisualBasic.Left(FilePath, InStr(FilePath, "\企业人事管理系统"))
        '///////   连接数据源
        Dim ConnectionString As String
        ConnectionString = "provider=SQLOLEDB.1;User ID=sa;PassWord=110;Persist Security Info=false;Initial Catalog=wage;Data Source=.;"
        Dim connstr As New String(ConnectionString)
        Dim searchSql As String

        searchSql = "SELECT 员工信息表.员工编号, 员工信息表.员工姓名, 员工信息表.性别, 员工信息表.生日, 员工信息表.住址," & _
        "员工信息表.职位, 员工信息表.出生地, 员工信息表.联系电话, 员工信息表.最高学历, 部门信息表.部门名称" & _
        " FROM   wage.dbo.员工信息表 员工信息表 INNER JOIN wage.dbo.部门信息表 部门信息表 ON 员工信息表.部门编号=部门信息表.部门编号"
        '///////   取得数据集
        Dim da As New OleDbDataAdapter(searchSql, connstr)
        Dim dsDatab As New DataSet
        Try
            da.Fill(dsDatab)

            '创建报表文件
            '///////   根据ProductInfo.rpt模版创建报表文件
            Dim MyReportDoc As New ReportDocument
            MyReportDoc.Load(FilePath & "\企业人事管理系统\报表模版\CrystalReport2.rpt")
            '///////   设置报表文件的数据集
            '          MyReportDoc.SetDataSource(dsDatab.Tables(0))

            '为Crystal Report Viewer报表查看器控件设置报表文件
            Me.CrystalReportViewer1.ReportSource = MyReportDoc
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        '消除创建的对象
        da.Dispose()
        dsDatab.Dispose()
    End Sub
End Class