Tạo màn hình login bằng cách nào

[vn6899]

Các bác cho em hỏi trong cách thiết kế màn hình Login theo user và pass, để sau này có thể phân quyền theo user.

Cảm ơn các bác trước nhé!

 

[tung dung]

chào bạn,tôi xin được gợi ý với bạn như vầy,bạn tạo 1 form dặt tên gì cũng được miển sao bạn cho nó vào Starup form.
câu lệnh trong form như sau:

'''''đây là nút nếu người ta không có Pass thì Quit
Private Sub nopass_Click()
DoCmd.Quit
End Sub
trong form nầy có 2 ô để nhập bí danh và pass
'''sau khi nhập bí danh và pass xong thì Control tiếp là nút nầy
Private Sub havePass_Click()
''gán 2 biến để form so sánh
LuuUserID = DLookup("[bidanh]", "[tbl_nhanvien]", "[bidanh] = Form.[UserID] ")
LuuTxtPassword = DLookup("[matkhau]", "[tbl_nhanvien]", "[matkhau] = Form.[TxtPassword] ")

If (LuuUserID = UserID) And (LuuTxtPassword = txtPassword) Then
Call havePass(là để chạy tiếp theo cái gì đó)
Else
(trên form có 1 cái text nhỏ ẩn gán giá trị đầu tiên là 1
cái nầy là cho người ta nhập 3 lần mà không đúng thì quit,để gõ hoài thì cũng có khi trúng...!!!)
If Text > 3 Then
MsgBox "!!!Ban chua duoc phep truy cap he thong...rat tiec"
DoCmd.Quit
Else
MsgBox "khong dung Bi Danh va Mat khau truy nhap..."
UserID.SetFocus
Text = Text + 1

End If
End If
End Sub
bạn xem có giúp gì được cho bạn không...thân ái:welcome_2

 

[BiDIT]

chào bạn,tôi xin được gợi ý với bạn như vầy,bạn tạo 1 form dặt tên gì cũng được miển sao bạn cho nó vào Starup form.
câu lệnh trong form như sau:

'''''đây là nút nếu người ta không có Pass thì Quit
Private Sub nopass_Click()
DoCmd.Quit
End Sub
trong form nầy có 2 ô để nhập bí danh và pass
'''sau khi nhập bí danh và pass xong thì Control tiếp là nút nầy
Private Sub havePass_Click()
''gán 2 biến để form so sánh
LuuUserID = DLookup("[bidanh]", "[tbl_nhanvien]", "[bidanh] = Form.[UserID] ")
LuuTxtPassword = DLookup("[matkhau]", "[tbl_nhanvien]", "[matkhau] = Form.[TxtPassword] ")

If (LuuUserID = UserID) And (LuuTxtPassword = txtPassword) Then
Call havePass(là để chạy tiếp theo cái gì đó)
Else
(trên form có 1 cái text nhỏ ẩn gán giá trị đầu tiên là 1
cái nầy là cho người ta nhập 3 lần mà không đúng thì quit,để gõ hoài thì cũng có khi trúng...!!!)
If Text > 3 Then
MsgBox "!!!Ban chua duoc phep truy cap he thong...rat tiec"
DoCmd.Quit
Else
MsgBox "khong dung Bi Danh va Mat khau truy nhap..."
UserID.SetFocus
Text = Text + 1

End If
End If
End Sub
bạn xem có giúp gì được cho bạn không...thân ái:welcome_2

Làm như bạn xem như thỏa mãn yêu cầu đặt ra. Con việc đổi pass thì như thế nào? Giau talbe User di bằng cách nào?

 

[tung dung]

đổi Pass thì là chuyện khác,sau khi login vào thì có form đổi Pass riêng...còn giấu Table,nếu Table Link thì dùng Pass của Access,còn không Link thì dùng thủ tục ChangeProperty(vô hệu hoá phím Shift),nhưng theo tôi thì nên để Data riêng,và dùng Pass Access thì tốt hơn(Link).Vì người ta không chận lại được nhưng có thể tạo 1 .mdb khác và import Table vào,sau đó xoá InputMask(Password)là thấy hết trơn...!!!,tuy nhiên theo tôi thì ta chận,khoá,Pass...gì gì đi nửa thì cũng để phòng...người ngay mà thôi!!!còn nếu đả cố tình thì....vô phương chống đở.....:quiet: