图4－2
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
Dim SQL As String
Dim rs As ADODB.Recordset
IfTrim(OldPWD.Text)=""Then '判断是否输入旧密码
MsgBox "请输入旧密码", vbOKOnly + vbExclamation, "警告"
OldPWD.SetFocus
Exit Sub
Else
If Trim(NewPWD.Text) = "" Then '判断是否输入新密码
MsgBox "请输入新密码", 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='"
MsgBox "密码已经修改", vbOKOnly + vbExclamation, "修改结果"
Unload Me
End If
End If
End Sub
Private Sub Form_Load()
OldPWD.Text = ""
NewPWD.Text = ""
confirmPWD.Text = ""
End Sub
5、查询员工信息
图4－4
相关代码如下：
Option Explicit
Private query As String '保存SQL语句
Private fromdate As String '起始时间
Private todate As String '结束时间
Private Sub cmdCancel_Click()
Unload Me
Exit Sub
End Sub
