工资管理系统说明书

工资管理系统说明书

题目： 工资治理系统

学生姓名: 学 号： 1348 班 级：物联网工程一班 题目类型： 软件工程（R） 指导教师： 一、数据库课程设计题目简介

该设计要求学生以工资治理系统为背景，设计并开发一套“工资治理系统”软件。 通过该题目的设计、开发，使学生初步得到数据库开发的训练，全面培养软件开发过程中的分析、设计、编码、测试及文档规范书写的能力，得到软件开发的综合训练，提高解决实际问题的能力。

二、数据库课程设计的任务

1、查阅文献资料，一样在10篇以上；

2、以工资治理系统为背景，通过调研、分析现有的治理模式和已有的治理软件，建立系统模型；

3、完成软件结构设计、数据库设计和算法设计； 4、完成工资治理系统的软件开发和测试工作。 5、撰写设计说明书； 6、做好答辩工作。

三、数据库课程设计的要紧内容、功能及技术指标 1、系统功能的差不多要求：

（1） 职员每个工种差不多工资的设定；

（2） 加班津贴治理，依照加班时刻和类型给予不同的加班津贴； （3） 按照不同工种的差不多工资情形、职员的考勤情形产生职员的每月的月工资；

（4） 职员年终奖金的生成，职员的年终奖金运算公式＝（职员本

年度的工资总和＋津贴的总和）/12；

（5） 企业工资报表。能够查询单个职员的工资情形、每个部门的工资情形、按月的工资统计，并能够打印。

2、数据库要求：（在数据库中至少应该包含下列数据表）

（1） 职员考勤情形表；

（2） 职职员种情形表，反映职员的工种、等级，差不多工资等信息；

（3） 职员津贴信息表，反映职员的加班时刻，加班类别、加班天数、津贴情形等；

（4） 职员差不多信息表； （5） 职员月工资表。

3、其它要求：

（1）系统要实现满足多种条件的统计分析功能，有些统计数据要采纳图表的格式出现；

（2）系统要有一定的安全操纵策略； （3）系统要采纳实际数据进行测试。 四、数据库课程设计提交的成果

1. 课程设计说明书一份， A4打印稿，正文部分要求许多于20 页，所有英文字体采纳Arial。正文及名目格式参考（毕业设计论文格式要求）正文内容包括：

(1) 需求分析；

(2) 数据库概念结构设计； (3) 数据库逻辑结构设计； (4) 数据流图及程序结构框图； (5) 程序源代码及其说明； (6) 总结； (7) 参考文献。

2. 刻制光盘一张，把完成的所有电子文档（设计说明书文档、打包后可运行程序及源程序）一并交由指导老师处。

注：文档名目按照如下统一命名规则建立，“课设题目名称/学号姓名/”，比如“公司人事治理系统/12730101周欢欢/”。

五、要紧参考文献

[1] 王珊、萨师煊著 数据库系统概论（第五版）. 高等教育出版社, 2020.9 [2] 刘金岭等著 数据库原理及应用实验与课程设计指导，清华大学出版社出版，2010.6

