免费VB+员工管理系统(十)

免费VB+员工管理系统(十) bsp;  TabToEnter KeyCode
 End Sub
 
 3、系统主界面的设计效果

4、修改密码窗体：

图4－3

 图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

Private Sub CombineDate()               '获得起始和结束时间
    fromdate = Me.FromYear.Text & "-" & Me.FromMonth.Text &

首页 上一页 7 8 9 10 11 12 13 下一页 尾页 10/13/13

免费VB+员工管理系统(十)由毕业论文网（www.huoyuandh.com）会员上传。