0.8 Các đối tượng truy cập dữ liệu  (Page 7/8)

Displayrecord

Else

myRS.MoveFirst

End If

End Sub

Private Sub CmdFirst_Click()

myRS.MoveFirst

Displayrecord

End Sub

Private Sub CmdLast_Click()

myRS.MoveLast

Displayrecord

End Sub

Bước 7: Chạy chương trình. Khi chạy chương trình ta sẽ thấy nó hiển thị chi tiết của mẩu tin đầu tiên khác với các bài trước đây vì các mẩu tin đã được sắp xếp.

Ta hãy thử dùng các nút di chuyển<,<<,>,>>xem chúng làm việc có đúng không.

Tới đây, ta nhận thấy rằng dù người dùng có vô tình sửa đổi một chi tiết nào trong các textboxes, không có mẩu tin nào bị cập nhật hóa trong cơ sở dữ liệu khi người dùng di chuyển từ mẩu tin nầy đến mẩu tin khác. Lý do là các Texboxes không có ràng buộc dữ liệu (Data Bound) với các trường của Recordset.

Thêm bớt các records

Bước 8: Giống như chương trình trong bài rồi, ta sẽ thêm công cụ để thêm (add), bớt (delete) các mẩu tin. Hãy thêm vào Form 5 buttons tên: cmdEdit, cmdNew, cmdDelete, cmdUpdate và cmdCancel.

Bước 9: Chỗ nào trong chương trình 4-1 ta dùng Data1.Recordset thì bây giờ ta dùng myRS.

Ta sẽ dùng lại Sub SetControls với tham số Editing có trị số False hay True tùy theo người dùng đang xem (Browse) hay sửa đổi (Edit). Trong Browse mode, các Textboxes bị Locked (khóa) và các nút cmdUpdate và cmdCancel bị vô hiệu lực. Trong Edit mode, các Textboxes được unlocked (mở khóa) và các nút cmdNew, cmdDelete và cmdEdit bị vô hiệu lực.

Do đó ta chỉ cần nhớ là khi người dùng đang sửa đổi một mẩu tin hiện hành hay thêm một mẩu tin mới. Ta chứa trị số Boolean ấy trong biến AddNewRecord. Nếu user sắp thêm một record mới thì AddNewRecord = True, nếu User sắp Edit một record hiện hữu thì AddNewRecord = False.

Ngoài ra, khi người dùng sắp thêm một mẩu tin mới bằng cách nhấp nút New thì ta phải tự xóa hết các textboxes bằng cách gán chuỗi rỗng cho các TextBox đó.

Ta có các đoạn mã sau:

Dim AddNewRecord As Boolean

Private Sub ClearAllFields()

txtTitle.Text = ""

txtYearPublished.Text = ""

txtISBN.Text = ""

txtPublisherID.Text = ""

End Sub

Private Sub cmdNew_Click()

AddNewRecord = True

ClearAllFields

SetControls (True)

End Sub

Private Sub CmdEdit_Click()

SetControls (True)

AddNewRecord = False

End Sub

Bước 10: Khi người dùng nhấp Cancel trong khi đang sửa đổi các textboxes, ta không cần gọi hàm vì Recordset chưa bị đặt vào AddNew hay Edit mode. Ở đây ta chỉ cần hiển thị lại chi tiết của mẩu tin hiện hành, tức là hủy bỏ những gì người dùng đang đánh vào:

Private Sub CmdCancel_Click()

SetControls (False)

Displayrecord

End Sub

Bước 11: Lúc người dùng nhấp Update, ta sẽ kiểm tra dữ liệu xem có trường nào bị bỏ trống (nhất là khóa chính ISBN bắt buộc phải có trị số) hay có gì không hợp lệ bằng cách gọi hàm GoodData. Nếu GoodData trả lại một trị số False thì ta không xúc tiến với việc Update. Nếu GoodData trả về trị số True thì ta đặt Recordset vào AddNew hay Edit mode tùy theo trị số của biến AddNewRecord là True hay False.

Giống như khi hiển thị chi tiết của một Record ta phải gán từng trường vào textbox, thì bây giờ khi Update ta phải làm ngược lại, tức là gán nội dung của từng textbox vào các trường tương ứng. Sau cùng ta gọi hàm Update của recordset và cho các điều khiển trở lại Browse mode: