?? frmchangepwd.frm
字號(hào):
VERSION 5.00
Begin VB.Form frmChangePWD
BorderStyle = 1 'Fixed Single
Caption = "修改密碼"
ClientHeight = 3645
ClientLeft = 45
ClientTop = 330
ClientWidth = 5805
LinkTopic = "FrmMain"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3645
ScaleWidth = 5805
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdCancel
Caption = "取消"
BeginProperty Font
Name = "楷體_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 3720
TabIndex = 7
Top = 2760
Width = 1695
End
Begin VB.CommandButton cmdOK
Caption = "確定"
BeginProperty Font
Name = "楷體_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 360
TabIndex = 6
Top = 2760
Width = 1695
End
Begin VB.TextBox ConfirmPWD
BeginProperty Font
Name = "楷體_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
IMEMode = 3 'DISABLE
Left = 2880
MaxLength = 8
PasswordChar = "*"
TabIndex = 5
Top = 1920
Width = 2535
End
Begin VB.TextBox NewPWD
BeginProperty Font
Name = "楷體_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
IMEMode = 3 'DISABLE
Left = 2880
MaxLength = 8
PasswordChar = "*"
TabIndex = 4
Top = 1200
Width = 2535
End
Begin VB.TextBox OldPWD
BeginProperty Font
Name = "楷體_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
IMEMode = 3 'DISABLE
Left = 2880
MaxLength = 8
PasswordChar = "*"
TabIndex = 3
Top = 480
Width = 2535
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
Caption = "請(qǐng)確認(rèn)新密碼"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 2
Top = 2040
Width = 1935
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "請(qǐng)輸入新密碼"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 1
Top = 1320
Width = 1935
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "請(qǐng)輸入舊密碼"
BeginProperty Font
Name = "宋體"
Size = 14.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 480
TabIndex = 0
Top = 600
Width = 1935
End
End
Attribute VB_Name = "frmChangePWD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim sql As String
Dim rs As ADODB.Recordset
If Trim(OldPWD.Text) = "" Then '判斷是否輸入舊密碼
MsgBox "請(qǐng)輸入舊密碼！", vbOKOnly + vbExclamation, "警告"
OldPWD.SetFocus
Exit Sub
Else
If Trim(NewPWD.Text) = "" Then '判斷是否輸入新密碼
MsgBox "請(qǐng)輸入新密碼！", vbOKOnly + vbExclamation, "警告"
NewPWD.SetFocus
Exit Sub
ElseIf Trim(NewPWD.Text) <> Trim(ConfirmPWD.Text) Then '判斷兩次密碼是否相同
MsgBox "兩次密碼不同！", vbOKOnly + vbExclamation, "警告"
NewPWD.Text = ""
ConfirmPWD.Text = ""
NewPWD.SetFocus
Else
'修改密碼
sql = "update UserInfo set UserPWD = '" & NewPWD & "'where UserID='"
sql = sql & strUserName & "'"
Call TransactSQL(sql)
MsgBox "密碼已經(jīng)修改！", vbOKOnly + vbExclamation, "修改結(jié)果"
Unload Me
End If
End If
End Sub
Private Sub Form_Load()
OldPWD.Text = ""
NewPWD.Text = ""
ConfirmPWD.Text = ""
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -