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

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

成绩评定表

课程设计任务书

摘要

企业的工资管理是公司管理的一个重要容。随着企业人员数量增加,企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业劳动人事的管理,同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系,同时连接工时考勤和医疗保险等等,来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要元素,资金的流动影响到企业的整体运作,企业员工的工资是企业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工式处理纸质材料,不仅花费财务人员大量的时间且不易保存,往往由于个人的因素抄写不慎或计算疏忽,出现工资发放错误的现象。早期工资管理多采取纸质材料和具有较强的时间限制。基于以上原因,企业工资管理系统使用电脑安全保存、快速计算、全面统计,实现工资管理的系统化、规化、自动化。

关键词关键词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()

相关文档
最新文档