Tùy chọn
Về Form thay đổi mật khẩu đăng nhập
- Về Form thay đổi mật khẩu đăng nhập
-
Về Form thay đổi mật khẩu đăng nhập
hoaipnb > 05-08-11, 12:20 PM
Mình có tham khảo qua form đăng nhập và thay đổi mật khẩu của mod haquocquan tuy nhiên fan thay đổi mật khẩu có lỗi nhỏ là khi vào ko nhập mật khẩu cũ và mới mà ấn luôn thay đổi thì password tự động bị xóa đi và sẽ ko đăng nhập đc nữa. Nhờ bạn haquocquan coi dùm -
RE: Về Form thay đổi mật khẩu đăng nhập
mrchau911 > 05-08-11, 04:52 PM
mod bận hết roài hì hì -
RE: Về Form thay đổi mật khẩu đăng nhập
nguyenhuuphuc > 06-08-11, 03:24 PM
Bạn tạo 1 Table tên là : USER. Các thuộc tính nhận diện là: Username (text), Password (text).
Bắt đầu tạo Form ĐỔI MẬT KHẨU:
Bạn tạo 1 Form, vẽ 2 text đặt tên là: txtCu, txtMoi và 1 nút lệnh đổi mật khẩu tên là cmdDoi
Option Compare Database
Dim db As Database
Dim rs As Recordset
Private Sub cmdDoi_Click()
Dim rsDoi As Recordset
Set rsDoi = db.OpenRecordset("select count
as dem from USER where password='" & txtCu & "'")
If rsDoi.Fields("dem") < 1 Then
MsgBox VNI("Mật khẩu cũ không đúng. Nhập lại !")
txtCu.SetFocus
txtCu = ""
txtMoi = ""
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("update USER set Password='" & txtMoi & "'")
MsgBox VNI("Mật khẩu đã được đổi")
txtCu.SetFocus
txtCu = ""
txtMoi = ""
DoCmd.Close
End If
End Sub
Private Sub Form_Load()
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM USER")
End Sub -
RE: Về Form thay đổi mật khẩu đăng nhập
hoaipnb > 08-08-11, 12:46 PM
(06-08-11, 03:24 PM)nguyenhuuphuc Đã viết: Bạn tạo 1 Table tên là : USER. Các thuộc tính nhận diện là: Username (text), Password (text).
Bắt đầu tạo Form ĐỔI MẬT KHẨU:
Bạn tạo 1 Form, vẽ 2 text đặt tên là: txtCu, txtMoi và 1 nút lệnh đổi mật khẩu tên là cmdDoi
Option Compare Database
Dim db As Database
Dim rs As Recordset
Private Sub cmdDoi_Click()
Dim rsDoi As Recordset
Set rsDoi = db.OpenRecordset("select countas dem from USER where password='" & txtCu & "'")
If rsDoi.Fields("dem") < 1 Then
MsgBox VNI("Mật khẩu cũ không đúng. Nhập lại !")
txtCu.SetFocus
txtCu = ""
txtMoi = ""
Else
DoCmd.SetWarnings False
DoCmd.RunSQL ("update USER set Password='" & txtMoi & "'")
MsgBox VNI("Mật khẩu đã được đổi")
txtCu.SetFocus
txtCu = ""
txtMoi = ""
DoCmd.Close
End If
End Sub
Private Sub Form_Load()
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM USER")
End Sub
Cám ơn bạn đã giúp đỡ, tuy nhiên mình muốn thiết kế thêm 1 text để xác nhận lại mật khẩu mới thì phải làm ntn để khi cả 2 mật khẩu mới trùng nhau với cho phép đổi. -
RE: Về Form thay đổi mật khẩu đăng nhập
hoangthanhhai > 09-08-11, 04:37 PM
(05-08-11, 12:20 PM)hoaipnb Đã viết: Mình có tham khảo qua form đăng nhập và thay đổi mật khẩu của mod haquocquan tuy nhiên fan thay đổi mật khẩu có lỗi nhỏ là khi vào ko nhập mật khẩu cũ và mới mà ấn luôn thay đổi thì password tự động bị xóa đi và sẽ ko đăng nhập đc nữa. Nhờ bạn haquocquan coi dùm
Đây là đoạn code của mình Bạn tham khảo thử xem
Private Sub Doimatkhau_Click()
If IsNull(Me.Matkhau_cu) Or Me.Matkhau_cu = "" Then
MsgBoxUni DLookup("[TenThongbao]", "T_Thongbao", "[STT] = 6"), vbOKOnly + vbCritical, DLookup("[Tieude]", "T_Thongbao", "[STT] = 6")
Matkhau_cu.SetFocus
Matkhau_cu = ""
Else
If Me.Matkhau.Value <> Me.Matkhau_cu.Value Then
MsgBoxUni DLookup("[TenThongbao]", "T_Thongbao", "[STT] = 2"), vbOKOnly + vbCritical, DLookup("[Tieude]", "T_Thongbao", "[STT] = 2")
Matkhau_cu.SetFocus
Matkhau_cu = ""
Else
If IsNull(Me.Matkhau_moi) Or Me.Matkhau_moi = "" Then
MsgBoxUni DLookup("[TenThongbao]", "T_Thongbao", "[STT] = 7"), vbOKOnly + vbCritical, DLookup("[Tieude]", "T_Thongbao", "[STT] = 7")
Matkhau_moi.SetFocus
Matkhau_moi = ""
Else
If IsNull(Me.Matkhau_xacnhan) Or Me.Matkhau_xacnhan = "" Then
MsgBoxUni DLookup("[TenThongbao]", "T_Thongbao", "[STT] = 8"), vbOKOnly + vbCritical, DLookup("[Tieude]", "T_Thongbao", "[STT] = 8")
Matkhau_xacnhan.SetFocus
Matkhau_xacnhan = ""
Else
If Me.Matkhau_moi.Value <> Me.Matkhau_xacnhan.Value Then
MsgBoxUni DLookup("[TenThongbao]", "T_Thongbao", "[STT] = 3"), vbOKOnly + vbCritical, DLookup("[Tieude]", "T_Thongbao", "[STT] = 3")
Matkhau_moi.SetFocus
Matkhau_moi = ""
Matkhau_xacnhan = ""
Else
Dim db As Database
Dim RS1 As Recordset
Set db = CurrentDb()
Set RS1 = db.OpenRecordset("T_Matkhau", DB_OPEN_DYNASET)
RS1.FindFirst "Tendangnhap = '" & Me.Tendangnhap.Value & "'"
RS1.Edit
RS1!Matkhau = Me.Matkhau_moi
RS1.Update
RS1.Close
Set RS1 = Nothing
Set db = Nothing
MsgBoxUni DLookup("[TenThongbao]", "T_Thongbao", "[STT] = 4"), vbOKOnly + vbCritical, DLookup("[Tieude]", "T_Thongbao", "[STT] = 4")
DoCmd.Close
DoCmd.OpenForm "F0_Dangnhap", acNormal
End If
End If
End If
End If
End If
End Sub -
RE: Về Form thay đổi mật khẩu đăng nhập
quangtin > 09-01-12, 02:04 PM
a co thể chỉ rõ hơn không. e muốn tạo 1 form có các textbox MAT KHAU CU, MẬT KHẨU MỚI. XÁC NHẬN LẠI MẬT KHẨU MỚI và nút lệnh ĐỔI MẬT KHẨU -
RE: Về Form thay đổi mật khẩu đăng nhập
bomnhauag > 09-01-12, 05:59 PM
Đây là đoạn chương trình đáp ứng được yêu cầu của bạn, ráng tự xem nhé... hj...
Tải file về........ loading.....
-
RE: Về Form thay đổi mật khẩu đăng nhập
quangtin > 10-01-12, 11:46 PM
(09-01-12, 05:59 PM)bomnhauag Đã viết: Đây là đoạn chương trình đáp ứng được yêu cầu của bạn, ráng tự xem nhé... hj...
anh oi e down ve ma mo k dc. a up lai giup e vs. no bao la "you must fix this reference" po tay lun.
Tải file về........ loading.....
-
RE: Về Form thay đổi mật khẩu đăng nhập
quangtin > 11-01-12, 11:15 PM
(09-01-12, 05:59 PM)bomnhauag Đã viết: Đây là đoạn chương trình đáp ứng được yêu cầu của bạn, ráng tự xem nhé... hj...
Tải file về........ loading.....
http://www.mediafire.com/?q3pf49ov24jxstt.
link day. a giup e lam form doi mat khau lun nha.
3 textbox: MAT KHAU CU, MAT KHAU MOI, XAC NHAN MAT KHAU MOI. va nut DOI MAT KHAU nua. cam on anh truoc.
id la ADMIN
pass cung ADMIN. -
RE: Về Form thay đổi mật khẩu đăng nhập
Noname > 12-01-12, 09:12 AM
Vui lòng viết tiếng Việt có dấu quangtin nhé!