Sử dụng DataList để hiển thị dữ liệu

Một phần của tài liệu Đề cương bài giảng Thiết kế ứng dụng với ASP.NET - Trường CĐ Kinh tế - Kỹ thuật Vinatex TP. HCM (Trang 75 - 80)

Như điều khiển DataGrid, điều khiển DataList được sử dụng để hiển thị dữ liệu. Tuy nhiên, đối với DataList, chúng ta phải tự thiết kế hình thức hiển thị dữ liệu (giống như Template Column của DataGrid).

Sử dụng DataList hiển thị thông tin sách

Một số thuộc tính cần chú ý của DataList

– RepeatDirection: Qui định hướng hiển thị dữ liệu ƒ Horizontal: Hiển thị dữ liệu theo chiều ngang

RepeatDirection = Horizontal

ƒ Vertical (mặc định): Hiển thị dữ liệu theo chiều đứng

Bài 3: CÁC ĐIỀU KHIỂN LIÊN KẾT DỮ LIỆU

– RepeatColumns: Qui định số cột hiển thị của DataList

RepeatColumns = 3

Thiết kế hình thức hiển thị cho DataList cũng tương tự như thiết kế cho cột Template Column của DataGrid.

Chọn Edit Template | ItemTemplate từ thực đơn ngữ cảnh để thực hiện thiết kế hình thức hiển thị cho DataList.

Ví dụ: Hiển thị thông tin sách với DataList

Label

HyperLi nk

Thiết kế thông tin sách với DataList

Như cột Template Column của DataGrid, xử lý hiển thị dữ liệu cho DataList được viết trong sự kiện ItemDataBound. Xử lý nhấn của các Button đặt trong

DataList được viết trong sự kiện ItemCommand.

Private Sub Page_Load(…, e …) Handles MyBase.Load If Not IsPostBack Then

Lien_ket_du_lieu() End If

End Sub

Public Sub Lien_ket_du_lieu() dtSach = Doc_danh_sach_Sach() dtlSach.DataSource = dtSach dtlSach.DataKeyField = "Ms" dtlSach.DataBind()

End Sub

Private Sub dtlSach_ItemDataBound(…, e …) … Dim lDong as Integer = e.Item.ItemIndex

If lDong < 0 Then Exit Sub 'Hiển thị Tên sách

Dim lnkTs As LinkButton

Bài 3: CÁC ĐIỀU KHIỂN LIÊN KẾT DỮ LIỆU

lnkTs.Text = e.Item.DataItem("Ten_sach") 'Hiển thị thông tin mơ tả tóm tắt nội dung Dim lblMt As Label

lblMt = e.Item.FindControl("lblMo_ta")

lblMt.Text = Left(e.Item.DataItem("Mo_ta"), 200) & "..." 'Hiển thị hình ảnh minh họa

Dim hplHinh As HyperLink

hplHinh = e.Item.FindControl("hplHinh_mh")

hplHinh.ImageUrl = "../Data_Pic/" & e.Item.DataItem("Hinh_minh_hoa") 'Hiển thị giá bán sách

Dim lblGia As Label

lblGia = e.Item.FindControl("lblGia_ban") lblGia.Text = e.Item.DataItem("Don_gia") End Sub

Kết quả hiển thị thông tin sách trên trang Web

Một phần của tài liệu Đề cương bài giảng Thiết kế ứng dụng với ASP.NET - Trường CĐ Kinh tế - Kỹ thuật Vinatex TP. HCM (Trang 75 - 80)

Tải bản đầy đủ (PDF)

(156 trang)