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 usercontrol 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...
Nội dung trích xuất từ tài liệu:
Bài 6: XÂY DỰNG ĐỐI TƯỢNG THỂ HIỆN Bài 6 XÂY DỰNG ĐỐI TƯỢNG THỂ HIỆNXâydựngđiềukhiểnngườidùngusercontrolrấtcầnthiếtchoviệctáisửdụngcácđoạnmãlệnhmàtađãxâydựngchúng,đâylàmộttrongnhữngtiêuchíquantrọngtronglĩnhvựcxâydựngphầnmềmnóichungvàxâydựngứngdụngwebnóiriêng.Xâydựngđiềukhiểnngườidùngcũngtươngtựnhưviệcxâydựngcáctrangwebmàchúngtađãlàmtrướcđây.Chỉcóđiềukhácbiệtchínhlàtrongtrangweb,chúngtacónhiềuthànhphầngiaodiệnvàxửlýtươngứngcòntrongđiềukhiểnngườidùng,chúngtachỉthiếtkếvàxâydựngchomộtchứcnănghayyêucầucụthể.Điềukhiểnngườidùngcũngcócácthuộctính,phươngthứcvàsựkiệnnhưcácWebServercontrol,lẽđươngnhiênlàcácthuộctính,phươngthứcvàsựkiệnđềudochúngtathiếtkếvàxâydựng.1. Tạo mới đối tượng thể hiệnĐểtạomớiđốitượngthểhiện,chọnAdd|AddWebUserControl…từthựcđơnngữcảnhcủaứngdụng. Chứcnăngtạomớiđốitượngthểhiện–WebUserControl Tạomớiđốitượngthểhiện:TH_SACHViệcthiếtkếvàxâydựngcácđốitượngthểhiệnhoàntoàntươngtựnhưcácbạnđãtừnglàmvớitrangweb.Chúngtacùngxâydựngđốitượngthểhiệnthôngtinsách. ThiếtkếthểhiệnthôngtinsáchsửdụngDataListKhihoàntấtthiếtkếđốitượngthểhiện,côngviệctiếptheolàviếtcácxửlýcầnthiếtchocácđiềukhiểncótrênđốitượngthểhiệntheoyêucầusửdụng.Viếtcácxửlýchođốitượngthể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 IfEnd Sub --------------------------------------------------------------------------------------------------------------------------------------------------------Private Sub dtlSach_ItemDataBound(…, e …) … Xử lý hiển thị Tên sách Xử lý hiển thị hình ảnh minh họa Xử lý hiển thị thông tin tóm tắt nội dung Xử lý hiển thị thông tin chủ đề Xử lý hiển thị thông tin nhà xuất bản Xử lý hiển thị giá tiền của sáchEnd Sub2. Sử dụng đối tượng thể hiệnSaukhithiếtkếvàviếtcácxửlý,chúngtatiếnhànhđưađốitượngthểhiệnđãđượcxâydựngvàotrangWeb.Cácbướcthựchiện:Bước1.Mởtrangwebởchếđộthiếtkếdesign.Bước2.TừcửasổSolutionExplorer,chọnđốitượngthểhiệncầnsửdụng,nhấnvàkéorêvàotrangwebđãđượcmở. KéođốitượngthểhiệnvàotrangWebBước3.ThiếtlậpcácthuộctínhchođiềukhiểnvừađượckéovàoKhithihành,kếtquảhiểnthịcủađốitượngthểhiệntrêntrangWeb:3. Tạo phương thức cho đối tượng thể hiệnTrongvídụtrên,chúngtađãxâydựngđốitượngthểhiệnSách.KhitạomớimộtthểhiệnSáchvàotrangweb,thôngtinsáchsẽđượchiểnthị.Tuynhiên,chắchẳncácbạnsẽhàilònghơnkhichúngtathiếtkếđốitượngthểhiệnsách:TH_SACH,chỉvới1đốitượng,nhưngchúngtacóthểhiểnthịthôngtinsáchtheoyêucầunhư:Hiểnthịsáchmớivừanhập,hiểnthịsáchbánchạynhất,hiểnthịsáchđượcnhiềuđọcgiảxemvàbìnhchọnnhất,hiểnthịsáchcủamộtnhàxuấtbảnhayhiểnthịthôngtinsáchcủamộttácgiảnàođó.Thúvịquáphảikhôngcácbạn?Đểlàmđượcđiềuđó,rấtđơngiản.Chúngtachỉviệctạochođốitượngthểhiệncácphươngthứchànhvitươngứngvớinhữngyêucầucụthể.Chúngtasẽtiếnhànhbổsungcácphươngthứcsauvàođốitượngthểhiệnvừađượcxâydựng.Lưuý:Khibổsungcácphươngthứchiểnthịdữliệuchođốitượngthểhiện,chúngtakhôngxửlýhiểnthịdữliệutrongsựkiệnPageLoad.Private Sub Page_Load(…, e …) Handles MyBase.Load Khởi tạo giá trị cho chuỗi kết nốiEnd 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------------------------------------------------------------------ ...