Các giải pháp lập trình ASP

pdf 36 trang ngocly 1600
Bạn đang xem 20 trang mẫu của tài liệu "Các giải pháp lập trình ASP", để 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:

  • pdfcac_giai_phap_lap_trinh_asp.pdf

Nội dung text: Các giải pháp lập trình ASP

  1. Chương 1: ONLINE DIARY 1 S Ổ NHẬ T KÝ TRỰ C TUYẾ N
  2. 19 Chương 1: Online Diary ua chương này, bạn sẽ tạo được một sổ nhật ký trực tuyến (online diary) và trình quản Q lý danh bạ liên lạc (contacts manager). Vậy chính xác thì sổ nhật ký trực tuyến và trình quản lý danh bạ liên lạc làm được việc gì? Sử dụng một giao diện dựa trên lịch biểu, bạn có thể thêm, xóa, và chỉnh sửa một mục nhật ký cho bất kỳ ngày nào. Bạn cũng có thể tạo các sự kiện, chẳng hạn như ghi nhớ ngày sinh của một người nào đó. Các sự kiện không chỉ là ngày sinh mà còn có thể là các cuộc họp, cuộc hẹn, Hệ thống này có một hệ thống đăng nhập (gồm tên người dùng và mật khẩu), để chỉ có bạn (chứ không ai khác) mới có thể xem nhật ký của bạn. Đây là điểm khác biệt so với blog. Hệ thống này là một trình quản lý danh bạ liên lạc và nhật ký cá nhân—là nơi đặt những suy nghĩ và những ghi chú mà bạn không muốn mọi người nhìn thấy. Còn blog là nơi bạn muốn tất cả mọi người nhìn thấy. Toàn bộ dự án này cho thấy sức mạnh của ASP.NET 2.0 và dễ dàng tạo nên các dự án thế này. Đã qua rồi cái thời phải viết hàng trăm dòng mã để thực hiện đăng nhập, tạo người dùng mới, Chương này tận dụng các thành phần bảo mật mới của ASP.NET 2.0 nhằm cho bạn thấy rằng rất dễ dàng tạo nên các dự án hữu ích và thú vị. Phần đầu tiên sẽ hướng bạn sử dụng sổ nhật ký và các màn hình chính của nó. Phần tiếp theo cho bạn cái nhìn tổng quan về thiết kế hệ thống. Sau đó, bạn bước vào các thành phần của hệ thống, cũng như cách kết hợp chúng với nhau. Trong phần cuối cùng, bạn sẽ cài đặt sổ nhật ký. 1.1 Sử dụng Online Diary Mỗi người dùng có một sổ nhật ký trực tuyến riêng, để truy cập cần phải đăng nhập. Nhập tên người dùng là demo với mật khẩu là password# để đăng nhập làm người dùng thử. Màn hình đăng nhập được thể hiện trong hình 1-1. Hình 1-1 Mặc dù màn hình này có thể gợi cho bạn nhiều điều kiểm và nhiều mã lệnh tạo nên chức năng bảo mật, thật ra với các điều kiểm bảo mật mới trong ASP.NET 2.0 thì mọi việc trở nên rất dễ dàng và chẳng có nhiều việc để làm.
  3. 20 Chương 1: Online Diary Nếu bạn chưa đăng ký, liên kết Bạn chưa có tài khoản? Nhắp vào đây để đăng ký! sẽ đưa bạn đến trang đăng ký, được mô tả trong hình 1-2. Hình 1-2 Hình này cho thấy một điều kiểm khác nữa trong số các điều kiểm bảo mật mới trong ASP.NET 2.0; việc tạo một quy trình đăng ký giờ đây chỉ là thêm một điều kiểm vào một form! Nếu quên mật khẩu, bạn có thể nhắp vào liên kết Bạn quên mật khẩu?, và bạn sẽ được dẫn đến trang nhắc mật khẩu (xem hình 1-3). Hình 1-3 Sau khi đăng nhập, bạn đến trang nhật ký chính, được hiển thị trong hình 1-4. Trên trang này, bạn thấy một lịch biểu theo tháng. Các ngày có các mục nhật ký được đánh dấu bằng nền màu xanh. Các ngày có các sự kiện được đánh dấu bằng chữ màu đỏ. Cũng để ý rằng, phía bên phải là các sự kiện sắp tới và các mục nhật ký gần đây. Nhắp vào một ngày sẽ đưa bạn đến vùng nhập mục nhật ký cho ngày hôm đó; và thêm, sửa, xóa các sự kiện (xem hình 1-5) Bạn cũng có thể điều hướng sổ nhật ký của mình từ đây bằng một lịch biểu nhỏ bên phải. Thêm một mục nhật ký bằng cách nhập vào hộp Tiêu đề và hộp Nội dung, sau đó nhắp nút Lưu nhật ký.
  4. 21 Chương 1: Online Diary Hình 1-4 Hình 1-5 Các sự kiện diễn ra vào một ngày cụ thể được liệt kê ở góc dưới hình 1-5. Bạn có thể chỉnh sửa và xóa các sự kiện, hoặc nhắp vào liên kết Thêm sự kiện mới để thêm một sự kiện mới. Các trang sửa và thêm sự kiện gần như giống nhau. Hình 1-6 là một ví dụ của trang sửa sự kiện. Trong trang sửa sự kiện, bạn có thể nhập tên sự kiện, mô tả ngắn về sự kiện, thời gian bắt đầu sự kiện, và sự kiện kéo dài trong bao lâu.
  5. 22 Chương 1: Online Diary Hình 1-6 Trở lại trang nhật ký chính (hình 1-4), bạn sẽ thấy liên kết Quản lý danh bạ liên lạc (xem hình 1-7). Hình 1-7 Nhắp vào liên kết này, bạn sẽ được dẫn đến trang quản lý sổ liên lạc (xem hình 1-8). Hình 1-8
  6. 23 Chương 1: Online Diary Tại đây, bạn sẽ thấy danh sách các liên lạc. Bạn có thể chỉnh sửa và xóa liên lạc bằng cách nhắp vào liên kết phù hợp. Bạn cũng có thể thêm một liên lạc mới bằng cách nhắp vào liên kết Thêm liên lạc mới, liên kết này sẽ dẫn bạn đến trang thêm liên lạc (xem hình 1-9). Hình 1-9 Hiện tại, chức năng danh bạ liên lạc khá đơn giản, không có các chức năng như liên kết các sự kiện và các cá nhân, tự động gửi mail đến các cá nhân trong danh bạ liên lạc để nhắc họ về một sự kiện. Bạn đã thấy những gì Online Diary làm được, bây giờ bạn có thể xem nó “đã làm điều đó như thế nào” (câu nói quen thuộc của một chương trình truyền hình)! Phần kế tiếp mô tả bản thiết kế tổng quan và hệ thống gắn kết với nhau như thế nào. Bạn sẽ tìm hiểu cơ sở dữ liệu và các lớp mà hệ thống sử dụng. 1.2 Thiết kế Online Diary Hệ thống nhật ký được chia thành kiến trúc ba tầng. Tất cả dữ liệu và mã lệnh hiệu chỉnh dữ liệu trực tiếp nằm trong tầng truy xuất dữ liệu—sự kết hợp của các bảng cơ sở dữ liệu và các thủ tục tồn trữ. Phía trên tầng truy xuất dữ liệu là tầng nghiệp vụ, tầng này cung cấp tất cả các quy tắc và tính thông minh của hệ thống. Tầng nghiệp vụ được tổ chức thành bảy lớp. Được thảo luận sau cùng là tầng trình bày. Tầng này bao gồm một số file .aspx, sử dụng tầng nghiệp vụ và tầng truy xuất dữ liệu để tạo giao diện của nhật ký. 1.2.1 Tầng truy xuất dữ liệu Online Diary sử dụng cơ sở dữ liệu SQL Server 2005 Express. Tuy nhiên, không có lý do gì không thể thay đổi cơ sở dữ liệu khác. Nếu cơ sở dữ liệu hỗ trợ thủ tục tồn trữ thì theo lý thuyết, cần thay đổi chuỗi kết nối và tạo những thủ tục tồn trữ tương ứng với những thủ tục tồn trữ hiện có trong cơ sở dữ liệu SQL Server. Nếu cơ sở dữ liệu không hỗ trợ thủ tục tồn trữ (chẳng hạn, MS Access) thì thay đổi mã lệnh là cần thiết nhưng không khó.
  7. 24 Chương 1: Online Diary Hình 1-10 mô tả các bảng trong cơ sở dữ liệu Online Diary (DiaryDB). Hình 1-10 Cơ sở dữ liệu mặc định được tạo bằng các tính năng membership của ASP.NET 2.0 cũng được sử dụng. Để nối kết việc đăng nhập và các chi tiết nhật ký, trường UserName trong cơ sở dữ liệu DiaryDB phải lấy giá trị gốc của nó từ cơ sở dữ liệu membership. Các chi tiết về membership nằm trong cơ sở dữ liệu ASPNETDB mà Visual Web Developer Express tạo cho bạn. Mặc dù nó chỉ có một vài bảng, bạn không bao giờ truy xuất chúng thông qua mã lệnh. Nó được truy xuất bởi các điều kiểm Login mới—toàn bộ công việc được thực hiện phía hậu trường! Dự án này chỉ sử dụng bảng aspnet_Users (xem hình 1-11) để đăng nhập và cung cấp tên người dùng cho DiaryDB. Bạn có thể mở rộng cơ sở dữ liệu membership để thêm các chức năng khác như xác định sự trải nghiệm của người dùng hoặc quy định các cấp độ membership khác nhau (admin, user, operator). Hình 1-11
  8. 25 Chương 1: Online Diary Các bảng của cơ sở dữ liệu Online Diary và vai trò của chúng được liệt kê trong bảng sau: Tên bảng Mô tả Diary Chứa thông tin chi tiết của tất cả người dùng, gồm ID và tên của họ. DiaryEntry Chứa tất cả mục nhật ký của tất cả người dùng. DiaryEvent Chứa tất cả sự kiện nhật ký của tất cả người dùng Contact Chứa thông tin chi tiết của tất cả liên lạc cho các sổ nhật ký. Khóa liên kết tất cả các bảng với nhau là trường DiaryId. Nó là khóa chính trong bảng Diary và là khóa ngoại trong tất cả các bảng khác. Tại sao không sử dụng trường UserName? Về cơ bản là tốc độ—sẽ dễ và nhanh hơn khi kết bảng và tìm kiếm trên một trường kiểu số nguyên so với các trường kiểu ký tự. Mọi truy xuất đến cơ sở dữ liệu đều thông qua thủ tục tồn trữ. Xét thủ tục tồn trữ sau: DeleteContact DeleteContact xóa một liên lạc khỏi cơ sở dữ liệu. Tên của mỗi thủ tục tồn trữ đã thể hiện mục đích của thủ tục tồn trữ đó nên không cần giải thích nhiều. Khi thảo luận về mã lệnh, bạn sẽ xem xét các thủ tục tồn trữ kỹ hơn. 1.2.2 Tầng nghiệp vụ Tầng nghiệp vụ được tổ chức thành bảy lớp. Trong đó, bốn lớp chính là: • OnlineDiary • DiaryEntry • DiaryEvent • Contact Các lớp này thực hiện hầu hết công việc giữ dữ liệu nhật ký tạm thời, thu lấy và lưu nó vào cơ sở dữ liệu. Lớp đầu tiên được thảo luận là OnlineDiary. ❑ Lớp OnlineDiary Lớp này chỉ có hai phương thức công khai chia sẻ, được mô tả chi tiết trong bảng sau: Phương thức Kiểu trả về Mô tả Thêm một người dùng mới InsertDiary(ByVal UserName As String, ByVal FirstName As String, LastName As String) không vào cơ sở dữ liệu Online Diary. Tìm kiếm UserName trong cơ GetDiaryIdFromUserName(ByVal UserName As Integer DiaryId String) sở dữ liệu và trả về tương ứng. Mục đích của lớp OnlineDiary là cung cấp hai phương thức chia sẻ liên quan đến một nhật ký trực tuyến. Nó cũng có thể được sử dụng để mở rộng hệ thống nhật ký và thêm các chức năng mới vào hệ thống, không chỉ là một phần cụ thể như danh bạ liên lạc. ❑ Lớp Contact
  9. 26 Chương 1: Online Diary Lớp Contact thể hiện hóa một liên lạc—một người hay một thứ gì đó mà bạn muốn lưu thông tin liên lạc. Nó đóng gói mọi thứ để làm việc với các liên lạc, bao gồm lưu trữ và thu lấy thông tin liên lạc trong cơ sở dữ liệu. Nó có hai phương thức khởi dựng, được mô tả trong bảng sau: Phương thức khởi dựng Mô tả Tạo một đối tượng Contact mới với tất cả các thuộc New(ByVal Diaryid as Integer) tính được gán bằng các giá trị mặc định. Tạo một đối tượng Contact mới với các thuộc tính New(ByVal ContactId As Long) được lấy từ cơ sở dữ liệu bằng đối số ContactId. Với một đối tượng Contact đã được tạo, việc lưu nó chỉ đơn giản là gọi phương thức Save(). Lớp này sẽ xem xét đó có phải một liên lạc mới cần được chèn vào cơ sở dữ liệu hay không, hay là một liên lạc đã tồn tại cần được cập nhật. Ngoài phương thức Save(), lớp Contact còn có hai phương thức Delete() và hai phương thức GetContacts(), chúng được mô tả trong bảng sau: Phương thức Kiểu trả về Mô tả Lưu một đối tượng Contact đã có đầy đủ dữ liệu. Nếu nó là một liên lạc mới, Save() gọi thủ tục InsertNewContact và các chi tiết của liên lạc được chèn vào cơ sở dữ liệu. ContactId Save() không mới được trả về từ cơ sở dữ liệu và được gán cho mContactId. Nếu liên lạc này đã tồn tại trong cơ sở dữ liệu, Save() gọi UpdateContact để cập nhật cơ sở dữ liệu với các giá trị trong đối tượng Contact. Xóa đối tượng Contact khỏi cơ sở dữ liệu với ContactId bằng với mContactId của DeleteContact() không đối tượng Contact. Các giá trị của đối tượng Contact được khởi tạo lại bằng các giá trị mặc định. Phương thức chia sẻ này xóa đối tượng Contact khỏi DeleteContact(ByVal ContactId As Long) không cơ sở dữ liệu với giá trị ContactId bằng với đối số ContactId của phương thức.
  10. 27 Chương 1: Online Diary Phương thức chia sẻ này trả về một đối tượng SqlDataReader gồm một danh sách các liên lạc mà chữ cái đầu tiên trong phần GetContactsByFirstLetter(ByVal DiaryId họ trùng với đối số As Integer,Optional ByVal SqlDataReader FirstLetterOfSurname. Đối FirstLetterOfSurname As Char) số này là tùy chọn; nếu để trống, tất cả các đối tượng Contact bất chấp chữ cái đầu tiên của phần họ sẽ có mặt trong các hàng của DataSet. Phương thức chia sẻ này trả về một đối tượng ContactCollection gồm các đối tượng Contact mà chữ cái đầu tiên trong phần họ GetContactsByFirstLetterAsCollection trùng với đối số (ByVal DiaryId As Integer,Optional ContactCollection FirstLetterOfSurname. Đối ByVal FirstLetterOfSurname As Char) số này là tùy chọn; nếu để trống, tất cả các đối tượng Contact bất chấp chữ cái đầu tiên của phần họ sẽ có mặt trong các hàng của DataSet. Lớp Contact chứa các thuộc tính sau: Thuộc tính Kiểu Mô tả Mỗi liên lạc được đại diện bởi một ID duy nhất. ID ContactId Long này được sinh tự động bởi bảng Contact trong cơ sở dữ liệu mỗi khi một liên lạc mới được thêm vào. FirstName String Tên. LastName String Họ (và chữ lót). Email String Địa chỉ e-mail. Telephone String Số điện thoại cố định. MobilePhone String Số điện thoại di động. AddressLine1 String Địa chỉ nhà. City String Tên tỉnh thành.
  11. 28 Chương 1: Online Diary State String Tên quốc gia. PostalCode String Mã vùng. ❑ Lớp ContactCollection Lớp ContactCollection kế thừa từ lớp System.Collections.CollectionBase. Mục đích của lớp ContactCollection là lưu trữ một tập hợp các đối tượng Contact. Lớp ContactCollection chỉ có một thuộc tính duy nhất: Thuộc tính Kiểu Mô tả Trả về đối tượng Contact tại vị trí Index trong tập Item(ByVal Index As Integer) Integer hợp. Các phương thức công khai của lớp ContactCollection được mô tả trong bảng sau: Phương thức Kiểu trả về Mô tả Thêm một đối tượng Contact vào tập hợp Add(ByVal NewContact As không Contact) ContactCollection. Tạo một đối tượng Contact mới. ContactId được truyền cho phương thức khởi dựng của đối tượng Contact để đảm bảo có được Add(ByVal ContactId As không Long) các chi tiết của liên lạc từ cơ sở dữ liệu. Sau đó, đối tượng Contact mới được thêm vào tập hợp ContactCollection. Loại bỏ đối tượng Contact khỏi tập hợp tại Remove(ByVal Index as không Integer) vị trí Index. Đó là các lớp làm việc với danh bạ liên lạc; bây giờ xét đến hai lớp làm việc với các mục nhật ký. ❑ Lớp DiaryEntry Lớp DiaryEntry thể hiện hóa một mục trong nhật ký. Nó đóng gói mọi thứ để làm việc với các mục nhật ký, bao gồm: tạo, cập nhật, và thu lấy dữ liệu của mục nhật ký. Nó thụ lý mọi truy xuất cơ sở dữ liệu cho các mục nhật ký. Nó có ba phương thức khởi dựng, được mô tả trong bảng sau: Phương thức khởi dựng Mô tả Tạo một đối tượng DiaryEntry mới với tất cả các New(ByVal DiaryId as Integer) thuộc tính được gán bằng các giá trị mặc định. Tạo một đối tượng DiaryEntry mới với các thuộc New(ByVal DiaryEntryId As Long) tính được lấy từ cơ sở dữ liệu bằng đối số DiaryEntryId. Tạo một đối tượng DiaryEntry mới với các thuộc New(ByVal DiaryId AS Integer, DiaryId ByVal EntryDate As Date) tính được lấy từ cơ sở dữ liệu bằng đối số và EntryDate.
  12. 29 Chương 1: Online Diary Với một đối tượng DiaryEntry đã được tạo, chỉ việc gọi phương thức Save() để lưu nó. Giống như phương thức Save() của lớp Contact, lớp DiaryEntry sẽ xét đó có phải một mục nhật ký mới cần được chèn vào cơ sở dữ liệu, hay là một mục nhật ký đã tồn tại cần được cập nhật. Cũng như cho phép lấy các chi tiết của một mục nhật ký, lớp DiaryEntry cung cấp thêm các phương thức để lấy các chi tiết của một số mục nhật ký ở dạng một tập hợp hoặc một sqlDataReader. Các phương thức của lớp này được mô tả trong bảng sau: Phương thức Kiểu trả về Mô tả Lưu một đối tượng DiaryEntry đã có đầy đủ dữ liệu. Nếu nó là một mục mới, Save() gọi thủ tục InsertNewDiaryEntry và các chi tiết mục nhật ký được chèn vào cơ sở dữ liệu. Save() không DiaryEntryId mới được trả về từ cơ sở dữ liệu và được gán cho mDiaryEntryId. Nếu mục nhật ký này đã tồn tại trong cơ sở dữ liệu, Save() gọi UpdateContact để cập nhật cơ sở dữ liệu với các giá trị trong đối tượng DiaryEntry. Phương thức chia sẻ này trả về một mảng Boolean cho biết GetDaysInMonthWithEntries( những ngày nào có mục nhật ByVal DiaryId As Integer, Mảng Boolean ByVal Month As Integer, ký. Chỉ số mảng ứng với ByVal Year As Integer) ngày trong tháng (ví dụ: 1 là ngày thứ nhất, 2 là ngày thứ hai, ). Phương thức chia sẻ này trả GetDiaryEntriesByDate( về một đối tượng ByVal DiaryId As Integer, SqlDataReader SqlDataReader ByVal FromDate As Date, gồm các mục ByVal ToDate As Date) nhật ký nằm giữa đối số FromDate và ToDate. Tạo một đối tượng GetDiaryEntriesByDateAsCollection( DiaryEntryCollection gồm các ByVal DiaryId As Integer, DiaryEntryCollection đối tượng DiaryEntry có ByVal FromDate As Date, ByVal ToDate As Date) EntryDate nằm giữa đối số FromDate và ToDate. Trả về một SqlDataReader GetDiaryEntriesRecentlyChanged( SqlDataReader gồm các mục nhật ký được ByVal DiaryId As Integer) tạo gần đây.
  13. 30 Chương 1: Online Diary Ngoài các phương thức khởi tạo và các phương thức trên, lớp DiaryEntry có các thuộc tính sau: Thuộc tính Kiểu Mô tả EntryTitle String Tiêu đề mục nhật ký của một ngày. EntryText String Nội dung mục nhật ký của một ngày. EntryDate Date Ngày tạo mục nhật ký. Lớp làm việc với các mục nhật ký là DiaryEntryCollection, lớp này sẽ được giải thích tiếp theo. ❑ Lớp DiaryEntryCollection Lớp DiaryEntryCollection kế thừa từ lớp System.Collections.CollectionBase. Mục đích của nó là lưu trữ một tập hợp các đối tượng DiaryEntry. Lớp này chỉ có duy nhất một thuộc tính, được mô tả trong bảng sau: Thuộc tính Kiểu Mô tả Trả về đối tượng DiaryEntry tại vị trí Index trong Item(ByVal Index As Integer) Integer tập hợp. Cùng với thuộc tính Item(), lớp DiaryEntryCollection có ba phương thức công khai: Phương thức Kiểu trả về Mô tả Thêm một đối tượng DiaryEntry vào tập Add(ByVal New DiaryEntry As không DiaryEntry) hợp DiaryEntryCollection. Tạo một đối tượng DiaryEntry mới. DiaryEntryId được truyền cho phương thức khởi dựng của đối tượng DiaryEntry Add(ByVal DiaryEntryId As Long) không để đảm bảo có được dữ liệu của mục nhật ký từ cơ sở dữ liệu. Sau đó, đối tượng DiaryEntry mới được thêm vào tập hợp DiaryEntryCollection. Loại bỏ đối tượng DiaryEntry ra khỏi tập Remove(ByVal Index as Integer) không hợp tại vị trí Index. Chúng ta đã thảo luận về các lớp liên quan đến danh bạ liên lạc và các mục nhật ký. Phần tiếp theo sẽ thảo luận về các sự kiện nhật ký. ❑ Lớp DiaryEvent Lớp DiaryEvent thể hiện hóa một mục trong nhật ký. Nó đóng gói mọi thứ để làm việc với các mục nhật ký, bao gồm tạo, cập nhật, và thu lấy dữ liệu của các sự kiện nhật ký. Nó thụ lý mọi truy xuất cơ sở dữ liệu cho các sự kiện nhật ký. Lớp DiaryEvent có ba phương thức khởi dựng, được mô tả trong bảng sau: Phương thức khởi dựng Mô tả
  14. 31 Chương 1: Online Diary Tạo một đối tượng DiaryEvent mới với tất cả các New(ByVal Diaryid as Integer) thuộc tính được gán bằng giá trị mặc định. Tạo một đối tượng DiaryEvent mới với các thuộc New(ByVal EntryId As Long) tính được lấy từ cơ sở dữ liệu bằng đối số EventId. Tạo một đối tượng DiaryEvent mới với các thuộc New(ByVal DiaryId AS Integer, DiaryId ByVal EventDate As Date) tính được lấy từ cơ sở dữ liệu bằng đối số và EventDate. Với một đối tượng DiaryEvent đã được tạo, chỉ việc gọi phương thức Save() để lưu nó. Lớp này xét đó có phải một sự kiện nhật ký mới cần được chèn vào cơ sở dữ liệu, hay là đã tồn tại cần được cập nhật. Lớp DiaryEvent cũng có hai phương thức Delete(). Thứ nhất là phương thức chia sẻ, do đó không cần tạo DiaryEvent, chỉ cần thông số EventId. Nó được sử dụng bởi một số thành phần truy xuất dữ liệu nội tại đi cùng với ASP.NET 2.0. Thứ hai là phương thức đối tượng, dùng để xóa sự kiện được tham chiếu bởi đối tượng DiaryEvent hiện tại. Cũng như cho phép lấy các chi tiết của một mục nhật ký, lớp DiaryEvent cung cấp thêm các phương thức để lấy các chi tiết của một số sự kiện nhật ký ở dạng tập hợp hay SqlDataReader. Bảng sau mô tả chi tiết các phương thức này: Phương thức Kiểu trả về Mô tả Lưu một đối tượng DiaryEvent đã có đầy đủ dữ liệu. Nếu nó là một mục mới, Save() gọi thủ tục InsertNewDiaryEvent và các chi tiết được chèn vào cơ sở dữ liệu. EventId mới được trả về từ Save() không cơ sở dữ liệu và được gán cho mEventId. Nếu mục này đã tồn tại trong cơ sở dữ liệu, Save() gọi UpdateDiaryEvent để cập nhật cơ sở dữ liệu với các giá trị trong đối tượng DiaryEvent. Phương thức chia sẻ này trả về một mảng Boolean cho biết GetDaysInMonthWithEvents( ByVal DiaryId As Integer, những ngày nào có sự kiện. Mảng Boolean ByVal Month As Integer, Chỉ số mảng ứng với ngày ByVal Year As Integer) trong tháng (ví dụ: 1 là ngày thứ nhất, 2 là ngày thứ hai, ). Phương thức chia sẻ này trả về GetDiaryEventsByDate( ByVal DiaryId As Integer, một đối tượng SqlDataReader SqlDataReader ByVal FromDate As Date, gồm các sự kiện nhật ký từ ByVal ToDate As Date) FromDate đến ToDate.
  15. 32 Chương 1: Online Diary Tạo một đối tượng GetDiaryEventsByDateAsCollection( DiaryEventCollection mới gồm ByVal DiaryId As Integer, DiaryEventCollection DiaryEvent ByVal FromDate As Date, các đối tượng có ByVal ToDate As Date) EntryDate từ FromDate đến ToDate. Xóa khỏi cơ sở dữ liệu sự kiện có EventId bằng với mEventId. DeleteEvent() không Các giá trị của đối tượng DiaryEvent được khởi tạo lại bằng giá trị mặc định. Phương thức chia sẻ này xóa khỏi cơ sở dữ liệu sự kiện có DeleteEvent( không ByVal EventId As Long) giá trị EventId bằng với đối số EventId của phương thức. Ngoài các phương thức khởi dựng và các phương thức công khai, lớp DiaryEvent có bốn thuộc tính sau: Thuộc tính Kiểu Mô tả EventDescription String Mô tả sự kiện. EventName String Tên ngắn của sự kiện. EventDate Date Ngày bắt đầu sự kiện. EventDuration Integer Thời lượng của sự kiện (tính theo phút) Phần kế tiếp sẽ xét đến lớp thụ lý tập hợp nhật ký: DiaryEventCollection. ❑ Lớp DiaryEventCollection Lớp DiaryEventCollection kế thừa từ lớp System.Collections.CollectionBase. Mục đích của nó là lưu trữ một tập các đối tượng DiaryEvent. Lớp này có các phương thức sau: Phương thức Kiểu trả về Mô tả Thêm một đối tượng DiaryEvent vào Add(ByVal NewDiaryEvent As không DiaryEvent) tập hợp DiaryEventCollection. Tạo một đối tượng DiaryEvent mới. DiaryEventId được truyền cho phương thức khởi dựng của đối tượng DiaryEvent để đảm bảo có Add(ByVal DiaryEventId As Long) không được các chi tiết của sự kiện từ cơ sở dữ liệu. Sau đó, đối tượng DiaryEvent mới được thêm vào tập hợp DiaryEventCollection. Loại bỏ đối tượng DiaryEvent khỏi Remove(ByVal Index As Integer) không tập hợp tại vị trí Index.
  16. 33 Chương 1: Online Diary Lớp này chỉ có duy nhất một thuộc tính: Thuộc tính Kiểu Mô tả Trả về đối tượng DiaryEvent tại vị trí Index trong Item(ByVal Index As Integer) Integer tập hợp. Đó là tổng quan về tất cả các lớp và bản thiết kế, các phương thức và các thuộc tính của chúng. Phần kế tiếp sẽ đi sâu vào mã lệnh và các trang .aspx liên quan đến tầng trình bày. 1.3 Mã lệnh Online Diary Phần này đi sâu vào từng trang quan trọng và cho biết chúng tương tác với nhau thế nào, cũng như chúng sử dụng các lớp trong tầng nghiệp vụ ra sao. Phần này không phân tích từng dòng của mỗi trang, nhưng phần nào cũng cho bạn một cái nhìn tổng quan về cách ứng dụng làm việc và đi sâu hơn vào những chỗ cần thiết. Thảo luận về dự án này được tiếp cận theo lối dựa trên chức năng. Thay vì thảo luận từng trang cụ thể, các phần sau đây sẽ thảo luận theo từng quy trình—chẳng hạn như quy trình đăng ký. Chúng ta bắt đầu với phần tổng quan về file và cấu trúc file. 1.3.1 Cấu trúc file Tổng quan về cấu trúc file được thể hiện trong hình 1-12 Hình 1-12 Bảy file lớp được lưu trữ trong thư mục App_Code. Thư mục App_Data chứa hai cơ sở dữ liệu: cơ sở dữ liệu đăng nhập (ASPNETDB.MDF) và cơ sở dữ liệu Online Diary
  17. 34 Chương 1: Online Diary (DiaryDB.mdf). Các trang cần phải đăng nhập trước khi xem được lưu trong thư mục SecureDiary. Thư mục gốc chứa các trang đăng nhập, các trang đăng ký, và các trang nhắc mật khẩu. Về cơ bản, bạn phải đăng nhập thì mới có thể xem các thứ. 1.3.2 Đăng ký, đăng nhập, và bảo mật Ứng dụng Online Diary sử dụng các điều kiểm Login mới để cung cấp các tính năng quản lý người dùng nhật ký, bao gồm: đăng ký người dùng mới, đăng nhập, và nhắc mật khẩu. Các điều kiểm Login giúp tiết kiệm thời gian, cho phép nhiều chức năng phức tạp, chỉ cộng thêm một ít việc và hầu như không có mã lệnh nào! ASP.NET 2.0 có bảy điều kiểm loại này: ✓ Login—Cho phép người dùng đăng nhập, xác nhận tên người dùng và mật khẩu. ✓ LoginView—Cho phép hiển thị các template khác nhau dựa vào trạng thái người dùng có đăng nhập hay không, cũng như vai trò thành viên của người đó. ✓ PasswordRecovery—Cung cấp chức năng nhắc mật khẩu cho những người dùng quên mật khẩu. ✓ LoginStatus—Hiển thị trạng thái người dùng: đăng nhập hay đăng xuất. ✓ LoginName—Hiển thị tên người dùng hiện tại. ✓ CreateUserWizard—Tạo một người dùng mới trong vài bước đơn giản. ✓ ChangePassword—Cho phép người dùng thay đổi mật khẩu. Tuy nhiên, dự án Online Diary chỉ sử dụng các điều kiểm: Login, LoginName, CreateUserWizard, và ChangePassword. ❑ Đăng nhập Trang SignOn.aspx chứa một điều kiểm Login. Cơ sở dữ liệu người dùng được tạo bằng các công cụ quản trị website. Khi hoàn tất việc này, một cơ sở dữ liệu mới có tên là ASPNETDB.MDF xuất hiện trong thư mục App_Data của dự án. Thẻ đánh dấu của điều kiểm Login như sau: Đặc tính quan trọng cần lưu ý là DestinationPageUrl. Đặc tính này xác định người dùng sẽ được chuyển đến đâu khi họ nhập vào một tên người dùng và mật khẩu hợp lệ. Trong dự án Online Diary, đó là trang DiaryMain.aspx—trung tâm của giao diện Online Diary.
  18. 35 Chương 1: Online Diary Để cho phép người dùng mới đăng ký, CreateUserText được gán bằng một thông điệp thân thiện Bạn chưa có tài khoản? Nhắp vào đây để đăng ký!; URL dùng để đăng ký được chỉ định trong CreateUserUrl. Trong trường hợp người dùng đã đăng ký nhưng quên mật khẩu, đặc tính PasswordRecoveryText hiển thị thông điệp Bạn quên mật khẩu? và PasswordRecoveryUrl thiết lập URL mà người dùng sẽ được chuyển đến khi họ cần tìm lại mật khẩu. Mã lệnh duy nhất mà bạn cần viết là trong sự kiện LoggedIn của điều kiểm Login, sự kiện này phát sinh khi người dùng nhập tên và mật khẩu thành công: Protected Sub Login1_LoggedIn(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles Login1.LoggedIn Dim DiaryId As Integer = GetDiaryIdFromUserName(Login1.UserName) Session(“DiaryId”) = DiaryId End Sub Sự kiện này sử dụng tên người dùng để tìm DiaryId của người dùng trong cơ sở dữ liệu Online Diary. Sau đó, DiaryId được lưu trong biến Session. Trang SignOn.aspx cũng cho phép đăng ký người dùng mới. ❑ Đăng ký người dùng mới Trang RegisterStart.aspx xử lý việc đăng ký một người dùng mới. Giống như trang SignOn.aspx, trang này cũng sử dụng một điều kiểm Login mới, đó là điều kiểm CreateUserWizard. Thẻ đánh dấu của điều kiểm CreateUserWizard được trình bày trong đoạn mã sau: Đăng ký tài khoản mới Tên người dùng:
  19. 36 Chương 1: Online Diary * Mật khẩu: * Nhập lại mật khẩu: * E-mail: * Câu hỏi mật: *
  20. 37 Chương 1: Online Diary Câu trả lời mật: * Thông tin cá nhân Tên:   Họ và chữ lót:      
  21. 38 Chương 1: Online Diary Hoàn tất Tài khoản của bạn đã được tạo. Hầu hết thẻ đánh dấu và các đặc tính liên quan đến các thiết lập style. Tuy nhiên, đặc tính quan trọng nhất là FinishDestinationPageUrl. Đây là nơi người dùng được chuyển đến khi quá trình đăng ký hoàn tất. Trong Online Diary, đó là trang SignOn.aspx. Bạn có thể thấy một số thẻ WizardStep trong thẻ đánh dấu giống như sau: CreateUserWizard làm việc trên cơ sở từng bước một. Phải có ít nhất một bước cho phép người dùng chọn tên đăng nhập, mật khẩu, và câu hỏi mật (xem hình 1-13). Bước này và các style của nó có thể được hiệu chỉnh (hình 1-13 hiển thị các giá trị đã được Việt hóa). Điều kiểm này đảm nhận việc chèn dữ liệu người dùng mới vào cơ sở dữ liệu người dùng. Hình 1-13 Bước thứ hai (xem hình 1-14) được hiển thị sau khi người dùng được tạo.
  22. 39 Chương 1: Online Diary Hình 1-14 Màn hình này yêu cầu họ tên của người dùng. Khi đó, tùy bạn lưu dữ liệu ở đâu, bạn thực hiện điều này trong sự kiện FinishButtonClick của điều kiểm CreateUserWizard: Protected Sub CreateUserWizard1_FinishButtonClick(ByVal sender As Object, _ ByVal e As System.Web.UI.WebControls.WizardNavigationEventArgs) _ Handles CreateUserWizard1.FinishButtonClick Dim myTextBox As TextBox Dim UserName, FirstName, LastName myTextBox = CreateUserWizard1.FindControl(“firstNameTextBox”) FirstName = myTextBox.Text myTextBox = CreateUserWizard1.FindControl(“lastNameTextBox”) LastName = myTextBox.Text UserName = CreateUserWizard1.UserName OnlineDiary.InsertDiary(UserName, FirstName, LastName) End Sub Bước này tạo một nhật ký mới và lưu trữ họ tên của người dùng. UserName được lấy từ thuộc tính UserName của điều kiểm CreateUserWizard, phương thức chia sẻ InsertDiary() được sử dụng để chèn người dùng mới vào cơ sở dữ liệu Online Diary. Người ta đôi lúc cũng quên mất mật khẩu của mình. May mắn thay, ASP.NET 2.0 có khả năng nhắc mật khẩu. ❑ Nhắc mật khẩu Hầu như chẳng cần mã lệnh nào, bạn có thể tạo tính năng nhắc mật khẩu cho Online Diary bằng điều kiểm PasswordRecovery. Hầu như tất cả các thiết lập của nó là các giá trị mặc định hoặc có liên quan đến style. Chỉ có một dòng mã trong sự kiện SendingMail: Protected Sub PasswordRecovery1_SendingMail(ByVal sender As Object, _ ByVal e As System.Web.UI.WebControls.MailMessageEventArgs) _ Handles PasswordRecovery1.SendingMail returnToLogOnHyperLink.Visible = True End Sub Sự kiện SendingMail phát sinh khi người dùng nhấn nút Gửi e-mail và hiển thị liên kết Trở về màn hình đăng nhập (người dùng không phải đoán tiếp theo sẽ đi đâu). Công việc chính là cấu hình SMTP Server để gửi e-mail nhắc mật khẩu. Visual Web Developer không có SMTP Server. Tuy nhiên, bạn có thể sử dụng dịch vụ SMTP của IIS trong Windows XP/2000. Các bước cài đặt như sau: 1. Vào Start | Control Panel | Add or Remove Programs.
  23. 40 Chương 1: Online Diary 2. Trong hộp thoại Add or Remove Programs, chọn Add/Remove Windows Components. 3. Trong hộp thoại Windows Components Wizard, chọn Internet Information Server (IIS) rồi nhắp nút Details. Hình 1-15 4. Trong hộp thoại Internet Information Server (IIS), đánh dấu chọn SMTP Service rồi nhắp OK.
  24. 41 Chương 1: Online Diary Hình 1-16 5. Trong hộp thoại Windows Components Wizard, nhắp Next để cài tiến hành đặt dịch vụ SMTP. 6. Vào Start | Control Panel | Administrative Tools | Internet Information Services. 7. Trong IIS, nhắp phải vào Default SMTP Virtual Server và chọn Properties. 8. Trong hộp thoại Default SMTP Virtual Server Properties, chọn thẻ Access rồi nhắp nút Relay. Hình 1-17 9. Trong hộp thoại Relay Restrictions, chọn All except the list below rồi nhắp OK.
  25. 42 Chương 1: Online Diary Hình 1-18 Khi dịch vụ SMTP đã được cài đặt, thêm phần mã in đậm vào giữa thẻ trong file Web.config: 1.3.3 Xem lịch biểu trực tuyến Trang DiaryMain.aspx là trung tâm của ứng dụng. Nó hiển thị một lịch biểu của tháng hiện tại, cho biết những ngày nào có các sự kiện hay các mục nhật ký tương ứng với chúng. Nó cũng hiển thị một danh sách các sự kiện sắp đến và các mục nhật ký cho tháng hiện tại. Để hiển thị khi một ngày có các sự kiện hoặc một mục nhật ký, sự kiện OnDayRender của điều kiểm Calendar được sử dụng: Protected Sub Calendar1_OnDayRender(ByVal sender As Object, _ ByVal e As System.Web.UI.WebControls.DayRenderEventArgs) Handles Calendar1.DayRender If Not e.Day.IsOtherMonth Then If entryArrayOfDays Is Nothing Then entryArrayOfDays = GetDaysInMonthWithEntries(Session(“DiaryId”), _ e.Day.Date.Month, e.Day.Date.Year) End If
  26. 43 Chương 1: Online Diary If eventArrayOfDays Is Nothing Then eventArrayOfDays = GetDaysInMonthWithEvents(Session(“DiaryId”), _ e.Day.Date.Month, e.Day.Date.Year) End If If entryArrayOfDays(CInt(e.Day.DayNumberText)) Then e.Cell.BackColor = Drawing.Color.Blue End If If eventArrayOfDays(CInt(e.Day.DayNumberText)) Then e.Cell.ForeColor = Drawing.Color.Red End If End If End Sub Hai khối If đầu tiên trong đoạn mã trên đảm bảo entryArrayOfDays và eventArrayOfDays chứa dữ liệu về các ngày có mục nhật ký hay sự kiện. Chúng đều là mảng Boolean; nếu một ngày có mục nhật ký hay sự kiện, phần tử mảng cho ngày hôm đó chứa giá trị True. Các mảng này nhận dữ liệu từ các hàm chia sẻ GetDaysInMonthWithEntries() và GetDaysInMonthWithEvents() của lớp DiaryEntry và DiaryEvent. Trong hai khối If tiếp theo, mã lệnh kiểm tra các ngày trong tháng có được thể hiện là có mục nhật ký hay sự kiện không. Nếu có sự kiện, phần văn bản của ngày đó được tô màu đỏ. Nếu có mục nhật ký, phần nền của ngày đó được tô màu xanh. Ngoài điều kiểm Calendar, trang chính còn có hai điều kiểm GridView. GridView phía trên hiển thị các sự kiện sắp đến, GridView phía dưới hiển thị các mục nhật ký gần đây. Cả hai điều kiểm này đều lấy dữ liệu từ điều kiểm ObjectDataSource—một điều kiểm mới trong ASP.NET 2.0. Trước đây, các điều kiểm nguồn dữ liệu tương tác trực tiếp với cơ sở dữ liệu, rất dễ sử dụng— chỉ cần đặt lên một trang, thiết lập vài thuộc tính, Tuy nhiên, đó không phải là một lối viết mã hay. Việc tách tầng truy xuất dữ liệu, tầng nghiệp vụ, và tầng trình bày là một lối tốt đã được xem xét, nhưng như thế phải bỏ đi các điều kiểm nguồn dữ liệu dễ-sử-dụng! Tuy nhiên, ObjectDataSource cho phép bạn được cả hai: các điều kiểm dữ liệu dễ-sử-dụng và sử dụng các lớp để phân tách tầng nghiệp vụ, tầng dữ liệu, và tầng trình bày. Thay vì kết nối trực tiếp đến cơ sở dữ liệu, ObjectDataSource lấy dữ liệu từ một trong các lớp này. Ví dụ, diaryEntriesObjectDataSource trên DiaryMain.aspx lấy dữ liệu từ phương thức GetDiaryEntriesRecentlyChanged() của lớp DiaryEntry, thẻ đánh dấu của nó như sau: Đặc tính TypeName chỉ định tên lớp, và đặc tính SelectMethod chỉ định phương thức nào của lớp đó sẽ cung cấp dữ liệu. GetDiaryEntriesRecentlyChanged() là phương thức chia sẻ: Public Shared Function GetDiaryEntriesRecentlyChanged(ByVal DiaryId As Integer) _ As SqlDataReader Dim diaryDBConn As New SqlConnection(conString) Dim sqlString As String = “GetRecentDiaryEntries” Dim sqlCmd As New SqlCommand(sqlString, diaryDBConn) sqlCmd.CommandType = CommandType.StoredProcedure sqlCmd.Parameters.AddWithValue(“@DiaryId”, DiaryId) diaryDBConn.Open() Dim entrySQLDR As SqlDataReader = sqlCmd.ExecuteReader(CommandBehavior.CloseConnection) sqlCmd = Nothing
  27. 44 Chương 1: Online Diary Return entrySQLDR End Function Phương thức này trả về một đối tượng SqlDataReader gồm những dữ liệu mà điều kiểm ObjectDataSource sẽ sử dụng. Việc hiển thị dữ liệu chỉ là vấn đề trỏ một điều kiểm vào ObjectDataSource: Trong thẻ đánh dấu của điều kiểm GridView, đặc tính DataSourceID chỉ định nguồn dữ liệu—đó là điều kiểm ObjectDataSource. Ngoài ra, thẻ đánh dấu này chỉ định những cột nào được hiển thị bằng cách thiết lập AutoGenerateColumns là False. Bước cuối cùng là tạo danh sách các cột: Ngoài việc cho phép hiển thị dữ liệu, điều kiểm ObjectDataSource cũng có thể cập nhật, chèn, và xóa các mẩu tin trong cơ sở dữ liệu. 1.3.4 Tạo, chỉnh sửa, và xem một mục nhật ký Trang DayView.aspx cho phép chỉnh sửa nhật ký. Trang này chứa một form cho phép bạn nhập tiêu đề và nội dung mục nhật ký. Nó cũng hiển thị bất cứ mục nhật ký nào đang tồn tại. Tất cả công việc được hoàn tất bằng cách sử dụng lớp DiaryEntry. Sự kiện Page_Load tạo một lớp DiaryEntry mới, truyền cho phương thức khởi dựng DiaryId của người dùng hiện tại cũng như ngày mà trang này nhắc đến: Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load mDiaryEntry = New DiaryEntry(CInt(Session(“DiaryId”)),CDate(dayShownLabel.Text)) changeDayCalendar.SelectedDate = CDate(dayShownLabel.Text) changeDayCalendar.VisibleDate = changeDayCalendar.SelectedDate If Not IsPostBack Then entryTextTextBox.Text = mDiaryEntry.EntryText entryTitleTextBox.Text = mDiaryEntry.EntryTitle End If End Sub mDiaryEntry là một biến toàn cục, được sử dụng để chứa đối tượng DiaryEntry ứng ngày đang được chỉnh sửa. Phương thức khởi dựng, được trình bày trong đoạn mã sau, thực hiện lấy dữ liệu:
  28. 45 Chương 1: Online Diary Public Sub New(ByVal DiaryId As Integer, ByVal EntryDate As Date) mDiaryId = DiaryId If mDiaryId > 0 Then Try Dim diaryDBConn As New SqlConnection(conString) Dim sqlString As String = “GetDiaryEntryByDate” Dim sqlCmd As New SqlCommand(sqlString, diaryDBConn) sqlCmd.CommandType = CommandType.StoredProcedure sqlCmd.Parameters.AddWithValue(“@DiaryId”, mDiaryId) sqlCmd.Parameters.AddWithValue(“@EntryFromDate”, EntryDate) sqlCmd.Parameters.AddWithValue(“@EntryToDate”, EntryDate) diaryDBConn.Open() Dim diaryEntrySQLDR As SqlDataReader = _ sqlCmd.ExecuteReader(CommandBehavior.CloseConnection) sqlCmd = Nothing If diaryEntrySQLDR.Read() Then mDiaryEntryId = CLng(diaryEntrySQLDR(“DiaryEntryId”)) mEntryDate = CDate(diaryEntrySQLDR(“EntryDate”)) mEntryTitle = diaryEntrySQLDR(“EntryTitle”).ToString mEntryText = diaryEntrySQLDR(“EntryText”).ToString Else mDiaryEntryId = -1 mEntryDate = EntryDate End If diaryEntrySQLDR.Close() diaryEntrySQLDR = Nothing diaryDBConn.Close() diaryDBConn = Nothing Catch ex As Exception mDiaryEntryId = -1 End Try End If End Sub Thủ tục tồn trữ GetDiaryEntryByDate được gọi để lấy dữ liệu. Nếu chưa có mục nhật ký nào cho ngày hôm đó, mDiaryEntryId được gán -1 và tất cả các thuộc tính khác được gán các giá trị mặc định. Ngược lại, chúng nhận dữ liệu từ cơ sở dữ liệu. Khi hộp tiêu đề hoặc hộp nội dung mục nhật ký thay đổi, mDiaryEntry sẽ được cập nhật: Protected Sub entryTitleTextBox_TextChanged(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles entryTitleTextBox.TextChanged mDiaryEntry.EntryTitle = entryTitleTextBox.Text End Sub Protected Sub entryTextTextBox_TextChanged(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles entryTextTextBox.TextChanged mDiaryEntry.EntryText = entryTextTextBox.Text End Sub Việc lưu các thay đổi sẽ diễn ra khi bạn nhắp nút Lưu nhật ký: Protected Sub saveDiaryEntryButton_Click(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles saveDiaryEntryButton.Click mDiaryEntry.Save() End Sub Mọi thứ liên quan đến việc gọi phương thức Save() của đối tượng DiaryEntry:
  29. 46 Chương 1: Online Diary Public Sub Save() If mDiaryEntryId = -1 Then InsertNewDiaryEntry() Else UpdateDiaryEntry() End If End Sub Dựa vào mDiaryEntryId có bằng -1 hay không, phương thức này chèn một mục nhật ký mới vào cơ sở dữ liệu hoặc cập nhật mục nhật ký đã tồn tại. Phương thức riêng InsertNewDiaryEntry() chèn một mục nhật ký mới: Private Sub InsertNewDiaryEntry() If mDiaryId -1 Then Dim diaryDBConn As New SqlConnection(conString) Dim sqlString As String = “UpdateDiaryEntry” Dim sqlCmd As New SqlCommand(sqlString, diaryDBConn) sqlCmd.CommandType = CommandType.StoredProcedure sqlCmd.Parameters.AddWithValue(“@DiaryEntryId”, mDiaryEntryId) sqlCmd.Parameters.AddWithValue(“@EntryDate”, mEntryDate) sqlCmd.Parameters.AddWithValue(“@EntryTitle”, mEntryTitle) sqlCmd.Parameters.AddWithValue(“@EntryText”, mEntryText) diaryDBConn.Open() sqlCmd.ExecuteNonQuery() diaryDBConn.Close() sqlCmd = Nothing diaryDBConn = Nothing End If End Sub Phần tiếp theo sẽ thảo luận về mã lệnh chỉnh sửa, xem, và xóa các sự kiện. 1.3.5 Tạo, chỉnh sửa, và xem các sự kiện nhật ký Các sự kiện được tạo bằng cách nhắp vào liên kết Thêm sự kiện mới trên trang DayView.aspx. Liên kết này sẽ dẫn bạn đến một form trên trang AddEvent.aspx. Khi nút Lưu sự kiện được nhắp, sự kiện Click sẽ tạo một đối tượng DiaryEvent mới với dữ liệu của các thuộc tính được
  30. 47 Chương 1: Online Diary lấy từ form, và sau đó gọi phương thức Save(). Dòng chảy mã lệnh giống hệt phương thức Save() của đối tượng DiaryEvent. Những chỗ mà chức năng giống nhau hoặc tương tự nhau, tên phương thức trên các đối tượng khác nhau được giữ giống nhau. Điều này giảm thiểu nhầm lẫn và khiến mọi thứ dễ dàng hơn. Tất cả các sự kiện liên quan đến một ngày cụ thể được trình bày trong trang DayView.aspx. Điều kiểm ObjectDataSource trên trang DayView.aspx lấy dữ liệu từ phương thức chia sẻ GetDiaryEventsByDate() của đối tượng DiaryEvent. Thẻ đánh dấu cho điều kiểm ObjectDataSource như sau: Chú ý rằng SelectParameters và DeleteParameters được thiết lập để chỉ định dữ liệu truyền cho phương thức GetDiaryEventsByDate() (dùng để thu lấy dữ liệu) và phương thức DeleteEvent() (dùng để xóa các sự kiện nhật ký). Điều kiểm GridView được kết với ObjectDataSource trong đoạn mã trên: Ngoài ra, tham số AutoGenerateColumns được thiết lập là False, và các cột được chỉ định như sau:
  31. 48 Chương 1: Online Diary Liên kết này sẽ dẫn người dùng đến trang EditEvent.aspx. URL chứa thông số chuỗi truy vấn EventId, ban đầu được gán {0}, lúc thực thi sẽ được thay bằng giá trị của cột thứ nhất đối với mỗi dòng trong DataSet. Ngoài ra, mã lệnh cũng chỉ định một nút Xóa trên mỗi dòng trong khung lưới: Khi bạn nhắp vào nút Xóa, điều kiểm GridView sẽ yêu cầu điều kiểm ObjectDataSource gọi phương thức xóa được chỉ định của lớp cung cấp dữ liệu. Trong trường hợp này, đó là phương thức DeleteEvent() của lớp DiaryEvent. Đặc tính DataKeyNames trong thẻ đánh dấu của điều kiểm GridView chỉ định trường khóa chính cần được sử dụng để xóa dòng. Trở lại việc chỉnh sửa sự kiện: khi nhắp vào liên kết Sửa, bạn được đưa đến trang EditEvent.aspx. EventId của liên kết Sửa được truyền làm một thông số URL. Trang EditEvent.aspx hầu như giống hệt trang AddEvent.aspx đã được thảo luận trước đây. Điểm khác biệt chính là khi khởi tạo trang. Hàm thụ lý sự kiện Page_Init được trình bày trong đoạn mã sau, và đây là nơi mà các chi tiết của sự kiện được nhập vào form: Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init Dim EventBeingEdited As New DiaryEvent(CLng(Request.QueryString(“EventId”))) eventNameTextBox.Text = EventBeingEdited.EventName eventDescriptionTextBox.Text = EventBeingEdited.EventDescription dayShownLabel.Text = EventBeingEdited.EventDate.Day & “ “ & _ MonthName(EventBeingEdited.EventDate.Month) & “ “ & EventBeingEdited.EventDate.Year Dim NewListItem As ListItem, HourCount, MinuteCount For HourCount = 0 To 23 If HourCount < 10 Then NewListItem = New ListItem(“0” & HourCount, HourCount.ToString) Else NewListItem = New ListItem(HourCount.ToString, HourCount.ToString) End If If EventBeingEdited.EventDate.Hour = HourCount Then NewListItem.Selected = True End If StartHourDropDownList.Items.Add(NewListItem) Next For MinuteCount = 0 To 59 If MinuteCount < 10 Then NewListItem = New ListItem(“0” & MinuteCount.ToString, MinuteCount.ToString) Else NewListItem = New ListItem(MinuteCount.ToString, MinuteCount.ToString) End If If EventBeingEdited.EventDate.Minute = MinuteCount Then NewListItem.Selected = True End If StartMinuteDropDownList.Items.Add(NewListItem) Next Dim itemToSelect As ListItem itemToSelect = _ eventDurationDropDownList.Items.FindByValue(EventBeingEdited.EventDuration.ToString()) itemToSelect.Selected = True EventBeingEdited = Nothing End Sub
  32. 49 Chương 1: Online Diary EventId được trích từ các thông số URL và được sử dụng để tạo một đối tượng DiaryEvent mới. Việc đưa dữ liệu vào các textbox của sự kiện khá dễ dàng, nhưng các chi tiết về thời gian và thời lượng của sự kiện thì liên quan đến việc đưa dữ liệu vào các hộp xổ xuống giờ và phút, và phải đảm bảo giá trị chính xác được chọn. Điều này được thực hiện bằng cách lặp giờ từ 0- 23 và phút từ 0-59. 1.3.6 Quản lý danh bạ liên lạc Quản lý danh bạ liên lạc là phần cuối cùng của Online Diary mà bạn sẽ khảo sát, và phần này sử dụng những nguyên tắc giống như các phần khác. YourContacts.aspx là trang quản lý danh bạ liên lạc chính. Tại đây, danh sách các liên lạc hiện tại được hiển thị, bao gồm các tùy chọn: thêm, chỉnh sửa, và xóa liên lạc. Tất cả các liên lạc được hiển thị bằng điều kiểm DataObjectSource và GridView; các nguyên tắc cũng giống như khi hiển thị, xóa, và chỉnh sửa các sự kiện nhật ký. Lúc này, lớp Contact được sử dụng cho việc chỉnh sửa và hiển thị thông tin liên lạc. Trang chính dùng để hiển thị các liên lạc là YourContacts.aspx, trong đó điều kiểm GridView liệt kê tất cả các liên lạc hiện có: Nó lấy dữ liệu từ điều kiểm ObjectDataSource ObjectDataSource1, đến phiên điều kiểm này kết nối đến phương thức chia sẻ GetContactByFirstLetter() của lớp Contact: Thông số DeleteMethod của điều kiểm ObjectDataSource cũng được gắn với DeleteContact của lớp Contact. Điều kiểm GridView đã được thiết lập hiển thị một liên kết để xóa mỗi liên lạc, và phương thức này thực hiện thao tác xóa:
  33. 50 Chương 1: Online Diary Public Shared Sub DeleteContact(ByVal ContactId As Long) Dim diaryDBConn As New SqlConnection(conString) Dim sqlString As String = “DeleteContact” Dim sqlCmd As New SqlCommand(sqlString, diaryDBConn) sqlCmd.CommandType = CommandType.StoredProcedure sqlCmd.Parameters.AddWithValue(“@ContactId”, ContactId) diaryDBConn.Open() sqlCmd.ExecuteNonQuery() diaryDBConn.Close() sqlCmd = Nothing diaryDBConn = Nothing End Sub GridView cũng có liên kết Sửa; khi nhắp vào, người dùng sẽ được chuyển đến trang EditContact.aspx: ContactId tương ứng được truyền trong URL làm dữ liệu URL. Liên kết Thêm liên lạc mới trên trang YourContacts.aspx sẽ đưa bạn đến form nhập các thông tin liên lạc như: tên, e-mail, số điện thoại, Trang này và trang EditContact.aspx hoạt động tương tự nhau ngoại trừ một chi tiết quan trọng: trang EditContact.aspx lấy các thông tin liên lạc (để chỉnh sửa) từ lớp Contact. Điều này diễn ra trong sự kiện Page_Load: Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load If IsPostBack Then Dim currentContact As New Contact(CLng(Request.QueryString(“ContactId”))) currentContact.FirstName = firstNameTextBox.Text currentContact.LastName = lastNameTextBox.Text currentContact.AddressLine1 = addressLine1TextBox.Text currentContact.City = cityTextBox.Text currentContact.PostalCode = postalCodeTextBox.Text currentContact.State = stateTextBox.Text currentContact.Telephone = telephoneTextBox.Text currentContact.MobilePhone = mobilePhoneTextBox.Text currentContact.Email = emailTextBox.Text currentContact.SaveContact() currentContact = Nothing Response.Redirect(“YourContacts.aspx”) Else Dim currentContact As New Contact(CLng(Request.QueryString(“ContactId”))) firstNameTextBox.Text = currentContact.FirstName lastNameTextBox.Text = currentContact.LastName addressLine1TextBox.Text = currentContact.AddressLine1 cityTextBox.Text = currentContact.City postalCodeTextBox.Text = currentContact.PostalCode stateTextBox.Text = currentContact.State telephoneTextBox.Text = currentContact.Telephone mobilePhoneTextBox.Text = currentContact.MobilePhone emailTextBox.Text = currentContact.Email currentContact = Nothing End If End Sub Câu lệnh If xác định đây là là một postback (form đã được submit về chính nó) hay trang vừa được nạp. Nếu là một postback, bạn cần lưu dữ liệu và rồi trở về trang danh bạ liên lạc. Nếu là trang mới nạp, bạn cần tạo một đối tượng Contact mới, và sử dụng dữ liệu từ đó để đổ dữ liệu vào các trường của form.
  34. 51 Chương 1: Online Diary Trang AddContact.aspx cũng giống như vậy, trừ việc không phải đổ những dữ liệu đã có, bởi một liên lạc mới không có dữ liệu trước! 1.4 Cài đặt Online Diary Một trong những điều tuyệt vời của ASP.NET 2.0 là dễ dàng cài đặt các ứng dụng web từ máy này lên máy khác. Để cài đặt ứng dụng này trên PC của bạn, bạn chỉ việc chép toàn bộ thư mục và các file từ CD-ROM đính kèm vào một thư mục trên PC của bạn (chẳng hạn C:\Websites). Trong Visual Web Developer, hãy chọn File | Open Web Site và tìm đến thư mục mà bạn đã chép các file. Sau đó, nhấn F5 để chạy ứng dụng. Nếu đã cài đặt IIS, bạn có thể tạo thư mục ảo OnlineDiary cho ứng dụng này và duyệt Nếu muốn hiệu chỉnh ứng dụng Online Diary, bạn hãy tham khảo phần tiếp theo. 1.5 Mở rộng Online Diary Dự án này cung cấp một điểm khởi đầu tốt cho một hệ thống quản lý danh bạ liên lạc và nhật ký trọn vẹn. Ví dụ, bạn có thể cải tiến việc quản lý và hiển thị danh bạ liên lạc. Dù hoạt động tốt đối với danh bạ liên lạc nhỏ, nhưng hệ thống sẽ trở nên cồng kềnh khi danh bạ liên lạc tăng. Tổ chức hiển thị các liên lạc theo chữ cái đầu tiên của phần họ (hay theo chữ cái đầu tiên của phần tên) là một cách giải quyết vấn đề này. Lớp Contact đã có một phương thức cho phép điều đó và bạn có thể sử dụng. Một chọn lựa khác là thêm tính năng tìm kiếm dựa trên một hay nhiều thông số như e-mail, tên, Cách này hay cách kia, bạn cũng sẽ cần hiệu chỉnh trang YourContacts.aspx. Hiện tại khi hiển thị các liên lạc trong điều kiểm GridView, nó cho hiện tất cả. Lớp Contact đã có một hàm nhận vào chữ cái đầu tiên của phần họ làm thông số. Tuy nhiên, thông số đó là tùy chọn. Bằng việc thêm một danh sách xổ xuống gồm các chữ cái từ A đến Z, bạn có thể sử dụng nó để truyền chữ cái đầu tiên của phần họ làm thông số. Sau đó, bạn cần cho điều kiểm ObjectDataSource biết thông số mới. Nếu gọi danh sách xổ xuống là DropDownBox1 thì bạn cần thêm phần tử sau vào thẻ đánh dấu ObjectDataSource: Giờ đây, chỉ những ai có phần họ được chỉ định trong danh sách xổ xuống mới được hiển thị. Một vài cải tiến nữa có thể được xem xét: ✓ Tính năng upload và lưu trữ ảnh của những người trong danh bạ liên lạc. ✓ Tính năng chỉ định những ai sẽ quan tâm đến một sự kiện. ✓ Lưu trữ các chi tiết như ngày sinh của một người và có bộ nhắc tự động. ✓ Có bộ nhắc tự động đối với các sự kiện được mail cho bạn. ✓ Thêm tính năng hỗ trợ tin nhắn điện thoại di động, cho phép bạn gửi e-mail hay text message đến các những người trong danh bạ liên lạc.
  35. 52 Chương 1: Online Diary 1.6 Kết chương Qua chương này, bạn đã biết cách tạo một hệ thống quản lý danh bạ liên lạc và nhật ký đầy đủ chức năng, tất cả chỉ với một ít mã lệnh nhờ các điều kiểm và chức năng mới của ASP.NET 2.0. Các điều kiểm bảo mật mới giúp tiết kiệm rất nhiều thời gian viết mã. Trong chương này, chúng đã được sử dụng để tạo người dùng và đăng nhập. Tuy nhiên, chúng cũng có thể cung cấp nhiều chức năng hơn như tạo các vai trò người dùng khác nhau, sau đó cho phép bạn chỉ định người dùng có thể làm gì và không thể làm gì dựa vào vai trò của họ. Hoặc bạn có thể để người dùng xác định cảm quan về các trang bằng tài khoản của họ và các điều kiểm mới của ASP.NET 2.0. Một điều kiểm tuyệt vời khác mà bạn đã khám phá trong chương này là ObjectDataSource. Các điều kiểm nguồn dữ liệu trước đây khiến công việc dễ dàng hơn, nhưng thiết kế mã kém, và bạn phải từ bỏ kiến trúc ba tầng. Giờ đây với điều kiểm ObjectDataSource, bạn có thể có được kiến trúc ba tầng cho các dự án với thiết kế tốt, tính bảo trì cao. Trong chương tiếp theo, bạn sẽ tạo một dự án chia sẻ file và tìm hiểu thêm một vài tính năng mới của ASP.NET 2.0.