[3] 钱雪忠等著 数据库原理及技术课程设计(全新正版），清华大学出版社出版，2009.2

[4] 周屹著 数据库原理及开发应用－实验与课程设计指导, 清华大学出版社出版，2008.12

[5] 陆慧娟主编 数据库设计与应用开发实践，清华大学出版社 2020.1 [6] 陶宏才等编著 数据库原理及设计，清华大学出版社 2020.1 [7] 丁忠俊著 数据库系统原理及应用，清华大学出版社出版，2020.4 [8] 李晓峰等著 数据库系统原理及应用，水利水电出版社，2011.2

[9] 万常选著 数据库系统原理与设计(第2版)，清华大学出版社出版，2020.9 [10] 路游，于玉宗编著 数据库系统课程设计，清华大学出版社 2009 [11]《Access 2010数据库应用从入门到熟知》何先军编,中国铁道出版社.2020.10

[12] [印] 辛赫（Singh.S.K）著 何玉洁，王晓波，车蕾，等译《数据库系统概念、设计及应用》,机械工业出版社，2010.1

六、各时期时刻安排（共2周）

周次 日期 星期一 第1周 星期二 星期三～星期五 星期一～ 星期二 第2周 星期三 星期四 星期五

内容 分组、选题、收集与整理资料 数据库分析与设计 用户界面设计及系统功能实现 地点 教室 教室 教室 用户界面设计及系统功能实现 调试程序 撰写课程设计说明书 答辩 教室 教室 教室 教室 2020年12月15日

摘 要

随着信息自动化处理技术的日益进展,如何科学,全面,高效的对单位纷繁复杂的档案治理事务进行运算机的自动化治理是个热门话题,当前企事业单位为了提升自身的竞争力,各单位都在定制和购买各项业务应用软件,运用高科技手段进行科学,规范的治理。作为工资治理系统的治理者,期望能够对工资治理系统的整个流程状态,信息资料的情形了如指掌,使其能够做出科学的决策。 论文要紧探讨“房产中介治理系统”的理论基础和设计思想,依照系统的开发过程和系统的功能实现为主线来论述数据库治理软件的开发过程。要紧阐述以软件工程理论作为系统开发的理论基础,以客户机/服务器模式的关系型数据库作为后台,以专业数据库开发语言作为实现手段的数据库治理软件的开发过程分析和理论研究。

本系统结合企业的实际需要，通过对VB6.0模式、数据库以及SQL语言的深入学习及实践，要紧完成了工资治理系统的需求分析、数据库设计、应用程序设计与开发工作。

系统包括工资、部门、单位和人员等数据库文件，并设有数据库治理、部门治理、人员治理等功能，通过对数据库的操纵和治理，可实现查询、增加、删除、修改等功能。该设计差不多合理，功能比较完备，通过测试运行稳固，能够满足工作中的差不多需求。

关键词：工资治理系统；职工信息；数据库

目 录

1 系统简介 ................................................................................................................... 0 2 系统需求分析 ........................................................................................................... 1

2.1需求调查 ......................................................................................................... 1 2.2可行性分析 ..................................................................................................... 1

2.2.1技术可行性 .......................................................................................... 1 2.2.2经济可行性 .......................................................................................... 2 2.2.3操作可行性 .......................................................................................... 2 2.2数据流程图 ..................................................................................................... 2 2.3数据字典 ......................................................................................................... 4 3 概念结构设 ............................................................................................................... 5 4 逻辑结构设计 ........................................................................................................... 8 5 物理结构设计 ......................................................................................................... 10 6 系统要紧查询功能及SQL语句 ............................................................................ 11

6.1 SQL查询语句 ............................................................................................... 11 6.2 SQL插入语句 ............................................................................................... 12 6.3 SQL删除语句 ............................................................................................... 12 6.4 SQL修改语句 ............................................................................................... 12

7 系统实现 ................................................................................................................. 14

7.1系统功能模块图 ........................................................................................... 14 7.2部分程序代码 ............................................................................................... 15

7.2.1登陆模块代码 .................................................................................... 15 7.2.2职员治理模块代码 ............................................................................ 16 7.2.3职职员资代码 .................................................................................... 18 7.2.4部门爱护代码 .................................................................................... 21 7.2.5按姓名查询工资代码 ........................................................................ 22 7.3系统运行截图 ............................................................................................... 24

7.3.1系统登陆界面 .................................................................................... 24

7.3.2系统主界面 ........................................................................................ 24 7.3.3职员治理界面 .................................................................................... 25 7.3.4系统爱护界面 .................................................................................... 25 7.3.5职职员资录入界面 ............................................................................ 26 7.3.6系统查询界面 .................................................................................... 27

8 设计小结 ................................................................................................................. 28

8.1心得体会 ....................................................................................................... 28 8.2存在的问题及建议 ....................................................................................... 28 参考文献 ..................................................................................................................... 29

1 系统简介

随着我国国民经济建设的蓬勃进展和具有中国特色的社会主义市场经济的迅速完善，各个行业都在积极使用现代化的手段，不断改善服务质量，提高工作效率，这些都在专门大程度上给企业提出越来越严肃的挑战，对企业体系不管是在行政职能、企业治理水平以及优质服务上都提出更高的要求。企业内部财务治理是该企业运用现代化技术制造更多更高的经济效益的要紧因素之一。工资治理作为企业内部的一种财务治理也是如此，由于企业职工人数较多，每一位职工的具体实际情形也不尽相同，各项工资条款的发放，假如没有一个完整的工资治理系统对职职员资等进行系统的治理，专门难实现企业高效运转。

本文详细介绍了职工工资治理系统的功能需求，系统设计和具体实现。并简要介绍了系统开发采纳的过程方法。

2 系统需求分析

2.1需求调查

随着运算机技术的飞速进展，运算机在企业治理中的应用越来越普及，利用运算机实现企业工资的治理显得越来越重要。关于大中型企业来说，利用运算机支持企业高效率完成劳动人事治理的日常事务，是适应现代企业制度要求、推动企业劳动人事治理走向科学化、规范化的必要条件；而工资治理是一项琐碎、复杂而又十分细致的工作，工资运算、发放、核算的工作量专门大，一样不承诺出错，假如实行手工操作，每月发放工资须手工填制大量的表格，这就会耗费工作人员大量的时刻和精力，运算机进行工资发放工作，不仅能够保证工资核算准确无误、快速输出，而且还能够利用运算机对有关工资的各种信息进行统计，服务于财务部门其他方面的核算和财务处理，同时运算机具有手工治理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、储备量大、保密性好、寿命长、成本低等。这些优点能够极大地提高人事工资治理的效率,也是企业的科学化、正规化治理，与世界接轨的重要条件。

2.2可行性分析

2.2.1技术可行性

数据库需求分析是数据库结构设计的第一个时期，也是专门重要的一个时期。在那个时期要紧工作是收集差不多数据以及数据处理的流程，为以后进一步设计一打下基础。需求分析要紧解决两个问题：

内容要求。调查应用系统用户所需要操作的数据，决定在数据库中储备什么数据。 处理要求。调查应用系统用户要求对数据库进行什么样的处理，理清数据库中各种数据之间的关系。

Windows操作系的稳固性，安全性可满足用户的需求，后台数据库使用Access，开发工具微软公司的VB6.0，具有良好的升级潜力和可爱护性。这些软件在大型MIS开发中已被大量应用，技术上都比较成熟,可依照用户需要，十分方便的增减模块，直观的图形用户界面，简洁的操作流程，无须专业电脑知识即可迅速上手。因此技术上是可行的。

2.2.2经济可行性

由于运算机技术的飞速进展，运算机在企业治理中应用的普及，利用运算机实现企业工资治理势在必行。在现代社会中，高效化、系统化、规范化、自动化已成为时代的代名词。做为我国文化产业之一的报刊业在当今智能化的进展的驱动下，在当今信息时代的推动下，拥有自己的一套特色的职职员资治理系统是专门必要的，传统的手工式的治理方式差不多无法适合当今的庞大的数据处理和精确的运算需求，因此一套精美完善的职职员资治理喜用是提高工作效率节约人力物力的有效解决方案。按长期的使用运算，开发系统的造价平均到每年与传统式的治理方式的年耗资本相对比，性价比是可行的。开发这套系统的经济可行性是专门高的。 2.2.3操作可行性

在现代企业的生产和动作过程中,往往需要对企业职员的工资进行治理，企业的工资治理活动中操作都包含了以下几项功能：

1、职员信息治理：实现对职员差不多信息的治理操作，包括职员差不多数据信息的添加、修改、删除和查询等功能；

工资治理：完成对基础数据设定（如工龄工资、工资等级、工龄工资金额等），工资明细，福利补贴的设定；

3、工资查询:可依照条件查询职员历史工资数据；

4、系统爱护：可对数据进行备份和复原，并可实现数据导入导出功能。 5、治理员设置：

实现系统用户及密码的设置操作，能够增加和删除系统用户（仅系统治理员才有权限），对系统当前用户修改密码。 本系统要紧功能有： (1) 职员差不多工资的设定。 (2) 工龄工资的设定。 (3) 实发工资的统计明细。

2.2数据流程图

职员档案的治理:包括职员差不多信息,所在部门,工作信息和工作简历的输入,职员信息的查询和修改。

职员考勤的治理:包括考勤的添加,查询,修改和删除。

职职员资的治理:包括工资的添加,工资报表的查询,修改和删除。 职员评判的治理:包括评判的输入,查询和修改。

人事变动的详细记录,包括岗位和部门的调整,便于把握人员的动向,及时调整人才的分配。

企业所有部门的查询与治理。 治理员以及其它功能模块。

认真分析调查有关企业人事信息需求的基础上,将得到如图2.1的数据流程。

图2.1数据流程图

工资费用分配处理 工资汇总表 职工工资表 工资信息单 工资汇总处理 工资汇总单 工资汇总单 账务处理系统 人事部门 职员信息 基础数据处理 工资运算单 职工工资处理 工资信息单 工 资 统 计 工资查询 工资统计单 工资统计单 工资合计工资单

2.3数据字典

数据词典（DD－Date Dictionary）是描述数据流程图中所有数据流、数据储备、处理功能等卡片的集合。数据词典提供一个可定义的不依靠于应用程序的储备区域，用于创建扩展的属性集和描述数据的内容与外观。

数据项包括名称、含义、类型、取值范畴、长度以及和其他数据项之间的逻辑 关系。如表2.1所示。 数据项编号 DI-1 DI-2 DI-3 DI-4 数据项名 ygno res smeg ygid 数据项含义 职员编号 职员部门 职职员资 职员地址 储备长度 Int（4） Char（50） Int（4） Int（4） 别名 工号 岗位 月薪

数据结构反映了数据之间的组合关系。一个数据结构能够由若干数据项组成，也能够由若干个数据结构组成，或由若干个数据项和数据结构混合而成。如下图所示是数据结构表，包括数据结构名和其属性。如表2.2所示。 数据结构编号 DS—1 DS—2 数据结构名 ygmessage ygmanage 数据结构含义 职员信息 职员治理 组成 Ygname,ygno ygres, ygid， ygsemg，ygxb MsgBox,ygname,ygno DS—3 ygkq 职员考勤 Kqname，kqday，kqwork，kqlate，kqrest

3 概念结构设计

数据库概念结构设计是在需求分析的基础上，设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。用E-R图是描述数据实体关系的一种直观描述工具，因此本系统采纳了E-R图的方法进行数据库概念结构设计。

职员信息实体E-R图：

职员信息 部门

雇员 姓名 工资等级 性别 职员号 工资 岗位 图3.1职员信息实体E-R图

雇员号 年龄

姓名 号码 图3.2雇员信息实体E-R图

津贴 津贴号 加班时刻 加班类型 图3.3职员津贴实体E-R图

工作类别 工作号 工种工资 工种 图3.4职职员作类别实体E-R图

旷班号 考勤 旷班天数 图3.5职员考勤实体E-R图

雇员号 年龄 津贴号 加班 加班姓名 雇员 津贴 时刻 号码 工作 加班类型 工作号 考勤 工作类别 工种工资 工种 旷班号 旷班 工作薪水 旷班人数 工资 月薪 图3.6总体E-R图

4 逻辑结构设计

概念结构是于实际数据模型的信息结构，必须将其转化为逻辑结构后才能进行数据库应用的设计。也确实是要将概念上的结构转化为BP数据库系统所支持的实际数据模型。

工资治理系统数据库中各个表格的设计结果如下面的几个表所示。每个表表示数据中的一个表。

数据库表的设计及表结构： （1）职员信息表

表4.1职员信息表

（2）基础工资设置表

表4.2基础工资设置表

(3)岗位工资设置表

表4.3岗位工资设置表

（4）工龄工资设置表

表4.4工龄工资设置表

（5）治理员注册表

表4.5 治理员注册表

5 物理结构设计

数据库在物理设备上的储备结构与存取方法称为数据库的物理结构，它依靠于选定的数据库治理系统。为一个给定的逻辑数据模型选取一个在最适合应用要求的物理结构的过程，确实是数据库的物理结构设计。 数据库的物理结构设计通常分为两步：

(1)确定数据库的物理结构，在关系数据库中要紧指存取方法和储备结构； (2)对物理结构进行评判，评判的重点是时刻和空间效率。

数据库物理设计过程中需要对时刻效率、空间效率、爱护代价和各种用户要求进行权衡，选择一个优化方案作为数据库物理结构。在数据库物理设计中，最有效的方式是集中地储备和检索对象。

在数据库设计初始时期，为了对以后的数据库进行物理优化，提供了一些系统配置变量、储备分配系数，并对这些变量给予合理的缺省值。但这些值不一定适合每一种应用环境，在进行物理设计时，对这些变量重新赋值，以改善系统的性能。在选择硬件设备、服务器操作系统、数据库时应该考虑能够逐步增加和扩展。

6 系统要紧查询功能及SQL语句

该职职员资查询治理系统的要紧查询功能是职员信息的查询，例如职员的姓名、编号等。本系统的查询功能由SQL语言编写，以下是要紧查询功能的SQL语言。

6.1 SQL查询语句

（1）职员姓名查询 SELECT cname FROM ygshuju ; （2）职员编号查询 SELECT cid FROM ygshuju ; （3）职员登陆查询 SELECT * FROM denglu

WHERE 用户名 = Text1.Text ; （4）职职员资号查询 SELECT ID FROM gzshuju

WHERE工资号= Trim(txtId); （5）职员部门查询

SELECT 姓名,职员号,差不多工资 FROM ygshuju

WHERE 部门 like Trim(cboItem(0)); （6）职员考勤查询 SELECTkqpay,kqdeduct RROM checkin

WHERE kqid = mrc.Fields(0) ; （7）初始化部门名称查询

SELECT

DISTINCT ygdept

FROM manrecord;

6.2 SQL插入语句

（1）职员姓名添加 INSERE

INTO ygshuju (cname) VALUES(‘曹操’); （2）职员编号增加 INSERE

INTO ygshuju ID VALUES(‘20060001’);

6.3 SQL删除语句

（1）职员姓名删除 DELECT

FROM ygshuju WHERE cname=’曹操’； （2）职员编号删除 DELECT FROM ygshuju WHERE ID=’20060001’； （3）职职员资删除 DELETE FROM gzshuju

WHERE 工资号=Trim(txtId) 6.4 SQL修改语句

（1）职员姓名修改 UPDATE ygshuju SET cname=’曹操’ WHERE cname=‘刘备’；

；

（2）职员编号修改 UPDATE ygshuju SET ID=’20060001’；

7 系统实现

7.1系统功能模块图

职员资料登记 职员资料查询 差不多设定工个人工资查询 用户密码修改 工资治理系统

职员姓部 岗工资级 查询职员号 用户名 旧密码 新密码 号 名 门 位 等

工工龄工资 工资等级 相应工资 福利名称 福利费用

龄 图7.1系统功能模块图

7.2部分程序代码

7.2.1登陆模块代码

Private Sub Command1_Click() Dim db As Database Dim res As Recordset Dim user As String Dim passw As String

Set db = OpenDatabase(App.Path + \"\\zongbiao.mdb\") 'res = db.OpenRecordset(\"denglu\") If Trim(Text1.Text = \"\") Then

MsgBox \"没有那个用户，请重新输入用户名！\\"警告\"

Text1.SetFocus Else

txtSQL = \"select * from denglu where 用户名 = '\" & Text1.Text & \"'\" Set res = db.OpenRecordset(txtSQL) If res.EOF = True Then

MsgBox \"没有那个用户，请重新输入用户名!\vbOKOnly + vbExclamation, \"警告\" Text1.SetFocus Else

If Trim(res.Fields(2)) = Trim(Text2.Text) Then OK = True res.Close Me.Hide frmPay.Show

'UserName = Trim(txtUserName.Text) Else

MsgBox \"输入密码不正确，请重新输入！\vbOKOnly +

vbExclamation, \"警告\"

Text2.SetFocus Text2.Text = \"\" End If End If End If End Sub

7.2.2职员治理模块代码

Private Sub cboItem_Click(Index As Integer) Dim MsgText As String Dim intCount As Integer 'Dim mrcc As ADODB.Recordset 'Dim mrcctxt As String Dim db As Database Dim res As Recordset Dim strsql As String

Set db = OpenDatabase(App.Path + \"\\zongbiao.mdb\")

strsql = \"select 姓名,职员号,差不多工资 from ygshuju where 部门 like '*\" & Trim(cboItem(0)) & \"*' \"

Set res = db.OpenRecordset(strsql) ' If gintMode = 1 Then '初始化职员名称和ID If Index = 0 Then cboItem(1).Clear

'txtSQL = \"select ygid,ygname from manrecord where ygdept='\" & Trim(cboItem(0)) & \"'\"

'Set mrc = ExecuteSQL(txtSQL, MsgText)

' Set db = OpenDatabase(App.Path + \"\\zongbiao.mdb\") ' Set res = db.OpenRecordset(\"ygshuju\")

If Not res.EOF Then With cboItem(1) Do While Not res.EOF

.AddItem Trim(res!姓名) res.MoveNext Loop .ListIndex = 0 End With ' Else

' MsgBox \"请先建立职员档案！\警告\" ' cmdSave.Enabled = False ' Exit Sub End If End If

res.MoveFirst

res.Move cboItem(1).ListIndex

txtId = res.Fields(1) & Format(Now, \"yymm\") txtItem(0) = res.Fields(2）

'mrcctxt = \"select kqpay,kqdeduct from checkin where kqid='\" & mrc.Fields(0) & \"'\" & \" and kqdate >= '\" & Format(DateSerial(Year(Now), Month(Now), 1), \"yyyy/mm/dd\") & \"' and kqdate<='\" & Format(Now, \"yyyy/mm/dd\") & \"'\" ' Set mrcc = ExecuteSQL(mrcctxt, MsgText) ' If Not mrcc.EOF Then

' txtItem(3) = mrcc.Fields(0) ' txtItem(4) = mrcc.Fields(1) ' cmdSave.Enabled = True ' Else

'MsgBox \"请先进行该职员考勤！\警告\"

' cmdSave.Enabled = False ' Exit Sub 'End If ' mrcc.Close ' res.Close 'db.Close End Sub

7.2.3职职员资代码 Private Sub cmdSave_Click() Dim intCount As Integer Dim txtSQL As String Dim mrc As Recordset Dim MsgText As String Dim db As Database Dim sMeg As String

If Trim(txtItem(0) & \" \") = \"\" Then

sMeg = \"底薪\"

sMeg = sMeg & \"不能为空！\"

MsgBox sMeg, vbOKOnly + vbExclamation, \"警告\" txtItem(0).SetFocus Exit Sub End If

If Trim(txtItem(13) & \" \") <> \"\" Then

If Not IsDate(txtItem(13)) Then

MsgBox \"时刻输入格式不正确，应输入如下格式（yyyy-mm-dd）！\vbOKOnly + vbExclamation, \"警告\" txtItem(13).SetFocus Exit Sub Else

txtItem(13) = Format(txtItem(13), \"yyyy-mm-dd\") End If Else

MsgBox \"时刻不能为空！\警告\" txtItem(13).SetFocus Exit Sub End If

Set db = OpenDatabase(App.Path + \"\\zongbiao.mdb\") '添加判定是否有相同的ID记录 'If gintMode = 1 Then

txtSQL = \"select * from gzshuju where 工资号='\" & Trim(txtId) & \"'\" 'txtSQL = txtSQL & Format(Year(Format(txtItem(13), \"yyyy-mm-dd\")) & \"-\" & Month(Format(txtItem(13), \"yyyy-mm-dd\")) & \"-01\

'txtSQL = txtSQL & \" and '\" & Format(DateAdd(\"d\-1, DateAdd(\"m\1, DateSerial(CInt(Year(Format(txtItem(13),

\"yyyy-mm-dd\"))),

CInt(Month(Format(txtItem(13), \"yyyy-mm-dd\"))), 1))), \"yyyy-mm-dd\") & \"'\" Set mrc = db.OpenRecordset(txtSQL) If mrc.EOF = False Then

MsgBox \"差不多存在该职员在该月的工资记录！\vbOKOnly + vbExclamation, \"警告\"

txtItem(13).SetFocus Exit Sub End If

mrc.Close '先删除已有记录

'txtSQL = \"delete from gzshuju where 工资号='\" & Trim(txtId) & \"' and 计发时刻='\" & Format(txtItem(13), \"yyyy-mm-dd\") & \"'\" ' Set mrc = db.OpenRecordset(txtSQL) '再加入新记录

txtSQL = \"select * from gzshuju\" Set mrc = db.OpenRecordset(txtSQL) mrc.AddNew

mrc.Fields(0) = Trim(txtId) mrc.Fields(1) = Trim(cboItem(1)) mrc.Fields(17) = Trim(cboItem(0)) mrc.Fields(15) = Trim(txtItem(13)) For intCount = 0 To 12

mrc.Fields(intCount + 2) = txtItem(intCount) Next intCount mrc.Update mrc.Close

'If gintMode = 1 Then

MsgBox \"计发工资成功！\警告\" For intCount = 0 To 12 txtItem(intCount) = \"\" Next intCount mblChange = False cmdSave.Enabled = False

' frmPay.txtSQL = \"select * from pay\" ' frmPay.ShowTitle 'frmPay.ShowData 'frmPay.ZOrder 1

' ElseIf gintMode = 2 Then

' MsgBox \"修改工资成功！\警告\" ' Unload Me

' frmPay.txtSQL = \"select * from pay\" ' frmPay.ShowTitle ' frmPay.ShowData ' frmPay.ZOrder 0 ' End If End Sub 7.2.4部门爱护代码 Private Sub Combo1_Click() Dim MsgText As String Dim intCount As Integer Dim mrcc As ADODB.Recordset 'Dim mrcctxt As String Dim db As Database Dim res As Recordset Dim strsql As String

Set db = OpenDatabase(App.Path + \"\\zongbiao.mdb\")

strsql = \"select * from gzshuju where 工资号 like '*\" & Trim(Combo1) & \"*' \" Set res = db.OpenRecordset(strsql) cboItem(0).Clear cboItem(1).Clear

cboItem(0).AddItem (res!部门) cboItem(0).ListIndex = 0 cboItem(1).AddItem (res!姓名) cboItem(1).ListIndex = 0 txtItem(13) = res.Fields(15)

For intCount = 0 To 12

txtItem(intCount) = res.Fields(intCount + 2) Next intCount End Sub

7.2.5按姓名查询工资代码

Private Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0

txtItem(Index).SelLength = Len(txtItem(Index)) End Sub

Private Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

'EnterToTab KeyCode End Sub

Private Function GetNo() As String

GetNo = Format(Now, \"yymmddhhmmss\") Randomize

GetNo = GetNo & Int((99 - 10 + 1) * Rnd + 10) End Function

Private Sub txtItem_KeyPress(Index As Integer, KeyAscii As Integer)

If Index >= 0 And Index <= 12 Then 'MsgBox KeyCode '对键入字符进行操纵

'txtQuantity(Index).Locked = False

'小数点只承诺输入一次 If KeyAscii = 190 Then

If InStr(Trim(txtItem(Index)), \".\") = 0 Then If Len(Trim(txtItem(Index))) > 0 Then txtItem(Index).Locked = False Else

txtItem(Index).Locked = True End If Else

txtItem(Index).Locked = True End If Exit Sub End If

'非数字不能输入

If KeyAscii > 57 Or KeyAscii < 48 Then txtItem(Index).Locked = True Else

txtItem(Index).Locked = False End If

'承诺Backspace If KeyAscii = 8 Then

txtItem(Index).Locked = False End If 'Delete键

If KeyAscii = 46 Then

txtItem(Index).Locked = False End If End If End Sub

Private Sub cmdExit_Click() Unload Me End Sub

7.3系统运行截图

7.3.1系统登陆界面

工资治理系统的登陆界面如图7.2所示，设置有用户名和和用户登陆密码，输入正确的用户名和密码可进入系统主界面。

图7.2系统登陆界面

7.3.2系统主界面

图7.3为工资治理系统主界面

图7.3系统主界面

7.3.3职员治理界面

图7.4是职员治理界面，他包括职员的编号、姓名、属于哪个部门、职位是什么以及他的差不多工资，输入相应的数据就能够查找，也可添加和删除。

图7.4职员治理界面

7.3.4系统爱护界面

本界面为工资治理喜用爱护界面，输入相应的部门可进行爱护，也可添加新的部门，如图7.5所示。

图7.5系统爱护界面

7.3.5职职员资录入界面

该界面为职职员资界面，里面包含职员的信息（部门、姓名），差不多工资（底薪、奖金等），代扣项目（养老金、住房工资金、医疗保险），还有工资总计。详细的看出职员的工资录入，如图7.6所示。

图7.6职职员资界面

7.3.6系统查询界面

该界面为工资治理系统的查询界面，本界面为其中一种，按姓名查找职员的工资，可全面了解高职员的底薪、奖金、补贴、加班费用等。如图7.7所示。

图7.7系统查询界面

8 设计小结

8.1心得体会

通过这两周的课程设计实践，让我感受收成颇多。刚开始的时候觉得无处下手，连该做什么都没有头绪，是老师和同学们给了我专门大的关心,老师提示我们先进行需求分析，了解用户的需求，依照用户的需求和《数据库原理课程设计报告模版》来设计程序。在不断的课程设计过程中,使我受到了一次用专业知识、专业技能分析和解决问题的全面系统的锤炼。使我在综合知识的选用方面，在应用软件开发的差不多思想、方法方面，以及在常用编程设计思路技巧的把握方面都能向前迈了一大步,为日后成为合格的应用型人才打下良好的基础。通过本学期的不断实践与探究,企业人事治理统的设计与实现己经完成,差不多上达到了预期的设计要求和目的。

一个完整的企业人事信息治理系统就创建完毕了。在本系统的设计与实现的过程中要紧讲述了企业人事治理信息系统的系统设计部分，包括功能模块设计、数据库结构设计等。系统设计为整个程序构建了骨架,各个功能模块实现各个细节部分。

系统的详细设计依照系统分析时期的结论将系统具体化,并完成了各个模块的添加、修改、删除与查询的功能,直到最后形成一个完整的可行性的治理系统。

在整个毕业设计时期的工作和本论文的写作过程的经历将会使我终生受益，并对我今后的工作和进展产生深远的阻碍。由于毕业设计时刻比较仓促，因此该系统还有许多不尽如意的地点，比如联机文档比较少，用户界面不够美观，出错处理不够等多方面问题。这些都有待于进一步的改善。

8.2存在的问题及建议

在这次的课程设计中，让我深深地表达到进行软件开发不是一件简单的情况，它需要设计者具有全面的专业知识、缜密的思维、严谨的工作态度以及较高的分析问题、解决问题的能力，而我在专门多方面还有欠缺。最后，我要衷心感谢老师和我的同学在我的设计过程中给予我的极大关心，使我能够及时、顺利地完成此次的课程设计。

参考文献

[1] 王珊、萨师煊著 数据库系统概论（第五版）. 高等教育出版社, 2020.9 [2] 刘金岭等著 数据库原理及应用实验与课程设计指导，清华大学出版社出版，2010.6

[3] 钱雪忠等著 数据库原理及技术课程设计(全新正版），清华大学出版社出版，2009.2

[4] 周屹著 数据库原理及开发应用－实验与课程设计指导, 清华大学出版社出版，2008.12

[5] 陆慧娟主编 数据库设计与应用开发实践，清华大学出版社 2020.1 [6] 陶宏才等编著 数据库原理及设计，清华大学出版社 2020.1 [7] 丁忠俊著 数据库系统原理及应用，清华大学出版社出版，2020.4 [8] 李晓峰等著 数据库系统原理及应用，水利水电出版社，2011.2

[9] 万常选著 数据库系统原理与设计(第2版)，清华大学出版社出版，2020.9 [10] 路游，于玉宗编著 数据库系统课程设计，清华大学出版社 2009 [11]Access 2010数据库应用从入门到熟知[M]何先军编,中国铁道出版社.2020.10

[12] [印] 辛赫（Singh.S.K）著 何玉洁，王晓波，车蕾，等译,数据库系统概念、设计及应用[M],机械工业出版社，2010.1