tailieunhanh - THIẾT KẾ BIỂU MẪU DÙNG CÁC ĐIỀU KHIỂN - CHỈ ĐỊNH VỊ TRÍ CƠ SỞ DỮ LIỆU - 5

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. | TT. Visual Basic 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 If Right duongdan 1 Then duongdan duongdan duongdan 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. Trang 61 TT. Visual Basic 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. Bước 11 Trong Sub SetControls dưới đây ta dùng một tham số gọi là Editing với trị số False hay True tùy theo người dùng đang xem browse hay sửa đổi Edit ta gọi là Browse mode và Edit mode. Trong Edit mode các Textboxes được unlocked mở khóa và các nút cmdNew cmdDelete và cmdEdit trở nên vô hiệu lực Sub SetControls ByVal Editing As Boolean Lock Unlock textboxes Not Editing Not Editing Not Editing Not Editing Enable Disable buttons .

TỪ KHÓA LIÊN QUAN
crossorigin="anonymous">
Đã phát hiện trình chặn quảng cáo AdBlock
Trang web này phụ thuộc vào doanh thu từ số lần hiển thị quảng cáo để tồn tại. Vui lòng tắt trình chặn quảng cáo của bạn hoặc tạm dừng tính năng chặn quảng cáo cho trang web này.