附录
系统使用说明:
(1) 本系统的用户名称为admin,初始密码为admin。
(2) 在系统的工资结算模块中,输入“员工编号”或“员工姓名”后按回车键,调出该名员工的个人信息和基本工资信息;选择年份及月份后,单击“更新”按钮,更新该名员工的本月的考勤信息;输入奖金等后,单击“计算”按钮,得到该名员工本月的工资,单击“保存”后保存相应的信息。
系统中各窗体代码:
(1) 用户登录窗体代码
确定按钮代码:
Private Sub cmdOK_Click()
On Error GoTo errorhandle
Dim finduser As Boolean
finduser = False
'将记录指针移动到首记录
If Trim( = "") Then
MsgBox "请输入用户名称!", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
Do While Not '判断数据表是否已经读完,即遍历整张表
If ("用户名称") = Trim() Then 'field就是某个字段
finduser = True
If ("用户密码") = Trim() Then
strUserName = Trim() '保存用户名称
Unload Me
Else
MsgBox "密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
= ""
End If
End If
'记录往下移动一条
Loop
If finduser = False Then
MsgBox "没有这个用户,请重新输入!", vbOKOnly + vbExclamation, "警告"
= ""
End If
End If
Exit Sub
errorhandle:
MsgBox "您的操作有误!", vbOKOnly + vbExclamation, "错误"
End Sub
Private Sub Form_Load()
= ""
= ""
End Sub
取消按钮代码
Private Sub cmdCancel_Click()
Unload Me
Exit Sub
End Sub
(2)修改密码窗体代码
“确定”按钮代码
Private Sub cmdOK_Click()
If Trim() = "" Then
MsgBox "请输入旧密码!", vbOKOnly + vbExclamation, "提示"
'Exit Sub
Else
If ("用户密码") <> Trim() Then
MsgBox "旧密码输入错误!", vbOKOnly + vbExclamation, "提示"
= ""
Else
If Trim() = "" Then
MsgBox "请输入新密码!", vbOKOnly + vbExclamation, "提示"
'Exit Sub
Else
If Trim() <> Trim() Then
MsgBox "两次密码不一致!", vbOKOnly + vbExclamation, "提示"
= ""
= ""
Else
("用户密码") =
VB银行代扣代发工资系统源代码论文 来自淘豆网www.taodocs.com转载请标明出处.