1.添加一个名为“员工档案报表”的窗体。
2.在窗体上添加控件:四个CheckBox控件,一个DataGrid控件,两个DateTmePicker控件,三个Button命令按钮,三个TextBox控件,一个GroupBox控件,一个CrystalReportViewerl控件口调整各控件的位置及大小。
Imports System.Data.SqlClient
Imports 人事管理系统.rsglxtDataSetTableAdapters
Imports 人事管理系统.rsglxtDataSet
Public Class 员工档案报表
Private Sub 员工档案报表_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim conn As SqlConnection = GetConnetion()
conn.Open()
Dim strSql As String = "Select * From 员工档案表"
Dim myda As New SqlDataAdapter(strSql, GetConnetion)
Dim mydt As New DataTable
myda.Fill(mydt)
conn.Close()
CrystalReport11.SetDataSource(mydt)
CrystalReportViewer1.ReportSource = CrystalReport11
End Sub
End Class