ElectronicKong
Honorary Poster
- Joined
- Feb 24, 2017
- Posts
- 515
- Reaction
- 108
- Points
- 213
(button reset)
If TXTUN.Text = "" Then
MsgBox("Username required")
TXTUN.Focus()
ElseIf TXTNPW.Text = "" Then
MsgBox("Password required")
TXTNPW.Focus()
ElseIf TXTRNPW.Text = "" Then
MsgBox("Retype password required")
TXTRNPW.Focus()
ElseIf TXTADMINPW.Text = "" Then
MsgBox("Admin's password required")
TXTADMINPW.Focus()
ElseIf TXTNPW.Text <> TXTRNPW.Text Then
MsgBox("Password mismatched")
TXTNPW.Focus()
ElseIf TXTNPW.Text.Length < 6 Then
MsgBox("Password must be 6 characters and above")
TXTNPW.Focus()
Else
OPENCONN()
RS.Open("select * from TBLUSER where password='" & TXTADMINPW.Text & "' AND POSITIONID = 1", CON, 3, 3) 'ADMIN PASSWORD VALIDATION
If Not RS.EOF Then
OPENCONN()
RS.Open("SELECT *FROM TBLUSER WHERE USERNAME='" & TXTUN.Text & "' AND POSITIONID = 2", CON, 3, 3) 'SECURING NA SI STAFF LANG MAKAKAPAGPALIT NG PASSWORD
If Not RS.EOF Then
OPENCONN()
RS.Open("SELECT * FROM TBLUSER WHERE USERID" & USERID, CON, 3, 3)
RS.Fields("username").Value = TXTUN.Text
RS.Fields("password").Value = TXTNPW.Text
RS.Fields("POSITIONID").Value = POSITIONID
RS.Update()
MsgBox("NEW STAFF ADDED")
Else
MsgBox("ADMIN")
End If
Else
MsgBox("Admin's Password invalid")
End If
End If
yung code na po yan para mag reset ng password .
pero yung STAFF lang makakapag reset ng password (positionid=1 --> ADMIN) (position=2 ----> STAFF)
Ang ng yayari po yung Unang data sa database (ms access) ang nag papalit ng password
ang gusto ko po kasi mang yari kung sino tinype kong ex."user3" sa username na textbox
at nag type na ako sa new password at retype password na textbox yung "user1" po nag papalit ng password
thankyou mga prog masters.
If TXTUN.Text = "" Then
MsgBox("Username required")
TXTUN.Focus()
ElseIf TXTNPW.Text = "" Then
MsgBox("Password required")
TXTNPW.Focus()
ElseIf TXTRNPW.Text = "" Then
MsgBox("Retype password required")
TXTRNPW.Focus()
ElseIf TXTADMINPW.Text = "" Then
MsgBox("Admin's password required")
TXTADMINPW.Focus()
ElseIf TXTNPW.Text <> TXTRNPW.Text Then
MsgBox("Password mismatched")
TXTNPW.Focus()
ElseIf TXTNPW.Text.Length < 6 Then
MsgBox("Password must be 6 characters and above")
TXTNPW.Focus()
Else
OPENCONN()
RS.Open("select * from TBLUSER where password='" & TXTADMINPW.Text & "' AND POSITIONID = 1", CON, 3, 3) 'ADMIN PASSWORD VALIDATION
If Not RS.EOF Then
OPENCONN()
RS.Open("SELECT *FROM TBLUSER WHERE USERNAME='" & TXTUN.Text & "' AND POSITIONID = 2", CON, 3, 3) 'SECURING NA SI STAFF LANG MAKAKAPAGPALIT NG PASSWORD
If Not RS.EOF Then
OPENCONN()
RS.Open("SELECT * FROM TBLUSER WHERE USERID" & USERID, CON, 3, 3)
RS.Fields("username").Value = TXTUN.Text
RS.Fields("password").Value = TXTNPW.Text
RS.Fields("POSITIONID").Value = POSITIONID
RS.Update()
MsgBox("NEW STAFF ADDED")
Else
MsgBox("ADMIN")
End If
Else
MsgBox("Admin's Password invalid")
End If
End If
yung code na po yan para mag reset ng password .
pero yung STAFF lang makakapag reset ng password (positionid=1 --> ADMIN) (position=2 ----> STAFF)
Ang ng yayari po yung Unang data sa database (ms access) ang nag papalit ng password
ang gusto ko po kasi mang yari kung sino tinype kong ex."user3" sa username na textbox
at nag type na ako sa new password at retype password na textbox yung "user1" po nag papalit ng password
thankyou mga prog masters.
Attachments
-
You do not have permission to view the full content of this post. Log in or register now.