VB银行代扣代发工资系统(论文和程序)
VB银行代扣代发工资系统(论文和程序)-系统图片展示 |
VB银行代扣代发工资系统(论文和程序)-包括论文和程序列表 |
包括目录名称:
VB银行代扣代发工资系统(论文和程序) - 7 文件数, 3 目录数.
包括目录名称:
银行代扣代发工资系统 - 0 文件数, 1 目录数.
包括目录名称:
银行代扣代发工资系统(vb) - 0 文件数, 0 目录数.
包括目录名称:
银行代扣代发工资系统(文档) - 0 文件数, 0 目录数.
包括目录名称:
银行代扣代发工资系统(程序) - 13 文件数, 3 目录数.
包括目录名称:
database - 2 文件数, 0 目录数.
..\企业工资管理系统.ldb
..\企业工资管理系统.mdb
包括目录名称:
forms - 20 文件数, 0 目录数.
..\frmAbout.frm
..\frmAddUser.frm
..\frmAttInfo.frm
..\frmBMInfo.frm
..\frmBMInfo.frx
..\frmBSalary.frm
包括目录名称:
modules - 1 文件数, 0 目录数.
..\Module1.bas
..\DataEnvironment1.DCA
..\DataEnvironment1.Dsr
..\DataReport1.DCA
..\DataReport1.Dsr
..\DataReport1.dsx
..\DataReport2.DCA
..\参考文献(doc)699.doc
..\开题报告(doc)701.doc
..\摘要(doc)703.doc
..\正文(doc)704.doc
..\目录(doc)702.doc
..\致谢(doc)705.doc
VB银行代扣代发工资系统(论文和程序)-论文部分内容 |
附录(doc)700-部分内容附录
系统使用说明:
(1)本系统的用户名称为admin,初始密码为admin。
(2)在系统的工资结算模块中,输入"员工编号"或"员工姓名"后按回车键,调出该名员工的个人信息和基本工资信息;选择年份及月份后,单击"更新"按钮,更新该名员工的本月的考勤信息;输入奖金等后,单击"计算"按钮,得到该名员工本月的工资,单击"保存"后保存相应的信息。
系统中各窗体代码:
(1)用户登录窗体代码
*确定按钮代码:
PrivateSubcmdOK_Click()
GoToerrorhandle
DimfinduserAsBoolean
finduser=False
Adodc1.Recordset.MoveFirst'将记录指针移动到首记录
IfTrim(UserName.Text="")Then
MsgBox"请输入用户名称!",vbOKOnly+vbExclamation,"警告"
UserName.SetFocus
ExitSub
Else
DoWhileNotAdodc1.Recordset.EOF'判断数据表是否已经读完,即遍历整张表
IfAdodc1.Recordset.Fields("用户名称")=Trim(UserName.Text)Then'field就是某个字段
finduser=True
IfAdodc1.Recordset.Fields("用户密码")=Trim(PassWord.Text)Then
Me.Hide
strUserName=Trim(UserName.Text)'保存用户名称
frmMain.Show
UnloadMe
Else
MsgBox"密码不正确,请重新输入!",vbOKOnly+vbExclamation,"警告"
PassWord.SetFocus
PassWord.Text=""
EndIf
EndIf
Adodc1.Recordset.MoveNext'记录往下移动一条
Loop
Iffinduser=FalseThen
MsgBox"没有这个用户,请重新输入!",vbOKOnly+vbExclamation,"警告"
UserName.SetFocus
UserName.Text=""
EndIf
EndIf
ExitSub
errorhandle:
MsgBox"您的操作有误!",vbOKOnly+vbExclamation,"错误"
EndSub
PrivateSubForm_Load()
UserName.Text=""
PassWord.Text=""
EndSub
*取消按钮代码
PrivateSubcmdCancel_Click()
UnloadMe
ExitSub
EndSub
(2)修改密码窗体代码
*"确定"按钮代码
PrivateSubcmdOK_Click()
IfTrim(OldPWD.Text)=""Then
MsgBox"请输入旧密码!",vbOKOnly+vbExclamation,"提示"
OldPWD.SetFocus
'ExitSub
Else
IfAdodc1.Recordset.Fields("用户密码")<>Trim(OldPWD.Text)Then
MsgBox"旧密码输入错误!",vbOKOnly+vbExclamation,"提示"
OldPWD.Text=""
OldPWD.SetFocus
Else
IfTrim(NewPWD.Text)=""Then
MsgBox"请输入新密码!",vbOKOnly+vbExclamation,"提示"
NewPWD.SetFocus