Bài 6
XÂY DỰNG ĐỐI TƯỢNG THỂ HIỆN
Xây dựng điều khiển người dùng - user control rất cần thiết cho việc tái sử dụng các đoạn mã lệnh mà ta
đã xây dựng chúng, đây là một trong những tiêu chí quan trọng trong lĩnh vực xây dựng phần mềm nói
chung và xây dựng ứng dụng web nói riêng.
Xây dựng điều khiển người dùng cũng tương tự như việc xây dựng các trang web mà chúng ta đã làm
trước đây. Chỉ có điều khác biệt chính là trong trang web, chúng ta có nhiều thành phần giao diện và xử lý
tương ứng còn trong điều khiển người dùng, chúng ta chỉ thiết kế và xây dựng cho một chức năng hay
yêu cầu cụ thể.
Điều khiển người dùng cũng có các thuộc tính, phương thức và sự kiện như các Web Server control, lẽ
đương nhiên là các thuộc tính, phương thức và sự kiện đều do chúng ta thiết kế và xây dựng.
1. Tạo mới đối tượng thể hiện
Để tạo mới đối tượng thể hiện, chọn Add | Add Web User Control… từ thực đơn ngữ cảnh của ứng dụng.
Chức năng tạo mới đối tượng thể hiện – Web User Control
Tạo mới đối tượng thể hiện: TH_SACH
Việc thiết kế và xây dựng các đối tượng thể hiện hoàn toàn tương tự như các bạn đã từng làm với trang
web. Chúng ta cùng xây dựng đối tượng thể hiện thông tin sách.
Thiết kế thể hiện thông tin sách sử dụng DataList
Khi hoàn tất thiết kế đối tượng thể hiện, công việc tiếp theo là viết các xử lý cần thiết cho các điều khiển
có trên đối tượng thể hiện theo yêu cầu sử dụng.
Viết các xử lý cho đối tượng thể hiện:
Private Sub Page_Load(…, e …) Handles MyBase.Load
If Not IsPostBack Then
'Khởi tạo chuỗi kết nối
Dim lSach As New XL_SACH
dtlSach.DataSource = lSach
dtlSach.DataKeyField = "Ms"
dtlSach.DataBind()
End If
End Sub
--------------------------------------------------------------------------------------------------------------------------------------------------------

'Khởi tạo giá trị cho chuỗi kết nối
End Sub
------------------------------------------------------------------------------------------------------------------------------------------------------
Public Sub Hien_thi_sach_co_ma(ByVal pMS As Long)
Dim lSach As New XL_SACH(pMS)
dtlSach.DataSource = lSach
dtlSach.DataBind()
End Sub
----------------------------------------------------------------------------
Public Sub Hien_thi_sach_ban_chay()
Dim lSach As New XL_SACH()
dtlSach.DataSource = lSach.Doc_sach_ban_chay()
dtlSach.DataBind()
End Sub
Public Sub Hien_thi_sach_moi()
Dim lSach As New XL_SACH()
dtlSach.DataSource = lSach.Doc_sach_moi()
dtlSach.DataBind()
End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------
Public Sub Hien_thi_sach_theo_nxb(ByVal pMNxb As Long)
Dim lSach As New XL_SACH()
dtlSach.DataSource = lSach.Doc_sach_theo_nxb(pMNxb)
dtlSach.DataBind()
End Sub
------------------------------------------------------------------------------
Public Sub Hien_thi_sach_theo_chu_de(ByVal pMcd As Long)
Dim lSach As New XL_SACH()
dtlSach.DataSource = lSach.Doc_sach_theo_chu_de(pMaCD)
dtlSach.DataBind()

lnkNha_xb LinkButton Text Nhà xuất bản

CommandName Nha_xuat_ban