下载此文档

VB银行代扣代发工资系统源代码论文.doc


文档分类:IT计算机 | 页数:约24页 举报非法文档有奖
1/24
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/24 下载此文档
文档列表 文档介绍
附录
系统使用说明:
(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转载请标明出处.

非法内容举报中心
文档信息
  • 页数24
  • 收藏数0 收藏
  • 顶次数0
  • 上传人36296518
  • 文件大小0 KB
  • 时间2014-05-17