Bài giảng Thực hành nhập môn công nghệ phần mềm - Bài 8: Sử dụng Data Report để in biểu mẫu báo cáo

Sử dụng Data Report để in biểu mẫu báo cáo
Mục đích
Trong bài thực hành này, bạn sẽ làm quen với khái niệm Report và cách sử dụng Report trong VB để in biểu mẫu báo cáo
Yêu cầu
Đã nắm được các khái niệm cơ bản về xây dựng ứng dụng bằng VB
Sử dụng được hệ quản trị CSDL Access
Vấn đề liên quan
Làm việc với Data Environment và Data Report 
Thời gian để hoàn tất bài thực hành: 90 phút
 Kết nối DataEnvironment trong Visual Basic
Mục đích: Sử dụng Data Environment để tạo command truy vấn, cung cấp thông tin cho Report
Mở Microsoft Access
Chọn Project ->Add Data Environment (hoặc Project ->More ActiveX Designers-> Data Environment).
Click phải chuột lên cnHocsinh, chọn Properties
Chọn Provider là Microsoft Jet 4.0 OLE DB Provider, chọn DatabaseName là HOCSINH.MDB. Để bảo đảm, bạn có thể bấm nút Test Connection để xem kết nối tới CSDL đã thành công chưa.
Bây giờ, ta sẽ tạo một command, có tác dụng rút trích ra những dữ liệu cần báo cáo
Click phải chuột trên cnHocsinh, chọn AddCommand, đổi tên command1 này thành cmdLayHocSinhNam
Click phải chuột trên cmdLayHocSinhNam, chọn Properties, nhập vào câu lệnh SQL có tác dụng trích ra những học sinh nào có giới tính Nam. Sau đó, bấm OK.
Thiết kế Report trong VB
Mục đích: Thiết kế Report, sử dụng command đã tạo ở bài tập trước
Chọn Project ->Add DataReport
Thiết lập thuộc tính DataSource và DataMember cho DataReport này như hình vẽ
Kéo thả các rptTextBox vào Report, thiết lập thuộc tính DataField để lấy dữ liệu mong muốn
Hiển thị Report ra màn hình
Mục đích: Gọi thực hiện Report
Viết hàm xử lý sự kiện click cho nút Báo cáo
Private Sub cmdBaocao_Click()
 Dim rptKetqua As New DataReport1
 rptKetqua.Show
End Sub
Chạy thử chương trình
Thiết kế Report có tham số
Tạo command với các thuộc tính sau :
Trong đó phần giới tính được tham số hoá
2.Thiết kế report như bài tập trên
 3.Hiện thị report :
 Private Sub cmdBaocao_Click()
 DataEnvironment1.Command1 False ’Thiet lap gia tri cho tham so trong ‘cau lenh truy van.
 Dim rptKetqua As New DataReport1
 rptKetqua.Show
 End Sub