Thực hành lập trình CSDL với VB.net

4. Kết quả thực thi

Hình 121. Kết quả thực thi báo cáo bán hàng

b) Thiết kế form điều khiển việc xem in báo cáo thống kê bán hàng theo mẫu sau:

Hình 122. Form điều khiển in báo cáo bán hàng

1. Phân tích yêu cầu

Có thể bạn quan tâm!

Xem toàn bộ 318 trang tài liệu này.

Theo yêu cầu trên thì cần một form chứa các điều khiển:

Điều khiển có nội dung “In báo cáo bán hàng”, “In theo”, “Người bán hàng” là các Label

Điều khiển chọn lựa “Tất cả người bán hàng”, “Từng người bán hàng” là các Radio Button.

Các nút lệnh “Xem trước, In ấn, Kết thúc” là các điều khiển Button.

Ngoài ra cần phải thiết kế một form cho phép xem thử báo cáo trước khi in.

2. Hướng dẫn thao tác

Để thực hiện yêu cầu trên, thực hiện các thao tác tương tự như ở phần công việc 2 để tạo form frmInBaoCaoBanHang với các điều khiển và nội dung như yêu cầu.

Viết mã lệnh cho các điều khiển này như sau:

Lưu ý: Để thao tác với Crystal Report người lập trình phải đưa vào các thư viện bằng đoạn mã sau:

Imports CrystalDecisions.CrystalReports.Engine

Mã lệnh khi lựa chọn vào RadioButtonTatCa

Private Sub RadioButtonTatCa_CheckedChanged(ByVal

sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonTatCa.CheckedChanged

ComboBoxNguoiBanHang.DataSource = Nothing ComboBoxNguoiBanHang.Enabled = False

End Sub

Mã lệnh khi lựa chọn vào RadioButtonTungHD

Private Sub RadioButtonTungHD_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButtonTungHD.CheckedChanged

'Khai báo đối tượng và biến cần sử dụng Dim sqlTimKiem As String

'Tìm kiếm tất cả các người bán hàng có trong bảng bán hàng.

sqlTimKiem = "SELECT DISTINCT NguoiBanHang FROM tblBanHang GROUP BY NguoiBanHang"

'Thực hiện tìm kiếm và đưa kết quả ra lưới Using cn As New SqlConnection("Data

Source=PHANDUCTHIEN;Initial Catalog=QLYBH;User

ID=sa;Password=admin123@")

Using cmd As New SqlCommand(sqlTimKiem, cn) cmd.CommandType = CommandType.Text cn.Open()

Dim ds As New DataSet()

Dim da As New SqlDataAdapter(cmd) da.Fill(ds) ComboBoxNguoiBanHang.DataSource =

ds.Tables(0).DefaultView

ComboBoxNguoiBanHang.DisplayMember =

"NguoiBanHang"

ComboBoxNguoiBanHang.ValueMember = "NguoiBanHang"

cn.Close() End Using

End Using ComboBoxNguoiBanHang.Enabled = True

End Sub

Mã lệnh khi nhấn vào nút Kết thúc

Private Sub ButtonKetThuc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKetThuc.Click

'Đóng form Me.Close()

End Sub

Mã lệnh khi nhấn vào nút Xem trước

Private Sub ButtonXemTruoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonXemTruoc.Click

'Khai báo một form kiểu frmXemTruocBaoCaoBanHang

Dim frm As New frmXemTruocBaoCaoBanHang() 'Hiển thị form ở trên cùng

frm.ShowDialog() End Sub

Mã lệnh khi nhấn vào nút In ấn

Private Sub ButtonInAn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonInAn.Click

If RadioButtonTatCa.Checked Then 'Chuyển trạng thái con trỏ Me.Cursor = Cursors.WaitCursor 'Tạm khóa nút In ấn ButtonInAn.Enabled = False

'In tất cả các khách hàng

'Khai báo một đối tượng Crystal Report Dim myReport As New ReportDocument() 'Tải báo cáo từ đường dẫn chỉ định

myReport.Load(Application.StartupPath.ToString() & "BaoCaoBanHangTheoNguoiBanHang.rpt")

'Thiết lập tên máy in cần in (nếu cần) myReport.PrintOptions.PrinterName = "Foxit

Reader PDF Printer"

'In giấy mời ra máy in chỉ định myReport.PrintToPrinter(1, True, 0, 0) 'Trả trạng thái con trỏ về mặc định Me.Cursor = Cursors.Default

'Tạm khóa nút In ấn ButtonInAn.Enabled = True

Else

If RadioButtonTungHD.Checked Then 'Kiểm tra mã khách hàng có tồn tại không 'Khai báo đối tượng và biến cần sử dụng Dim sqlTimKiem As String

'Thiết lập câu lệnh tìm kiếm theo mã khác hàng sqlTimKiem = "SELECT tblBanHang.*,

tblKhachHang.HoTen, tblKhachHang.DienThoai,

tblKhachHang.DiaChi, tblMatHang.TenMatHang, tblMatHang.DVT, tblChiTietHoaDon.SoLuong, tblChiTietHoaDon.DonGia, tblChiTietHoaDon.SoLuong * tblChiTietHoaDon.DonGia AS ThanhTien FROM tblBanHang, tblKhachHang, tblMatHang, tblChiTietHoaDon WHERE tblBanHang.MaKH = tblKhachHang.MaKH AND tblBanHang.SoHieuHD = tblChiTietHoaDon.SoHieuHD AND tblMatHang.MaMH = tblChiTietHoaDon.MaMH AND tblBanHang.NguoiBanHang LIKE '%" & ComboBoxNguoiBanHang.SelectedValue.ToString() & "%'"

Using cn As New SqlConnection("Data Source=PHANDUCTHIEN;Initial Catalog=QLYBH;User ID=sa;Password=admin123@")

Using cmd As New SqlCommand(sqlTimKiem, cn)

cmd.CommandType = CommandType.Text cn.Open()

Dim ds As New DataSet()

Dim da As New SqlDataAdapter(cmd) da.Fill(ds)

'Nếu tồn tại đơn hàng phù hợp

If ds.Tables(0).Rows.Count > 0 Then 'Chuyển trạng thái con trỏ Me.Cursor = Cursors.WaitCursor 'Tạm khóa nút In ấn ButtonInAn.Enabled = False

'In giấy mời ra máy in

'Khai báo một đối tượng Crystal Report Dim myReport As New

ReportDocument()

'Tải báo cáo từ đường dẫn chỉ định

myReport.Load(Application.StartupPath.ToString() & "BaoCaoBanHangTheoNguoiBanHang.rpt")

'Thiết lập nguồn dữ liêu mới cho giấy

mời

myReport.SetDataSource(ds.Tables(0).DefaultView)

'Thiết lập tên máy in cần in (nếu cần) myReport.PrintOptions.PrinterName =

"Foxit Reader PDF Printer"

'In giấy mời ra máy in chỉ định myReport.PrintToPrinter(1, True, 0, 0) 'Trả trạng thái con trỏ về mặc định Me.Cursor = Cursors.Default

'Tạm khóa nút In ấn ButtonInAn.Enabled = True

Else

'Thông báo MessageBox.Show("Không tìm thấy",

"Thông báo", MessageBoxButtons.OK, MessageBoxIcon.Error)

End If cn.Close()

End Using End Using

End If End If

End Sub

Để thiết kế form xem thử báo cáo thực hiện như sau:

Tạo mới một form giống các phần trên. Thiết lập các thuộc tính về tiêu đề, nút phóng to, thu nhỏ, chế độ hiển thị, vị trí khi hiển thị của form ở cửa sổ Properties.

Từ cửa sổ Toolbox kéo điều khiển Crystal Report Viewer vào form vừa tạo.

Thiết lập thuộc tính các thuộc tính cho điều khiển này như sau:

 Name: CrystalReportViewer1.

 BorderStyle: FixedSingle.

 Dock: Fill.

 Các thuộc tính khác đặt mặc định.

Tiếp theo, tiến hành thiết lập nguồn cho điều khiển Crystal Report Viewer như sau: Nhấn vào mũi tên quay xuống ở thuộc tính ReportSource và chọn báo cáo vừa xây dựng để thiết lập nó hiển thị ở trong Crystal Report Viewer.

Hình 123. Cửa sổ thiết kế form xem trước báo cáo.

Có thể chọn nhiều Report cho thuộc tính ReportSource. Tuy nhiên, tại một thời điểm Crystal Report Viewer chỉ có thể hiển thị được duy nhất nội dung của một Report. Để lựa chọn báo cáo nào sẽ hiển thị người lập trình sẽ viết mã lệnh trong sự kiện tải form hoặc trong sự kiện nhấp vào một nút lệnh nào đó trên form.

Lưu ý: Cần phải thêm các thư viện bên dưới để thao tác với báo cáo xây dựng bằng Crystal Report.

Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared