数据库课程设计设职工工资管理系统.doc

沈阳理工大学课程设计专用纸
成 绩 评 定 表
学生姓名

班级学号

专 业
应用统计学
课程设计题目
职工工资管理系统
评
语
组长签字：

成绩

日期
20 年 月 日

7

课程设计任务书
学 院
理学院
专 业
应用统计学
学生姓名

班级学号

课程设计题目
职工工资管理系统
实践教学要求与任务:
1.职工工资管理系统
（1）职工信息
(2）职工工资信息
（3）系统信息
(4）岗位信息
2。数据库的设计
(1）系统信息（用户名、密码)
(2)职工信息（职工编号、姓名、性别、部门名称、学历、职称)
（3)职工工资信息（工资号、姓名、基本工资、奖金、缴税、保险费、应发工资、 实发工资)
（4)岗位信息（编号、职称类别、薪酬标准)
工作计划与进度安排:
第一周：数据库设计,利用SQL Server创建数据库及数据表。
总体结构设计，设计调试系统首页、登陆窗体及MDI窗体。
第二周:管理功能设计，设计调试各种数据管理功能窗体及打印报表功能.
撰写课程设计报告，验收与答辩.
指导教师：
2014 年11月20日
专业负责人：
2014 年11 月20 日
学院教学副院长：
2014年11 月21日

摘 要
企业的工资管理是公司管理的一个重要内容.随着企业人员数量增加,企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理，同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等,来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要元素，资金的流动影响到 企业的整体运作，企业员工的工资是企业资金管理的一个重要的组成部分.早期的工资统计和发放都是使用人工方式处理纸质材料,不仅花费财务人员大量的时间且不易保存,往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时间限制。基于以上原因，企业工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。
关键词 关键词1：职工
关键词2:工资
关键词3：职工工资
目 录
1 系统功能概述1
1.1 系统功能分析…1
1。2 系统模块设计…1
2 数据库设计2
2。1 需求分析2
2。2 表结构设计2
3 系统各功能模块的详细设计3
3.1 表的设计3
3。2 各窗体设计……5
参考文献14
1 系统功能概述
1。1 系统功能分析
工资管理系统系是为了更好地实现工资各种信息的管理以及各种信息的安全性管理。本系统主要对查看员工的各种工资信息需求所设计的，可以很好的管理数据. 本系统的主要功能由以下几个部分组成：
经过调研及分析,工资管理信息系统主要完成以下功能：
（1）能够进行职工基本信息的浏览、编辑
(2）能够进行职工工资信息的浏览、编辑
(3）能够按姓名、或部门、或职称查询职工的基本信息；查询职工工资信息
1。2 系统物理模块设计
职工工资管理系统

职工信息
工资基本设定

缴税
实发工资
应发工资
保险费
奖金
基本工资
员工信息修改
员工信息删除
员工信息添加
2 数据库设计
2.1 需求分析
登录信息 返回信息
操作
登录
用户

错误信息 寻找信息
数据库需求分析——数据流图
2。2 表结构设计
3 系统各功能模块的详细设计
3.1 表的设计
1.职工信息表
字段名
是否为空
数据类型
职工编号
NULL
int
姓名
NULL
nchar(10)
性别
NULL
nchar（10）
部门名称
NULL
nchar（10）
学历
NULL
nchar（10）
职称
NULL
nchar（10）
2。职工工资表
字段名
是否为空
数据类型
工资号
NULL
int
基本工资
NULL
int
姓名
NULL
nchar（10)
奖金
NULL
int
缴税
NULL
int
保险费
NULL
int
应发工资
NULL
int
实发工资
NULL
int
3。系统信息表
字段名
是否为空
数据类型
用户名
NULL
nchar（10）
密码
NULL
int
4.岗位信息表
字段名
是否为空
数据类型
编号
NULL
int
职称类别
NULL
nchar（10)
薪酬标准
NULL
nchar（10）
3.2 各窗体设计
3.2.1启动封面窗体及登录对话框的设计
要求：图片背景、欢迎类文字、单击显示“进入系统"标题的标签或按钮，将打开“登录”对话框,用户输入用户名和密码，若正确则打开下面的主窗体;否则提示密码错误，请重新输入.最多允许输入3次。
进入系统后进入登陆主窗体的编码为:
Private Sub Command1_Click(）
登录。Show
End Sub
登陆编码如下:
Dim miCount As Integer
Private Sub CmdLand_Click（）
Dim SQLStr As String
SQLStr = ”Select ＊ From 系统信息 Where 用户名= ’" & Text1 & ”'"
Adodc1。RecordSource = SQLStr
Adodc1。Refresh
If Adodc1.Recordset。EOF Then
MsgBox ”用户名错误,重新输入”， vbExclamation， "警告”
Text1.Text = " "
Text1。SetFocus
Else
If Adodc1。Recordset.Fields（”密码”） = Text2 Then
MDIForm1.Show
Unload Me
Else
MsgBox ”密码错误，重新输入 ”, vbExclamation， ”警告”
Text2。Text = ” ”
Text2.SetFocus
End If
End If
miCount = miCount + 1
If miCount = 3 Then Unload Me
End Sub
Private Sub CmdCancel_Click（）
Unload Me
End Sub
3。2。2主窗体
要求：设计为MDI窗体，含有主菜单:［文件］、[数据管理]、[数据查询］。
[文件］菜单包含以下子菜单及其功能：
［注册新用户］菜单：打开“注册新用户”窗体
[退出]：结束程序运行
[数据管理] 包含以下子菜单：
［职工基本信息]菜单：显示职工信息窗体
［职工工资信息］菜单：显示工资信息窗体
[岗位信息］菜单:显示岗位信息窗体
［职工工资信息录入］菜单：显示职工工资录入窗体
［数据查询］包含以下子菜单：
[查询职工信息］：显示职工信息查询窗体
[查询工资信息］：显示工资信息查询窗体
［查询岗位信息]:显示岗位信息查询窗体
其编码如下：
Private Sub MDIForm1_Load（）
mDataMng。Enabled = False
End Sub
Private Sub mDcaxun_Click(Index As Integer)
职工信息查询.Show
End Sub
Private Sub mDcaxun1_Click（Index As Integer)
职工工资查询.Show
End Sub
Private Sub mDcaxun2_Click（Index As Integer）
岗位信息查询.Show
End Sub
Private Sub mDgangwei_Click(Index As Integer)
岗位信息.Show
End Sub
Private Sub mDjiaoshi_Click(Index As Integer）
职工工资。Show
End Sub
Private Sub mFxinyonghu_Click(Index As Integer)
注册新用户.Show
End Sub
Private Sub mFExit_Click(Index As Integer）
End
End Sub
Private Sub mDzhigong_Click（Index As Integer）
职工信息.Show
End Sub
3.2.3注册新用户窗体
用于添加新的用户名和密码.；单击“注册新用户"菜单，打开对话框如图2
要求：若新用户名与系统信息表原有用户名相同，则提示“用户名已存在，重新输入”;判断二次输入密码若不一致，则提示用户“输入密码不一致，重新输入密码”；判断若输入密码为空，则提示“密码不能为空”；若输入正确，则将输入的用户名保存到“系统信息"表,并提示“注册用户成功",关闭本窗体。
以下各窗体设为MDI主窗体的子窗体
注册新用户的编码如下：
Private Sub CmdOK_Click（)
Dim SQLStr As String
If Text1 = ”" Then
MsgBox ”请输入用户名！”, vbExclamation， ”确认用户名”
Text1.SetFocus
Exit Sub
Else
SQLStr = ”Select * from 系统信息 where 用户名='” & Text1 ＆ ”'”
Adodc1.RecordSource = SQLStr
Adodc1.Refresh
If Adodc1。Recordset.EOF = False Then
MsgBox ”用户名已存在，请重新输入！", vbExclamation， ”检验用户名”
Text1 = ”"
Text1.SetFocus
Exit Sub
End If
End If
If Text2 〈〉 Text3 Then
MsgBox ”二次输入的密码不一致，请重新输入", vbExclamation， ”检验密码”
Text2 = ""： Text3 = ""
Text2.SetFocus
Exit Sub
ElseIf Text2 = "" Then
MsgBox "密码不能为空！”， vbExclamation， "检验密码”
Text2。SetFocus
Else
Adodc1。Recordset。AddNew
Adodc1。Recordset。Fields（"用户名”) = Trim（Text1）
Adodc1。Recordset。Fields（”密码”) = Trim（Text2)
Adodc1。Recordset。Update
Me。Hide
MsgBox ”成功注册新用户！"， vbInformation, "添加用户"
End If
End Sub
Private Sub CmdCancel_Click（)
Unload Me
End Sub
3。2。4分别设计各个信息窗体
功能：浏览和录入各信息。该窗体以文本框显示当前记录，用按钮［首记录]、［末记录］、[前一个］、［后一个],控制记录指针的移动；用一个标签Label显示:当前记录号/记录总数；单击[表格显示］按钮，显示DataGrid控件（Visible=True)，以表格形式显示商品信息表，单击［返回]按钮，可以关闭本窗体，返回主窗体。可以对记录进行新增、确认、删除、取消操作。
其编码如下：
Private Sub CmdAdd_Click（)
Adodc1.Recordset.AddNew
CmdAdd。Enabled = False
CmdDel。Enabled = False
CmdOk.Enabled = True
CmdEsc。Enabled = True
Combo1.AddItem ”男"
Combo1。AddItem ”女"
End Sub
Private Sub CmdOK_Click(）
Adodc1。Recordset。Update
CmdAdd。Enabled = True
CmdDel.Enabled = True
CmdOk.Enabled = False
CmdEsc.Enabled = False
End Sub
Private Sub CmdDel_Click(）
x = MsgBox（”确实要删除当前记录吗？”， vbYesNo + vbQuestion， "确认")
If x = vbYes Then
Adodc1。Recordset。Delete
Adodc1。Recordset。MoveNext
If Adodc1.Recordset。EOF Then
Adodc1.Recordset。MoveLast
End If
Else
Adodc1。Refresh
End If
End Sub
Private Sub CmdEsc_Click（）
Adodc1.Refresh
CmdAdd。Enabled = True
CmdDel.Enabled = True
CmdOk.Enabled = False
CmdEsc.Enabled = False
End Sub
5。2。5各种信息的查询窗体
可以按各种条件查找，这些条件放在组合列表框Combo中，供用户选择。在文本框中输入要查询的内容,单击［查询］按钮，查询结果用网格控件显示。。
其编码为：
Private Sub Command1_Click（)
If Adodc1。Recordset。EOF Or Adodc1.Recordset。BOF Then
MsgBox ”请选择要修改的行"
Exit Sub
End If
职工信息修改。Show
End Sub
Private Sub Command3_Click(）
End
End Sub
Private Sub Form_Load(）
Combo1.AddItem ”姓名”
Combo1。AddItem ”部门” ’ 为组合列表框添加各选项
Combo1.AddItem "职称”
Combo1.Text = ””
Text1。Text = "” ' 清空文本框
End Sub
Private Sub Cmd1_Click（）
Dim str As String
str = ” Select 职工信息。* From 职工信息"
str = str ＆ " Where 职工信息.” ＆ Combo1。Text ＆ ” Like '" ＆ Text1 ＆ ”％’”
Adodc1.RecordSource = str
Adodc1.Refresh
End Sub
参考文献
[1] 王进强．Visual Basic.NET 基础教程．北京：清华大学出版社，2004
[2] 童爱红．刘凯。VB.NET应用教程．清华大学出版社,2005—01
[3] 张立科．Visual Basic.NET设计与开发实例．机械工程出版社，2005-2
[4] 前导工作室．中文Access 2000开发使用手册．机械工业出版社，2002-01
[5] Craig Eddy．Timothy Buchanan 中文Access 2000．机械工业出版社，2003
[6] 甘仞初．系统开发‘北京：经济科技出版社,1996
[7] 龚沛曾，杨志强，陆慰民．Visual Basic。NET实验知道与测试．北京：高等教育出版社，2005
[8] 王晟．Visual Basic。NET数据库开发经典案例解析．北京:清华大学出版社，2005
[9] 王家华．软件工程．东北大学出版社，2001
[10] 文斌，刘长清,田原．软件工程与软件文档写作．北京：清华大学出版社，2005
[11] Stephen R。Schach［美］．Object—Oriented and Classical Software Engineering．北京：机械工业出版社，1999
[12] Clifton Nock［美]．DataAccessPatterns: Database Interactionsinobject–oriented applications．中国电力出版社，2004—6
[13] Jeffrey Richter．Microsoft Press.Applied Microsoft.NET Framework programming．2003