Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Xin code kiểm tra hai mật khẩu nhập có giống nhau
#1
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.  007 007
Chữ ký của kiepgiangho79 kiepgiangho79,gia nhập Thủ Thuật Access từ 12-10 -15.
Reply
Những người đã cảm ơn
#2
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
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn kiepgiangho79
#3
(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.
Chữ ký của kiepgiangho79 kiepgiangho79,gia nhập Thủ Thuật Access từ 12-10 -15.
Reply
Những người đã cảm ơn
#4
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:
Chữ ký của lmthu Xin chào, mình là lmthu, Tham gia http://thuthuataccess.com/forum từ ngày 04-07 -14.
Reply
Những người đã cảm ơn kiepgiangho79
#5
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:
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
Xử lý:
Đă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:
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
Thay đổi mật khẩu:
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.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn kiepgiangho79 , maidinhdan
#6
Mã PHP:
Private Sub nhaplaimatkhaumoi_AfterUpdate()
 If 
Trim(Me.matkhaumoi)=Trim(Me.nhaplaimatkhaumoithen    '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"
Chữ ký của kiepgiangho79 kiepgiangho79,gia nhập Thủ Thuật Access từ 12-10 -15.
Reply
Những người đã cảm ơn
#7
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
Mã:
Private Sub nhaplaimatkhaumoi_AfterUpdat()
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.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan
#8
Vậy là code sai hả bác, bác viết ho em một đoạn đi. thanks bác nhiều 007 007
Chữ ký của kiepgiangho79 kiepgiangho79,gia nhập Thủ Thuật Access từ 12-10 -15.
Reply
Những người đã cảm ơn
#9
(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 007 007

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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranthanhan1962 , kiepgiangho79
#10
Thanks bán nhiều
Chữ ký của kiepgiangho79 kiepgiangho79,gia nhập Thủ Thuật Access từ 12-10 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Nhập số nguyên tự chuyển thành thập phân bằng lăng 15 963 26-09-18, 12:09 PM
Bài mới nhất: NguyenDungAnh
  Tìm kiếm Record ngay khi gõ trong Combobox - Class ongke0711 9 657 25-09-18, 12:00 PM
Bài mới nhất: ledangvan
  [Help] Form tìm kiếm lớn hơn nhỏ hơn NguyenDungAnh 17 844 24-08-18, 08:31 PM
Bài mới nhất: NguyenDungAnh
  Chia sẻ bộ code quản lý form (tiến - lùi - thêm - xóa ...) tranthanhan1962 13 3,332 24-08-18, 01:32 PM
Bài mới nhất: Cuong Servenet
  [Help] Tạo cây thư mục cập nhập danh mục NguyenDungAnh 3 280 15-08-18, 09:35 AM
Bài mới nhất: NguyenDungAnh

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line