职工工资管理系统.docx

职工工资管理系统.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=""