164 Form cho phép người sử dụng chọn tên một nhân viên bán hàng trong cboten và hiển thị thông tin chi tiết về những hóa đơn bán hàng của nhân viên đó. Khi nhấn nút Report ta sẽ xuất dữ liệu trên form sang một report được thể hiện như hình sau:
Phần hiển thị và lọc dữ liệu được thực hiện thông qua đối tượng dataAdapter và đối tượng DataSet như đã hướng dẫn trong các ví dụ trước. Bạn có thể tham khảo phần code dưới đây với da là tên của DataAdapter và dst là tên của DataSet. Form có tên ngầm định là form1
'khai báo biến tầm vực đơn thể - biến chung của class
Dim lenh1 As String = "select banhang.sohd, banhang.ngayban," & _
"banhang.nguoiban, banhang.masp,sanpham.tensp,sanpham.dongia," & _
"banhang.soluong, banhang.thanhtien from banhang,sanpham " & _
" where banhang.masp=sanpham.masp"
Dim lenh2 As String
Dim da As New SqlClient.SqlDataAdapter(lenh1, Chuoi_ket_noi)
165 ' Thủ tục Load của form
Private Sub Form1_Load...
dst.Clear()
da.Fill(dst, "bangthongke") dg.DataSource = dst
dg.DataMember = "bangthongke"
Tao_ket_noi()
If Ket_noi.State = ConnectionState.Closed Then Ket_noi.Open() Dim comm1 As New SqlClient.SqlCommand _
("select distinct nguoiban from banhang", Ket_noi)
Dim reader1 As SqlClient.SqlDataReader = _
comm1.ExecuteReader(CommandBehavior.CloseConnection) While reader1.Read cboten.Items.Add(reader1.Item(0)) End While reader1.Close() End Sub 'Thủ tục chọn một mục trong cbo_ten
Private Sub cboten_SelectedIndexChanged ...
lenh2 = " and banhang.nguoiban='" & cboten.Text & "'"
da.SelectCommand.CommandText = lenh1 & lenh2 dst.Clear()
da.Fill(dst, "bangthongke")
End Sub
Vấn đề chỉ còn lại cách xây dựng báo biểu thống kê chi tiết các lần bán hàng theo tên nhân viên và viết code cho nút Report. Hãy thực hiện theo các bước sau:
- Bước 1: Trong SQL Server tạo thủ tục nhận tên người bán làm tham số và trả về thông tin bán hàng của nhân viên đó. Thủ tục có tên thongkeBHtheoNV và được tạo như sau:
Create proc ThongkeBHtheoNV(@tennb nvarchar(50))
as begin
select banhang.sohd, banhang.ngayban,banhang.nguoiban, banhang.masp,sanpham.tensp,sanpham.dongia,
banhang.soluong,banhang.thanhtien from sanpham,banhang
166 banhang.nguoiban=@tennb (adsbygoogle = window.adsbygoogle || []).push({});
end
Biên dịch thủ tục trên (nhấn F5) - Bước 2:
+ Tạo Crystal Report (nhấn phải chuột vào tên project trong cửa sổ Solution Explorer, chọn Add, chọn Crystal Report).
+ Đặt tên report là rptTK_TheoNV. Cửa sổ Crystal Reports Gallery xuất hiện như hình dưới đây. Chọn kiểu Standard và nhấn OK.
- Bước 3: Nháy đúp vào mục Create New Connection; chọn OLEDB, chọn Microsoft OLEDB Provider for SQL Server, chọn Next
168 + Chọn tên Server và tên Database. Nhấn Next sang màn hình tiếp theo.
169 + Tìm tên thủ tục ThongkeBHtheoNV trong danh mục các thủ tục nội tại của cơ sở dữ liệu. Add sang bảng Selected Table. Nhấn Next để tiếp tục.
+ Add toàn bộ các trường của thủ tục ThongkeBHtheoNV sang cửa sổ bên phải. Nhấn Finish để hoàn tất bước 3. Report rptTK_theoNV đã xuất hiện trên project.
- Bước 4: Định dạng lại report như hình dưới đây. Section1 là phần tiêu đề của báo biểu; Section 2 là tiêu đề các cột của bảng (lặp lại khi hết một trang); Section3 là phần dữ liệu tương ứng với một bản ghi.
+ Dùng Text Object để đặt các label lên báo biểu; Line Object để vẽ các đường thẳng; dùng cửa sổ Field Explorer để chèn các trường vào báo biểu.
+ Để định dạng nội dung, font chữ, kiểu dữ liệu của tiêu đề cột và dữ liệu trong cột, nhấn phải chuột vào đối tượng và chọn các lệnh cần thiết.
170 Thủ thuật: Để gióng hàng (hoặc đặt cùng kích cỡ) cho nhiều đối tượng, bạn chọn chúng và nhấn phải chuột chọn Align hoặc Size.
+ Để xem trước báo biểu, chọn nút Main Report Preview. - Bước 5: Tạo form làm lớp cơ sở cho báo biểu:
+ Tạo form mới, đặt tên form là frmTK_theoNV.
+ Đưa vào form một điều khiển CrystalReportViewer. Điều khiển có tên ngầm định là CrystalReportViewer1
- Bước 6: Viết code cho nút Report và chạy thử chương trình Dim myreport As New rptTK_TheoNV
myreport.SetDataSource(dst.Tables("bangthongke")) Dim f As New frmTK_TheoNV
f.CrystalReportViewer1.ReportSource = myreport f.ShowDialog()
NỘI DUNG PHẦN THẢO LUẬN
1. Các phương pháp xây dựng form hiển thị dữ liệu 2. Mô hình thiết kế form lọc dữ liệu
3. Các phương pháp xây dựng form cập nhật dữ liệu 4. Tính toán trên cơ sở dữ liệu
5. Xử lý các ràng buộc trên cơ sở dữ liệu 6. Xử lý trùng khóa trên cơ sở dữ liệu.
TÓM TẮT NỘI DUNG CỐT LÕI
Trong chương này sinh viên cần chú ý đến các nội dung sau: • Tạo module kết nối cơ sở dữ liệu
• Hiển thị dữ liệu bằng Data Reader
• Hiển thị dữ liệu bằng DataAdapter kết hợp với DataSet, DataTable • Tính toán, cập nhật dữ liệu bằng đối tượng Command
• Tính toán, cập nhật dữ liệu bằng đối tượng DataSet, DataTable • Cập nhật dữ liệu bằng Binding Navigator
171 BÀI TẬP THỰC HÀNH
1. Tạo cơ sở dữ liệu SQL có tên De1 với cấu trúc các bảng và dữ liệu như sau:
SanPham (MaSP int, TenSP nvarchar(50), NhaCC (adsbygoogle = window.adsbygoogle || []).push({});
nvarchar(30), DonGia decimal)
BanHang (SoHD int, NgayBan datetime, MaSP int ràng buộc khóa
ngoại tham chiếu đến MaSP trong bảng SanPham, NguoiBan nvarchar(50), SoLuong int, ThanhTien decimal)
SanPham MaSP (mã sản phẩm TenSP (tên sản phẩm) NhaCC (nhà cung cấp) DonGia (đơn giá)
1 LCD Toshiba 32 inch Toshiba 6690000
2 LCD Toshiba 40 inch Toshiba 10900000
3 LCD LG 32 inch LG 5290000
4 LCD Sony 40 inch Sony 14900000
5 LED Samsung 22 inch Samsung 5790000
BanHang SoHD NgayBan (ngày bán) MaSP (mã sản phẩm) Ngươiban (người bán) SoLuong (số lượng) ThanhTien (thành tiền) 1 '2/1/2011' 1 An 2 2 '2/1/2011' 2 Bình 3 3 '2/1/2011' 3 Vân 2 4 '2/3/2011' 4 Bình 3 5 '3/1/2011' 5 An 1 6 '3/1/2011' 1 An 1 7 '3/2/2011' 1 Vân 2 8 '4/1/2011' 2 Vân 2 9 '4/1/2011' 3 An 2 10 '4/1/2011' 3 An 1 11 '4/1/2011' 4 Bình 5 12 '4/1/2011' 4 Vân 3
2. Tạo project mới. Trên đó tạo module và viết thủ tục Tao_Ket_noi với cơ sở dữ liệu De1 (xem mẫu trong ví dụ 5.2b).
3. Tạo form mới theo mẫu dưới đây. Form cho phép nhập tên một nhân viên bán hàng và thống kê số lần bán hàng, tổng số tiền bán hàng. (xem mẫu trong ví dụ 5.3, 5.4)
172 4. Thiết kế form theo mẫu của ví dụ 5.5
5. Tạo thủ tục thongkenv và thêm vào project một form theo ví dụ 5.6 6. Bổ sung form và thiết kế theo mẫu của ví dụ 5.7
7. Tạo form hiển thị bảng kê chi tiết bán hàng (xem mẫu ví dụ 5.8a hoặc 5.8b)
8. Bổ sung thêm các form tương ứng với các mẫu của ví dụ 5.9, 5.10, 5.11, 5.12, 5.13, 5.14
9. Thêm form MDI có tên frmChinh vào project. Thiết kế menu cho form. Các mục chọn của menu cho phép gọi các form tương ứng của project.
- Thống kê, tính toán: + Ví dụ 5.4
+ Ví dụ 5.5
173 - Hiển thị dữ liệu + Ví dụ 5.7
+ Ví dụ 5.8
+ Ví dụ 5.9
+ Ví dụ 5.9 b - Dùng Server Explorer để kết nối CSDL - Lọc dữ liệu - Ví dụ 5.10
- Cập nhật dữ liệu + Thêm bản ghi - Ví dụ 5.11 + Xóa bản ghi - Ví dụ 5.12 + Cập nhật chung - Ví dụ 5.13 + Binding Navigator - Ví dụ 5.14
10. Bổ sung vào cơ sở dữ liệu bảng NguoiSD với hai trường là UserName và Pass. Nhập dữ liệu cho 3 bản ghi. Thiết kế form đăng nhập cho hệ thống như mẫu sau. Form cho phép người sử dụng nhập tên và password. Khi bấm nút Đăng nhập, nếu tên hoặc password sai thì sẽ đưa ra thông báo lỗi, nếu đúng với tên và password lưu trong cơ sở dữ liệu thì chuyển đến làm việc với form frmChinh đã tạo trong câu 9.
174
TÀI LIỆU THAM KHẢO
Tiếng Việt
1. Trung tâm tin học Đại học Khoa học tự nhiên thành phố Hồ Chí Minh (2006),
Tài liệu hướng dẫn giảng dạy chương trình kỹ thuật viên ngành lập trình Học phần 3 Visual Basic.NET. (adsbygoogle = window.adsbygoogle || []).push({});
2. Nguồn ebook SachVBNET.pdf (3-1-2011), Giáo trình Lập trình hướng đối tượng với VB.NET.
3. Nguyễn Ngọc Tuấn (2005), Visual Studio.Net , Nhà xuất bản Thống kê. 4. Website http://www.thayphet.net (2011).
Tiếng Anh
5. Dave Grundgeiger (2002), Programming Visual Basic .NET, Publisher: O'Reilly. 6. Nguồn ebook dotnet tutorial for beginner.pdf (3-1-2011), India Community
Initiative, NET Tutorial for Beginners.
7. Nguồn ebook 2878ch06.pdf (4-2011), Mastering™ Visual Basic® .NET - Chapter 6: A First Look at ADO.NET , Evangelos Petroutsos; Asli Bilgin,
Copyright © 2002 SYBEX Inc.