📄 密码.frm
字号:
Top = 4500
Width = 4695
End
Begin VB.OptionButton Option3
BackColor = &H00C0E0FF&
Caption = "合同号"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 840
TabIndex = 9
Top = 1320
Width = 1815
End
Begin VB.OptionButton Option1
BackColor = &H00C0E0FF&
Caption = "电话号码"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 315
Left = 840
TabIndex = 8
Top = 720
Value = -1 'True
Width = 1815
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "确认新密码"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 840
TabIndex = 7
Top = 3840
Width = 1695
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "旧密码确认"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 840
TabIndex = 6
Top = 2160
Width = 1695
End
Begin VB.Label lbl_xmm
BackStyle = 0 'Transparent
Caption = "输入新密码"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 840
TabIndex = 5
Top = 3000
Width = 1695
End
End
End
Attribute VB_Name = "frm_mima"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim dbzj As Database
Dim rstb1 As Recordset
Dim kk As Integer
Private Sub cmdFind_Click()
gdbpath = App.Path & "\"
Dim rsYHFY As Recordset
Dim str_sql As String
If Len(Trim(txt_hm.Text)) = 0 Then
aa = MsgBox("请输入电话号码或合同号！", , "警告！")
Exit Sub
Else
If Len(Trim(txt_jmm.Text)) = 0 Then
aa = MsgBox("请输入密码！", , "警告！")
Exit Sub
Else
If Len(Trim(txt_xmm.Text)) = 0 Then
aa = MsgBox("请输入新密码！", , "警告！")
Exit Sub
Else
If Len(Trim(txt_qrxmm.Text)) = 0 Then
aa = MsgBox("请确认新密码！", , "警告！")
Exit Sub
Else
Set dbzj = OpenDatabase(gdbpath & "zj.mdb")
If Option1.Value Then
Set rstb1 = dbzj.OpenRecordset("select * from dh_pwd where dhhm = '" & txt_hm.Text & "' and pwd = '" & txt_jmm.Text & "'")
Else
Set rstb1 = dbzj.OpenRecordset("select * from dh_pwd where hth='" & txt_hm.Text & "'and pwd='" & txt_jmm.Text & "'")
End If
If rstb1.EOF Then
aa = MsgBox("该密码不存在！", , "警告！")
Exit Sub
Else
If txt_xmm.Text <> txt_qrxmm.Text Then
aa = MsgBox("新密码不一致！", , "警告！")
Else
dbzj.Execute ("update dh_pwd set pwd = '" & txt_xmm.Text & "' where dhhm = '" & txt_hm.Text & "'")
aa = MsgBox("密码修改完毕！", , "申明！")
txt_hm.Text = ""
txt_jmm.Text = ""
txt_xmm.Text = ""
txt_qrxmm.Text = ""
End If
End If
rstb1.Close
dbzj.Close
End If
End If
End If
End If
End Sub
Private Sub Command13_Click()
Form15.Show
Unload Me
End Sub
Private Sub Form_Load()
txt_hm.Text = ""
txt_jmm.Text = ""
txt_xmm.Text = ""
txt_qrxmm.Text = ""
kk = 0
Text1 = "请输入电话号码或合同号！"
End Sub
Private Sub op_dhhm_Click()
txt_hm.Text = ""
txt_hm.SetFocus
End Sub
Private Sub op_hth_Click()
txt_hm.Text = ""
txt_hm.SetFocus
End Sub
Private Sub Command11_Click()
If kk = 3 Then
kk = 0
Else
kk = kk + 1
End If
Select Case kk
Case 0
Text1 = "请输入电话号码或合同号！"
Case 1
Text1 = "请输入旧密码！"
Case 2
Text1 = "请输入新密码！"
Case 3
Text1 = "请确认新密码！"
End Select
End Sub
Private Sub Command12_Click()
Select Case kk
Case 0
txt_hm = ""
Case 1
txt_jmm = ""
Case 2
txt_xmm = ""
Case 3
txt_qrxmm = ""
End Select
End Sub
Private Sub Command2_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "0"
Case 1
txt_jmm = txt_jmm & "0"
Case 2
txt_xmm = txt_xmm & "0"
Case 3
txt_qrxmm = txt_qrxmm & "0"
End Select
End Sub
Private Sub Command3_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "8"
Case 1
txt_jmm = txt_jmm & "8"
Case 2
txt_xmm = txt_xmm & "8"
Case 3
txt_qrxmm = txt_qrxmm & "8"
End Select
End Sub
Private Sub Command4_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "7"
Case 1
txt_jmm = txt_jmm & "7"
Case 2
txt_xmm = txt_xmm & "7"
Case 3
txt_qrxmm = txt_qrxmm & "7"
End Select
End Sub
Private Sub Command5_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "9"
Case 1
txt_jmm = txt_jmm & "9"
Case 2
txt_xmm = txt_xmm & "9"
Case 3
txt_qrxmm = txt_qrxmm & "9"
End Select
End Sub
Private Sub Command6_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "5"
Case 1
txt_jmm = txt_jmm & "5"
Case 2
txt_xmm = txt_xmm & "5"
Case 3
txt_qrxmm = txt_qrxmm & "5"
End Select
End Sub
Private Sub Command7_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "4"
Case 1
txt_jmm = txt_jmm & "4"
Case 2
txt_xmm = txt_xmm & "4"
Case 3
txt_qrxmm = txt_qrxmm & "4"
End Select
End Sub
Private Sub Command8_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "6"
Case 1
txt_jmm = txt_jmm & "6"
Case 2
txt_xmm = txt_xmm & "6"
Case 3
txt_qrxmm = txt_qrxmm & "6"
End Select
End Sub
Private Sub Command9_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "2"
Case 1
txt_jmm = txt_jmm & "2"
Case 2
txt_xmm = txt_xmm & "2"
Case 3
txt_qrxmm = txt_qrxmm & "2"
End Select
End Sub
Private Sub Command1_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "1"
Case 1
txt_jmm = txt_jmm & "1"
Case 2
txt_xmm = txt_xmm & "1"
Case 3
txt_qrxmm = txt_qrxmm & "1"
End Select
End Sub
Private Sub Command10_Click()
Select Case kk
Case 0
txt_hm = txt_hm & "3"
Case 1
txt_jmm = txt_jmm & "3"
Case 2
txt_xmm = txt_xmm & "3"
Case 3
txt_qrxmm = txt_qrxmm & "3"
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -