-
Xin code kiểm tra hai mật khẩu nhập có giống nhau
kiepgiangho79 > 26-09-17, 11:23 PM
E đang làm form đổi mật khẩu co 3 e text box: matkhaucu, matkhaumoi, nhaplaimatkhaumoi. E xin hỏi co code nào để kiểm tra xem 2 mật khẩu mới nhập có giống nhau không? nếu ko trùng thì thông báo cho người nhập.
-
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
tranthanhan1962 > 27-09-17, 03:44 AM
Code form login có rất nhiều trên forum bạn có thể tìm thấy code phù hợp cho bạn -
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
kiepgiangho79 > 27-09-17, 08:42 AM
(27-09-17, 03:44 AM)tranthanhan1962 Đã viết: Code form login có rất nhiều trên forum bạn có thể tìm thấy code phù hợp cho bạn
E kiếm rồi code login thì có nhưng không thấy có bài viết nào về code kiểm tra khi chúng ta nhập 2 mật khẩu này có giống nhau không: nhập mật khẩu mới / nhập lại mật khẩu mới. -
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
lmthu > 27-09-17, 10:32 AM
Cái này dễ mà! Như bạn nói Form đổi mật khẩu của bạn gồm có 3 Textbox (matkhaumoi, nhaplaimatkhaumoi), tôi thêm vào 2 Command button (CmdOK, CmdCancel), bạn chỉ cần nhập mã lệnh sau tại sự kiện nhaplaimatkhaumoi_AfterUpdate()
Private Sub nhaplaimatkhaumoi_AfterUpdate()
If Trim(Me.matkhaumoi)=Trim(Me.nhaplaimatkhaumoi) then 'Trường hợp User nhập đúng 2 mật khẩu cần đổi
Me.CmdOk.Setfocus
Else
Msgbox "Mật khẩu mới nhập không nhất quán! nhập lại!"
Me.matkhaumoi.Setfocus
End if
End Sub: -
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
tranthanhan1962 > 27-09-17, 10:56 AM
Hiện giờ office của mình đang bị lỗi (cài lại vẫn không được, chắc phải cài win lại) nên không thể tạo demo cho bạn được. Mình chỉ có thể cung cấp bạn cách xử lý như sau:
Tạo một table login có các field user (người sử dụng), password (mật khẩu), checkpassword (kiểm tra mật khẩu), newpassword (mật khẩu mới), repeatpassword (lập lại mật khẩu).
Tạo form login với đầy đủ các textbox của các field table login và thêm textbox sau: fakeuser (mặt nạ người sử dụng, controlsource: unbound) . Tùy trường hợp bạn có thể cho ẩn hiện các textbox để xử lý công việc. Ngoài ra còn có các nút lệnh: Đăng nhập, Đổi mật mã, Thêm người dùng mới.
Ví dụ:
Đăng nhập: user (ẩn), fakeuser (hiện), password (ẩn), checkpassword (hiện), newpassword (ẩn), repeatpassword (ẩn). Đăng nhập (Dangnhap, hiện), Đổi mật mã (Doimatma, ẩn), Thêm người dùng mới (Themnguoidung, hiện).
Thay đổi mật khẩu: user (ẩn), fakeuser (hiện), password (ẩn), checkpassword (ẩn), newpassword (hiện), repeatpassword (hiện). Đăng nhập (ẩn), Đổi mật mã (hiện), Thêm người dùng mới (ẩn).
Thêm người sử dụng: user (hiện), fakeuser (hiện), password (ẩn), checkpassword (ẩn), newpassword (hiện), repeatpassword (hiện). Đăng nhập (ẩn), Đổi mật mã (ẩn), Thêm người dùng mới (ẩn).
Vì đây là form login nhiều người dùng nên tại fakeuser ta viết một đoạn mã để tìm đến record của người sử dụng:
Xử lý:Mã:Private Sub fakeuser_AfterUpdate()
Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[user] = '" & Me![fakeuser] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Đăng nhập:
Sau khi gõ tên đăng nhập vào fakeuser. Form sẽ chuyễn sang record của người sử dụng giống như fakeuser gõ pas vào checkpassword. Viết mã so sánh cho nút lệnh Đăng nhập:
Thay đổi mật khẩu:Mã:Private Sub Dangnhap_Click()
If checkpassword.Value = password.Value Then
Msgbox "Mật khẩu đúng. Bạn có quyền sử dụng chương trình"
DoCmd.Close
else
Msgbox "Mật khẩu sai. Bạn không có quyền sử dụng chương trình"
End if
End Sub
Bạn phải sử dụng code đăng nhập trước để chuyển đến đúng record người dùng và kiểm tra đúng mật khẩu của người dùng đó trước khi cho phép người dùng này đổi mật khẩu.
Viết code so sánh newpassword và repeatpassword. Nếu giống thì set password.Value = newpassword.Value.
Viết thêm code cho event openform hoặc loadform (dùng SQL query update xử lý giá trị các field checkpassword, newpassword, repeatpassword =""). Vì các giá trị này chỉ có giá trị khi điền mới vào.
Cúc bạn thành công. -
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
kiepgiangho79 > 28-09-17, 10:35 PM
Mã PHP:Private Sub nhaplaimatkhaumoi_AfterUpdate()
If Trim(Me.matkhaumoi)=Trim(Me.nhaplaimatkhaumoi) then 'Trường hợp User nhập đúng 2 mật khẩu cần đổi
Me.CmdOk.Setfocus
Else
Msgbox "Mật khẩu mới nhập không nhất quán! nhập lại!"
Me.matkhaumoi.Setfocus
End if
End Sub
code nay ko dc. no bao lỗi ở dòng "Private Sub nhaplaimatkhaumoi_AfterUpdat" -
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
tranthanhan1962 > 28-09-17, 10:54 PM
Mã:Private Sub nhaplaimatkhaumoi_AfterUpdate()
If matkhaumoi.Value=nhaplaimatkhaumoi.Value then 'Trường hợp User nhập đúng 2 mật khẩu cần đổi
DoCmd.GoToControl "CmdOk"
Else
Msgbox "Mật khẩu mới nhập không nhất quán! nhập lại!"
Me.matkhaumoi.Setfocus
End if
End Sub
Nếu báo lỗi tại
Có nghĩa là lỗi tại dòng này, không liên quan gì đến các dòng code phía dưới.Mã:Private Sub nhaplaimatkhaumoi_AfterUpdat() -
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
kiepgiangho79 > 29-09-17, 05:09 PM
Vậy là code sai hả bác, bác viết ho em một đoạn đi. thanks bác nhiều
-
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
maidinhdan > 29-09-17, 10:29 PM
(29-09-17, 05:09 PM)kiepgiangho79 Đã viết: Vậy là code sai hả bác, bác viết ho em một đoạn đi. thanks bác nhiều
Tôi đã gửi cho bạn Demo Phân quyền phần 2 và phần 3, tất cả điều trong đó, từ Code tạo tài khoản, thay đổi mật khẩu hayy lưu lịch sử đăng nhập điều có.
xem và từ từ tìm hiểu trên nền Demo đó, Đoạn code nào bạn đọc chưa hiểu thì Post lên đúng chuyên mục Demo đó để được giải đáp.
Thân mến! -
RE: Xin code kiểm tra hai mật khẩu nhập có giống nhau
kiepgiangho79 > 30-09-17, 02:17 PM
Thanks bán nhiều