Tài liệu Bài 5: XÂY DỰNG LỚP XỬ LÝ DỮ LIỆU pptx

Bài 5
XÂY DỰNG LỚP XỬ LÝ DỮ LIỆU
1. Giới thiệu
Khi đọc đến phần này, chắc hẳn các bạn cũng đã thực hiện khá nhiều trang web: trang danh sách khách
hàng, trang thông tin sách, … Giờ đây, chúng ta tạm dừng lại, nhìn lại những kết quả mình đã làm. Bạn có
thấy là ứng với mỗi trang web, chúng ta đều phải tạo chuỗi kết nối, thực hiện đọc bảng dữ liệu, viết xử lý
liên kết dữ liệu…
Chỉ mỗi việc hiển thị dữ liệu trên trang Web, chúng ta đã viết khá nhiều dòng lệnh trên đó, chưa kể đến
những xử lý khác sau này. Số lượng thao tác cần xử lý trên trang Web càng tăng, số lượng dòng lệnh càng
nhiều. Việc để lẫn lộn những đoạn code về truy cập dữ liệu và xử lý trên giao diện gây không ít khó khăn
trong việc xây dựng, phát triển và bảo trì ứng dụng web.
Chính vì lý do đó, trong phần này, chúng tôi hướng dẫn các bạn xây dựng lớp xử lý và đối tượng thể hiện
dữ liệu. Lớp xử lý đảm nhận trách nhiệm thực hiện các thao tác truy xuất và cập nhật dữ liệu. Đối tượng
thể hiện nhận dữ liệu, hiển thị dữ liệu trên trang Web và tiếp nhận thông tin từ người dùng. Việc phân
chia công việc cụ thể cho từng đối tượng không những giúp cho chúng ta xây dựng và phát triển ứng
dụng một cách có hiệu quả mà còn dễ dàng trong quá trình bảo trì, phù hợp với xu hướng phát triển phần
mềm sử dụng các ngôn ngữ lập trình hiện đại.
2. Thiết kế tổng quan
Để giúp các bạn dễ dàng theo dõi cấu trúc chi tiết của lớp xử lý dữ liệu, chúng ta sẽ bắt đầu tìm hiểu thiết
kế tổng quan của các lớp xử lý dữ liệu.
Imports System.Data.OleDb
Public Class XL_<TÊN_LỚP_DỮ_LIỆU>
Inherits DataTable
#Region "Khai báo biến thành viên"
#End Region
#Region "Danh sách các thuộc tính"
#End Region
#Region "Nhóm hàm khởi tạo đối tượng"
#End Region
#Region "Nhóm hàm cung cấp thông tin"
#End Region

#Region "Nhóm hàm xử lý tính toán"
#End Region
End Class
Nhóm từ khóa #Region và #End Region tạo ra các phân vùng giúp chúng ta dễ dàng quản lý các đoạn
lệnh trong quá trình xây dựng lớp.
Phân vùng với Region
Như các bạn thấy, lớp XL_XXX (XXX: đại diện cho tên lớp xử lý) được kế thừa từ lớp DataTable, đồng nghĩa
với việc nó sẽ được thừa hưởng tất cả những "tài sản" (các thuộc tính, phương thức, …) từ lớp DataTable.
Trong lớp xử lý trên, chúng ta có thực hiện các thao tác truy xuất và cập nhật dữ liệu, do đó, chúng ta cần sử
dụng bộ thư viện của ADO.Net. Bộ thư viện được sử dụng trong lớp xử lý này là System.Data.OleDb. Lẽ
đương nhiên, khi xây dựng ứng dụng của riêng mình, tùy theo yêu cầu cụ thể của ứng dụng, các bạn hoàn toàn
có thể chọn cho mình bộ thư viện khác, như System.Data.SqlClient chẳng hạn.
Chúng tôi chia các khai báo, xử lý thành 5 nhóm:
+Khai báo biến thành viên: Khai báo các biến thành viên của lớp đối tượng trong nhóm này.
+Danh sách các thuộc tính: Để đảm bảo tính bao bọc của phương pháp lập trình hướng đối tượng, chúng ta
sử dụng các thuộc tính để thực hiện giao tiếp giữa biến thành viên với các xử lý bên ngoài lớp.
+Nhóm hàm khởi tạo đối tượng: Danh sách các hàm khởi tạo lớp đối tượng được thực hiện trong nhóm
này.
+Nhóm hàm cung cấp thông tin: Các hàm cung cấp thông tin có được từ lớp đối tượng.
+Nhóm hàm xử lý tính toán: Các hàm, thủ tục, thực hiện các xử lý, tính toán theo yêu cầu phục vụ cho việc
cung cấp thông tin, vận hành lớp đối tượng.
3. Cấu trúc chi tiết
Khai báo biến thành viên
Chúng tôi xây dựng lớp XL_SACH làm ví dụ minh họa mẫu.
#Region "Khai báo biến thành viên"
Protected mDa_Bo_doc_ghi As New OleDbDataAdapter
Protected mChuoi_du_lieu As String = "SELECT * From SACH"
Protected Const mTen_bang = "SACH"
Protected mKhoa As String = "Ms"
Protected mDieu_kien_loc As String

#End Region
Nhóm hàm cung cấp thông tin
#Region "Nhóm hàm cung cấp thông tin"
'Cho biết số dòng dữ liệu hiện có
Public Function So_dong() As Integer
Return Me.Rows.Count
End Function
'Cung cấp thuộc tính của đối tượng có mã số
Function Thuoc_tinh(ByVal pMa_so As Integer, _
ByVal pTen_cot As String)
Dim lDv As New DataView(Me)
lDv.RowFilter = Khoa & "=" & pMa_so
If lDv.Count > 0 Then
Return lDv(0)(pTen_cot)
End If
End Function
Function Sap_xep(ByVal pChuoi_sap_xep As String) As DataView
Dim lDv As New DataView(Me)
lDv.Sort = pChuoi_sap_xep
Return lDv
End Function
#End Region
Nhóm hàm xử lý tính toán
#Region "Nhóm hàm xử lý tính toán"
'Đọc n cuốn sách mới được nhập
Function Doc_sach_moi(Optional ByVal pSo_dong As _
Integer = 10) As XL_SACH
Dim lSql As String
lSql = "Select Top " & pSo_dong & " * " & _
" From SACH " & _

" Order By Ngay_cap_nhat Desc"
Return New XL_SACH(lSql)
End Function

Function Doc_sach_ban_chay(Optional ByVal pSo_dong _
As Integer = 10) As XL_SACH
Dim lSql As String
lSql = "Select Top " & pSo_dong & " * " & _
" From SACH " & _
" Order By So_luong_ban Desc"
Return New XL_SACH(lSql)
End Function

Function Doc_sach_theo_chu_de(ByVal pMcd As Integer, _
Optional ByVal pSo_dong As Integer = 10) As XL_SACH
Dim lSql As String
lSql = "Select Top " & pSo_dong & " * " &_
" From SACH" & _
" Where Mcd = " & pMcd & _
" Order By Ngay_cap_nhat Desc"
Return New XL_SACH(lSql)
End Function
Sub Doc_du_lieu(Optional ByVal pSQL As String = "")
Dim lSQL As String = Chuoi_du_lieu
If pSQL <> "" Then
lSQL = pSQL
End If
If Dieu_kien_loc <> "" Then
lSQL &= " Where " & Dieu_kien_loc
End If

mDa_Bo_doc_ghi = New OleDbDataAdapter(lSQL, gChuoi_ket_noi)
Dim cb As New OleDbCommandBuilder(mDa_Bo_doc_ghi)
mDa_Bo_doc_ghi.Fill(Me)
End Sub
Chú ý: Biến gChuoi_ket_noi được khai báo trong thư viện.
'Module Thu_vien.vb
Module Thu_Vien
Public gChuoi_ket_noi As String
End Module
Cần phải khởi tạo giá trị cho biến gChuoi_ket_noi trước khi khởi tạo đối tượng.
Public Sub Them_sach(ByVal pTen_sach As String, _
ByVal pDon_gia As String, _
ByVal pMo_ta As String, _
ByVal pHinh_minh_hoa As String, _
ByVal pMcd As Integer, _
ByVal pMnxb As Integer)
Dim lDr As DataRow = Me.NewRow
lDr("Ten_sach") = pTen_sach
lDr("Don_gia") = pDon_gia
lDr("Mo_ta") = pMo_ta
lDr("Hinh_minh_hoa") = pHinh_minh_hoa
lDr("Mcd") = pMcd
lDr("Mnxb") = pMnxb
Me.Rows.Add(lDr)
mDa_Bo_doc_ghi.Update(Me)
Me.AcceptChanges()
End Sub

Sub Xoa_sach(ByVal pMa_so As Integer)
Dim lCn As New OleDbConnection(gChuoi_ket_noi)

Dim lCmd As New OleDbCommand
lCmd.Connection = lCn
lCmd.CommandType = CommandType.Text
lCmd.CommandText = "Delete * From " & Ten_Bang & _
" Where " & Khoa & "=" & pMa_so
lCn.Open()
lCmd.ExecuteNonQuery()
lCn.Close()
End Sub
#End Region
Danh sách các thuộc tính
Ứng với mỗi biến thành viên cần giao tiếp ra bên ngoài, chúng ta cung cấp thuộc tính tương ứng để làm
việc.
#Region "Danh sách các thuộc tính"
Private ReadOnly Property Chuoi_du_lieu() As String
Get
Return mChuoi_du_lieu
End Get
End Property
Public ReadOnly Property Ten_Bang() As String
Get
Return mTen_bang
End Get
End Property
Public ReadOnly Property Khoa() As String
Get
Return mKhoa
End Get
End Property
Private Property Dieu_kien_loc() As String

Get
Return mDieu_kien_loc
End Get
Set(ByVal Value As String)
mDieu_kien_loc = Value
End Set
End Property
#End Region
Mô hình xử lý của ứng dụng
Nhóm hàm khởi tạo đối tượng
#Region "Nhóm hàm khởi tạo đối tượng"
'Tạo đối tượng chứa tất cả dữ liệu có trong bảng
Public Sub New()
MyBase.New(mTen_bang)
Doc_du_lieu()
End Sub

'Tạo đối tượng có mã số tương ứng
Public Sub New(ByVal pMa_so As Integer)
MyBase.New(mTen_bang)
Dieu_kien_loc = Khoa & "=" & pMa_so
Doc_du_lieu()
End Sub

'Tạo đối tượng có dữ liệu thỏa câu lệnh truy vấn
Public Sub New(ByVal pLenh_sql As String)
MyBase.New(mTen_bang)
Doc_du_lieu(pLenh_sql)
End Sub
#End Region

Các bạn xem hàm Doc_du_lieu trong nhóm hàm xử lý tính toán
Nhóm hàm cung cấp thông tin
#Region "Nhóm hàm cung cấp thông tin"
'Cho biết số dòng dữ liệu hiện có
Public Function So_dong() As Integer
Return Me.Rows.Count
End Function

'Cung cấp thuộc tính của đối tượng có mã số
Function Thuoc_tinh(ByVal pMa_so As Integer, _
ByVal pTen_cot As String)
Dim lDv As New DataView(Me)
lDv.RowFilter = Khoa & "=" & pMa_so
If lDv.Count > 0 Then
Return lDv(0)(pTen_cot)
End If
End Function

Function Sap_xep(ByVal pChuoi_sap_xep As String) As DataView
Dim lDv As New DataView(Me)
lDv.Sort = pChuoi_sap_xep
Return lDv
End Function
#End Region
Nhóm hàm xử lý tính toán
#Region "Nhóm hàm xử lý tính toán"
'Đọc n cuốn sách mới được nhập
Function Doc_sach_moi(Optional ByVal pSo_dong As _
Integer = 10) As XL_SACH
Dim lSql As String

lSql = "Select Top " & pSo_dong & " * " & _
" From SACH " & _
" Order By Ngay_cap_nhat Desc"
Return New XL_SACH(lSql)
End Function

Function Doc_sach_ban_chay(Optional ByVal pSo_dong _
As Integer = 10) As XL_SACH
Dim lSql As String
lSql = "Select Top " & pSo_dong & " * " & _
" From SACH " & _
" Order By So_luong_ban Desc"
Return New XL_SACH(lSql)
End Function

Function Doc_sach_theo_chu_de(ByVal pMcd As Integer, _
Optional ByVal pSo_dong As Integer = 10) As XL_SACH
Dim lSql As String
lSql = "Select Top " & pSo_dong & " * " &_
" From SACH" & _
" Where Mcd = " & pMcd & _
" Order By Ngay_cap_nhat Desc"
Return New XL_SACH(lSql)
End Function

-
Sub Doc_du_lieu(Optional ByVal pSQL As String = "")
Dim lSQL As String = Chuoi_du_lieu
If pSQL <> "" Then
lSQL = pSQL

