Đăng nhập

Email
Mật khẩu
Nhớ mật khẩu

Quên mật khẩu | Đăng ký

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

 
Phản hồi

Người gửi / điện thoại

Nội dung

 
19-11-2013 13:45:21 Tom

Bạn ơi..bạn xem lại nút Login giúp mình với..

Trả lời

 

CONHOME

Tự tạo website với Webmienphi.vn