3. Xây dựng các lớp xử lý
3.3.3 Hiện thực lớp Business Logic
Hiện thực lớp Business Logic đòi hỏi bạn phải nắm rõ các business logic của ứng dụng. Ví dụ đối với ứng dụng tin tức của chúng ta thì khi tạo một chuyên mục mới, bạn phải kiểm tra xem KeyName của chuyên mục đó đã có trong hệ thống chưa? Nếu có rồi thì phải báo lỗi, và nếu chưa có thì chúng ta kiểm tra KeyName đó có hợp lệ hay không?
Public Sub ThemTheLoai(Byval theloai As Category) If CheckKey(theloai.KeyName)=False Then
'Thông báo lỗi Exit Sub
End If
If ValidateKey(category.KeyName)=False Then 'Thông báo lỗi
Exit Sub End If
Dim theloaiDB As New CategoryDAO() theloaiDB.CreateCategory(theloai) End Sub
4. Bài tập
Bài tập 1: Thông tin về một cuốn sách được khai báo với cú pháp như sau:
Public Class Sach
Private _SoLuong As Integer ‘Kiểu số nguyên Private _DonGia As Double ‘Kiểu số thực Public SoTrang As Integer ‘Kiểu số nguyên Public Property SoLuong() As Integer
Set (ByVal Value As Integer) _SoLuong = Value End Set Get SoLuong = _SoLuong End Get End Property
Public Property DonGia() As Double
Set (ByVal Value As Double) _DonGia = Value
64 End Set Get DonGia = _DonGia End Get End Property
Public Function ThanhTien() As Double ThanhTien = ( _SoLuong * _DonGia ) End Sub
End Class
a) Hãy tạo lớp đối tượng sách trên.
b) Xây dựng lớp đối tượng TapChi (tạp chí) kế thừa lớp Sách và có thêm các thành phần:
+ Trường: Ngày phát hành
+ Thuộc tính: Hình bìa, Khổ giấy
+ Phương thức: Năm phát hành, Hiển thị
Bài tập 2: Xây dựn và hiện thực mô hình 3 lớp (3-tier) để thực hiện công việc
65
BÀI 4. LÀM VIỆC VỚI DỰ ÁN CÓ NHIỀU FORM
Mục tiêu của bài:
Hiểu được đặc tính của các điều khiển hiển thị dữ liệu; Biết quy trình thiết kế các dạng biểu mẫu;
Sử dụng được các điều khiển cơ bản;
Khai báo và sử dụng được các thành phần của Module
Kết nối và hiển thị được cơ sở dữ liệu Access bằng DataGridview;
Nghiêm túc, sáng tạo, chủ động trong việc thiết kế và kế thừa các dạng biểu mẫu khác nhau.