›

Khóa luận Xây dựng Website bán hoa

pdf 98 trang yendo 12572
Download
Bạn đang xem 20 trang mẫu của tài liệu "Khóa luận Xây dựng Website bán hoa", để tải tài liệu gốc về máy bạn click vào nút DOWNLOAD ở trên

Tài liệu đính kèm:

  • pdfkhoa_luan_xay_dung_website_ban_hoa.pdf

Nội dung text: Khóa luận Xây dựng Website bán hoa

  1. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Lời Cảm Ơn Trong suốt quá trình học ở trường CĐ Nguyễn Tất Thành chúng tôi đã có những kiến thức bổ ích , được sự hướng dẫn tận tình của các thầy(cô) nên giúp tôi hiểu được nhiều vấn đề trong học tập, cũng như trong cuộc sống giúp cho em và các bạn định hướng được sự nghiêp trong tương lai. Vì vậy trong quá trình học tập chúng tôi đã tích lũy nhiều kiến thức, đễ vận dụng những kiến thức đó chúng tôi cần phải làm một bài tốt nghiệp trước để xác định lại môt lần nữa mình đã nắm vững kiến thức chưa? Để đáp ứng những yêu cầu của chúng tôi nhà trường đã tổ chức cho chúng em làm một bài khóa luận tốt nghiệp.Và cũng xin gửi đến thầy Võ Ngọc Tân là giáo viên hướng dẫn trong suốt thời gian qua, xin chúc thầy có nhiều sức khỏe và làm việc thật tốt. Để gửi lời cảm ơn đến nhà trường và Khoa CNTT chúng tôi viết đôi lời ngắn gọn kính gởi đến các thầy (cô), một lần nữa chúng tôi xin chúc các thầy(cô) có thật nhiều sức khỏe để tiếp tục công việc giảng dạy của mình. Xin trân trọng kính chào. NTTULIB SVTH: Huỳnh Thanh Phong Trang 1 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  2. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Trường CĐ Nguyễn Tất Thành Khoa Công Nghệ Thông Tin Đề Cương Chi Tiết Tên đề tài: Xây Dựng WebSite Bán Hoa Qua Mạng Giáo viên hướng dẫn: Võ Ngọc Tân Thời gian thực hiện: Từ ngày 9 / 4 / 2008 đến 8 / 8 / 2008 Sinh viên thực hiện: Nguyễn Tấn Tài : MSSV : 306305063 Huỳnh Thanh Phong: MSSV : 306305144 Loai đề tài: Tìm hiểu công nghệ ASP.Net và Ngôn ngữ Access , xây dựng một trang web bán hoa trực tiếp qua mạng. Nôi dung đề tài : 1. Hệ thống lại các kiến thức về công nghệ ASP.NET và Access 2. Phát thảo và mô hình hóa các yêu cầu cho Website bán Hoa qua mạng Internet 3. Thiết kế Website 4. Hiện thực hóa Website 5. Hosting NTTULIB 6. Viết báo cáo Kết quả đạt được: 1. Báo cáo viết, trình bày các kết quả đạt được 2. Website bán hoa qua mạng SVTH: Huỳnh Thanh Phong Trang 2 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  3. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Kế hoạch thực hiện : có 3 phần Phần 1: Phát thảo mô hình hóa các yêu cầu cho Website Bán Hoa. Phần 2: Thiết kế trang Web. 1. Tuần 1: Tìm hiểu về công nghệ ASP.NET và Ngôn ngữ Access . 2. Tuần 2: Thiết lập CSDL và thiết lập mối quan hệ trong CSDL . 3. Tuần 3: Thiết lập trang default.aspx. 4. Tuần 4: Xem và chỉnh sửa phần của tuần trước và nhiệm vụ tiếp theo là bổ sung chức năng cho thể hiện Trang Web Hoa . 5. Tuần 5: Xem và chỉnh sửa phần của tuần trước và nhiệm vụ tiếp theo là bổ sung chức năng cho thể hiện Trang Giỏ Hàng Hoa. 6. Tuần 6: Bảo vệ lần thứ I (15/6/2008). 7. Tuần 7: Xem và chỉnh sửa phần của tuần trước và nhiệm vụ tiếp theo là bổ sung chức năng cho thể hiện Trang Liên Hệ. 8. Tuần 8: Xem và chỉnh sửa phần của tuần trước và nhiệm vụ tiếp theo là bổ sung chức năng cho thể hiện Trang Login. 9. Tuần 9: Xem và chỉnh sửa phần của tuần trước và nhiệm vụ tiếp theo là bổ sung chức năng cho thể hiện Trang Đăng Ký. 10. Tuần 10: Xem và chỉnh sửa phần của tuần trước và nhiệm vụ tiếp theo là bổ sung chức năng cho thể hiện Trang Error . 11. Tuần 11 : Phân hNTTULIBệ quản trị cho người dùng. 12. Tuần 12: Tạo trang default quản trị . 13. Tuần 13: Tạo trang chủ đề và nhóm danh sách. SVTH: Huỳnh Thanh Phong Trang 3 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  4. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần 3: Hiện thực trang web và viết báo cáo. 1. Tuần 14: Hiện thực kết quả và kiểm tra,chỉnh sửa của GVHD. 2. Tuần 15: Nhận xét của GVHD. 3. Tuần 16: Viết báo cáo . 4. Tuần 17: Kiểm tra lần cuối . 5. Tuần 18: Bảo vệ chính thức Đề tài Tốt Nghiệp(8/8/2008). Xác Nhận Của GVHD Tp HCM, ngày 23 tháng 4 năm 2008 SV thực hiện: Huỳnh Thanh Phong _306305144 Võ Ngọc Tân Nguyễn Tấn Tài_306305063 NTTULIB SVTH: Huỳnh Thanh Phong Trang 4 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  5. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Mục lục Chương 1: Khảo sát hiện trạng 09 1. Mục đích xây dựng ứng dụng: 09 2. Mô hình của các đơn vị sẽ xây dựng ứng dụng 10 3. Nghiệp vụ sẽ được xây dựng trên ứng dụng 11 Chương 2: Phân tích hệ thống 17 1. Xử lý các dữ liệu sẽ được lưu trữ 17 2. Mô hình thực thể kết hợp 18 3. Các ràng buộc trên hệ thống 23 4. Mô tả các xử lý 24 Chương 3: Thiết kế ứng dụng 27 1. Thiết kế cơ sỡ dữ liệu(CSDL) 27 2. Thiết kế giao diện 34 2.1. Phân hệ người dùng: 35 2.1.1. Thiết kế trang chủ 36 2.1.2. Thiết kế trang đăng nhập 38 2.1.3. Thiết kế trang liên hệ 42 2.1.4. Thiết kế trang đNTTULIBăng ký 44 2.1.5. Thiết kế trang mua hàng 48 2.1.6. Thiết kế trang đặt mua hàng 50 2.1.7. Thiết kế trang giỏ hàng 54 2.1.8. Thiết kế tìm kiếm sản phẩm 62 2.1.9. Thiết kế trang góp ý 65 SVTH: Huỳnh Thanh Phong Trang 5 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  6. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.10 Thiết kế trang quản trị 67 2.2 Phân hệ quản trị: 68 2.2.1. Thiết kế trang chủ quản trị 69 2.2.2. Thiết kế trang nhóm 70 2.2.3. Thiết kế trang chủ đề 73 2.2.4. Thiết kế trang danh sách hoa 82 2.2.5. Thiết kế trang khách hàng 84 2.2.6. Thiết kế trang đơn đặt hàng 90 Chương 4: Các kết quả đạt được 96 Tài liệu tham khảo 97 NTTULIB SVTH: Huỳnh Thanh Phong Trang 6 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  7. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Tóm Tắt Khóa Luận Chương 1: Khảo sát hiện trạng 1. Nêu mục đích xây dựng ứng dụng: ứng dụng xây dựng để làm gì, cho ai dùng, hỗ trợ những chức năng nào cho người dùng. 2. Mô hình tổ chức của đơn vị sẽ xây dựng ứng dụng. 3. Mô tả cụ thể các nghiệp vụ sẽ được xử lý trên ứng dụng. Chương 2 : Phân tích hệ thống 1. Xác định các dữ liệu sẽ lưu trữ trong hệ thống. 2. Xây dựng mô hình thực thể kết hợp của dữ liệu. 3. Xác định các ràng buộc toàn vẹn trên hệ thống. Chương 3: Thiết kế ứng dụng 1. Thiết kế CSDL. 2. Thiết kế giao diện. Chương 4: Kết quả đạt được và hướng phát triển ứng dụng. NTTULIB SVTH: Huỳnh Thanh Phong Trang 7 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  8. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Theo nhu cầu của xã hội hiện nay, trên thị trường có rất nhiều trang Wed mua và bán hàng qua mạng, rất đa dạng và phong phú, chẳng hạn như mua bán: điện thoại, xe máy, bán sách, máy vi tính Trong đó hoa cũng là một nhu cầu cần thiết cho cuộc sống, đặc biệt là những ngày lễ lớn, ngày lễ tình yêu, nhân dịp sinh nhật Ngoài ra hoa còn thay cho lời chúc tốt đẹp, để gửi đến người thân, bạn bè. Chính vì vậy để đáp ứng những nhu cầu trên, chúng em xây dựng cho khách hàng một trang wed mua bán hoa qua mạng, thông qua trang wed này khách hàng có thể xem lựa chọn hoa, đặt mua hoa qua mạng để tặng cho ban bè người thân, ở các ngày lễ, sinh nhât, tiệt cưới và cửa hàng sẽ cho nhân viên giao hàng đến tân nơi cho khách hàng, theo địa chỉ mà khách hàng đã yêu cầu Trang wed này vẫn còn nhiều điều cần phải học hỏi, còn nhiều thiếu xót mong các bạn và quý thầy cô vui thông cảm và góp ý cho chúng tôi hoàn thiện tốt hơn, xin chân thành cảm ơn. Xin trân trọng kính chào . NTTULIB SVTH: Huỳnh Thanh Phong Trang 8 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  9. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Trường CĐ Nguyễn Tất Thành Khoa Công Nghệ Thông Tin Đề tài: Xây Dựng WebSite Bán Hoa Chương 1: Khảo Sát Hiện Trạng 1. Mục đích xây dựng ứng dụng: Nhằm hỗ trợ những nhu cầu hằng ngày của khách hàng, trong việc mua bán các loại hoa đang có trên thị trường hiện nay, vì vậy để có những thông tin chính xác của các loại hoa, mà khách hàng không cần phải đến tận cửa hàng bán hoa để xem sản phẩm, nhưng khách hàng vẫn có thể xem sản phẩm của chúng tôi trên mạng thông qua trang web bán hoa qua mạng. Chúng tôi xây dựng ra trang web mua bán hàng qua mạng để phục vụ cho khách hàng xem sản phẩm đang có hiện nay và có thể đặt mua hàng trực tiếp qua mạng thông qua trang web này. Tuy nhiên đối với khách hàng thì có thể đặt mua hoa trực tiếp trên mạng, còn đối với nhân viênNTTULIBcủa chúng tôi sử dụng trang web này có thể xem chi tiết các loại hoa, xem chi tiết các hóa đơn đặt hàng, và giao hàng cho khách hàng, còn đối với nhân viên quản trị thì có thể xem và chỉnh sửa nội dung, sản phẩm và có thể cập nhật thông tin khách hàng, cập nhật các loại hoa mới cho khách hàng xem và đặt mua, xem, thống kê và cập nhật các đơn đặt hàng. SVTH: Huỳnh Thanh Phong Trang 9 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  10. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2. Mô hình của các đơn vị sẽ xây dựng ứng dụng: Đầu tiên để có một trang web mua, bán hàng chúng tôi cần phải xác định rõ đâu là phần để khách hàng sẽ dùng, đâu là nhân viên của chúng tôi sẽ dùng trang web nào, vì vậy để giải quyết thắc mắc trên chúng tôi phân ra theo mô hình sau: Cửa Hàng Nhân viên kinh doanh Nhân viên kế toán Nhân viên giao hàng Chức năng: Nhân viên kinh doanh: phụ trách công tác giao dịch với khách hàng (nhận đơn đặt hàng, giao nhận hàng) Nhân viên kế toán: phụ trách nghiệp vụ kế toán, đặt biệt là giao dịch thanh toán tiền của khách hàng. Nhân viên giao hàng: phụ trách công việc đem hàng giao cho khách hàng. Các hoạt động của các đơn vị theo mô hình sau: Nhân viên kế toán Khách hàng NTTULIBNhân viên bán hàng Xuất Giao Đặt hàng hàng tiền Nhân viên giao hàng SVTH: Huỳnh Thanh Phong Trang 10 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  11. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 3. Nghiệp vụ sẽ được xây dựng trên ứng dụng: 3.1 Phân hệ người dùng: Là bao gồm những trang web để phục vụ cho khách hàng như: Trang giới thiệu thông tin chi tiết các giỏ hoa cho khách hàng lựa chọn, trang đăng ký, trang đăng nhập, trang chọn mua hoa, trang liên hệ, góp ý. Người dùng truy cập vào trang web bán hoa thực hiện các thao tác sau: Người Dùng Trang web Đăng nhập Đăng ký Trang giới thiệu Liên hệ Trang quản trị Giỏ hàng Truy cập vào trang web để xem và chọn hàng, xem trang giới thiệu về cửa hàng muốn thực hiện các thao tác mua hàng, góp ý thì khách hàng phải đăng nhập, nếu chưa có đăng ký kNTTULIBhách hàng phải đăng ký. SVTH: Huỳnh Thanh Phong Trang 11 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  12. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 3.2 Phân hệ quản trị: Khi có một khách hàng đã đăng ký tài khoản vào trang web, đặt mua hàng thành công thì công việc của người quản trị như sau: Người quản trị cần phải xem khách hàng đã đặt mua hoa, người quản trị xuất hàng và đưa cho nhân viên giao hàng đem đến khách và thu tiền về, và người quản trị cập nhật lại đơn đặt hàng đã giao. 2.2.1 Giúp nhân viên quản trị cập nhật thông tin các loại hoa. NTTULIB SVTH: Huỳnh Thanh Phong Trang 12 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  13. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Đây là hình minh họa cho các nhân viên quản trị cập nhật thông tin về các loại hoa đang có trong cửa hàng, và có thể thêm mới phẩm mới để cho khách hàng có thể xem và đặt mua hoa. Phần xử lý: Partial Class Trang_Web_Trang_Quan_Tri Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub End Class NTTULIB SVTH: Huỳnh Thanh Phong Trang 13 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  14. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.2.2 Xem và cập nhật thông tin khách hàng, đơn đặt hàng. Phần xử lý: Imports System.Data.OleDb Imports System.Data NTTULIB Partial Class Trang_Web_Trang_Don_Dat_Hang_1 Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load SVTH: Huỳnh Thanh Phong Trang 14 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  15. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Calendar1.SelectionChanged Dim Ngay As Date Ngay = Calendar1.SelectedDate Response.Redirect(" /Trang_web/Trang_Don_Dat_Hang_1.aspx?ngaydh=" & Ngay) End Sub End Class Đây là bảng cập nhật thông tin về khách hàng, bảng này giúp cho người quản trị biết được có bao nhiêu khách hàng đã đăng ký tài khoản mới trong thời gian qua. NTTULIB SVTH: Huỳnh Thanh Phong Trang 15 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  16. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 3.3.3 Xem và cập nhật thông tin đơn đặt hàng. NTTULIB SVTH: Huỳnh Thanh Phong Trang 16 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  17. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Chương 2: Phân Tích Hệ Thống 1. Xử lý các dữ liệu sẽ được lưu trữ: Dựa vào yêu cầu lưu trữ của ứng dụngThông tin các xử lý dữ liệu của chúng tôi gồm có các bảng sau: Khách hàng, chủ đề, nhóm, hoa, chi tiết đặt hàng, hóa đơn đặt hàng. 1.1 Khách hàng: Dùng để lưu trữ các thông tin khách hàng như: tên đăng nhập, mật khẩu, ngày sinh, họ tên khách hàng, giới tính, địa chỉ, số điện thoại. 1.2 Chủ đề: Dùng để lưu trữ các thông tin về chủ đề hoa, trong bảng chủ đề gồm có mã chủ đề, tên chủ đề, thư mục, mã nhóm. 1.3 Nhóm: Dùng để lưu trữ thông tin về nhóm như: số thứ tự, mã nhóm,tên nhóm. 1.4 Hoa: Dùng để lưu trữ thông tin về các loại hoa, hình, ngày bán, số lượng bán, số người xem 1.5 Chi tiết đặt hàng: Dùng để lưu trữ về số lượng đặt hàng, đơn giá, mã hàng, số đặt hàng, thành tiền mà kháchNTTULIBhàng đã đặt mua hàng qua trang web. 1.6 Hóa đơn đặt hàng: Lưu các thông tin như: ngày đặt, đã giao hàng, mã khách hàng, trị giá, ngày giao, thành tiền. SVTH: Huỳnh Thanh Phong Trang 17 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  18. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2. Mô hình thực thể kết hợp: So do thuc the/0.1 Don_dat_hang Khach_hang Ct_dat_hang Sdh Mkh 1-N Stt Ngay_dat_hang 1-1 1-1 Ho_khach_hang 1-1 So_luong Tri_gia Don_gia Hoa Ten_khach_hang R1 R Da_giao_hang Thanh_tien R2 Mh Dia_chi Ngay_giao Dien_thoai id:Stt 1-NHinh id:Sdh Ten_dang_nhap Don_gia So_lan_xem Mat_khau 1-N 1-1 Ngay_dang_nhap_cuoi So_luong_ban Ngay_sinh Ngay_tao Chu_de Ngay_hieu_chinh Gioi_tinh Nhom R3 Mn R4 Mcd id:Mh Email 1-N Edmin Ten_nhom 1-N 1-1 Ten_chu_de id:Mkh Thu_tu Thu_muc id:Mn id:Mcd Hình 1: Sơ đồ thực thể kết hợp 2.1 Mô tả dữ liệu: 2.1.1 Các loại thực thể: Loại NTTULIBthưc thể Diễn giải Khach_hang Khách hàng Don_dat_hang Đơn đặt hàng Ct_dat_hang Chi tiết đặt hàng Hoa Hoa Chu_de Chủ đề Nhom Nhóm SVTH: Huỳnh Thanh Phong Trang 18 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  19. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.2 Các loại thuộc tính: Thuộc tính Diễn giải Mkh Mã khách hàng Ho_khach_hang Họ khách hàng Ten_khach_hang Tên khách hàng Dia_chi Địa chỉ Dien_thoai Điện thoại Ten_dang_nhap Tên đăng nhập Mat_khau Mật khẩu Ngay_dang_nhap_cuoi Ngày đăng nhập cuối Ngay_sinh Ngày sinh Gioi_tinh Giới tính Email Email Admin Admin Sdh Số đặt hàng Ngay_dat_hang Ngày đặt hàng Tri_gia Trị giá Da_giao_hang Đã giao hàng Ngay_giao Ngày giao Mcd Mã chủ đề Ten_chu_de Tên chủ đề Thu_muc Thư mục Mn Mã nhóm Stt Số thứ tự Mh NTTULIBMã hình So_luong Số lượng Don_gia Đơn giá Thanh_tien Thành tiền Hinh Hình So_lan_xem Số lần xem SVTH: Huỳnh Thanh Phong Trang 19 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  20. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Thuộc tính Diễn giải So_luong_ban Số lượng bán Ngay_tao Ngày tạo Ngay_hieu_chinh Ngày hiệu chỉnh Ten_nhom Tên nhóm Thu_tu Thứ tự 2.1.3 Mô tả các loại thực thể: 2.1.3.1 Loại thực thể Khach_hang: P3: primary key (khóa chính) U: unipue key, candidate key(khóa chỉ định) M: mandatory(not null) L: lockey( không cho phép chỉnh sửa , đổi giá trị) Thuộc tính Kiểu Kích thước P3 U M L Mkh Numeric 8 x x x x Ho_khach_hang Char 6 x Ten_khach_hang Char 12 x Dia_chi Char 20 Dien_thoai Char 12 x Ten_dang_nhap Char 15 x Mat_khau Char 15 x Ngay_dang_nhap_cuoi Date 8 x Ngay_sinh Date 8 x Gioi_tinh NTTULIBChar 6 x Email Char 20 x Admin Yes/No x SVTH: Huỳnh Thanh Phong Trang 20 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  21. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.3.2 Loại thực thể Don_dat_hang: Thuộc tính Kiểu Kích thước P3 U M L Sdh Numeric 8 x x x x Mkh Numeric 6 x Ngay_dat_hang Date 12 x Tri_gia Numeric 12 x Da_giao_hang Char 12 x Thanh_tien Numeric 15 x 2.1.3.3 Loại thực thể Ct_dat_hang: Thuộc tính Kiểu Kích thước P3 U M L Stt Numeric 8 x x x x Sdh Numeric 6 x Mh Numeric 8 x So_luong Numeric 12 x Don_gia Numeric 12 x Thanh_tien Numeric 15 x 2.1.3.4 Loại thực thể Hoa: Thuộc tính Kiểu Kích thước P3 U M L Mh Numeric 8 x x x x Hinh NTTULIBChar 6 x Mcd Numeric 8 x Don_gia Numeric 12 x So_lan_xem Numeric 15 x So_luong_ban Numeric 15 x Ngay_tao Date 12 x Ngay_hieu_chinh Date 12 x SVTH: Huỳnh Thanh Phong Trang 21 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  22. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.3.5 Loại thực thể Chu_de: Thuộc tính Kiểu Kích thước P3 U M L Mcd Numeric 8 x x x x Ten_chu_de Char 20 x Thu_muc Char 20 x Mn Numeric 12 x 2.1.3.6 Loại thực thể Nhom: Thuộc tính Kiểu Kích thước P3 U M L Mn Numeric 8 x x x x Ten_nhom Char 20 x Thu_tu Numeric 20 x NTTULIB SVTH: Huỳnh Thanh Phong Trang 22 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  23. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 3. Các ràng buộc toàn vẹn trên hệ thống: 3.1 Khóa nội: R1: id (Khach_hang)= Mkh R2: id(Don_dat_hang)=Sdh R3: id(Ct_Dat_hang)=Stt R4: id (Hoa)=Mh R5: id(Chu_de)=Mcd R6: id (Nhom)=Mn 3.2 Ràng buộc về miền giá trị: R2: (Don_dat_hang.Sdh>0 and (Don_dat_hang.Tri_gia>0) R3: (Ct_Dat_hang.Sdh>0) and (Ct_Dat_hang.So_luong>0) and (Ct_Dat_hang.Don_gia>0) 3.3 Ràng buộc giữa các thuộc tính trong một thực thể: R3: Ct_Dat_hang.Thanh_tien = (Ct_Dat_hang.So_luong) * (Ct_Dat_hang.Don_gia) R2: Don_dat_hang.Ngay_giao>= Don_dat_hang.Ngay_dat_hang NTTULIB SVTH: Huỳnh Thanh Phong Trang 23 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  24. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 4. Mô tả các xử lý: Mỗi xử lý trong danh sách cần phải mô tả một cách rõ ràng. Nội dung mô tả các xử lý gồm: tên, chức năng, dữ liệu vào, dữ liệu ra, công thức và lưu trữ báo cáo. Danh sách các xử lý: Tên xử lý Diễn giải XL1 Cập nhật thông tin hoa XL2 Chọn hoa theo chủ đề XL3 Đăng ký khách hàng mới XL4 Đăng nhập XL5 Mua hoa XL6 Cập nhật đơn đặt hàng 4.1 Tên xử lý: XL1 4.1.1 Chức năng: tính có bao nhiêu số lượng bán của một mặt hàng 4.1.2 .Chu kỳ thực hiện: diễn ra hằng ngày, hàng tháng, và hàng năm. 4.1.3 Dữ liệu vào: thông tin khách hàng đặt mua hoa qua mạng, hoa ở chủ đề nào và sản phẩm thuộc loại nào. 4.1.4 Dữ liệu ra: sản phẩm sẽ được cung cấp theo nhu cầu của khách hàng. Và sẽ được nhân viên giao hàng giao đến tận nhà theo địa chỉ mà khách hàng cung cấp cho chúng tôi. 4.1.5 Lưu trữ báNTTULIBo cáo: thông tin khách hàng đặt mua hoa sẽ được lưu trữ vào hóa đơn đặt hàng. Và chi tiết đặt hàng. SVTH: Huỳnh Thanh Phong Trang 24 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  25. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 4.2 Tên xử lý: XL2 4.2.1 Chức năng: chọn hoa theo chủ đề. 4.2.2 Chu kỳ thực hiện: diễn ra hằng ngày, hàng tháng, và hàng năm. 4.2.3 Dữ liệu vào: các thông tin khi khách hàng chọn hoa 4.2.4 Dữ liệu ra: các sản phẩm sẽ được nhân viên giao hàng giao cho khách hàng 4.2.5 Lưu trữ báo cáo: chi tiết đặt hàng. 4.3 Tên xử lý: XL3 4.3.1 Chức năng: đăng ký khách hàng mới(thêm, xóa, sửa) 4.3.2 Chu kỳ thực hiện: diễn ra hằng ngày, hàng tháng, và hàng năm. 4.3.3 Dữ liệu vào: thông tin khách hàng khi đăng ký 4.3.4 Dữ liệu ra: thông tin chi tiết về khách hàng. 4.3.5 Lưu trữ báo cáo: thông tin sẽ được lưu vào bảng khách hàng. 4.4 Tên xữ lý: XL4 4.4.1 Chức năng: đăng nhập vào hệ thống 4.4.2 Chu kỳ thực hiện: diễn ra hằng ngày, hàng tháng, và hàng năm. 4.4.3 Dữ liệu vào: tài khoản và mật khẩu 4.4.4 Dữ liệu ra:NTTULIBthông tin người sử dụng 4.4.5 Lưu trữ báo cáo: thông tin sẽ được lưu vào bảng khách hàng. SVTH: Huỳnh Thanh Phong Trang 25 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  26. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 4.5 Tên xữ lý: XL5 4.5.1 Chức năng: mua hoa. 4.5.2 Chu kỳ thực hiện: diễn ra hằng ngày, hàng tháng, và hàng năm. 4.5.3 Dữ liệu vào: thông tin khi khách hàng đặt mua hoa. 4.5.4 Dữ liệu ra: sản phẩm mà khách hàng cần. 4.5.5 Lưu trữ báo cáo: thông tin được lưu vào bảng hóa đơn đặt hàng và chi tiết đặt hàng. 4.6 Tên xữ lý: XL6 4.6.1 Chức năng: Cập nhật đơn đặt hàng. 4.6.2 Chu kỳ thực hiện: diễn ra hằng ngày, hàng tháng, và hàng năm. 4.6.3 Dữ liệu vào: thông tin các hóa đơn đặt hàng và chi tiết đặt hàng. 4.6.4 Dữ liệu ra: xuất ra hóa đơn 4.6.5 Lưu trữ báo cáo: thông tin được lưu vào bảng hóa đơn đặt hàng và chi tiết đặt hàng. NTTULIB SVTH: Huỳnh Thanh Phong Trang 26 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  27. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Chương 3: Thiết Kế Ứng Dụng 1. Thiết kế cơ sở dữ liệu(CSDL) 1.1 Các thuộc tính : 1.1.1 Chu_de - Chủ đề Field Name Field Type Field Size Description Mcd Autonumber Long Integer Mã chủ đề Ten_chu_de Text 100 Tên chủ đề Thu_muc Text 100 Thư mục Mn Number Long Integer Mã nhóm 1.1.2 CT_dat_hang – Chi tiết đặt hàng: Field Name Field Type Field Size Description Stt Autonumber Long Integer Số thứ tự Sdh Number Long Integer Số đặt hàng Mh Number Long Integer Mã hàng So_luong Number Long Integer Số lượng Don_gia Number Double Đơn giá Thanh_tien Number Double Thành tiền 1.1.3 Don_dat_hang – Đơn đặt hàng Field Name FielNTTULIBd Type Field Size Description Sdh Autonumber Long Integer Số đặt hàng Mkh Number Long Integer Mã khách hàng Ngay_dat_hang Date/Time Ngày đặt hàng Tri_gia Number Currency Trị giá Da_giao_hang Yes/No Đã giao hàng Ngay_giao Date/Time Ngày giao SVTH: Huỳnh Thanh Phong Trang 27 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  28. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 1.1.4 Hoa- Hoa Field Name Field Type Field Size Description Mh Autonumber Long Integer Mã hình Hinh Text 50 Hình Mcd Number Long Integer Mã chủ để Don_gia Number Double Đơn giá So_lan_xem Number Long Integer Số lần xem So_luong_ban Number Long Integer Số lượng bán Ngay_tao Date/Time Ngày tạo Ngay_hieu_chinh Date/Time Ngày hiệu chỉnh 1.1.5 Khach_hang – Khách hàng Field Name Field Type Field Size Description Mkh Autonumber Long Integer Mã khách hàng Ho_khach_hang Text 50 Họ khách hàng Ten_khach_hang Text 50 Tên khách hàng Dia_chi Text 50 Địa chỉ Dien_thoai Text 10 Điện thoại Ten_dang_nhap Text 15 Tên đăng nhập Mat_khau Text 15 Mật khẩu Ngay_dang_nhap_cuoi Date/Time Ngày đăng nhập cuối Ngay_sinh Date/Time Ngày sinh Gioi_tinh Yes/No Giới tính Email Text 50 Email Admin YesNTTULIB/No Admin 1.1.6 Nhom – Nhóm Field Name Field Type Field Size Description Mn Autonumber Long Integer Mã nhóm Ten_nhom Text 100 Tên nhóm Thu_tu Number Integer Thứ tự SVTH: Huỳnh Thanh Phong Trang 28 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  29. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 1.2 Mô tả dữ liệu: 1.2.1 Các loại thực thể: Loại thưc thể Diễn giải Khach_hang Khách hàng Don_dat_hang Đơn đặt hàng Ct_dat_hang Chi tiết đặt hàng Hoa Hoa Chu_de Chủ đề Nhom Nhóm 1.2.2 Các loại thuộc tính: Thuộc tính Diễn giải Mkh Mã khách hàng Ho_khach_hang Họ khách hàng Ten_khach_hang Tên khách hàng Dia_chi Địa chỉ Dien_thoai Điện thoại Ten_dang_nhap Tên đăng nhập Mat_khau Mật khẩu Ngay_dang_nhap_cuoi Ngày đăng nhập cuối Ngay_sinh Ngày sinh Gioi_tinh Giới tính Email Email Admin Admin Sdh Số đặt hàng Ngay_dat_hang Ngày đặt hàng Tri_gia NTTULIBTrị giá Da_giao_hang Đã giao hàng Ngay_giao Ngày giao Mcd Mã chủ đề Ten_chu_de Tên chủ đề Thu_muc Thư mục Mn Mã nhóm SVTH: Huỳnh Thanh Phong Trang 29 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  30. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Thuộc tính Diễn giải Mn Mã nhóm Stt Số thứ tự Mh Mã hình So_luong Số lượng Don_gia Đơn giá Thanh_tien Thành tiền Hinh Hình So_lan_xem Số lần xem So_luong_ban Số lượng bán Ngay_tao Ngày tạo Ngay_hieu_chinh Ngày hiệu chỉnh Ten_nhom Tên nhóm Thu_tu Thứ tự 1.3 Mô tả các bảng: 1.3.1 Loại thực thể Khach_hang: P3: primary key (khóa chính); U: unipue key, candidate key(khóa chỉ định), M: mandatory(not null), L: lockey( không cho phép chỉnh sửa , đổi giá trị), F : foreign key(khóa ngoại) Thuộc tính Kiểu Kích thước P3 U M L F Mkh Numeric 8 x x x x Ho_khach_hang Char 6 x Ten_khach_hang Char 12 x Dia_chi Char 20 Dien_thoai NTTULIBChar 12 x Ten_dang_nhap Char 15 x Mat_khau Char 15 x Ngay_dang_nhap_cuoi Date 8 x Ngay_sinh Date 8 x Gioi_tinh Char 6 x Email Char 20 x Admin Yes/No x SVTH: Huỳnh Thanh Phong Trang 30 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  31. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 1.3.2 Loại thực thể Don_dat_hang: Thuộc tính Kiểu Kích thước P3 U M L F Sdh Numeric 8 x x x x Mkh Numeric 6 x x Ngay_dat_hang Date 12 x Tri_gia Numeric 12 x Da_giao_hang Char 12 x Thanh_tien Numeric 15 x 1.3.3 Loại thực thể Ct_dat_hang: Thuộc tính Kiểu Kích thước P3 U M L F Stt Numeric 8 x x x x Sdh Numeric 6 x x Mh Numeric 8 x x So_luong Numeric 12 x Don_gia Numeric 12 x Thanh_tien Numeric 15 x 1.3.4 Loại thực thể Hoa: Thuộc tính Kiểu Kích thước P3 U M L F Mh Numeric 8 x x x x Hinh CNTTULIBhar 6 x Mcd Numeric 8 x x Don_gia Numeric 12 x So_lan_xem Numeric 15 x So_luong_ban Numeric 15 x Ngay_tao Date 12 x Ngay_hieu_chinh Date 12 x SVTH: Huỳnh Thanh Phong Trang 31 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  32. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 1.3.5 Loại thực thể Chu_de: Thuộc tính Kiểu Kích thước P3 U M L F Mcd Numeric 8 x x x x Ten_chu_de Char 20 x Thu_muc Char 20 x Mn Numeric 12 x x 1.3.6 Loại thực thể Nhom: Thuộc tính Kiểu Kích thước P3 U M L F Mn Numeric 8 x x x x x Ten_nhom Char 20 x Thu_tu Numeric 20 x 1.4 Các ràng buộc toàn vẹn trên cơ sở dữ liệu: 1.4.1 Khóa nội: R1: id (Khach_hang)= Mkh R2: id(Don_dat_hang)=Sdh R3: id(Ct_Dat_hang)=Stt R4: id (Hoa)=Mh R5: id(Chu_de)=Mcd R6: id (NhomNTTULIB)=Mn 1.4.2 Ràng buộc về miền giá trị: R2: (Don_dat_hang.Sdh>0 and (Don_dat_hang.Tri_gia>0) R3: (Ct_Dat_hang.Sdh>0) and (Ct_Dat_hang.So_luong>0) and (Ct_Dat_hang.Don_gia>0) SVTH: Huỳnh Thanh Phong Trang 32 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  33. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 1.4.3 Ràng buộc giữa các thuộc tính trong một bảng: R3:Ct_Dat_hang.Thanh_tien=(Ct_Dat_hang.So_luong* (Ct_Dat_hang.Don_gia) R2: Don_dat_hang.Ngay_giao>= Don_dat_hang.Ngay_dat_hang 1.5 Mối quan hệ cơ sở dữ liệu: NTTULIBHình 2: Mối quan hệ CSDL SVTH: Huỳnh Thanh Phong Trang 33 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  34. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2. Thiết kế giao diện Vai trò của giao diện: con người khi làm việc với máy tính là một sự giao tiếp giữa hai thế giới: tâm lý và lý luận. Khi thao tác một công việc nào đó, con người ra lệnh cho máy tính thi hành thông qua một số phương tiện như: lệnh(command), thực đơn(menu), nói chung là dùng một ngôn ngữ để giao tiếp giữa hai thế giới này có thể “hiểu được nhau”. Ngôn ngữ trung gian này chính là giao diện giữa người và máy. Vì vậy để người dùng không nhàm chán bởi vì giao diện không được đẹp, không sinh động, Nên chúng tôi cố gắng tạo sự thu hút, lôi cuốn đối với người sử dụng nhờ vào tính mỹ thuật và khả năng trí tưởng, sự phán đoán của người sử dụng cũng như nắm bắt nhu cầu của thị trường. Chất lượng của giao diện: loại giao diện mang tính chất quảng cáo, tiếp thị, mua bán, giải trí, Là giao diện thường thấy nhất trong hệ thống thông tin của các tổ chức xã hội hoạt động trên mạng internet, những trang web giải trí, mua bán hàng qua mạng Giao diện phải mang tính dẫn dắt và đơn giản trong phần giao tiếp nghĩa là người sử dụng chỉ phải thực hiện một số thao tác cơ bản (sử dụng chuột, một số phím chức năng, trả lời yes/no hoặc cung cấp mốt số chức năng ngắn, NTTULIB SVTH: Huỳnh Thanh Phong Trang 34 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  35. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1 Phân hệ người dùng: Người Dùng Trang web Đăng nhập Đăng ký Trang giới thiệu Liên hệ Trang quản trị Giỏ hàng NTTULIB SVTH: Huỳnh Thanh Phong Trang 35 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  36. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.1 Thiết kế trang chủ: Hình 1: Trang chủ Phần xử lý: Partial Class Trang_Web_Trang_Chu Inherits System.WeNTTULIBb.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub End Class SVTH: Huỳnh Thanh Phong Trang 36 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  37. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Partial Class Trang_Web_Dang_Nhap Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub Protected Sub Dang_Nhapl1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dang_Nhapl1.Load End Sub End Class Mỗi ứng dụng đều có một màn hình chính. Màn hình chính sẽ xuất hiện đầu tiên khi ứng dụng được khởi động và cũng thường xuất hiện sau khi kết thúc một tác vụ chính của ứng dụng. Màn hình này có thể chứa nội dung như sau: 2.1.1.1 Những thông tin mang tính chất giới thiệu như: tên ứng dụng, phiên bản, bản quyền, chức năng chính của ứng dụng, 2.1.1.2 Một thực đơn chính cho phép người dùng lựa chọn các chức năng của phần mềm. Thực đơn này có thể là một thực đơn kéo xuống hoặc thực đơn ngang hoặc hệ thống có nhiều cấp nhiều nút nhấn(button), biểu tượng(icon), Đây là trang chủ (mặNTTULIBc định) của ứng dụng. Thành phần nội dung chính hiển thị các sản phẩm mới (hoa mới). Khi khách hàng vào wedsite trang chủ sẽ hiện lên đầu tiên, nếu khách hàng nào muốn mua các sản phẩm của cửa hàng thì phải đăng nhập vào hệ thống. Sau khi khách hàng đăng nhập thành công, có thể lựa chọn mua các loại hoa hay các món quà khác mà họ ưa thích. SVTH: Huỳnh Thanh Phong Trang 37 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  38. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Đây cũng là trang dùng cập nhật các sản phẩm mới của cửa hàng, các sản phẩm mới sẽ được load lên thường xuyên để đáp ứng nhu cầu của khách hàng. 2.1.2 Thiết kế trang đăng nhập: NTTULIB Hình 2: Trang đăng nhập. SVTH: Huỳnh Thanh Phong Trang 38 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  39. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý: Partial Class Trang_Web_Dang_Nhap Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub Protected Sub Dang_Nhapl1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Dang_Nhapl1.Load End Sub End Class Phần xử lý UseControl Đăng nhập: Imports System.Data Partial Class UseConTrol_Dang_Nhapl Inherits System.Web.UI.UserControl Protected Sub btndangnhap_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btndangnhap.Click Dim lenh As String lenh = "select * from KHACH_HANG where ten_dang_nhap='" & ten_dang_nhap.Text & "' andNTTULIBmat_khau='" & mat_khau.Text & "'" Dim bang As DataTable bang = Doc_bang("Khach_Hang", lenh) If bang.Rows.Count > 0 Then Session("Ho_ten") = bang.Rows(0)("Ho_Khach_Hang") & " " & bang.Rows(0)("Ten_Khach_Hang") SVTH: Huỳnh Thanh Phong Trang 39 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  40. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Session("Mkh") = bang.Rows(0)("mkh") Session("admin") = bang.Rows(0)("admin") Session("So_luong_ban") = 0 Session("Tong_so_tien") = 0 Session("Gio_hang") = New XL_Gio_Hang() pnthanhcong.Visible = True pndangnhap.Visible = False lblthongbao2.Text = " Tài khoản đang sử dụng : " & Session("Ho_ten") Else lblthongbao1.Text = " Đăng nhập thất bại!!! " End If End Sub Protected Sub btnthoat1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnthoat1.Click Session("Ho_ten") = "" Session("Mkh") = "" Session("admin") = 0 ten_dang_nhap.Text = "" pnthanhcong.Visible = False pndangnhap.Visible = TNTTULIBrue End Sub End Sub End Class SVTH: Huỳnh Thanh Phong Trang 40 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  41. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Ý nghĩa của trang này là cho người dùng đăng nhập vào hệ thống để xem, chọn và đặt mua hoa qua trang web, được thể hiện ở (hình 4). Nếu khách hàng không đăng nhập vào hệ thống, thì sẽ không mua đươc sản phẩm, mà chỉ có thể vào trang wed để xem chi tiết các sản phẩm hiện có. Khách hàng cảm thấy vừa ý với trang web, thì khách hàng có thể đăng ký thông qua trang đăng ký, khách hàng phải điền đầy đủ thông tin cá nhân thì mới có thể đăng ký. Sau khi đăng ký xong thì khách hàng có thể lựa chọn mua hoa, mỗi khi khách hàng mua một trong các sản phẩm của cửa hàng, sản phẩm sẽ hiện lên trên trang giỏ hàng, số lượng mua là bao nhiêu, đơn giá và thành tiền để khách hàng có thể biết rõ hơn về sản phẩm mà mình đã chọn mua, làm cho khách hàng yên tâm hơn . NTTULIB SVTH: Huỳnh Thanh Phong Trang 41 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  42. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.3 Thiết kế trang liên hệ: NTTULIB Hình 3: Trang liên hệ. Mọi thắc mắc của khách hàng sẽ được giải đáp thông qua trang liên hệ mà chúng tôi có đề địa chỉ liên lạc trên. Cửa hàng sẽ không ngừng phát huy và nâng cao chất lượng sản phẩm, ngày càng hoàn thiện hơn để phục vụ khách hàng một cách tốt hơn. SVTH: Huỳnh Thanh Phong Trang 42 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  43. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Để khách hàng biết rõ hơn về thời gian làm việc của cửa hàng cửa hàng đã đưa ra lịch làm việc như sau: Thứ 2-6: làm việc từ 8 giờ đến 22giờ Thứ 7: 8 giờ đến 18giờ Chủ nhật và ngày lễ: 9 giờ đến 16giờ Tết âm lich: nghỉ 3 ngày (mùng 1,2,3) ĐT : (84) 08789789 _ Fax : (84)789789 DĐ : 01225736049 Phần xử lý trang liên hệ: NTTULIB SVTH: Huỳnh Thanh Phong Trang 43 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  44. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.4 Thiết kế trang đăng ký: NTTULIB Hình 4: Trang đăng ký. SVTH: Huỳnh Thanh Phong Trang 44 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  45. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý: Partial Class Trang_Web_Dang_Ky Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub End Class OleDbCommand(lenh, Ket_noi) cm.ExecuteNonQuery() Response.Redirect(" /trang_web/trang_chu.aspx") End If End Sub Nút đăng ký: Protected Sub Page_ Imports System.Data.OleDb Imports System.Data Partial Class UseConTrol_Dang_Ky Inherits System.Web.UI.UserControl Protected Sub btndangky_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bNTTULIBtndangky.Click Dim lenh As String Dim cm As OleDbCommand lenh = "select * from khach_hang where ten_dang_nhap='" & txtdangnhap.Text & "'" cm = New OleDbCommand(lenh, Ket_noi) SVTH: Huỳnh Thanh Phong Trang 45 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  46. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin If cm.ExecuteScalar > 0 Then MsgBox("Tên đăng nhập này đã được sử dụng, xin chọn tên đăng nhập khác") txtdangnhap.Text = "" txtdangnhap.Focus() Else lenh = "insert into khach_hang(ho_khach_hang,Ten_khach_hang,Dia_chi,dien_thoai,ten_dang_nhap,Mat_k hau,gioi_tinh,ngay_sinh,email)" & _ "values ('" & txthokh.Text & "','" & txttenkh.Text & "','" & txtdiachi.Text & "','" & txtdienthoai.Text & "','" & txtdangnhap.Text & "','" & txtmatkhau.Text & "'," & gtnam.Checked & ",#" & DateSerial(nam.Text, thang.Text, ngay.Text) & "#,'" & txtemail.Text & "')" cm = New Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then Dim i As Integer ngay.Items.Add("Ngày") For i = 1 To 31 ngay.Items.Add(i.TNTTULIBoString("00")) Next thang.Items.Add("Tháng") For i = 1 To 12 thang.Items.Add(i.ToString("00")) Next nam.Items.Add("Năm") SVTH: Huỳnh Thanh Phong Trang 46 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  47. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin For i = 1970 To Date.Now.Year nam.Items.Add(i) Next End If End Sub End Class Nhằm hổ trợ cho khách hàng chưa có tài khoản để đăng nhập vào trang web, chúng tôi thiết kế cho khách hàng một trang đăng ký để khách hàng thuận lợi cho việc xem sản phẩm của chúng tôi qua trang web. Khi khách hàng chưa có tài khoản, nếu muốn đặt mua phải có tài khoản mới, trang đăng ký sẽ đảm nhiệm chức năng này. Ở trang đăng ký có một khung nhỏ để cho khách hàng đăng ký, khách hàng phải điền đầy đủ thông tin vào bảng này nếu thiếu một trong các chi tiết nêu ra trong bảng sẽ không thành công, khách hàng phải đăng ký lại, khi đăng ký thành công mới có thể mua hàng. Trong trường hợp khách hàng không thể đăng ký được cửa hàng sẽ hướng dẫn cho khách hàng đăng ký. NTTULIB SVTH: Huỳnh Thanh Phong Trang 47 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  48. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.5 Thiết kế trang mua hàng: Hình 5: Trang mua hàng. Trang mua hàng này khi khách hàng chưa đăng nhập thì trang này sẻ xuất ra thông tin yêu khách hàng phải đăng nhNTTULIBập trước khi mua hàng. SVTH: Huỳnh Thanh Phong Trang 48 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  49. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý : Imports System.Data Partial Class UseConTrol_Them_Hoa Inherits System.Web.UI.UserControl Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If session("Mkh") = 0 Then TABLE1.Visible = False tb.Text = "Bạn phải đăng nhập trước khi mua hàng !!!" Else table1.Visible = True tb.visible = False Dim mh As Long If Not IsPostBack Then mh = Request.QueryString("mh") Hien_Thi() End If NTTULIB End If End Sub SVTH: Huỳnh Thanh Phong Trang 49 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  50. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.6 Thiết kế trang đặt mua hàng: Hình 6: Trang đặt mua hàng. Trang này thể hiện đặt mua hàng khi khách hàng đăng nhập thành công và tiến hành lựa chọn các loại hoa mà mình thích để đưa vào giỏ hàng. NTTULIB SVTH: Huỳnh Thanh Phong Trang 50 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  51. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý trang này Imports System.Data Partial Class UseConTrol_Them_Hoa Inherits System.Web.UI.UserControl Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If session("Mkh") = 0 Then TABLE1.Visible = False tb.Text = "Bạn phải đăng nhập trước khi mua hàng !!!" Else table1.Visible = True tb.visible = False Dim mh As Long If Not IsPostBack Then mh = Request.QueryString("mh") Hien_Thi() End If NTTULIB End If End Sub SVTH: Huỳnh Thanh Phong Trang 51 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  52. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Sub Hien_Thi() Dim mh As Long Dim thu_muc As String thu_muc = Request.QueryString("thu_muc") mh = Request.QueryString("mh") Dim lenh As String lenh = "select * from q_hoa where mh =" & mh Dim Bang_hoa As New DataTable("Hoa") Bang_hoa = Doc_bang("hoa", lenh) Hinh.ImageUrl = " /hinh_anh/Flower/" & Bang_hoa.Rows(0)("thu_muc") & "/" & Bang_hoa.Rows(0)("hinh") dongia.Text = Bang_hoa.Rows(0)("don_gia") txtso_luong.Text = 1 lblthanh_tien.Text = Format(txtso_luong.Text * dongia.Text, "#,### VNĐ") End Sub Protected Sub btnDat_mua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDat_mua.Click Dim Bang_hoa As New DataTable("Hoa") Dim lenh As String NTTULIB lenh = "select * from q_Hoa where mh= " & Request.QueryString("mh") Bang_hoa = Doc_bang("Hoa", lenh) Dim Gio_hang As New XL_Gio_Hang Gio_hang = CType(Session("Gio_hang"), XL_Gio_Hang) SVTH: Huỳnh Thanh Phong Trang 52 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  53. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Gio_hang.Them_dat_hang(Bang_hoa.Rows(0)("Mh"), txtso_luong.Text, Bang_hoa.Rows(0)("Don_gia"), Bang_hoa.Rows(0)("thu_muc") & "/" & Bang_hoa.Rows(0)("hinh")) Session("so_luong_ban") += txtso_luong.Text Session("Tong_so_tien") += txtso_luong.Text + Bang_hoa.Rows(0)("don_gia") * txtso_luong.Text Response.Write(" window.close() ") End Sub Protected Sub btnHuy_bo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnHuy_bo.Click Response.Write(" window.close() ") End Sub End Class NTTULIB SVTH: Huỳnh Thanh Phong Trang 53 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  54. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.7 Thiết kế trang giỏ hàng: Hình 7: Trang giỏ hang Phần xử lý: Partial Class Trang_Web_Trang_Gio_Hang Inherits System.Web.UI.Page Protected Sub Page_LoadNTTULIB(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub End Class SVTH: Huỳnh Thanh Phong Trang 54 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  55. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý Bảng: Imports System.Data.OleDb Imports System.Data Partial Class UseConTrol_Gio_Hang Inherits System.Web.UI.UserControl Dim DS_Hoa As ArrayList #Region "Các phương thức" Public Function Tao_Ket_Noi() Dim Chuoi_Ket_Noi As String Chuoi_Ket_Noi = "Provider=Microsoft.Jet.Oledb.4.0;Data Source =" & Server.MapPath(" \CSDL\Flower.mdb") Dim Ket_Noi As New OleDbConnection(Chuoi_Ket_Noi) Ket_Noi.Open() Return Ket_Noi End Function Public Sub Cap_nhat_thong_tin_dat_hang() lbltong_thanh_tien.Text = "Tổng số : " & DS_Hoa.Count.ToString("#,### VNĐ") Dim Tong_tien As Double Dim hang As New XL_Gio_Hang For Each hang In DS_HNTTULIBoa Tong_tien += hang.So_luong * hang.Don_gia Next Session("Tong_so_hoa") = DS_Hoa.Count Session("Tong_thanh_tien") = Tong_tien SVTH: Huỳnh Thanh Phong Trang 55 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  56. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin lbltong_thanh_tien.Text = Tong_tien.ToString("#,### VNĐ") End Sub Public Sub Lien_ket_du_lieu() grvGio_hang.DataSource = DS_Hoa grvGio_hang.DataBind() Cap_nhat_thong_tin_dat_hang() End Sub Phần xử lý xóa đặt hàng: Public Sub Xoa_dat_hang(ByVal pMh As Long) Dim hang As New XL_Gio_Hang For Each hang In DS_Hoa If hang.Mh = pMh Then DS_Hoa.Remove(hang) Exit For End If Next End Sub Phần xử lý cập nhật số lượng đặt hàng: Public Sub Cap_nhat_so_luong_dat_hang(ByVal pMh As Long, ByVal pSo_luong_moi As Long) Dim hang As New XL_GNTTULIBio_Hang For Each hang In DS_Hoa If hang.Mh = pMh Then hang.So_luong = pSo_luong_moi End If Next End Sub SVTH: Huỳnh Thanh Phong Trang 56 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  57. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý đặt mua hàng: Public Sub Xu_ly_dat_mua_hang() Dim lenh As String XL_BANG.Chuoi_CSDL = Server.MapPath(" \CSDL\Flower.mdb") Dim Bang_dat_hang As New XL_BANG("don_dat_hang") Dim Bang_ct_dat_hang As New XL_BANG("ct_dat_hang") Try If Session("Mkh") > 0 Then Bang_dat_hang.Them_Dat_Hang(Session("Mkh"), Session("Tong_thanh_tien")) Dim item As New XL_Gio_Hang For Each item In DS_Hoa Bang_ct_dat_hang.Them_CT_Dat_Hang(Bang_dat_hang.Rows(Bang_dat_hang.So_don g - 1)("Sdh"), item.Mh, item.So_luong, item.Don_gia) lenh = "update hoa set so_luong_ban=so_luong_ban+" & item.So_luong & " where mh=" & item.Mh Bang_ct_dat_hang.Thuc_hien_lenh(lenh) Next lblThong_bao.Text = "Thông tin đặt hàng của bạn đã được ghi nhận. Bạn sẽ nhận được hàng trong vòng 24 giờ (nếu ở nội thành) - 48 giờ (nếu ở ngoại thành)" lblThong_bao.ForeNTTULIBColor = Drawing.Color.Blue lblThong_bao.Visible = True btndat_mua.Enabled = False SVTH: Huỳnh Thanh Phong Trang 57 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  58. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Else lblThong_bao.Text = "Bạn chưa đăng nhập. Xin trở lại trang chủ để đăng nhập hoặc đăng ký mới." lblThong_bao.ForeColor = Drawing.Color.Red lblThong_bao.Visible = True End If Catch ex As Exception End Try End Sub #End Region Phần xử lý các sự kiện: #Region "Các xử lý sự kiện" Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, Me.Load DS_Hoa = CType(Session("Gio_hang"), ArrayList) If IsNothing(DS_Hoa) Then MsgBox("Bạn phải đăng nhập") Else If Not IsPostBack Then Lien_ket_du_lieu()NTTULIB grvGio_hang.DataBind() End If End If End Sub SVTH: Huỳnh Thanh Phong Trang 58 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  59. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý nút trở về: Private Sub btnTro_ve_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntro_ve.Click Response.Redirect(" /Trang_Web/Trang_chu.aspx") End Sub Protected Sub grvGio_hang_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles grvGio_hang.RowCancelingEdit grvGio_hang.EditIndex = -1 Lien_ket_du_lieu() End Sub Protected Sub grvGio_hang_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles grvGio_hang.RowDeleting Dim Mh As Long mh = grvGio_hang.DataKeys(e.RowIndex).Values("Mh") Dim h As XL_Gio_Hang For Each h In DS_Hoa If h.Mh = mh Then DS_Hoa.Remove(h) Exit For NTTULIB End If Next grvGio_hang.EditIndex = -1 Lien_ket_du_lieu() End Sub SVTH: Huỳnh Thanh Phong Trang 59 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  60. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý đặt mua hàng: Protected Sub btndat_mua_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btndat_mua.Click Xu_ly_dat_mua_hang() MsgBox("Đặt mua hoa thành công") End Sub Protected Sub grvGio_hang_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles grvGio_hang.RowEditing grvGio_hang.EditIndex = e.NewEditIndex Lien_ket_du_lieu() End Sub Phần xử lý cập nhậthàng: Protected Sub grvGio_hang_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles grvGio_hang.RowUpdating Dim So_luong As TextBox = grvGio_hang.Rows(e.RowIndex).Cells(1).Controls(0) Dim mh As Long mh = grvGio_hang.DataNTTULIBKeys(e.RowIndex).Values("Mh") Dim h As XL_Gio_Hang For Each h In DS_Hoa If h.Mh = mh Then h.So_luong = So_luong.Text Exit For End If SVTH: Huỳnh Thanh Phong Trang 60 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  61. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Next grvGio_hang.EditIndex = -1 Lien_ket_du_lieu() End Sub #End Region Protected Sub grvGio_hang_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grvGio_hang.SelectedIndexChanged MsgBox(grvGio_hang.SelectedDataKey.Values("Mh")) End Sub End Class Nhằm để lưu trữ chính xác về các thông tin đặt mua hàng ở trang chủ, chúng tôi thiết kế cho khách hàng trang giỏ hàng này, nó có tác dụng là sau khi khách hàng mua hàng thành công thì khách hàng sẽ kiểm tra lại các sản phẩm của mình tại trang giỏ hàng. Có thêm, xóa, sửa các sản phẩm mà mình thích. NTTULIB SVTH: Huỳnh Thanh Phong Trang 61 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  62. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.8 Thiết kế tìm kiếm sản phẩm: NTTULIB 2.1.9 Thiết kế trang góp ý: Hình 8: Trang đặt mua hàng SVTH: Huỳnh Thanh Phong Trang 62 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  63. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý nút tìm kiếm: Partial Class UseConTrol_Tim_Kiem Inherits System.Web.UI.UserControl Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") chu_de.Items.Add(" Theo chủ đề ") Hien_thi_Chu_de() End If End Sub Sub Hien_thi_Chu_de() chu_de.DataSource = Doc_bang("CHU_DE", "select * from q_chude") chu_de.DataTextField = "ten_chu_de" chu_de.DataValueField = "Mcd" chu_de.DataBind() End Sub Protected Sub Tim_kiem_CNTTULIBlick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tim_kiem.Click Dim tu, den As Integer Dim vt As Integer If gia.SelectedValue.StartsWith("T") Then vt = gia.SelectedValue.ToString.IndexOf("đ") tu = gia.SelectedValue.Substring(2, vt - 3) SVTH: Huỳnh Thanh Phong Trang 63 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  64. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin den = gia.SelectedValue.Substring(vt + 4) Else tu = gia.SelectedValue.Substring(8) MsgBox(Val(tu)) End If Response.Redirect(" /Trang_web/Trang_Ket_Qua.aspx?tu=" & tu & "&&den=" & den & "&&mcd=" & chu_de.SelectedValue) End Sub End Class NTTULIB SVTH: Huỳnh Thanh Phong Trang 64 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  65. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.9 Thiết kế trang góp ý: Hình 9: Trang góp ý. NTTULIB Để giúp khách hàng có những ý kiến muốn trao đổi với cửa hàng chúng tôi về nội dung hay các sản phẩm Thì khách hàng có thể cho chúng tôi những ý kiến tốt đẹp hơn về trang web hay các loại sản phẩm khác thì khách hàng có thể gửi bài góp ý của mình vào trang góp ý trên. SVTH: Huỳnh Thanh Phong Trang 65 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  66. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý: Imports System.Data Imports System.Data.OleDb Partial Class UseConTrol_Gop_y Inherits System.Web.UI.UserControl Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub Phần xử lý nút góp ý: Protected Sub btngop_y_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngop_y.Click If Session("Mkh") > 0 Then Dim lenh As String lenh = " insert into GOP_Y(Chu_de,Email,Noi_dung)values('" & txtchu_de.Text & "','" & txtEmail.Text & "', '" & txtNoi_Dung.Text & "')" Dim cm As New OleDbCommand(lenh, Ket_noi) cm.ExecuteNonQuery() MsgBox("Thông tin của bạn đã được ghi nhận ") Response.Redirect(" /Trang_web/Trang_chu.aspx") Else NTTULIB MsgBox(" Gửi mail thất bại, bạn phải đăng nhập!!!") End If End Sub End Class SVTH: Huỳnh Thanh Phong Trang 66 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  67. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.1.10 Thiết kế trang quản trị: Hình 10: Trang quản trị Đây là trang chủ dành riêng cho người quản trị ứng dụng. Trang này giúp người quản trị quản lý cửa hàng hoa một cách hiệu quả hơn. Người quản trị có thế chỉ NTTULIBđịnh việc mua bán các loại hoa tùy ý . Trang này chỉ có người quản trị mới có quyền truy cập vào, mọi thông tin của cửa hàng sẽ được cập nhật tại đây, người quản trị xử lý thông tin khách hàng thông qua trang này. Tuy nhiên khách hàng thì không vào được có thể nói đây là trang không cho khách hàng vào. Giải quyết và xem xét các đơn đặt hàng, tư vấn cho khách hàng. SVTH: Huỳnh Thanh Phong Trang 67 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  68. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.2 Phân hệ quản trị : Người Quản Trị Đăng nhập Xem danh sách Xem và cập nhật Xem và cập nhật Xem và cập khách hàng đơn dặt hàng chủ đề nhật hoa Thoát đăng nhập NTTULIB SVTH: Huỳnh Thanh Phong Trang 68 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  69. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.2.1 Thiết kế trang chủ quản trị: Hình 11: Trang chủ quản trị Đây là trang chủ của người quản trị. Sao khi người quản trị vào hệ thống và vào trang này, và có thể thực hiện các chức năng riêng của mình. Có thể quản lý cập nhậNTTULIBt thông tin. Giải quyết các đơn đặt hàng. Quyết định nhận hay không nhận đơn đặt hàng Giải quyết các nhu cầu cho nhân viên của cửa hàng. Hướng dẫn khách hàng. SVTH: Huỳnh Thanh Phong Trang 69 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  70. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.2.2 Thiết kế trang nhóm: Hình 12: Trang nhóm. Quản lý các nhóm ( thêm, xóa, sửa ) Ở trang này có 6 nhóm chính: Tình yêu và lãng mạng Quan hệ Thời điểm NTTULIB Quà Tặng Khác Hạnh phúc Mỗi nhóm có các chủ đề khác nhau, mỗi chủ đề có các loại sản phẩm khác nhau. Tùy vào từng nhóm, từng chủ đề mà khách hàng có thể lựa chọn sản phẩm mà họ ưa thích. SVTH: Huỳnh Thanh Phong Trang 70 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  71. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý: Imports System.Data.OleDb Imports System.Data Partial Class UseConTrol_Them_Nhoml Inherits System.Web.UI.UserControl Protected Sub btnthem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnthem.Click Dim lenh As String lenh = "insert into NHOM(ten_nhom,thu_tu)" & _ "values ('" & txtten_nhom.Text & "','" & txtthu_tu.Text & "')" Dim cn As New OleDbCommand(lenh, Ket_noi) cn.ExecuteNonQuery() MsgBox(" Thêm thông tin thành công") Response.Redirect(" /trang_web/Nhom.aspx") End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub NTTULIB Protected Sub btnkhong_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkhong.Click Response.Write(" window.close() ") End Sub End Class SVTH: Huỳnh Thanh Phong Trang 71 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  72. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Partial Class Trang_Web_Nhom Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub End Class Imports System.Data.OleDb Imports System.Data Partial Class UseConTrol_Them_Nhoml Inherits System.Web.UI.UserControl Protected Sub btnthem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnthem.Click Dim lenh As String lenh = "insert into NHOM(ten_nhom,thu_tu)" & _ "values ('" & txtten_nhom.Text & "','" & txtthu_tu.Text & "')" Dim cn As New OleDbCommand(lenh, Ket_noi) cn.ExecuteNonQuery() MsgBox(" Thêm thông tin thành công") Response.Redirect(" /traNTTULIBng_web/Nhom.aspx") End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") End Sub SVTH: Huỳnh Thanh Phong Trang 72 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  73. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Protected Sub btnkhong_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkhong.Click Response.Write(" window.close() ") End Sub End Class 2.2.3 Thiết kế trang chủ đề: NTTULIB Hình 13:Trang chủ đề. SVTH: Huỳnh Thanh Phong Trang 73 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  74. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Quản lý các chủ đề hoa ( thêm, xóa, sửa) Các nhóm có trong chủ đề có thể hiển thị bằng Textbox , hay bằng DropDownlist (không, bắt buộc ). Ở trang này có các chủ đề sau : Cho anh ấy Cho cô ấy I love you I miss you Kỹ niệm xưa Ngọt ngào Hoa hồng Cảm ơn Chúc mừng Đồng cảm Mội điều tốt đẹp Động viên Thôi nôi Mọi lúc Ở mỗi chủ đề có các sản phẩm khác nhau mà khách hàng có thể lựa chon VD: Chủ đề hoa hồngNTTULIB: Ở chủ đề này sẽ có đầy đũ các loại hoa hồng mà khách hàng có thể lựa chọn. Các chủ đề khác cũng tương tự như vậy: SVTH: Huỳnh Thanh Phong Trang 74 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  75. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý trang chủ đề: Imports System.Data.OleDb Partial Class UseConTrol_Them_Chu_De Inherits System.Web.UI.UserControl Protected Sub btnthem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnthem.Click Dim lenh As String lenh = "insert into CHU_DE(ten_chu_de,thu_muc,mn)" & _ "values ('" & txtten_chu_de.Text & "','" & txtthu_muc.Text & "'," & nhom.SelectedValue & ")" Dim cn As New OleDbCommand(lenh, Ket_noi) cn.ExecuteNonQuery() MsgBox(" Thêm thành thông tin thành công") Response.Redirect(" /trang_web/Trang_Chu_De.aspx") End Sub Protected Sub btnkhong_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkhong.Click Response.Write(" window.close() ") End Sub NTTULIB Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") Hien_thi_nhom() End Sub SVTH: Huỳnh Thanh Phong Trang 75 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  76. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Sub Hien_thi_nhom() nhom.DataSource = Doc_bang("NHOM", "select * from NHOM") nhom.DataTextField = "ten_nhom" nhom.DataValueField = "Mn" nhom.DataBind() End Sub End Class Phần xử lý UseControl danh sách chủ đề. Imports System.Data.OleDb Imports System.Data Partial Class UseConTrol_DS_chu_de Inherits System.Web.UI.UserControl Public Function Tao_Ket_Noi() Dim Chuoi_Ket_Noi As String Chuoi_Ket_Noi = "Provider=Microsoft.Jet.Oledb.4.0;Data Source =" & Server.MapPath(" \CSDL\Flower.mdb") Dim Ket_Noi As New OleDbConnection(Chuoi_Ket_Noi) Ket_Noi.Open() Return Ket_Noi NTTULIB End Function SVTH: Huỳnh Thanh Phong Trang 76 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  77. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Public Function Doc_DS_Chu_De(Optional ByVal sapxep As String = "") As DataTable Dim Ket_Noi As OleDbConnection = Tao_Ket_Noi() Dim Chu_de As New DataTable Dim Lenh_SQL As String = "Select * From CHU_DE " & IIf(sapxep <> "", " Order By " & sapxep, "") Dim Bo_Doc_Ghi As New OleDbDataAdapter(Lenh_SQL, Ket_Noi) Bo_Doc_Ghi.Fill(Chu_de) Return Chu_de End Function Public Sub Lien_Ket_Du_Lieu() grvDS_chu_de.DataSource = Doc_DS_Chu_De() grvDS_chu_de.DataBind() End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If Not IsPostBack Then Lien_Ket_Du_Lieu() End If NTTULIB End Sub SVTH: Huỳnh Thanh Phong Trang 77 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  78. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Protected Sub grvDS_chu_de_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles grvDS_chu_de.PageIndexChanging grvDS_chu_de.PageIndex = e.NewPageIndex Lien_Ket_Du_Lieu() End Sub Protected Sub grvDS_chu_de_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles grvDS_chu_de.RowCancelingEdit grvDS_chu_de.EditIndex = -1 Lien_Ket_Du_Lieu() End Sub Protected Sub grvDS_chu_de_RowDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles grvDS_chu_de.RowDataBound If e.Row.RowIndex < 0 Then Exit Sub Dim c As WebControls.DropDownList c = e.Row.FindControl("NTTULIBnhom") c.DataSource = Doc_bang("chu_de", "select * from nhom") c.DataTextField = "Ten_nhom" c.DataValueField = "Mn" c.DataBind() c.SelectedValue = e.Row.DataItem("mcd") End Sub SVTH: Huỳnh Thanh Phong Trang 78 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  79. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Protected Sub grvDS_chu_de_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles grvDS_chu_de.RowDeleting If MsgBox("Bạn Muốn Xóa Không?", MsgBoxStyle.YesNo, "Thong Bao") = MsgBoxResult.Yes Then Dim lenh As String lenh = "Delete From CHU_DE Where Mcd=" & grvDS_chu_de.DataKeys(e.RowIndex).Values("Mcd") Dim lenh_delete As New OleDbCommand(lenh, Tao_Ket_Noi) lenh_delete.ExecuteNonQuery() Lien_Ket_Du_Lieu() End If End Sub Protected Sub grvDS_chu_de_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles grvDS_chu_de.RowEditing grvDS_chu_de.EditIndex = e.NewEditIndex grvDS_chu_de.DataSource = Doc_DS_Chu_De() grvDS_chu_de.DataBindNTTULIB() End Sub SVTH: Huỳnh Thanh Phong Trang 79 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  80. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Protected Sub grvDS_chu_de_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles grvDS_chu_de.RowUpdating Dim Ten_chu_de As TextBox = grvDS_chu_de.Rows(e.RowIndex).Cells(1).Controls(0) Dim Thu_muc As TextBox = grvDS_chu_de.Rows(e.RowIndex).Cells(2).Controls(0) Dim lenh As String lenh = "Update CHU_DE set Ten_chu_de='" & Ten_chu_de.Text & "',Thu_muc='" & Thu_muc.Text & "' Where Mcd=" & grvDS_chu_de.DataKeys(e.RowIndex).Values("Mcd") Dim lenh_update As New OleDbCommand(lenh, Tao_Ket_Noi) lenh_update.ExecuteNonQuery() grvDS_chu_de.EditIndex = -1 Lien_Ket_Du_Lieu() End Sub Protected Sub grvDS_chu_de_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grvDS_chu_de.SelectedIndexChanged MsgBox(grvDS_chu_de.SelectedDataKey.Values("Mcd")) End Sub NTTULIB Protected Sub grvDS_chu_de_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles grvDS_chu_de.Sorting grvDS_chu_de.DataSource = Doc_DS_Chu_De(e.SortExpression) End Sub End Class SVTH: Huỳnh Thanh Phong Trang 80 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  81. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Imports System.Data.OleDb Partial Class UseConTrol_Them_Chu_De Inherits System.Web.UI.UserControl Protected Sub btnthem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnthem.Click Dim lenh As String lenh = "insert into CHU_DE(ten_chu_de,thu_muc,mn)" & _ "values ('" & txtten_chu_de.Text & "','" & txtthu_muc.Text & "'," & nhom.SelectedValue & ")" Dim cn As New OleDbCommand(lenh, Ket_noi) cn.ExecuteNonQuery() MsgBox(" Thêm thành thông tin thành công") Response.Redirect(" /trang_web/Trang_Chu_De.aspx") End Sub Protected Sub btnkhong_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnkhong.Click Response.Write(" window.close() ") End Sub NTTULIB Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") Hien_thi_nhom() End Sub SVTH: Huỳnh Thanh Phong Trang 81 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  82. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Sub Hien_thi_nhom() nhom.DataSource = Doc_bang("NHOM", "select * from NHOM") nhom.DataTextField = "ten_nhom" nhom.DataValueField = "Mn" nhom.DataBind() End Sub End Class 2.2.4 Thiết kế trang danh sách hoa: NTTULIB Hình 14: Trang danh sách hoa SVTH: Huỳnh Thanh Phong Trang 82 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  83. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Trang này hiển thị các loại hoa theo chủ đề và cho phép cập nhật: Có thể cập nhật đơn giá Cập nhật chủ đề hoa ( không bắt buộc) Hiển thị tất cả các loại hoa có trong cửa hàng, ở mỗi chủ đề và mỗi nhóm khách nhau điều hiển thị ở trang này. Nhờ vậy người quản trị có thể kiểm soát đươc các sản phẩm hoa có trong cửa hàng, và có thể cập nhật những sản phẩm mới về Phần xử lý trang Danh sách hoa: Partial Class UseConTrol_DS_hoa_QT Inherits System.Web.UI.UserControl Sub Hien_Thi() Dim mcd As Long mcd = Request.QueryString("mcd") Dim lenh As String If mcd = 0 Then lenh = "select top 40 * from Q_hoa order by ngay_tao desc" Else lenh = "select * from Q_hoa where Mcd=" & mcd End If NTTULIB DS_Hoa_QT.DataSource = Doc_bang("Hoa", lenh) DS_Hoa_QT.DataBind() End Sub SVTH: Huỳnh Thanh Phong Trang 83 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  84. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Hien_Thi() End Sub End Class 2.2.5 Thiết kế trang danh sách khách hàng: NTTULIB Hình 15:Trang danh sách khách hàng SVTH: Huỳnh Thanh Phong Trang 84 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  85. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Trang khách hàng cung cấp cho chúng ta thông tin chính xác về khách hàng, và chúng ta có thể thêm, xóa ,sửa hoặc thay đổi thông tin về khách hàng. Ngoài ra trang khách hàng còn giúp cho người quản trị nắm rõ có bao nhiêu khách hàng đã tham gia vào trang web, và quản lý thông tin khách hàng rõ ràng hơn chính xác hơn. Phần xử lý trang danh sách khách hàng: Imports System.Data.OleDb Imports System.Data Partial Class UseConTrol_DS_KhachHang Inherits System.Web.UI.UserControl Public Function Tao_Ket_Noi() Dim Chuoi_Ket_Noi As String Chuoi_Ket_Noi = "Provider=Microsoft.Jet.Oledb.4.0;Data Source =" & Server.MapPath(" \CSDL\Flower.mdb") Dim Ket_Noi As New OleDbConnection(Chuoi_Ket_Noi) Ket_Noi.Open() Return Ket_Noi End Function NTTULIB Public Function DS_KhachHang(Optional ByVal sapxep As String = "") As DataTable Dim Ket_Noi As OleDbConnection = Tao_Ket_Noi() Dim lenh As New DataTable Dim Lenh_SQL As String = "Select * From KHACH_HANG " & IIf(sapxep <> "", " Order By " & sapxep, "") SVTH: Huỳnh Thanh Phong Trang 85 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  86. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Dim Bo_Doc_Ghi As New OleDbDataAdapter(Lenh_SQL, Ket_Noi) Bo_Doc_Ghi.Fill(lenh) Return lenh End Function Public Sub Lien_Ket_Du_Lieu() grvDS_KH.DataSource = DS_KhachHang() grvDS_KH.DataBind() End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") If Not IsPostBack Then Lien_Ket_Du_Lieu() End If End Sub Protected Sub grvDS_KH_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControlsNTTULIB.GridViewPageEventArgs) Handles grvDS_KH.PageIndexChanging grvDS_KH.PageIndex = e.NewPageIndex Lien_Ket_Du_Lieu() End Sub SVTH: Huỳnh Thanh Phong Trang 86 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  87. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Protected Sub grvDS_KH_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles grvDS_KH.RowCancelingEdit grvDS_KH.EditIndex = -1 Lien_Ket_Du_Lieu() End Sub Protected Sub btnthem_kh_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnthem_kh.Click Response.Redirect(" /Trang_Web/Dang_Ky.aspx") End Sub Protected Sub grvDS_KH_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles grvDS_KH.RowDeleting If MsgBox("Bạn Có Muốn Xóa Không?", MsgBoxStyle.YesNo, "Thong Bao") = MsgBoxResult.Yes Then Dim lenh As String lenh = "Delete from KNTTULIBHACH_HANG where Mkh=" & grvDS_KH.DataKeys(e.RowIndex).Values("Mkh") Dim lenh_cn As New OleDbCommand(lenh, Ket_noi) lenh_cn.ExecuteNonQuery() Lien_Ket_Du_Lieu() End If End Sub SVTH: Huỳnh Thanh Phong Trang 87 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  88. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Protected Sub grvDS_KH_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles grvDS_KH.RowEditing grvDS_KH.EditIndex = e.NewEditIndex grvDS_KH.DataSource = DS_KhachHang() grvDS_KH.DataBind() End Sub Protected Sub grvDS_KH_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles grvDS_KH.RowUpdating Dim lenh As String 'thông tin các cột trong dữ liệu ' Dim Ho_khach_hang As TextBox = grvDS_KH.Rows(e.RowIndex).Cells(1).Controls(0) Dim Ten_khach_hang As TextBox = grvDS_KH.Rows(e.RowIndex).Cells(2).Controls(0) Dim Ten_dang_nhap As TextBox = grvDS_KH.Rows(e.RowIndex).Cells(3).Controls(0) Dim Ngay_sinh As TextNTTULIBBox = grvDS_KH.Rows(e.RowIndex).Cells(4).Controls(0) 'lệnh cập update dữ liệu(sửa)' lenh = "Update KHACH_HANG Set Ho_khach_hang='" & Ho_khach_hang.Text & "',Ten_khach_hang='" & Ten_khach_hang.Text & "',Ten_dang_nhap='" & Ten_dang_nhap.Text & "',Ngay_sinh='" & Ngay_sinh.Text & "'where Mkh=" & grvDS_KH.DataKeys(e.RowIndex).Values("Mkh") SVTH: Huỳnh Thanh Phong Trang 88 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  89. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Dim lenh_cn As New OleDbCommand(lenh, Ket_noi) lenh_cn.ExecuteNonQuery() grvDS_KH.EditIndex = -1 Lien_Ket_Du_Lieu() End Sub Protected Sub grvDS_KH_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grvDS_KH.SelectedIndexChanged MsgBox(grvDS_KH.SelectedDataKey.Values("Mkh")) End Sub Protected Sub grvDS_KH_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles grvDS_KH.Sorting grvDS_KH.DataSource = DS_KhachHang(e.SortExpression) End Sub End Class NTTULIB SVTH: Huỳnh Thanh Phong Trang 89 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  90. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin 2.2.6 Thiết kế trang danh sách đơn đặt hàng: NTTULIB Hình 16: Trang đơn đặt hàng. SVTH: Huỳnh Thanh Phong Trang 90 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  91. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Trang đơn đặt hàng dùng để quản lý thông tin có bao nhiêu đơn đặt hàng, mà khách hàng đã đặt mua hoa trong một ngày và những loại hoa mà khách hàng đã đặt mua theo chủ đề nào. Vì vậy để biết được những thông tin trên chúng tôi đã thiết kế cho người quản trị một trang quản lý đơn đặt hàng, dùng để quản lý thông tin chi tiết của đơn đặt hàng một cách dễ dàng. Phần xử lý trang đơn đặt hàng: Imports System.Data.OleDb Imports System.Data Partial Class UseConTrol_Don_dat_hang Inherits System.Web.UI.UserControl Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Duong_dan = Server.MapPath(" \CSDL\Flower.mdb") If Not IsPostBack Then Lien_Ket_Du_Lieu() End If End Sub Public Function Tao_Ket_Noi() Dim Chuoi_Ket_Noi AsNTTULIBString Chuoi_Ket_Noi = "Provider=Microsoft.Jet.Oledb.4.0;Data Source =" & Server.MapPath(" \CSDL\Flower.mdb") Dim Ket_Noi As New OleDbConnection(Chuoi_Ket_Noi) Ket_Noi.Open() Return Ket_Noi End Function SVTH: Huỳnh Thanh Phong Trang 91 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  92. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Public Function DS_Don_dat_hang(Optional ByVal sapxep As String = "") As DataTable Dim Ket_Noi As OleDbConnection = Tao_Ket_Noi() Dim lenh As New DataTable Dim Lenh_SQL As String Dim Ngay_dh As String Ngay_dh = Request.QueryString("ngaydh") If Ngay_dh = "" Then Ngay_dh = Date.Now.Date Lenh_SQL = "Select * From q_hoadon where ngay_dat_hang = #" & CType(Ngay_dh, Date).ToShortDateString & "#" Dim Bo_Doc_Ghi As New OleDbDataAdapter(Lenh_SQL, Ket_Noi) Bo_Doc_Ghi.Fill(lenh) Return lenh End Function Public Sub Lien_Ket_Du_Lieu() Protected Sub grvDon_dat_hang_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles grvDon_dat_hang.RowCancelingEdit grvDon_dat_hang.EditInNTTULIBdex = -1 Lien_Ket_Du_Lieu End Sub SVTH: Huỳnh Thanh Phong Trang 92 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  93. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Protected Sub grvDon_dat_hang_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles grvDon_dat_hang.RowEditing grvDon_dat_hang.EditIndex = e.NewEditIndex grvDon_dat_hang.DataSource = DS_Don_dat_hang() grvDon_dat_hang.DataBind() End Sub Protected Sub grvDon_dat_hang_RowUpdating(ByVal sender As Object, ByVal e Protected Sub grvDon_dat_hang_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grvDon_dat_hang.SelectedIndexChanged MsgBox(grvDon_dat_hang.SelectedDataKey.Values("Sdh")) End Sub Protected Sub grvDon_dat_hang_Sorting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewSortEventArgs) Handles grvDon_dat_hang.Sorting grvDon_dat_hang.DataSource = DS_Don_dat_hang(e.SortExpression) End Sub End Class NTTULIB SVTH: Huỳnh Thanh Phong Trang 93 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  94. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Phần xử lý thông tin đơn đặt hàng. Imports System.Data Imports System.Data.OleDb Partial Class UseConTrol_Thong_Tin_Don_DH Inherits System.Web.UI.UserControl Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Lien_ket_du_lieu() End Sub Public Function Tao_Ket_Noi() Dim Chuoi_Ket_Noi As String Chuoi_Ket_Noi = "Provider=Microsoft.Jet.Oledb.4.0;Data Source =" & Server.MapPath(" \CSDL\Flower.mdb") Dim Ket_Noi As New OleDbConnection(Chuoi_Ket_Noi) Ket_Noi.Open() Return Ket_Noi End Function NTTULIB Public Function Thong_Tin_DH() Dim Ket_Noi As OleDbConnection = Tao_Ket_Noi() Dim lenh As New DataTable Dim sdh As Long sdh = Request.QueryString("Sdh") SVTH: Huỳnh Thanh Phong Trang 94 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  95. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin grvThong_Tin_DH.DataSource = Doc_bang("CT_DAT_HANG", "select * from qct where sdh=" & sdh) grvThong_Tin_DH.DataBind() Return lenh End Function Public Sub Lien_ket_du_lieu() Dim Bang As New DataTable Bang = Thong_Tin_DH() grvThong_Tin_DH.DataSource = Bang grvThong_Tin_DH.DataBind() grvThong_Tin_DH.Caption = "Thông tin đơn đặt hàng số: " & Request.QueryString("Sdh") Dim sdh As Long sdh = Request.QueryString("Sdh") grvThong_Tin_DH.DataSource = Doc_bang("CT_DAT_HANG", "select * from qct where Sdh=" & sdh) grvThong_Tin_DH.DataBind() End Sub NTTULIB End Class SVTH: Huỳnh Thanh Phong Trang 95 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  96. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Chương 4: Các Kết Quả Đạt Được Trong suốt quá trình học và làm đề tài với sự giúp đỡ của giáo viên hướng dẫn, đã giúp cho nhóm của em hoàn thành tốt đề tài tốt nghiệp của mình và rút ra được một số kinh nghiệm và phong cách làm việc theo nhóm. Tuy nhiên một điều quan trọng hơn nữa mà nhóm em đã học hỏi được nhiều kiến thức, cũng như một quy trình để thiết kế ra một trang web để phục vụ cho khách hàng hoặc cho một công ty nào đó. Rút ra những kinh nghiệm khi làm việc theo nhóm, biết phân tích ra những vấn đề cần giải quyết.Trong khi làm đề tài và cũng như trong cuộc sống. Những kết quả đạt được trong thời gian qua là: hoàn thành tốt đề tài tốt nghiệp cụ thể là xây dựng thành công một trang web bán hoa qua mạng. Giúp cho khách hàng có sự lựa chọn sản phẩm của mình thông qua trang web, ngoài những yêu cầu của giáo viên hướng dẫn đưa ra chúng em thiết kế: trang giới thiệu, trang đăng nhập, trang đăng ký, trang liên hệ, trang quản trị, trang giỏ hàng, trang chủ đề, trang nhóm, trang danh sách hoa, trang đơn đặt hàng, trang góp ý. Tuy nhiên chúng em còn thiết kế cho phép đăng quảng cáo, số người truy cập, số người online. Hạn chế: chúng tôi còn gặp một số khó khăn như hiện nay chế độ mua hàng trực tuyến qua mạng chưa được vì kỹ thuật công nghệ thông tin chưa phát triển nên không thể đáp ứng cho khách hàng muNTTULIBa hàng trực tuyến được, nhưng có lẽ trong tương lai ngành công nghệ thông tin sẽ đáp ứng được những nhu cầu trên. SVTH: Huỳnh Thanh Phong Trang 96 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  97. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin Tài Liệu Tham Khảo 1. Sách: Tác giả: Đỗ Lâm Thiên Tên Sách: Lập trình ứng dụng web với Asp.Net Nhà xuất bản: Đại Học Quốc Gia Tp.HCM Nơi xuất bản: Trung Tâm Tin Học ĐHKHTN Năm xuất bản: 03-2007 2. Sách: Tác giả: Đỗ Lâm Thiên Tên Sách: Bài tập lập trình ứng dụng web với Asp.Net Nhà xuất bản: Đại Học Quốc Gia Tp.HCM Nơi xuất bản: Trung Tâm Tin Học ĐHKHTN Năm xuất bản: 2007 3. Sách: Tác giả: Đỗ Lâm Thiên Tên Sách: Bài tập về BookOnline Nhà xuất bản: Đại Học Quốc Gia Tp.HCM Nơi xuất bản: Trung Tâm TinNTTULIB Học ĐHKHTN Năm xuất bản: 2007 4. Các trang web tham khảo: www.hoa24.com SVTH: Huỳnh Thanh Phong Trang 97 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài
  98. NTTULIB Trường CĐ Nguyễn Tất Thành Khóa Luận Tốt Nghiệp Khoa Công Nghệ Thông Tin NTTULIB SVTH: Huỳnh Thanh Phong Trang 98 GVHD: Võ Ngọc Tân Nguyễn Tấn Tài