Tạo các lớp cần sử dụng dữ liệu

16.3Tạo các lớp cần sử dụng dữ liệu

Ngoài việc cung cấp nguồn dữ liệu mới, Visual Basic 6 còn loại bỏ những hạn chế về cách thức kết nối của ứng dụng với nguồn dữ liệu. Ta không cần thiết lập ràng buộc dữ liệu vào lúc thiết kế, như với điều khiển DAO Data. Thay vào đó, ta có thể gán một nguồn dữ liệu (như là điều khiển ADO Data,thiết kế DataEnvironment,hay lớp cung cấp dữ liệu ) cho phần tiêu thụ dữ liệu (như là một điều khiển giao diện nguời sử dụng ràng buộc ) lúc thi hành. Điều này cho phép đóng gói mô-dun lớp truy cập dữ liệu.

Để tạo một lớp làm nguồn dữ liệu truy cập cơ sở dữ liệu Novelty, ta theo các bước sau:

1. 
   Tạo một đề án Standard EXE.
   
2. 
   Dùng menu Project để thêm một mô-dun lớp vào đề án. Đặt tên mô-dun lớp là CCustData.
   
3. 
   Dùng cửa sổ Properties để đổi thuộc DataSourceBehavior thành 1-vbDataSource.
   
4. 
   Dùng menu Project, References để thiết lập một tham chiếu đến Microsoft ActiveX Data Objects.
   
5. 
   Trong phần khai báo của lớp, tạo một đối tượng Recordset (private). Đối tượng này sẽ xử lý truy cập cơ sở dữ liệu.
   

6. 
   Trong sự kiện Initialize của lớp, viết chương trình để tạo đối tượng Recordset:
   

mrsCustomer.Source = "select * from tblCustomer"

mrsCustomer.CursorType = adOpenKeyset

mrsCustomer.LockType = adLockOptimistic

mrsCustomer.ActiveConnection = "DSN=JetNovelty;"

mrsCustomer.Open

7. 
   Trong sự kiện Initialize của lớp, viết chương trình đăng ký nguồn dữ liệu với tập hợp DataMembers do thư viện Microsoft Data Binding cung cấp. Điều này cho phép phần tiêu thụ dữ liệu (như là các điều khiển ràng buộc) dùng lớp này như là một nguồn dữ liệu :
   
8. 
   Viết chương trình cho sự kiện GetDataMember của lớp để trả về một đối tượng Recordset dựa trên tham số DataMember của sự kiện ( Sự kiện GetDataMember sẽ hiện diện sau khi ta quy định giá trị cho thuộc tính DataSourceBehavior ). Bởi vì sự kiện GetDataMember được tham số hoá, ta có thể kết nối ứng dụng với vô số các recordset;tuy nhiên, lớp này chỉ trả về một danh sách khách hàng.
   

Lưu ý : Tham số Data của sự kiện GetDataMember là một đối tượng, không phải một recordset. Do đó, trong sự kiện có thể truy cập đối tượng khác thay vì đối tượng Recordset của ADO.

9. 
   Kế đến, viết phương thức (public) trong lớp CCustData để điều khiển recordset. Trong ví dụ này, ta tạo 4 phương thức di chuyển được cung cấp bởi một điều khiển dữ liệu:
   

mrsCustomer.MoveFirst

End Sub
Public Sub MoveLast()

mrsCustomer.MoveLast

End Sub
Public Sub MoveNext()

mrsCustomer.MoveNext

If mrsCustomer.EOF Then

mrsCustomer.MoveLast

End If

End Sub
Public Sub MovePrevious()

If mrsCustomer.BOF Then

mrsCustomer.MoveFirst

End If

10. 
    Dùng menu Project Components, thêm một điều khiển Microsoft DataGrid Control 6.0 (OLE DB) vào đề án.Nó cho phép ta hiển thị dữ liệu trong một lưới (grid). Tạo một instance của điều khiển lưới trên biểu mẫu.
    
11. 
    Trên biểu mẫu, tạo 4 nút lệnh để duyệt qua dữ liệu. Đặt tên chúng là cmdFirst, cmdPrevious, cmdNext, cmdLast.
    
12. 
    Trong sự kiện Load của biểu mẫu, khai báo một instance của lớp nguồn dữ liệu. Viết chương trình cho sự kiện Click để gọi các phương thức di chuyển :
    

' Create the data source object

Set mCustData = New CCustData

' Bind the object to grid

Set DataGrid1.DataSource = mCustData

DataGrid1.DataMember = "Customers"

End Sub
Private Sub cmdFirst_Click()

mCustData.MoveFirst

End Sub
Private Sub cmdLast_Click()

mCustData.MoveLast

End Sub
Private Sub cmdNext_Click()

mCustData.MoveNext

End Sub
Private Sub cmdPrevious_Click()

mCustData.MovePrevious

End Sub

13. 
    Thi hành ứng dụng.