Bài 8. Sử dụng Data Report để in biểu mẫu báo cáo

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ụngReport trong VB để in biểu mẫu báo cáo
Nội dung trích xuất từ tài liệu:
Bài 8. Sử dụng Data Report để in biểu mẫu báo cáo Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM Sử dụng Data Report để in biểu mẫu báo Bài 8. cáoMụ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 ụngReport trong VB để in biểu mẫu báo cáoYê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 AccessVấn đề liên quan Làm việc với Data Environment và Data ReportThời gian để hoàn tất bài thực hành: 90 phút 1 Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 8.1. Kết nối DataEnvironment trong Visual BasicMục đích: Sử dụng Data Environment để tạo command truy vấn, cungcấp thông tin cho Report 1. Mở Microsoft Access 2. Chọn Project ->Add Data Environment (hoặc Project ->More ActiveX Designers-> Data Environment). 3. Click phải chuột lên cnHocsinh, chọn Properties 2 Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM4. 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.5. 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áo6. Click phải chuột trên cnHocsinh, chọn AddCommand, đổi tên command1 này thành cmdLayHocSinhNam7. 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. 3Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM 4 Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 8.2. Thiết kế Report trong VBMục đích: Thiết kế Report, sử dụng command đã tạo ở bài tập tr ước1. Chọn Project ->Add DataReport2. Thiết lập thuộc tính DataSource và DataMember cho DataReport này như hình vẽ3. 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 5Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM 6 Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 8.3. Hiển thị Report ra màn hìnhMục đích: Gọi thực hiện Report 1. 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 2. Chạy thử chương trình 7 Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀM 3.Bài tập 8.4. Thiết kế giao diệnMục đích: Thiết kế form với control nâng cao 1. Thêm 1 form vào project và đặt tên là frmTimkiem với giao diện như sau: txHoTen cmdBaocao cmdTiepnhan cmdTimkiemTrovegridKetqua(chọn Project->Components->MicrosoftHierachical FlexGridControl 6.0 (OLEDB) đểthêm control này vàoToolBox, rồi kéo thảcontrol này từ ToolBoxvào form 8 Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 8.5. Thực thi câu lệnh để hiển thị form Tìm kiếmMục đích: Nhắc lại các lệnh gọi hiển thị form trong ứng dụng 1. Viết hàm sau đây với mục đích hiển thị form Tìm kiếm mới tạo ra thêm Private Sub HienthiTimkiem() Dim dlgTimkiem As New frmTimkiem dlgTimkiem.Show End Sub 2. Viết hàm xử lý sự kiện Click cho nút Tìm kiếm Hien thi Dialog Tim kiem khi nguoi dung click vao button Tim kiem Private Sub cmdTimkiem_Click() HienthiTimkiem End Sub 3. Chạy thử chương trình xem form Tìm kiếm đã được hiển thị khi người dùng click vào button Tìm kiếm hay chưa 9 Bài 8. BÀI GIẢNG THỰC HÀNH MÔN NHẬP MÔN CÔNG NGHỆ PHẦN MỀMBài tập 8.6. Xử lý form TìmkiếmMục đích: Làm quen với Microsoft Hierachical FlexGrid ControlTa sẽ cho phép người dùng nhập vào thông tin, và sau đó tìm kíếm học sinh thỏa yêu cầu bằng cácbước sauGhi chú: Tất cả các thao tác sau được làm tại frmTimkiem! 1. Kết nối CSDL a. Chọn công nghệ kết nối sử dụng là ADO (bước cơ bản thứ 1 trong kết nối CSDL) b. Khai báo biến connection là biến toàn cục Dim Cn As ADODB.Connection c. Mở kết nối tới CSDL trong hàm Form_Load (bước cơ bản thứ 2 trong kết nối CSDL) Private Sub Form_Load() ‘Khoi tao moi mot doi tuong Connection Set Cn = new ADODB.Connection Cn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source = Hocsinh.mdb” Cn.Open End Sub 2. Tìm kiếm học sinh thỏa yêu cầu a. Sử dụng lại hàm đã được viết sẵn HienthiKQLenGrid Ham nay dung de hien thi du lieu tra ra tu 1 cau lenh Select len FlexGrid Tham so: strSQL: cau truy van SQL Cn: connection ket noi toi CSDL (da duoc mo san) Private Sub HienthiKQLenGrid(ByVal strSQL As String, ByVal Cn As ADODB.Connection) Dim Rs As New ADODB.Recordset Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic If (Not Rs.BOF) Then Di chuyen con tro ve dau RecordSet Rs.Mo ...