End If
If Dieu_kien_loc <> "" Then
lSQL &= " Where " & Dieu_kien_loc
End If
mDa_Bo_doc_ghi = New OleDbDataAdapter(lSQL, gChuoi_ket_noi)
Dim cb As New OleDbCommandBuilder(mDa_Bo_doc_ghi)
mDa_Bo_doc_ghi.Fill(Me)
End Sub
#End Region
Chú ý: Biến gChuoi_ket_noi được khai báo trong thư viện.
'Module Thu_vien.vb
Module Thu_Vien
Public gChuoi_ket_noi As String
End Module
Cần phải khởi tạo giá trị cho biến gChuoi_ket_noi trước khi khởi tạo đối tượng.
Public Sub Them_sach(ByVal pTen_sach As String, _
ByVal pDon_gia As String, _
ByVal pMo_ta As String, _
ByVal pHinh_minh_hoa As String, _
ByVal pMcd As Integer, _
ByVal pMnxb As Integer)
Dim lDr As DataRow = Me.NewRow
lDr("Ten_sach") = pTen_sach
lDr("Don_gia") = pDon_gia
lDr("Mo_ta") = pMo_ta
lDr("Hinh_minh_hoa") = pHinh_minh_hoa
lDr("Mcd") = pMcd
lDr("Mnxb") = pMnxb
Me.Rows.Add(lDr)
mDa_Bo_doc_ghi.Update(Me)

Me.AcceptChanges()
End Sub

Sub Xoa_sach(ByVal pMa_so As Integer)
Dim lCn As New OleDbConnection(gChuoi_ket_noi)
Dim lCmd As New OleDbCommand
lCmd.Connection = lCn
lCmd.CommandType = CommandType.Text
lCmd.CommandText = "Delete * From " & Ten_Bang & _
" Where " & Khoa & "=" & pMa_so
lCn.Open()
lCmd.ExecuteNonQuery()
lCn.Close()
End Sub
4. Sử dụng lớp đối tượng
Sau khi thiết kế lớp xử lý hoàn tất, việc hiển thị dữ liệu trên màn hình bây giờ khá đơn giản. Xử lý sau liệt
kê các sách có trong bảng dữ liệu:
Private Sub Page_Load(…, e …) Handles MyBase.Load
If Not IsPostBack Then
'Khởi tạo chuỗi kết nối
gChuoi_ket_noi ="Provider=" & _
"Microsoft.Jet.Oledb.4.0;Data Source=" & _
Server.MapPath(" \Data\QlBanSach.mdb")

Dim lSach As New XL_SACH
dtlSach.DataSource = lSach
dtlSach.DataKeyField = "Ms"
dtlSach.DataBind()
End If
End Sub

Nếu muốn hiển thị các sách mới nhập:
Private Sub Page_Load(…, e …) Handles MyBase.Load
If Not IsPostBack Then
'Khởi tạo chuỗi kết nối
gChuoi_ket_noi ="Provider=" & _
"Microsoft.Jet.Oledb.4.0;Data Source=" & _
Server.MapPath(" \Data\QlBanSach.mdb")
Dim lSach As New XL_SACH
dtlSach.DataSource = lSach.Doc_sach_moi()
dtlSach.DataKeyField = "Ms"
dtlSach.DataBind()
End If
End Sub
Kết quả hiển thị:
Màn hình thông tin sách
Trong bảng SACH, chúng ta chỉ có thông tin về Mã chủ đề (Mcd), Mã nhà xuất bản (Mnxb), để lấy được
tên chủ đề, tên nhà xuất bản như kết quả trong hình minh họa trên, chúng ta cần xây dựng hai lớp xử lý
tương ứng là XL_CHU_DE, XL_NHA_XB và bổ sung các điều khiển cần thiết như hình bên dưới.
Bổ sung vào sự kiện ItemDataBound của dltSach:
'Hiển thị thông tin chủ đề
Dim lnkChu_de As LinkButton
lnkChu_de = e.Item.FindControl("lnkChu_de")
Dim lChu_de as New XL_CHU_DE
lnkChu_de.Text = lChu_de.Thuoc_tinh( _
e.Item.DataItem("Mcd"),"Ten_chu_de")
'Hiển thị thông tin nhà xuất bản
Dim lnkNha_xb As LinkButton
lnkNha_xb = e.Item.FindControl("lnkNha_xb")
Dim lNha_xb as New XL_NHA_XB
lnkNha_xb.Text = lNha_xb.Thuoc_tinh( _

e.Item.DataItem("Mnxb"), "Ten_nha_xuat_ban")