Tạo form đăng nhập trong Access

Cột	Loại dữ liệu	Tính chất	Ý nghĩa
ID	Text	Field Size: 50 Caption: Tên user	Tên user tối đa 50 ký tự
Pass	Text	Field Size: 50 Input Mask: Password Caption: Mật khẩu	Mật khẩu tối đa 50 ký tự, và sẽ được hiển thị dưới dạng ***
Level	Number	Field Size: 2 Caption: Cấp user
GhiChu	Text	Field Size: 255 Caption: Ghi chú

Đặt khoá chính cho Field ID. (Tuỳ theo nhu cầu mà bạn có thể tách các cấp của User ra một bảng riêng rồi liên kết qua ID, tại mình chưa có nhu cầu phân cấp nhiều nên mình để chung một bảng)

Dữ liệu nhập thử:

Admin, admin, 0, Cấp cao nhất

User1, 123456, 1,

User2, 123123, 2,

2. Tạo Form frmLogin

Đầu tiên, bạn tạo 1 form, đặt tên nó là frmLogin
- Vẽ 1 lable với caption như sau “Xin mời nhập Username và Pass!"

- Vẽ 1 combobox đặt tên là: cbbusername, thuộc tính row source: SELECT tblDSUser.ID, tblDSUser.Pass FROM tblDSUser;

- Vẽ 1 textbox đặt tên là txtPassWord, Input mask kiểu Password

- Vẽ 1 text box đặt tên là txtPassTemp, thuộc tính visible là No

- Vẽ một nút đặt tên là cmdLogin

- Vẽ một nút đặt tên là cmdCancel

OK, Vậy là xong phần giao diện, bây giờ đến phần chính...

3. Xử lý các sự kiện

Sau khi cập nhật tên user thì txtPassTemp sẽ lấy về cái password , và field này user hoàn toàn không nhìn thấy. Mục đích là để so sánh pass này với cái pass của user nhập vào. Đúng thì tiếp tục log vào form chính sai thì báo lỗi.

Cài đặt thuộc tính after Update của ComboBox nhập user như sau:

Private Sub cbbUsername_AfterUpdate()
Me.txtPassTemp.Value = cbbUserName.Column(1)
End Sub

- Tạo form frmBangDieuKhien để gọi lên nếu user nhập đúng pass (Cái này bạn có thể cài đặt ẩn hoặc hiện một số control tuỳ theo cấp user, cái này mình sẽ nói rõ hơn trong những phần sau)

- Xử lý nút Login:

Gắn thuộc tính On Click của nút Login đoạn code sau:

Private Sub CmdCancel_Click()
DoCmd.Quit
End Sub

4. Khởi động Form frmLogin cùng với file Access của bạn

FileOptionsCurrent Database = > Cài đặt Display Form là "frmLogin", bỏ dấu check ở một số chức năng để các user khỏi táy máy khi đăng nhập.