VB的工资管理系统.docx
《VB的工资管理系统.docx》由会员分享，可在线阅读，更多相关《VB的工资管理系统.docx（30页珍藏版）》请在冰豆网上搜索。
VB的工资管理系统
公司内部编号：
（GOOD-TMMT-MMUT-UUPTY-UUYY-DTTI-9018）
VB的工资管理系统
开题报告
课题名称：
企业人事工资管理系统
一．选题的依据及课题的意义：
目前市面上流行的人事管理系统不少。
但是，对于企事业单位的人事管理来说，不需要大型的数据库系统。
只需要一个操作方便，功能实用，能满足本中心对数据的管理及需求的系统。
我们的目标就是开发一个功能实用、操作方便，简单明了的人事管理系统，以满足大多数中小企业的需要。
二．国外研究概况及发展趋势：
20世纪80年代后期，进入到数据管理阶段。
该阶段的计算机系统广泛应用于企业管理。
同时工资管理系统已经由原来的人工管理走入了计算机管理的时代，作为信息管理主要工具的数据库已经成为举足轻重的角色。
数据库就是存放数据的仓库，数据按一定的规律存放在计算机中，在科学技术飞速发展的今天人们越来越依赖计算机把现实中的事物抽象成数据然后以记录的形式加以保存。
换个角度看数据库是长期存储在计算机内的，有组织的，可共享的数据集合。
它具有较小的冗余度，较高的系数据独立性和易扩展性等特征，可以让多个用户在不同的权限下使用。
这样用数据库技术来管理工资是一种趋势。
三．研究内容及实验方案；
研究内容：
本课题的研究内容是对数据库理论及软件工程理论的研究，并利用所学的知识将这些理论运用到实践中来，即用这两大理论开发一套工资管理系统。
这套系统包含以下几个功能模块：
1．工资信息设置
2工资信息管理
3.系统
其功能模块图如下所示：
图一系统功能模块图
本人研究的是以下几个功能模块：
（1）工资信息设置
这个模块的作用是包括设置员工的基本工资和其他项目的金额，如奖金等。
并且负责设置员工工资的计算公式.
（2）工资信息管理
这个模块包含的信息是包括统计出勤、计算工资、查询工资和导出工资表。
四．目标，主要特色及工作进度
目标：
在WINDOWS系统下，运用和ACCESS2000数据库进行开发，实现工资管理系统。
主要特色：
易操作，外观新颖，界面友好，探索性较强。
工作进度：
第14周：
收集相关资料，进行系统方案设计，写出开题报告
第15周：
实现各部分模块功能。
第16周：
整体调试并进行必要修改。
第17至18周：
测试所有功能，写论文。
五．参考文献
[1]张立科，VisualBasic数据库开发技术与工程实践，人民邮电出版社，月
[2]赵增敏，王庆建，ACCESS2000实用教程，电子工业出版设，月
[3]牛勇，VB编程篇，电子工业出版设，月
[4]徐士良，计算机软件技术基础，清华大学出版社，
工资管理系统
摘要：
企业的工资管理是公司管理的一个重要内容。
随着企业人员数量增加，企业的工资管理工作也变得越来越复杂。
工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。
工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。
资金是企业生存的主要元素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分。
早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。
早期工资管理多采取纸质材料和具有较强的时间限制。
基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。
企业工资管理系统是典型的信息管理系统（MIS），前台程序开发工具采用微软的VB6，后台数据库采用Access数据库。
VB6是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大的优点。
Access数据库具有与VB6无缝连接、操作简单、易于使用的优点。
运行结果证明，本企业工资管理系统极大提高了工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志。
关键词：
VB工资管理信息管理数据查询数据库
第一章绪论
企业工资管理系统
企业工资管理是一项琐碎、复杂而又十分细致的工作，一般不允许发生差错。
最初的工资统计和发放都是使用人工方式处理，工作量大的时候，出现错误的机率也随之升高，不仅花费财务人员大量的时间，而且往往由于抄写不慎，或者由于计算的疏忽，出现工资发放错误的现象。
同时工资的发放具有较强的时间限制，必须严格按照单位规定的时间完成计算和发放工作。
正是企业工资管理的这种重复性、规律性、时间性，使得企业工资管理计算机化成为可能。
企业工资管理系统就是使用电脑代替大量的人工统计和计算，完成众多企业工资信息的处理，同时使用电脑还可以安全地、完整地保存大量的企业工资记录。
第二章工资管理系统设计分析
应用需求分析
需求分析的过程可以说是一个对具体问题的反复理解和抽象的过程。
理解就是对现实问题的理解，要弄清楚究竟需要解决什么问题。
抽象就是除去问题的表面，提取问题的本质，建立问题的逻辑模型，以便于以后阶段的系统的设计实现。
需求分析阶段是软件产品生存命期中的一个重要阶段，其根本任务是确定用户对软件系统的需求。
所谓需求是指用户对软件的功能和性能的要求，就是用户希望软件能什么事情，完成什么样的功能，达到什么性能。
通常需求分为两种类型：
一种是功能性需求，一种是非功能性需求，这一点也需要有一种清楚的认识。
功能性需求是指需要计算机系统解决的问题，也就是对数据的处理要求，这是一类最主要的需求。
非功能性需求是指实际使用环境所要求的需求，往往是一些限制要求，例如：
性能要求，可靠性要求，安全保密要求，等等。
工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。
工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。
资金是企业生存的主要元素，资金的流动影响到企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分。
系统功能模块划分
根据该企业的业务情况及实现目标，系统功能模块图如图所示：
图系统功能模块
在这次系统开发中我主要完成的部分是工资管理和设置方面。
开发这个系统的目的就是帮助企业的财务主管部门提高工作效率，实现企业工资信息管理的系统化、规范化和自动化。
能够和认识管理系统、考勤管理系统相结合，真正实现企业高效、科学、现代化的员工管理。
系统最终实现的主要功能如下：
·企业工资信息设置部分：
包括设置员工的基本工资和其他项目的金额，如奖金等。
并且负责设置员工工资的计算公式。
图工资信息设置模块
·企业工资信息管理部分：
包括统计出勤、计算工资、查询工资和导出工资表。
图工资信息管理模块
·系统部分：
包括添加用户和修改密码。
图系统模块
系统数据库设计
数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中有着很重要的地位。
数据库设计的好与坏，直接影响到这个系统的运行效率。
良好的数据库设计，可以提高数据信息的存储效率，确保数据信息的完整性和一致性。
针对企业工资信息管理系统的需求，通过对员工工资计算过程的内容分析，为本系统设计如下的数据项和数据结构：
·基本工资信息：
包括员工编号和基本工资（元/小时）。
图基本工资实体E-r图
·其他项目信息：
包括员工编号、奖金、津贴、福利、扣发等。
图其他项目实体E-R图
·计算公式信息：
包括加班费的百分比、出差工资、旷工、迟到早退扣发等。
图计算公式实体E-R图
启动Access2000，创建新的数据库，命名为和，保存在要存放这个系统所有工程文件的文件夹中。
在使用的时，要把应用程序和这两个数据库保存在同一个文件夹中。
表员工出勤统计信息表：
字段
类型
长度
是否空
说明
id
自动编号
长整型
否
记录编号
stuffid
文本
50
否
员工编号
stuffname
文本
50
否
员工姓名
recordmonth
日期/时间
否
统计时间
attendance
数字
长整型
否
出勤天数
lateearly
数字
长整型
否
迟到早退次数
absent
数字
长整型
否
旷工次数
overtimecom
数字
长整型
否
正常加班次数
overtimespe
数字
长整型
否
特殊加班次数
errand
数字
长整型
否
出差次数
表员工工资计算公式信息表：
字段
类型
长度
是否空
说明
overtimecom
数字
长整型
否
正常加班工资百分比
overtimespe
数字
长整型
否
特殊加班工资百分比
errand
数字
长整型
否
出差工资
absent
数字
长整型
否
旷工工资
le
数字
长整型
否
迟到早退
表员工其他项目设置：
字段
类型
长度
是否空
说明
id
自动编号
长整型
否
记录编号
stuffid
文本
50
否
员工编号
yearmonth
日期/时间
否
年月
type
数字
长整型
否
类型
name
文本
50
是
类型
money
货币
货币
否
名称
remark
备注
是
备注
表员工工资统计信息表：
字段
类型
长度
是否空
说明
id
自动编号
长整型
否
记录编号
stuffid
文本
50
否
员工编号
stuffname
文本
50
否
员工姓名
yearmonth
日期/时间
否
时间
basicsalary
货币
货币
基本工资
bonus
货币
货币
奖金
welfare
货币
货币
福利
allowance
货币
货币
津贴
abatement
货币
货币
扣发
lesub
货币
货币
迟到早退扣发
absentsub
货币
货币
旷工扣发
overtime
货币
货币
加班费
errand
货币
货币
出差费
others
货币
货币
其他金额
total
货币
货币
总额
表员工信息表：
字段
类型
长度
是否空
说明
sid
文本
50
否
员工编号
sname
文本
50
否
员工姓名
sgender
文本
50
否
性别
splace
文本
50
否
籍贯
sage
数字
长整型
否
年龄
sbirthday
日期/时间
否
生日
sdegree
文本
50
是
学历
sspecial
文本
50
是
专业
saddress
文本
50
是
住址
scode
文本
50
是
邮编
stel
文本
50
是
电话
semail
文本
50
是
Email
sworkTime
日期/时间
否
参加工作时间
sintime
日期/时间
否
进入公司时间
sdept
文本
50
是
部门
spaytime
日期/时间
否
起薪时间
sposition
文本
50
是
职务
sremark
文本
50
是
备注
表用户信息表：
字段
类型
长度
是否空
说明
userid
文本
50
否
用户名称
userpwd
文本
50
否
用户密码
第三章工资管理系统应用程序设计
3．1“登录模块”详细设计
1、实现目标：
登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。
登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。
通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。
2、界面：
图用户登陆界面
登陆界面程序流程图如下:
图登陆程序流程图
3、程序说明：
DimpwdcountAsInteger
PrivateSubcmdcancel_Click（）
=""
=""
EndSub
PrivateSubcmdok_Click（）
DimsqlAsString
DimrsAs
IfTrim=""）Then
MsgBox"没有输入用户名称",vbOKOnly+vbExclamation,"
警告"
Else
sql="select*fromuserinfowhereuserid='"&&"'"
Setrs=getrs（sql,"salary"）
Ififlag=1Then
If=TrueThen
MsgBox"没有这个用户，请重新输入",vbOKOnly+vbExclamation,"
警告"
Else
IfTrim
（1））=TrimThen
strusername=Trim
userpassword=Trim
UnloadMe
Else
MsgBox"密码不正确，请重新输入",vbOKOnly+
vbExclamation,"警告"
=""
EndIf
EndIf
EndIf
EndIf
pwdcount=pwdcount+1
Ifpwdcount=3Then
UnloadMe
EndIf
EndSub
PrivateSubForm_Load（）
pwdcount=0
strusername=""
userpassword=""
EndSub
3．2“主窗体”模块详细设计
1实现目标：
在这个项目中，选择使用多文档界面。
使用这个窗体的好处是可以使程序更加有条理。
对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。
2、界面及目标实现过程：
主窗体设计的界面是用菜单编辑器做的，主要由系统、工资信息设置、工资信息管理和关于这四个大模块组成。
主窗体是进行相关操作的主界面。
在这几个里，管理员有所有的权利进行各种操作。
图员工工资管理系统界面
3、程序说明：
rivateSubMenu_about_Click（）
0
EndSub
PrivateSubMenu_adduser_Click（IndexAsInteger）
IfTrim（strusername）<>"admin"Then
MsgBox"对不起，您没有这个权限！
",vbOKOnly+vbExclamation,"警告"
ElseIfTrim（strusername）="admin"Then
0
EndIf
EndSub
PrivateSubMenu_basic_Click（IndexAsInteger）
IfTrim（strusername）<>"admin"Then
MsgBox"对不起，您没有这个权限！
",vbOKOnly+vbExclamation,"警告"
ElseIfTrim（strusername）="admin"Then
ichangeflag=1
0
EndIf
EndSub
PrivateSubMenu_changepwd_Click（IndexAsInteger）
0
EndSub
PrivateSubMenu_check_Click（IndexAsInteger）
0
="信息查询"
EndSub
PrivateSubMenu_exit_Click（IndexAsInteger）
UnloadMe
ExitSub
EndSub
PrivateSubMenu_formulasetting_Click（IndexAsInteger）
IfTrim（strusername）<>"admin"Then
MsgBox"对不起，您没有这个权限！
",vbOKOnly+vbExclamation,"警告"
ElseIfTrim（strusername）="admin"Then
0
EndIf
EndSub
PrivateSubMenu_getsalary_Click（IndexAsInteger）
IfTrim（strusername）<>"admin"Then
MsgBox"对不起，您没有这个权限！
",vbOKOnly+vbExclamation,"警告"
ElseIfTrim（strusername）="admin"Then
0
EndIf
EndSub
PrivateSubMenu_others_Click（IndexAsInteger）
IfTrim（strusername）<>"admin"Then
MsgBox"对不起，您没有这个权限！
",vbOKOnly+vbExclamation,"警告"
ElseIfTrim（strusername）="admin"Then
ichangeflag=1
0
EndIf
EndSub
PrivateSubMenu_out_Click（IndexAsInteger）
IfTrim（strusername）<>"admin"Then
MsgBox"对不起，您没有这个权限！
",vbOKOnly+vbExclamation,"警告"
ElseIfTrim（strusername）="admin"Then
0
EndIf
EndSub
PrivateSubMenu_sumattendance_Click（IndexAsInteger）
0
EndSub
３.３ 各项子模块详细设计
3.3.1“设置基本工资”窗体设计
1、实现目标：
选择“工资信息设置”—>“基本工资设置”菜单设置员工的基本工资，可以根据员工的编号，或者根据员工职务设置基本工资，设置的基本工资为每个小时的工资。
2、界面及控件列表
图设置基本工资界面
表设置基本工资主要控件列表
对象
属性
设置
optionbutton
Caption
员工编号
optionbutton
Caption
员工职务
Command1
caption
确认
Command2
caption
取消
3、程序说明：
Setrs=getrs（sql,"salary"）
If=FalseThen
Calltransactsql（sql,"salary"）
EndIf
Calladdrecord
MsgBox"已经设置基本工资",vbOKOnly+vbExclamation,"添加结果"
Callinit
sql="select*fromsalarysetting"
Call
Call（sql）
0
0
3.3.2“其他项目设置”窗体设计
1、实现目标：
选择“工资信息设置”—>“其他项目设置”菜单，在其他项目设置的窗体中，设置员工当月的奖金、津贴、福利等项目。
2、界面及主要控件列表
图其他项目设置界面
表其他项目主要控件
对象
属性
设置
dtpicker
名称
dttime
combobox
名称
comid
frame
名称
frameinfo
text
text
空
Optionbutton
value
false
3、程序说明：
sql="select*fromsalaryother"
Ifichangeflag=1Then
Calladd
MsgBox"已经添加记录",vbOKOnly+vbExclamation,"提示"
Call
Call（sql）
UnloadMe
Else
itype=1
itype=2
itype=3
itype=4
itype=5
resumdate=recordtime
sql=sql&"'andYearMonth=#"&recordtime&"#and"
sql=sql&"Type="&itype
Calltransactsql（sql,"Salary"）
Calladd
Call（resumdate）
sql="select*fromsalaryother"
Call
Call（sql）
UnloadMe
EndIf
3.3.3“工资计算公式设置”窗体设计
1、实现目标：
选择“工资信息设置”—>“工资计算公式设置”菜单，在这个计算公式窗体中设置员工实际发放工资的计算公式。
2、界面及主要控件列表
图计算公式界面
表主要控件列表
对象
属性
设置
lable
caption
界面所示
command
caption
界面所示
text
text
空
3、程序说明：
=""AndIsNumeric=TrueThen
MsgBox"请输入正常加班工资百分比",vbOKOnly+vbExclamation,"提示"
=""
ElseIf=""AndIsNumeric=FalseThen
MsgBox"请输入特殊加班工资百分比",vbOKOnly+vbExclamation,"提示"
=""
ElseIf=""AndIsNumeric=FalseThen
MsgBox"请输入出差工资",vbOKOnly+vbExclamation,"提示"
=""
ElseIf=""AndIsNumeric=FalseThen
MsgBox"请输入旷工扣发工资",vbOKOnly+vbExclamation,"提示"
=""
ElseIf=""AndIsNumeric=FalseThen
MsgBox"请输入迟到早退扣发工资",vbOKOnly+vbExclamation,"提示"
=""
Else
Callsetvalue
Callinit
EndIf
3.3.4“计算实发工资”窗体设计
1、实现目标：
选择“工资信息管理”
升级会员 