Chắc các bạn khơng quên sự kiện Click của các điều khiển Button (Button, LinkButton, ImageButton). Sự kiện Click xảy ra khi Button được nhấn vào. Và mới đây thơi, với điều khiển DataGrid, DataList, chúng ta đã làm việc với các sự kiện: ItemCommand, EditCommand, UpdateCommand, … Mỗi sự kiện xảy ra bởi một hành động tương ứng trước đĩ của người dùng. Các đối tượng thể hiện mà chúng ta vừa xây dựng cũng vậy, cĩ khả năng phát ra các sự kiện nếu
được chúng ta xây dựng.
Chúng ta cùng tạo sự kiện cho thể hiện Sách. Trong thể hiện sách cĩ các thơng tin mơ tả liên quan: Tên sách, Chủ đề, Nhà xuất bản. Khi người dùng chọn chức năng nào thì điều khiển sẽ phát ra sự
kiện tương ứng:
Tên sách ỴĐiều khiển sẽ phát ra sự kiện Chon_sach(pMs)
Trong đĩ: pMs là Mã sách được người dùng chọn.
Chủđề ỴĐiều khiển sẽ phát ra sự kiện Chon_chu_de(pMcd)
Trong đĩ: pMcd là Mã chủđề được người dùng chọn.
Nhà xuất bản ỴĐiều khiển sẽ phát ra sự kiện
Chon_nha_xuat_ban(pMnxb)
Trong đĩ: pMnxb là Mã nhà xuất bản được người dùng chọn.
Phát ra sự kiện Chon_sach Phát ra sự kiện Chon_chu_de Phát ra sự kiện Chon_nha_xuat_ban
IV.1. Thiết kế
Thiết lập thuộc tính CommandName cho các LinkButton: Tên sách, Chủđề và Nhà xuất bản.
Thiết kế thơng tin sách với DataList
Bảng mơ tả thuộc tính của các điều khiển
Điều khiển Loại Thuộc tính Giá trị
lnkTen_sach LinkButton Text Tên sách
CommandName Ten_sach
lnkChu_de LinkButton Text Chủđề
CommandName Chu_de
lnkNha_xb LinkButton Text Nhà xuất bản
CommandName Nha_xuat_ban
IV.2. Xử lý
Bước 1. Khai báo các sự kiện:
Imports System.Web.UI.WebControls Public Class TH_SACH
Inherits System.Web.UI.UserControl
Public Event Chon_sach(ByVal pMs As Long) Public Event Chon_chu_de(ByVal pMcd As Long)
Public Event Chon_nha_xuat_ban(ByVal pMnxb As Long)
End Class
Bước 2. Xử lý sự kiện ItemDataBound
Trong xử lý sau, chúng ta gán giá trị cho thuộc tính CommandArgument của các LinkButton để lưu trữ các mã tương ứng cho từng điều khiển.
'Xử lý cho Tên sách
Dim lnkTen_sach As LinkButton
lnkTen_sach = e.Item.FindControl("lnkTen_sach") lnkTen_sach.Text = e.Item.DataItem("Ten_sach")
lnkTen_sach.CommandArgument = e.Item.DataItem("Ms") 'Xử lý cho chủ đề
Dim lChu_de As New XL_CHU_DE Dim lnkChu_de As LinkButton
lnkChu_de = e.Item.FindControl("lnkChu_de") Dim Mcd As Integer = e.Item.DataItem("Mcd")
lnkChu_de.Text = lChu_de.Thuoc_tinh(Mcd, "Ten_chu_de") lnkChu_de.CommandArgument = Mcd
'Xử lý cho nhà xuất bản
Dim lNXB As New XL_NHA_XB Dim lnkNha_xb As LinkButton
lnkNha_xb = e.Item.FindControl("lnkNha_xb") Dim Mnxb As Integer = e.Item.DataItem("Mnxb")
lnkNha_xb.Text = lNXB.Thuoc_tinh(Mnxb, "Ten_nha_xuat_ban")
lnkNha_xb.CommandArgument = MNXB
Bước 3. Bẫy biến cốItemCommandđể phát sự kiện tương ứng Private Sub dtlSach_ItemCommand(…, e …) …
If e.CommandName = "Ten_sach" Then Dim Ms As Long = e.CommandArgument
RaiseEvent Chon_sach(Ms)
ElseIf e.CommandName = "Chu_de" Then Dim Mcd As Long = e.CommandArgument
RaiseEvent Chon_chu_de(Mcd)
ElseIf e.CommandName = "Nha_xuat_ban" Then Dim Mnxb As Long = e.CommandArgument
RaiseEvent Chon_nha_xuat_ban(Mnxb)
End If
End Sub
Chúng ta cĩ thểđồng thời vừa xử lý biến cố và phát ra sự kiện: Private Sub dtlSach_ItemCommand(…, e …) … If e.CommandName = "Ten_sach" Then Dim Ms As Long = e.CommandArgument RaiseEvent Chon_sach(Ms)
RaiseEvent Chon_chu_de(Mcd)
ElseIf e.CommandName = "Nha_xuat_ban" Then Dim Mnxb As Long = e.CommandArgument
Hien_thi_sach_theo_nxb(Mnxb)
RaiseEvent Chon_nha_xuat_ban(Mnxb)
End If
End Sub
Hiển thị sách theo chủđề Cơng nghệ thơng tin
Bài 6 XÂY DỰNG VÀ QUẢN LÝ ỨNG DỤNG Tĩm tắt Lý thuyết 9 tiết - Thực hành 15 tiết Mục tiêu Các mục chính Bài tập Sử dụng các đối tượng quản lý ứng dụng để thực hiện các chức năng điều khiển luồng chương trình, quản lý người dùng hay chia sẻ dữ liệu giữa các trang web. Tìm hiểu các tập tin quản lý và cấu hình ứng dụng. Tổ chức và xây dựng ứng dụng. 1. Đối tượng Response 2. Đối tượng Request 3. Đối tượng Application 4. Đối tượng Session 5. Đối tượng Server 6. Đối tượng Cookies 7. Tập tin quản lý và cấu hình ứng dụng 8. Tổ chức & xây dựng ứng dụng 6.1, 6.2, 6.3, 6.4 Bài làm thêm: 6.5, 6.6
Trong các chương trước, chúng ta đã tìm hiểu và làm việc với các điều khiển, xử lý dữ liệu với ADO.Net, tạo các lớp xử lý và xây dựng các đối tượng thể hiện, …. đĩ là những kỹ năng cần thiết để
xây dựng ứng dụng.
Trong chương này, chúng ta sẽ tìm hiểu các đối tượng được dùng để xây dựng, phát triển và quản lý ứng dụng web. Thơng qua những đối tượng này, chúng ta cĩ thể ghi nhận những yêu cầu từ
Client, quản lý thơng tin người dùng, cấu hình và bảo mật cho ứng dụng.