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

Hình IV.4: Kết quả thực thi ứng dụng

Nhận xét:

• Ta có thể bấm các nút di chuyển Navigator Buttons để đi đến các record đầu (first), trước (previous), kế (next) và cuối (last). Mỗi lần ta di chuyển đến một record mới là chi tiết của record ấy sẽ hiển thị. Nếu không dùng các Navigator Buttons, ta cũng có thể viết đoạn mã để làm công tác tương đương bằng cách gọi các hàm trên Recordset là MoveFirst, MovePrevious, MoveNext và MoveLast.
• Khi record cuối của Recordset đang hiển thị, nếu ta gọi hàm MoveLast thì thuộc tính EOF (End-Of-File) của Recordset trở thành True. Tương tự như vậy, khi record thứ nhất của Recordset đang hiển thị, nếu ta gọi hàm MovePrevious thì thuộc tính BOF (Begin-Of-File) của Recordset trở thành True. Nếu một Recordset không có chứa một record nào cả thì cả hai thuộc tính EOF và BOF đều là True.
• Khi record đầu tiên đang hiển thị, nếu ta sửa Year Published để đổi từ 1985 thành 1983 rồi nhấp Navigator button Next để hiển thị record thứ nhì, kế đó click Navigator button Previous để hiển thị lại record đầu tiên thì ta sẽ thấy là trường Year Published của record đầu tiên đã thật sự được thay đổi (updated) thành 1983.

Điều nầy có nghĩa rằng khi di chuyển từ record nầy đến record khác thì nếu record nầy đã có sự thay đổi do người sử dụng, nó lưu trữ sự thay đổi đó trước khi di chuyển. Chưa chắc là ta muốn điều nầy, do đó, nếu ta không muốn người sử dụng tình cờ sửa đổi một record thì ta có thể đặt thuộc tính Locked của các textboxes ấy thành True để người sử dụng không thể sửa đổi các textboxes như trong hình dưới đây:

Hình IV.5: Khóa (lock) Textbox

CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU LÚC CHẠY CHƯƠNG TRÌNH

Bước 7: Cách chỉ định tên cơ sở dữ liệu trong giai đoạn thiết kế (at design time) ta đã dùng trước đây tuy tiện lợi nhưng hơi nguy hiểm, vì khi ta cài chương trình nầy lên máy tính khác, chưa chắc tập tin cơ sở dữ liệu ấy nằm trong một thư mục có cùng tên. Ví dụ trên máy tính này thì cơ sở dữ liệu nằm trong thư mục E:\Program Files\Microsoft Visual Studio\VB98, nhưng trên máy tính khác thì cơ sở dữ liệu nằm trong thư mục D:\Basic\Bt4-1 chẳng hạn. Do đó, khi chương trình khởi động ta nên xác định lại vị trí của cơ sở dữ liệu. Chẳng hạn ta muốn để cơ sở dữ liệu trong cùng một thư mục với chương trình đang chạy, ta có thể dùng thuộc tính Path của Application Object App.

Khai báo một biến tên duongdan trong phần [General]\[Declaration]của Form1:

Dim duongdan As String

Bước 8: Ta xử lý sự kiện Form_Load như sau:

Private Sub Form_Load()

duongdan = App.Path

If Right(duongdan, 1)<>"\" Then duongdan = duongdan&"\"

Data1.DatabaseName = duongdan&"BIBLIO.MDB"

End Sub

THÊM BỚT CÁC RECORDS

Bước 9: Chương trình đến đây tạm ổn, nhưng nó không cho ta công cụ để thêm (add), bớt (delete) các records. Bây giờ hãy đặt vào Form 5 buttons tên: cmdEdit, cmdNew, cmdDelete, cmdUpdate và cmdCancel.

Bước 10: Lúc chương trình mới khởi động, người sử dụng đang xem thông tin các records thì hai buttons Update và Cancel không cần phải làm việc. Do đó ta sẽ Lock (khóa) các textboxes và disable hai buttons nầy vì không cần dùng chúng.