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

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

1. Tạo bảng tblIDUser có các cột như sau:

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…

Free Web Proxy

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. 

Free Web Proxy

Cái này là mình tham khảo trên mạng rồi làm lại theo nhu cầu của mình, post lên để bạn nào có nhu cầu thì tham khảo.

File demo