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
-
RE: Về Form thay đổi mật khẩu đăng nhập
bomnhauag > 13-01-12, 03:32 PM
(11-01-12, 11:15 PM)quangtin Đã viết:
(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.
Em tải đoạn chương trình trên về rồi xem code trong đó đi, anh có chú thích đầy đủ rồi đó, cái này đơn giản lắm, hãy tự nâng cao kiến thức của mình đi nhé...! -
RE: Về Form thay đổi mật khẩu đăng nhập
quangtin > 14-01-12, 03:16 PM
(13-01-12, 03:32 PM)bomnhauag Đã viết:
(11-01-12, 11:15 PM)quangtin Đã viết:
(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.
Em tải đoạn chương trình trên về rồi xem code trong đó đi, anh có chú thích đầy đủ rồi đó, cái này đơn giản lắm, hãy tự nâng cao kiến thức của mình đi nhé...!
e down ve roi nhug k xem dc e moi no a day chu.
a gui lai cho em di. e down ve ma mo khong ra. a gui cho e cai khac di -
RE: Về Form thay đổi mật khẩu đăng nhập
bomnhauag > 15-01-12, 11:37 AM
(14-01-12, 03:16 PM)quangtin Đã viết:
(13-01-12, 03:32 PM)bomnhauag Đã viết:
(11-01-12, 11:15 PM)quangtin Đã viết:
(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.
Em tải đoạn chương trình trên về rồi xem code trong đó đi, anh có chú thích đầy đủ rồi đó, cái này đơn giản lắm, hãy tự nâng cao kiến thức của mình đi nhé...!
e down ve roi nhug k xem dc e moi no a day chu.
a gui lai cho em di. e down ve ma mo khong ra. a gui cho e cai khac di
Khi mở file đó lên, em đè phím Shift dùm anh cái, kô là nó tự động đóng hết các chức năng Edit thì làm sao thấy.. haiizz....
-
RE: Về Form thay đổi mật khẩu đăng nhập
quangtin > 15-01-12, 02:54 PM
(15-01-12, 11:37 AM)bomnhauag Đã viết:
(14-01-12, 03:16 PM)quangtin Đã viết:
(13-01-12, 03:32 PM)bomnhauag Đã viết:
(11-01-12, 11:15 PM)quangtin Đã viết:
(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.
hehe. mở được rồi anh. em cám ơn anh, nhưng đoạn mã này em không hiểu. vs cái anh gửi sao e không demo được.
Private Sub Form_Load()
Dim rst As New ADODB.Recordset
rst.Open "Select * From USERS Where NV='" & TRTenUser & "'", CurrentProject.Connection, adOpenForwardOnly, adLockReadOnly
'TRMsgBox TRTenUser
MK = rst!Password 'GiaiMaMatKhau(Nz(rst!Name, ""), Nz(rst!Password, ""))
lblNgSD.Caption = lblNgSD.Caption & " " & Nz(rst!HOTEN, "")
rst.Close
Set rst = Nothing
If MK = "" Then
txtMKMoi1.Enabled = True
txtMKMoi2.Enabled = True
txtMKMoi1.SetFocus
txtMKCu.Enabled = False
End If
End Sub
chổ frm load đó. e pó tay. nó báo chữ vàng. mong anh giúp đỡ tần tình. cám ơn anh trước. em làm cái này là đưa vào sử dụng lun. mong anh chiếu cố thêm. vì em đây còn non lắm.hihi.
Em tải đoạn chương trình trên về rồi xem code trong đó đi, anh có chú thích đầy đủ rồi đó, cái này đơn giản lắm, hãy tự nâng cao kiến thức của mình đi nhé...!
e down ve roi nhug k xem dc e moi no a day chu.
a gui lai cho em di. e down ve ma mo khong ra. a gui cho e cai khac di
Khi mở file đó lên, em đè phím Shift dùm anh cái, kô là nó tự động đóng hết các chức năng Edit thì làm sao thấy.. haiizz....
-
RE: Về Form thay đổi mật khẩu đăng nhập
bomnhauag > 15-01-12, 11:53 PM
Đây nè... anh làm cho em luôn rồi đó, việc còn lại là em tự tìm hiểu nhé... Cái này anh kô thể giúp đuọc nữa...
Tải về... -
RE: Về Form thay đổi mật khẩu đăng nhập
quangtin > 21-01-12, 02:45 PM
(15-01-12, 11:53 PM)bomnhauag Đã viết: Đây nè... anh làm cho em luôn rồi đó, việc còn lại là em tự tìm hiểu nhé... Cái này anh kô thể giúp đuọc nữa...
Tải về...
e cam on anh nhiu lam. -
RE: Về Form thay đổi mật khẩu đăng nhập
domfootwear > 28-01-12, 12:47 PM
(15-01-12, 11:53 PM)bomnhauag Đã viết: Đây nè... anh làm cho em luôn rồi đó, việc còn lại là em tự tìm hiểu nhé... Cái này anh kô thể giúp đuọc nữa...
Tải về...
Nhìn file của bạn giống Bài viết này quá
-
RE: Về Form thay đổi mật khẩu đăng nhập
bomnhauag > 30-01-12, 10:28 AM
Ủa vậy hả??? Cái giaiphapexcell mình cũng hay vào mà kô thấy cái này, bít vậy wa đó chôm về cho lẹ...
Cái này đã được đơn giản bớt nhiều rồi để pà kon thiên hạ còn hiểu, cái main là còn chức năng mã hóa và giải mã password nữa, sợ post lên mọi người lại chửi... ^..^ hj -
RE: Về Form thay đổi mật khẩu đăng nhập
quan_pc > 31-01-12, 10:08 PM
cái này nè bạn!!! http://www.mediafire.com/?ovvd5oswqz5pqay -
RE: Về Form thay đổi mật khẩu đăng nhập
jetly1988 > 22-07-12, 02:02 PM
Dựa vào bài hướng dẫn của haquocquan mình sửa lại tí form đổi mật khẩu đăng nhập để khắc phục 1 số lỗi.
trên form gồm
table: dangnhap gồm hoten va matkhau
các textbox
txtuser: nhập tên đăng nhập
txtpass: nhập pass đăng nhập
txtpass1: nhập pass mới
txtxn: xác nhận pass mơi
cmdsave: thự hiện đổi mật khẩu .
sau đây là code
Hy vọng sẽ có ích cho các bạn.Mã PHP:Private Sub cmdsave_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim kt As Boolean
Set db = CurrentDb
Set rs = db.OpenRecordset("dangnhap")
rs.MoveFirst
kt = False
Do While ((Not rs.EOF) And (kt = False))
If (rs.Fields("hoten") = txtuser.Value) And (rs.Fields("matkhau") = txtpass.Value) Then
kt = True
If txtpass1 = "" Or IsNull(txtpass1) Then
MsgBox ("khong duoc de trong mk moi"), vbOKOnly
txtpass1.SetFocus
Else
If txtpass1.Value = txtxn.Value Then
rs.Edit
rs.Fields("matkhau") = txtpass1.Value
rs.Update
msgBox ("doi thanh cong"), vbOKOnly
DoCmd.Close
Else
msgBox("mat khau xac nhan sai"), vbOKOnly
txtpass1 = ""
txtxn = ""
txtpass1.SetFocus
End If
End If
Else
rs.MoveNext
End If
Loop
If kt = False Then
msgBoxUni DLookup("ten dang nhap hoac mat khau sai"), vbOKOnly
txtuser = ""
txtpass = ""
txtpass1 = ""
txtxn = ""
txtuser.SetFocus
End If
rs.Close
db.Close
End Sub