职工工资管理系统.docx
《职工工资管理系统.docx》由会员分享，可在线阅读，更多相关《职工工资管理系统.docx（22页珍藏版）》请在冰豆网上搜索。
职工工资管理系统
课程设计任务书
学院
信息科学与工程学院
专业
计算机科学与技术
学生姓名
学号
设计题目
职工工资管理系统
内容及要求：
内容：
利用VB6.0及SQLServer2000自行设计一个职工工资管理系统，数据库里至少包括3个表：
用户表、职工基本信息表、职工工资信息表。
用户表用于记录用于登录系统的用户名及密码；职工基本信息表用于记录职工的基本信息；职工工资信息表用于记录职工的工资信息。
要求：
1.拥有用户登录窗体、主窗体
2.能够进行对职工基本信息的浏览、编辑
3.能够进行对职工工资信息的浏览、编辑
4.能够实现按某个字段查询职工的基本信息及工资信息
5.能够显示打印报表
进度安排：
第19周：
系统需求分析，设计E-R图
数据库设计和模块设计
进行软件编码设计，实现各模块功能
第20周：
继续完成软件设计，调试与完善系统的各项功能
书写课程设计报告。
验收程序，答辩。
指导教师（签字）：
年月日
学院院长（签字）：
年月日
目录
第1章系统功能概述...........................................................................................2
1.1系统功能...........................................................................................…….2
1.2系统层次图……................................................................................……2
第2章数据库设计…................................................................................……...3
2.1需求分析………………………………………………………………....3
2.2E-R模型…………………………………………………………………4
2.3关系模型………………………………………………………………...5
2.4表结构设计……………………………………………………………...5
第3章系统各功能模块的详细设计…………………………………………..7
3.1系统界面………………………………………………………………...7
3.2主窗体界面……………………………………………………………...7
3.3登录模块………………………………………………………………...8
3.3.1用户登录……………………………………………………………8
3.3.2用户注册……………………………………………………………9
3.4用户管理模块……………………………………………………..........10
3.5数据管理模块…………………………………………………………..11
3.5.1职工基本信息浏览………………………………………………...11
3.5.2职工基本信息录入………………………………………………...13
3.6数据查询模块…………………………………………………………..16
3.7打印报表模块…………………………………………………………..17
第4章课设总结……………………………………………………………….18
参考文献………………………………………………….....................................18
第1章系统功能概述
1.1系统功能
职工工资管理系统是针对系统服务对象的具体要求设计的，其主要任务是用计算机对企业内部各职工的基本信息、工资信息进行日常管理，如查询、修改、添加、删除等操作。
职工工资管理系统的目标是能迅速并且准确地完成对职工基本信息及工资信息的查询、录入、修改，以及对工资信息的统计计算及汇总工作。
本系统运用VB6.0及SQLServer2000实现，主要设计了以下几大功能：
（1）按某字段对职工基本信息的录入、查询及更新
（2）按某字段对职工工资信息的录入、查询及更新
（3）系统自动根据所输入的工资信息进行统计计算
应发工资＝基本工资+补助+奖金
缴税＝基本工资×10%
实发工资＝应发工资－缴税－水电费－保险费
（4）利用DataReport设计器实现对职工基本信息及工资信息的打印预览
1.2系统层次图
图1.1系统层次图
第2章数据库设计
2.1需求分析
本系统运用VB6.0及SQLServer2000实现，拥有1个登录窗体、1个主窗体、10个子窗体、1个数据环境设计器及2个数据报表设计器。
登录窗体里可以由单击事件调用注册窗体，登录成功后进入主窗体，主窗体有4个主菜单：
用户管理、数据管理、数据查询、打印报表。
1.用户管理：
用户管理包括修改密码及退出2项子菜单。
2.数据管理：
数据管理有4个子菜单，可实现对职工基本信息、职工工资信息的浏览及录入功能。
3.数据查询：
数据查询中应用了DataGrid控件，用来查询职工基本信息及工资信息。
4.打印报表：
打印报表调用DataReport设计器，实现对职工基本信息表、职工工资信息表的打印预览。
本系统在SQLServer2000数据库里设计了3个数据表：
用户表：
（用户名，密码）用于记录注册过的用户名及密码
职工基本信息表：
（职工编号，姓名，性别，出生日期，职称，部门，入职时间）
职工工资信息表：
（职工编号，年份，月份，基本工资，补助，奖金，应发工资，缴税，
水电费，保险费，实发工资）
应发工资＝基本工资+补助+奖金
缴税＝基本工资×10%
实发工资＝应发工资－缴税－水电费－保险费
2.2E-R模型
1.用户实体：
图2.1用户实体及其属性
2.职工实体与工资实体的E-R模型：
1
1
图2.2职工实体与工资实体的E-R模型
2.3关系模型
本系统设计了3个实体，用户实体，职工实体，工资实体，其中用户实体是相对独立的，与另外两个实体不存在联系；职工实体与工资实体存在着1：
1的联系，且两个实体取决于同一个属性——职工编号。
因此可将本系统的E-R模型转化为下述关系模型：
用户：
（用户名，密码）
职工：
（职工编号，姓名，性别，出生日期，职称，部门，入职时间）
工资：
（职工编号，年份，月份，基本工资，补助，奖金，应发工资，缴税，
水电费，保险费，实发工资）
2.4表结构设计
本系统在SQLServer2000数据库里共设计了3个数据表来记录数据：
用户表，职工基本信息表，职工工资表。
1.用户表：
表2.1用户表的结构
列名
数据类型
长度
约束
用户名
char
10
主键
密码
char
6
不为空
2.职工基本信息表：
表2.2职工基本信息表的结构
列名
数据类型
长度
约束
职工编号
char
10
主键
姓名
char
10
不为空
性别
char
2
不为空
出生日期
datetime
8
不为空
职称
char
10
允许空
部门
char
10
允许空
入职时间
datetime
8
不为空
3.职工工资表：
表2.3职工工资表的结构
列名
数据类型
长度
约束
职工编号
char
10
主键
年份
char
4
不为空
月份
char
2
不为空
基本工资
int
4
不为空
补助
int
4
允许空
奖金
int
4
允许空
应发工资
int
4
不为空
缴税
int
4
不为空
水电费
int
4
不为空
保险费
int
4
不为空
实发工资
int
4
不为空
第3章系统各功能模块的详细设计
3.1系统界面
设计有定时器实现滚动字幕效果，单击“点击进入”会弹出用户登录窗口。
图3.1系统界面
3.2主窗体界面
主窗体设计了四个主菜单：
用户管理，数据管理，数据查询，打印报表。
用户管理可以实现用户密码的修改；数据管理可对数据库里的信息进行浏览、录入；数据查询可按某个字段查询数据；打印报表实现对数据的打印预览。
图3.2系统主窗体
3.3登录模块
3.3.1用户登录
在正确输入用户表里的用户名以及对应的密码后，点击“登录”，才能进入主窗体，否则会提示相关的警告信息；按“取消”则退回系统界面。
图3.3用户登录窗体
PrivateSubCommandLand_Click（）
DimsqlstrAsString
IfText1=""Then
MsgBox"请输入用户名！
",vbExclamation,"确认用户名"
Text1.SetFocus
ExitSub
Else
sqlstr="select*from用户表where用户名='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"用户名不存在，请重新输入",vbExclamation,"警告"
Text1.Text=""
Text1.SetFocus
Else
IfAdodc1.Recordset.Fields（"密码"）=Text2Then
Form3.Show
Form3.Label2.Caption=Adodc1.Recordset.Fields（"用户名"）
UnloadMe
Else
MsgBox"密码错误，请重新输入",vbExclamation,"警告"
Text2.Text=""
Text2.SetFocus
EndIf
EndIf
EndIf
EndSub
PrivateSubCommandCancel_Click（）
UnloadMe
Form1.Show
EndSub
3.3.2用户注册
本模块提供用户注册功能，并把文本框里的用户名、密码录入用户表里。
图3.4用户注册窗体
PrivateSubCommandOK_Click（）
DimsqlstrAsString
IfText1=""Then
MsgBox"请输入用户名！
",vbExclamation,"确认用户名"
Text1.SetFocus
ExitSub
Else
sqlstr="select*from用户表where用户名='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"用户已存在，请重新输入！
",vbExclamation,"检验用户名"
Text1=""
Text1.SetFocus
ExitSub
EndIf
EndIf
IfText2<>Text3Then
MsgBox"两次输入的密码不一致，请重新输入",vbExclamation,"检验密码"
Text2="":
Text3=""
Text2.SetFocus
ExitSub
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields（"用户名"）=Trim（Text1）
Adodc1.Recordset.Fields（"密码"）=Trim（Text2）
Adodc1.Recordset.Update
Me.Hide
MsgBox"成功注册新用户！
",vbInformation,"添加用户"
EndIf
UnloadMe
Form2.Show
EndSub
3.4修改密码模块
本模块可对登录成功的用户实现修改密码的功能，并用新密码替换原来的密码。
图3.5修改密码窗体
PrivateSubCommandOK_Click（）
DimsqlstrAsString
sqlstr="select*from用户表where用户名='"&Form3.Label2.Caption&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfText1=""Then
MsgBox"请输入原密码！
",vbExclamation,"输入原密码"
Text1.SetFocus
ExitSub
Else
IfText1<>Adodc1.Recordset.Fields（"密码"）Then
MsgBox"密码错误，请重新输入！
",vbExclamation,"密码错误"
Text1=""
Text1.SetFocus
ExitSub
EndIf
EndIf
IfText2=""Then
MsgBox"新密码不能为空，请重新输入！
",vbExclamation,"密码不能为空"
Text2.SetFocus
ExitSub
Else
IfText2<>Text3Then
MsgBox"两次输入的密码不一致，请重新输入",vbExclamation,"检验密码"
Text2="":
Text3=""
Text2.SetFocus
ExitSub
Else
Adodc1.Recordset.Fields（"密码"）=Text2.Text
Adodc1.Recordset.Update
Form5.Adodc1.Refresh
Me.Hide
MsgBox"密码修改成功！
",vbInformation,"修改成功"
EndIf
EndIf
UnloadMe
Form3.Show
EndSub
3.5数据管理模块（以职工基本信息的浏览及录入为例）
3.5.1职工基本信息浏览
本模块可对职工基本信息表里的内容按“编号”一条一条地浏览，点击移动按钮可以移动记录指针，也可点击“表格显示”查看全部信息。
图3.6职工基本信息浏览窗体
PrivateSubCommandFirst_Click（）
Adodc1.Recordset.MoveFirst
CommandFirst.Enabled=False
CommandPre.Enabled=False
CommandNext.Enabled=True
CommandLast.Enabled=True
Label9.Caption="记录：
"&Adodc1.Recordset.AbsolutePosition&"/"&_
Adodc1.Recordset.RecordCount
EndSub
PrivateSubCommandLast_Click（）
Adodc1.Recordset.MoveLast
CommandFirst.Enabled=True
CommandPre.Enabled=True
CommandNext.Enabled=False
CommandLast.Enabled=False
Label9.Caption="记录：
"&Adodc1.Recordset.AbsolutePosition&"/"&_
Adodc1.Recordset.RecordCount
EndSub
PrivateSubCommandNext_Click（）
Adodc1.Recordset.MoveNext
CommandFirst.Enabled=True
CommandPre.Enabled=True
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
CommandNext.Enabled=False
CommandLast.Enabled=False
EndIf
Label9.Caption="记录：
"&Adodc1.Recordset.AbsolutePosition&"/"&_
Adodc1.Recordset.RecordCount
EndSub
PrivateSubCommandPre_Click（）
Adodc1.Recordset.MovePrevious
CommandNext.Enabled=True
CommandLast.Enabled=True
IfAdodc1.Recordset.BOFThen
Adodc1.Recordset.MoveFirst
CommandFirst.Enabled=False
CommandPre.Enabled=False
EndIf
Label9.Caption="记录：
"&Adodc1.Recordset.AbsolutePosition&"/"&_
Adodc1.Recordset.RecordCount
EndSub
PrivateSubForm_Load（）
CommandFirst.Enabled=False
CommandPre.Enabled=False
CommandNext.Enabled=True
CommandLast.Enabled=True
Label9.Caption="记录：
"&Adodc1.Recordset.AbsolutePosition&"/"&_
Adodc1.Recordset.RecordCount
EndSub
3.5.2职工基本信息录入
本模块可对职工基本信息表已有的数据按“编号”进行删除及修改，也可输入新的“编号”添加新的职工信息。
图3.7职工基本信息录入窗体
PrivateSubForm_Load（）
CommandOK.Enabled=False
CommandCancel.Enabled=False
Combo1.AddItem"实习生"
Combo1.AddItem"程序员"
Combo1.AddItem"工程师"
Combo1.AddItem"架构师"
Combo1.Text=Combo1.List（0）
WithCombo2
.AddItem"培训部"
.AddItem"政府部"
.AddItem"技术部"
.Text=Combo2.List（0）
EndWith
EndSub
PrivateSubCommand1_Click（）
Text1.SetFocus
Command1.Enabled=False
Command2.Enabled=False
Command3.Enabled=False
CommandOK.Enabled=True
CommandCancel.Enabled=True
EndSub
PrivateSubcommand2_click（）
X=MsgBox（"确定要删除当前记录吗？
",vbYesNo+vbQuestion,"确认删除"）
IfX=vbYesThen
Adodc1.Recordset.Delete
MsgBox"成功删除记录！
",vbInformation,"删除成功"
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
EndIf
Else
Adodc1.Refresh
EndIf
EndSub
PrivateSubCommand3_Click（）
IfText1=""Then
MsgBox"请输入职工编号！
",vbExclamation,"输入编号"
Text1.SetFocus
ExitSub
Else
sqlstr="select*from职工基本信息表where编号='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"该编号不存在，请重新输入！
",vbExclamation,"检验编号"
Text1=""
Text1.SetFocus
ExitSub
Else
X=MsgBox（"确定要修改当前记录吗？
",vbYesNo+vbQuestion,"确认修改"）
IfX=vbYesThen
Adodc1.Recordset.Fields（"编号"）=Text1
Adodc1.Recordset.Fields（"姓名"）=Text2
Adodc1.Recordset.Fields（"性别"）=Text3
Adodc1.Recordset.Fields（"出生日期"）=Text4
Adodc1.Recordset.Fields（"职称"）=Combo1.Text
Adodc1.Recordset.Fields（"部门"）=Combo2.Text
Adodc1.Recordset.Fields（"入职时间"）=Text5
Adodc1.Recordset.Update
MsgBox"成功修改记录！
",vbInformation,"修改成功"
Else
Adodc1.Refresh
EndIf
EndIf
EndIf
EndSub
PrivateSubCommandOK_Click（）
DimsqlstrAsString
IfText1=""Then
MsgBox"请输入职工编号！
",vbExclamation,"输入编号"
Text1.SetFocus
ExitSub
Else
sqlstr="select*from职工基本信息表where编号='"&Text1&"'"
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.EOF=FalseThen
MsgBox"该编号已存在，请重新输入！
",vbExclamation,"检验编号"
Text1=""
升级会员 