📄 frmchangepwd.frm
字号:
VERSION 5.00
Object = "{065E6FD1-1BF9-11D2-BAE8-00104B9E0792}#3.0#0"; "SSA3D30.OCX"
Object = "{8C3D4AA0-2599-11D2-BAF1-00104B9E0792}#3.0#0"; "SSSPLT30.OCX"
Begin VB.Form frmChangePWD
BorderStyle = 3 'Fixed Dialog
Caption = "修改密码"
ClientHeight = 2820
ClientLeft = 45
ClientTop = 330
ClientWidth = 3435
Icon = "frmChangePWD.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 2820
ScaleWidth = 3435
ShowInTaskbar = 0 'False
Begin SSSplitter.SSSplitter SSSplitter1
Height = 2820
Left = 0
TabIndex = 0
Top = 0
Width = 3435
_ExtentX = 6059
_ExtentY = 4974
_Version = 196610
AutoSize = 1
BorderStyle = 3
PaneTree = "frmChangePWD.frx":000C
Begin Threed.SSPanel SSPanel1
Height = 2760
Left = 30
TabIndex = 1
Top = 30
Width = 3375
_ExtentX = 5953
_ExtentY = 4868
_Version = 196610
CaptionStyle = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
PictureBackgroundStyle= 2
BevelInner = 1
AutoSize = 3
RoundedCorners = 0 'False
FloodShowPct = -1 'True
Begin VB.TextBox txtOldPWD
Height = 315
IMEMode = 3 'DISABLE
Left = 1373
PasswordChar = "*"
TabIndex = 4
Top = 293
Width = 1575
End
Begin VB.TextBox TxtNewPWD
Height = 315
IMEMode = 3 'DISABLE
Left = 1373
PasswordChar = "*"
TabIndex = 3
Top = 743
Width = 1575
End
Begin VB.TextBox TxtVPWD
Height = 315
IMEMode = 3 'DISABLE
Left = 1373
PasswordChar = "*"
TabIndex = 2
Top = 1223
Width = 1575
End
Begin Threed.SSCommand cmdCancel
Height = 405
Left = 1973
TabIndex = 5
Top = 2183
Width = 1065
_ExtentX = 1879
_ExtentY = 714
_Version = 196610
PictureFrames = 1
BackStyle = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmChangePWD.frx":0040
Caption = "放弃(&C)"
Alignment = 4
ButtonStyle = 3
PictureAlignment= 1
End
Begin Threed.SSCommand cmdOK
Cancel = -1 'True
Height = 405
Left = 1973
TabIndex = 6
Top = 1703
Width = 1065
_ExtentX = 1879
_ExtentY = 714
_Version = 196610
PictureFrames = 1
BackStyle = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Picture = "frmChangePWD.frx":0152
Caption = "确定(&Y)"
Alignment = 4
ButtonStyle = 3
PictureAlignment= 1
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "原密码"
Height = 195
Left = 518
TabIndex = 10
Top = 413
Width = 585
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "新密码"
Height = 195
Left = 518
TabIndex = 9
Top = 863
Width = 585
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "新密码"
Height = 195
Left = 518
TabIndex = 8
Top = 1313
Width = 585
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "(重复一次)"
Height = 195
Left = 353
TabIndex = 7
Top = 1703
Width = 990
End
End
End
End
Attribute VB_Name = "frmChangePWD"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'##ModelId=3D3389E5022C
Private m_OldPWD As String
'##ModelId=3D3389E50290
Private m_NewPWD As String
'##ModelId=3D3389E502EA
Private m_Unchange As Boolean
'##ModelId=3D3389E5033A
Public Property Get Unchange() As Boolean
Unchange = m_Unchange
End Property
'##ModelId=3D3389E503DA
Public Property Get OldPWD() As String
OldPWD = m_OldPWD
End Property
'##ModelId=3D3389E50376
Public Property Let OldPWD(vOldPWD As String)
m_OldPWD = vOldPWD
End Property
'##ModelId=3D3389E60088
Public Property Get NewPWD() As String
NewPWD = m_NewPWD
End Property
'##ModelId=3D3389E60024
Public Property Let NewPWD(vNewPWD As String)
m_NewPWD = vNewPWD
End Property
'##ModelId=3D3389E600BA
Private Sub cmdCancel_Click()
m_Unchange = True
Unload Me
End Sub
'##ModelId=3D3389E600E3
Private Sub cmdOk_Click()
On Error Resume Next
If TxtNewPWD.Text = "" Then
MsgBox "新密码不能为空", , "提示"
Exit Sub
End If
If LCase(txtOldPWD.Text) = RTrim(LTrim(OldPWD)) Then
If LCase(TxtNewPWD.Text) = LCase(TxtVPWD.Text) Then
NewPWD = LCase(TxtNewPWD.Text)
Unload Me
Else
MsgBox "新密码与校验密码不一致，请重输。", vbOKOnly, "提示"
TxtNewPWD.SetFocus
SendKeys "{Home}+{End}"
TxtVPWD.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
End If
Else
MsgBox "原密码错误，请重输。", vbOKOnly, "提示"
Exit Sub
End If
End Sub
'##ModelId=3D3389E60115
Private Sub Form_Load()
Me.Top = (Screen.Height - Me.Height) / 2 - 500
Me.Left = (Screen.Width - Me.Width) / 2 - 500
SSPanel1.PictureBackground = mainForm.Pic.Picture
SSPanel1.PictureBackgroundStyle = ssTiled
m_Unchange = False
End Sub
'##ModelId=3D3389E6013D
Private Sub TxtNewPWD_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
TxtVPWD.SetFocus
End If
End Sub
'##ModelId=3D3389E601BF
Private Sub txtOldPWD_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
TxtNewPWD.SetFocus
End If
End Sub
'##ModelId=3D3389E60255
Private Sub TxtVPWD_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
cmdOK.SetFocus
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -