商场员工管理系统论文有源代码毕业论文

1、摘要摘要：商场员工管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,我使用 MICROSOFT 公司的 VISUAL BASIC 开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,在短时间内建立系统应用原型。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发。论文主要介绍了本课题的开发背景，所要完成的功能和开发的过程。重点的说明了系统设计的重点、设计思想、难点技

2、术和解决方案。关键字 Visual Basic 6.0 Access2000 控件 窗体 域AbstractAbstract The system of managing census register file is a typical application of managing information system （know as MIS）,which mainly includes building up data-base of back-end and developing the application interface of front-end. The former r

3、equired consistency and integrality and security of data. The later should make the application powerful and easily used.By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It can

4、give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.KeyKey WordWord Visual Basic 6.0、Access2000、ActiveX、Form、Field 目 录摘要 .1绪 论 .31VISUAL BASIC 技术.32ACCESS数据库.43ADO 数据库访问技术.54结构化系统开发方法.6一 系统需求分析 .71.1 系统设计背

5、景介绍 .71.2 系统功能分析.81.2.1 数据流程图.81.2.2 系统主要功能要求.8二 商场员工管理系统总体设计 .92.1 系统设计 .92.1.1 系统功能介绍.92.1.2 用户功能模块设计.10三 详细设计工作 .113.1 数据库设计.113.1.1 E-R 图.113.1.2 在 Access 2000 数据库中创建表.113.2 各功能模块创建及实现.143.2.1 系统流程图.143.2.2 数据模块的创建.143.2.3 用户登录模块设计.153.2.4 系统主界面设计.153.2.5 部门信息管理.163.2.6 员工信息管理.213.2.7 考勤信息管理.223

6、.2.8 员工工资管理.233.2.9 系统维护.24四 系统功能测试 .264.1 系统测试环境.264.2 测试内容.264.3 测试结果.26五 结束语 .26致 谢 .27参考文献 .28源代码 .29绪绪 论论1 1VisualVisual BasicBasic 技术技术 Visual Basic 是一种可视化程序设计语言，它除了提供常规的编程功能外，还提供一套可视化的设计工具，便于程序员建立图形对象，巧妙地把 Windows 编程的复杂性“封装”起来。Visual Basic 主要有以下功能特点：1.1 具有面向对象的可视化设计工具在 VB 中，应用面向对象的程序设计方法（Obje

7、ct-Oriented Programming） ，把程序和数据封装起来视为一个对象，每个对象都是可视的。程序员在设计时只需要用现有工具根据界面设计的要求，直接在屏幕上“画”出窗口、菜单、命令按钮等不同类型的对象，并为每个对象设置属性。程序员的编程工作仅编写针对对象要完成的事件过程的代码，因而程序设计的效率可提高许多。1.2 事件驱动的编程机制事件驱动是非常适合图形用户界面的编程方式。传统的面向过程的应用程序是按事先设计的流程运行的。但在图形用户界面的应用程序中，用户的动作即事件掌握着程序的运行流向。每个事件都能驱动一段程序的运行，程序员只要编写响应用户动作的代码，各个动作之间不一定有联系。这

8、样的应用程序代码较短，使得程序既易于编写又易于维护。1.3 结构化的程序设计语言 VB 具有丰富的数据类型，众多的内部函数，模块化、结构化的程序设计机制，结构清晰，简单易学。1.4 强大的数据库操纵功能VB 中利用数据控件可以访问多种数据库系统，如 Microsoft Access、Microsoft FoxPro 和 Paradox 等，也可访问 Microsoft Excel、Lotus 1-2-3 等多种电子表格。VB6.0新增了功能强大的 ADO(Active Database Object)技术，该技术包括了现有的 ODBC，而且占用内存少，访问速度更快。同时提供的 ADO 控件，不

9、但可以用最少的代码创建数据库应用程序，也可以取代 Data 和 RDO 控件，支持多种数据库系统的访问。2 2AccessAccess数据库数据库Access 数据库管理系统是 Microsoft Office 套件的重要组成部分，是 Access 的最新版本。Access 适用于小型商务活动，用以存贮和管理商务活动所需要的数据。Access不仅是一个数据库，而且它具有强大的数据管理功能，它可以方便地利用各种数据源，生成窗体（表单） ，查询，报表和应用程序等。21 什么是 Access 数据库 数据库是有结构的数据集合,它与一般的数据文件不同，(其中的数据是无结构的)是一串文字或数字流。数据库

10、中的数据可以是文字、图象、声音等。 Microsoft Access 是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。表与表之间可以建立关系（或称关联，连接） ，以便查询相关联的信息。Access 数据库以文件形式保存，文件的扩展名是 MDB。22 Access 的 6 种对象 Access 数据库由六种对象组成，它们是表、查询、窗体、报表、宏和模块。 表(Table) 表是数据库的基本对象，是创建其他 5 种对象的基础。表由记录组成，记录由字段组成，表用来存贮数据库的数据，故又称数据表

11、。 查询(Query)查询可以按索引快速查找到需要的记录，按要求筛选记录并能连接若干个表的字段组成新表。 窗体(Form)窗体提供了一种方便的浏览、输入及更改数据的窗口。还可以创建子窗体显示相关联的表的内容。窗体也称表单。 报表(Report)报表的功能是将数据库中的数据分类汇总，然后打印出来，以便分析。 宏(Macro)宏相当于 DOS 中的批处理，用来自动执行一系列操作。Access 列出了一些常用的操作供用户选择，使用起来十分方便。 模块(Module)模块的功能与宏类似，但它定义的操作比宏更精细和复杂，用户可以根据自己的需要编写程序。模块使用 Visual Basic 编程。 3 3A

12、DOADO数据库访问技术数据库访问技术 ADO (Active Data Object) 数据访问接口是 Microsoft 处理数据库信息的最新技术。它是一种 ActiveX 对象，采用了被称为 OLE DB 的数据访问模式，是数据访问对象DAO、远程数据对象 RDO 和开放数据库互连 ODBC 三种方式的扩展。ADO 对象模型包括以下这些对象，使用这些对象可以概括几乎所有的数据访问操作， Connection 对象：表示与数据源建立了一个持续的连接。Error 对象：表示在数据访问过程中的一个单独的错误信息。Command 对象：表示一个以保存的过程或者是能返回数据的其他数据访问对象。Co

13、mmand对象也可以用来执行已保存得不返回数据的过程。Parameter 对象：表示一个用来指定从命令对象中获取数据的运行时参数。Recordset 对象：表示一系列从数据源中获取的记录。Field 对象：表示一个记录集中数据的某个单独的字段。通常情况下，可以使用 ADO Connection 对象的 Open 方法建立与数据源的连接。为了告诉 ADO 如何去访问数据源，就必须以与 ODBC 连接字符串相同的格式提供有关信息。可以使用 ADO Connection 对象的 Provider 属性来指定 OLE DB 提供者。该属性告诉 ADO将使用哪个 OLE DB 提供者来执行服务器命令（如

14、果没有指定提供者，或者没有使用Connection 对象，则所用的是缺省提供者，该提供者是 OLE DB 的 ODBC 提供者，也称作MSDASQL） 。Connection 对象的 Provider 属性是个文本字符串，其中该字符串被用于指明连接时使用哪个 OLE DB 提供者，原因是 ODBC 提供者是缺省的。然而，如果为了更明确的话，也可以指定它。在 ADO 中使用的 ConnectionString 可以提供有关如何与数据库服务器连接的信息。当正在使用 OLE DB 的 ODBC 提供者时，该连接字符串与 ODBC 连接字符串一样。这意味着ODBC 驱动程序期望的准确信息可以根据不同的

15、实现而变化。对于其他提供者来说，连接字符串可能是完全不同的语法。为连接到 SQL Server 数据库，应该使用提供者 SQLOLEDB.1:cn.Provider=SQLOLEDB.1cn.ConnectionString=DATABASE=数据库名称；SERVER=服务器名；UID=用户名；PWD=密码；4 4结构化系统开发方法结构化系统开发方法结构化系统开发方法是迄今为止最传统、应用最广泛的一种系统开发方法。结构化系统开发方法的基本思想是：用系统工程的思想和工程化的方法，按用户至上的原则，结构化、模块化、自顶向下的对系统进行分析与设计。具体来说，就是先将整个信息系统开发过程划分出若干个相

16、对比较独立的阶段。如系统规划、系统分析、系统设计、系统实施等。在前三个阶段坚持自顶向下的对系统进行结构化划分。也就是说，在系统调查或理顺管理业务时，应从最顶层的管理业务入手，即从组织管理金字塔结构的塔尖入手，层层逐步深入至最基层。如果在系统分析，提出新系统方案和系统设计时，应从宏观整体考虑入手，即先考虑系统整体的优化，然后再考虑局部的优化问题。而在系统的实施阶段，则应坚持自底向上的逐步组织实施。也就是说，按照前几阶段设计的模块组织人力从最基层的模块做起（编程） ，然后按照系统设计的结构，将模块一个个拼接到一起进行调试，自底向上，逐渐的构成整体系统。用结构化系统开发方法开发一个系统，将整个开发过

17、程分为五个首尾相连的阶段，一般称之为系统开发的生命周期。4.1 系统规划阶段系统规划阶段的工作就是根据用户的系统开发请求，初步调查，明确问题，然后进行可行性研究。4.2 系统分析阶段系统分析阶段的任务是：分析业务流程；分析数据与数据流程；分析功能与数据之间的关系；最后提出新系统逻辑方案。4.3 系统设计阶段系统设计阶段的任务是：总体结构设计；代码设计；数据库/文件设计；输入/输出设计；模块结构与功能设计。与此同时根据总体设计的要求购置与安装设备，最终给出系统实施方案。4.4 系统实施阶段系统实施阶段的任务是：同时进行编程；人员培训；数据准备。然后投入试运行。4.5 系统运行阶段系统运行阶段的任

18、务是：同时进行系统的日常运行管理、评价、监理审计三部分工作。然后分析运行结果，如果运行结果良好，则送管理部门指导组织生产经营活动；如果有点问题，则要对系统进行修改、维护或者是局部调整；如果出现了不可调和的大问题，则用户将会进一步提出开发新系统的要求，这标志着老系统生命的结束，新系统的诞生。一一 系统需求分析系统需求分析1.11.1 系统设计背景介绍系统设计背景介绍管理信息系统就是我们常说的 MIS (Management Information System)，在强调管理，强调信息的现代社会中它变的越来越普及。而将信息管理系统与企业自动化设备想结合，则是当今社会现代企业的发展趋势。通过这样的管

19、理方式，企业的管理人员、技术人员、统计人员等各部门员工就能从大量烦琐的资料和数据中解脱出来，只需对自己需要的数据和内容进行必须的处理，而不用对每个环节都了如指掌。这在一定程度上能够节省人力物力，同时也大大加强了对数据处理的及时性和准确性。本次的开发内容商场员工管理系统就是信息管理与现代化办公设备相结合的例子。开发本系统希望使员工管理人员可以从年复一年的输入、计算、统计等工作中解脱出来，由于员工方面的数据众多，输入、统计极为不便，输入量大，计算量大。这些工作都以人力来完成将费时费力，而且容易出现错误和疏漏。本系统一次录入信息后，就可以反复多次在不同的信息库中使用。所有输入的信息都将按所属部门、专

20、业、考勤日期、工资日期等详细分类，使客户可以根据需要进行管理操作。因此，该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理，并利用计算机与现代化办公设备的连接实时刷新数据，从而提高企业的工作效率。1.21.2 系统功能分析系统功能分析1.2.1 数据流程图数据流程图 通过对系统中数据流程的分析，画出数据流程图如下：图 系统主要功能要求系统主要功能要求：*按不同权限登录系统。*对其提供的部门资料情况进行添加、查询、修改和删除操作。*对其提供的人员资料情况进行添加、查询、修改和删除操作。*对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考勤月份进行分类。

21、*对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并可按工资月份进行分类。*可添加新的用户，修改用户原有的用户名、密码，删除原有用户。二二 商场员工管理系统总体设计商场员工管理系统总体设计管理信息系统就是我们常说的 MIS (Management Information System)，在强调管理，强调信息的现代社会中它变的越来越普及。而将信息管理系统与企业自动化设备想结合，则是当今社会现代企业的发展趋势。通过这样的管理方式，企业的管理人员、技术人员、统计人员等各部门员工就能从大量烦琐的资料和数据中解脱出来，只需对自己需要的数据和内容进行必须的处理，而不用对每个环节都了如指掌。

22、这在一定程度上能够节省人力物力，同时也大大加强了对数据处理的及时性和准确性。本次的开发内容商场员工管理系统就是信息管理与现代化办公设备相结合的例子。开发本系统希望使员工管理人员可以从年复一年的输入、计算、统计等工作中解脱出来，由于员工方面的数据众多，输入、统计极为不便，输入量大，计算量大。这些工作都以人力来完成将费时费力，而且容易出现错误和疏漏。本系统一次录入信息后，就可以反复多次在不同的信息库中使用。所有输入的信息都将按所属部门、专业、考勤日期、工资日期等详细分类，使客户可以根据需要进行管理操作。因此，该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理，并利用计算机与现代化办公设备

23、的连接实时刷新数据，从而提高企业的工作效率。2.12.1 系统设计系统设计2.1.1 系统功能系统功能介绍介绍 *按不同权限登录系统。*对其提供的部门资料情况进行添加、查询、修改和删除操作。*对其提供的人员资料情况进行添加、查询、修改和删除操作。*对其提供的人员考勤资料情况进行添加、查询、修改和删除操作，并可按考勤月份进行分类。*对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作，并可按工资月份进行分类。*可添加新的用户，修改用户原有的用户名、密码，删除原有用户。2.1.2 用户功能模块设计用户功能模块设计 图 2.1用用 户户 登登 陆陆部门信息管理查 询 记 录 修 改 记 录

24、添 加 用 户 修 改 密 码 删 除 用 户 删 除 记 录员工信息管理添 加 记 录查 询 记 录 修 改 记 录 删 除 记 录考勤信息管理添 加 记 录查 询 记 录 修 改 记 录 删 除 记 录添 加 记 录查 询 记 录 修 改 记 录 删 除 记 录员工工资管理 数 据 备 份 数 据 恢 复系 统 维 护退 出 系 统 添 加 记 录三三 详细设计工作详细设计工作3.13.1 数据库设计数据库设计3.1.1 E-R 图图 分析系统中部门、员工和工资各实体之间的关系，得到如下实体联系图 图 在在 Access 2000 数据库中创建表数据库中创建表：5 个数据

25、表：部门基本情况表、员工基本信息表、员工考勤信息表、员工工资信息表、口令信息表。这 5 个数据表的结构如下各表：(1)部门基本情况表字段名称数据类型长度主键允许空部门编号文本6True否部门名称文本30是备注文本255是(2)员工基本信息表字段名称数据类型长度主键允许空员工编号文本6否员工姓名文本10否性别文本2是出生日期日期/时间短日期否民族文本10是政治面貌文本10是最后学历文本10是所学专业文本20是联系电话文本20是毕业学校文本30是籍贯文本50是家庭住址文本50是进入公司时间日期/时间短日期否部门名称文本30是职务名称文本30是备注文本255是(3)员工考勤信息表字段名称数据类型长度

26、主键允许空员工编号文本6是员工姓名文本10是考勤日期文本6否部门名称文本50是出勤天数数字整型是假日加班数字整型是其它加班数字整型是出差天数数字整型是补休天数数字整型是请假次数数字整型是旷工天数数字整型是迟到次数数字整型是早退次数数字整型是备注文本255是(4)员工工资信息表字段名称数据类型长度主键允许空员工编号文本6是员工姓名文本10是计发日期文本6否部门名称文本50是底薪数字单精度型是奖金数字单精度型是补贴数字单精度型是加班费数字单精度型是房帖费数字单精度型是扣考核数字单精度型是养老金数字单精度型是医疗保险数字单精度型是住房公积金数字单精度型是税前小计数字单精度型是所得税数字单精度型是实发

27、工资数字单精度型是(5)口令信息表字段名称数据类型长度主键允许空用户名文本20是密码文本10是权限文本6是3.23.2 各功能模块创建及实现各功能模块创建及实现3.2.1 系统流程图系统流程图图 数据模块的创建数据模块的创建 在程序模块中定义记录集，并在各个窗体中定义记录集变量，使输入数据能与数据库连接，并都用程序进行控制，这样不用数据控件都用代码控制大大提高了程序运行效率。 部分有关代码如下：Dim rc As New ADODB.Recordset 定义记录集变量Cnndb.Open provider=microsoft.jet.oledb.4.0;data source

28、 = & App.Path & 商场员工管理系统.mdb 确定数据库位置Dim rc As New ADODB.Recordset 定义记录集变量If rc.State = 1 Then rc.Close 判断当前表的状态是否打开，是则关闭rc.Open SQL, Cnndb, 3, 2 打开当前表3.2.3 用户登录模块设计用户登录模块设计 (1) 设计思路每个用户登录系统都须经过身份验证。只有用户名和密码相对应才能进入系统。因为在系统设置中已经对系统使用权限进行了规定，所以，在用户登录的同时也决定了用户对系统使用的权限。当登录者是管理员身份时，他可以使用系统提供的所有功能，

29、并能对所有用户进行管理。登录者是操作员可以使用所有对数据的编辑功能，而如果登录者是一般用户时只能利用系统进行资料查询功能。(2) 用户登录界面设计图 3.3 3.2.4 系统主界面设计系统主界面设计根据系统模块结构，建立系统主界面。用户登录到系统后进入的就是该界面，所有功能一目了然。当不同权限的用户登录到该界面时功能有所不同，其控制由“用户登录”界面控制。图 3.4在此界面中对用户的权限进行了设置，若是以一般用户登录时只能修改自己的密码且只能浏览所有的员工管理信息，以管理员身份进入时可以对所有一般用户的密码进行设置，还可删除一般用户！能对员工信息进行编辑删除，修改等操作 3.2.5 部门信息管

30、理部门信息管理-添加、查询、修改、删除的实现：编辑部门信息作为编辑部门信息这一项，所实现的功能是对公司各部门资料信息的存储与编辑，部门信息包括：部门编号（两位） 、部门名称、备注。部门编号与部门名称都具有唯一性，不能重复。作为部门信息与员工信息有着密切的关系，每一名员工都从属一个部门。(1)数据添加 当操作员进入系统，根据设计要求，需要添加新的部门信息时，在编辑部门信息窗体上按添加按钮，便进入添加状态，文本框自动清空，添加按钮变为确定按钮，光标会停留在部门编号文本框上，此时系统已自动生成一个新的部门编号，只需输入部门名称和备注信息即可完成部门信息编辑操作，在按窗体上的确定按钮即可检查该部门信息

31、是否合法并存入数据库，否则按取消按钮。再点击添加按钮，用户可再次添部门信息记录。 图 3.5 (2)数据查询当操作员需要对某个部门进行查询时，可以在编辑部门信息窗体下部中找到查询按钮。先在对应的文本框中输入要进行数据查询的条件，输入完查询条件后，点击查询按钮进行确定，系统便会查询出满足条件的部门记录，并列到数据表格中，无满足条件的部门记录时，则弹出对话框提示“查无此记录！” 。图 3.6(3)数据修改当操作员需要对某个部门进行修改时，可以在编辑部门信息窗体下部中找到修改按钮。由于修改记录不可能在大量的数据中盲目的寻找，因此数据修改应该与数据添加按钮结合使用，先用查询功能进行对要修改记录的搜索，

32、再在数据表格中选中要修改的部门记录，便把此部门记录读入文本框中，只需在文本框中直接进行数据修改便可，修改完后按修改按钮进行确定，系统并对修改后的数据进行合法性检测，合法则修改成功。图 3.7(4)数据删除当操作员需要对某个或多个部门进行删除时，可以在编辑部门信息窗体下部中找到删除按钮。由于删除记录不可能在大量的数据中盲目的寻找，因此数据删除也有数据查找功能，先在对应的文本框中输入要进行数据删除的条件，再按删除按钮，系统便会列出满足删除条件的部门记录，并提示是否删除满足条件的全部部门记录，也可以一条一条删除部门记录，只要在数据表格中选中要删除的部门记录，在按一下删除按钮即可删除数据。图 3.8(

33、5)清空清空按钮的作用可使所有文本框清空，方便用户进行其它操作。清空输入信息代码：Private Sub CmdClear_Click() ChangeCheck = False Call TxtKong Dim n As Integer For n = 0 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(n, 0) = Next nEnd Sub浏览部门信息此窗体主要针对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能从此窗体中了解各部门现有人数，这是在编辑部门信息中无法获得的信息。图 员工信息管理员工信息管理-添加、查

34、询、修改、删除的实现：编辑员工信息作为编辑员工信息这一项，所实现的功能是对企业员工资料信息的存储与编辑，方便对员工的分类与管理。员工编号具有唯一性，不能重复。在此窗体中输入的信息都进过合法性检测，判断员工编号是否出现重复，位数是否为 6 位（前两位为部门编号，后四位为员工自身编号）等。图 3.10浏览员工信息 图 考勤信息管理考勤信息管理-添加、查询、修改、删除的实现：编辑考勤信息作为编辑考勤信息这一项，所实现的功能是对公司员工考勤资料信息的存储与编辑，方便对员工工作的考察。对员工进行按月考勤，考核员工出勤、加班、迟到和早退等一些信息。 图 3.12浏览考勤信息此窗体主要针

35、对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能根据部门名称、考勤日期进行员工考勤信息查询。 图 员工工资管理员工工资管理-添加、查询、修改、删除的实现：编辑工资信息作为编辑工资信息这一项，所实现的功能是对公司员工工资信息的存储、计算与编辑，方便对员工工资的管理。对员工工资进行按月分组，计算员工各种工资项目和个人所得税款等一些信息。图 3.14浏览工资信息此窗体主要针对一般用户，只有浏览功能，因为一般用户只有浏览的权限。并能根据部门名称、工资计发日期进行员工工资信息查询。图 系统维护系统维护系统维护选项里包括密码设置、用户管理、数据备份和数据恢

36、复四个选项。用户管理功能只对管理员开放，管理员能在用户管理窗体中添加新的用户，对已有的用户进行用户名和密码修改，或者将原有用户删除。当一般用户和操作员进入时，菜单栏中无该项。 密码设置图 3.16该界面比较简单，能让登陆的用户修改自己的密码，但不能更改用户名，此项对所有权限的用户都适用。一进入此窗体便会显示此用户名，在旧密码框中输入原始密码，在新密码框中输入想更改的新密码，再在密码确定中进行新密码确认，按更改按钮便可修改用户密码。 用户管理图 3.17该功能只针对管理员有效，用于对所有权限用户口令的管理。能对所有用户进行用户名、密码、权限修改，不但能更改而且还能进行用户添加和删除。 数据备份数

37、据备份就是复制数据库的数据文件到其他地方，一面在数据库遇到意外破坏的时候能够恢复数据库，从而减少破坏造成的损失。在此系统中只把数据库备份到软盘中。 数据恢复数据恢复就是将数据库备份文件复制到当前数据库上，一面在数据库遇到意外破坏的时候能够恢复数据库，从而减少破坏造成的损失。在此系统中只从软盘中恢复数据库文件。四四 系统功能测试系统功能测试4.14.1 系统测试环境系统测试环境1硬件环境：PIII 800 128MB 内存 40G 硬盘2软件环境：操作系统：WINDOWS 98 数据库：Access 2000程序开发工具： Visual Basic 6.04.24.2 测试内容测试内容 测试了部

38、门信息管理-添加、查询、修改、删除测试了员工信息管理-添加、查询、修改、删除测试了考勤信息管理-添加、查询、修改、删除 测试了员工工资管理-添加、查询、修改、删除 测试了系统维护密码设置、用户管理、数据备份、数据恢复4.34.3 测试结果测试结果 测试结果软件运行一切正常五五 结束语结束语本次的商场员工管理系统是基于 Visual Basic 的 ADO 技术设计的。选择了 Access 2000 作为后端开发工具，开发数据库功能，并选择了 Visual Basic 6.0 作为界面前台开发工具。在该系统开发中我通过建立数据库，以及对各种信息库的开发（如：添加、查询、修改、删除资料）及设计系统

39、维护安全部分，完成了此次对商场员工管理系统的设计。在本次的开发过程中，我意识到最重要的环节在于对系统的流程、功能模块、框架结构等方面的把握和设计。在需求分析结束以后，我们对一个系统需要具有哪些功能已经有了一定的认识，而如何以一个简洁、合理的系统结构去实现用户要求的功能就成为系统开发的关键环节。通过这次商场员工管理系统的开发，我深刻认识到系统分析，以及对整个系统的总体设计的重要性。只有走好了这一步，整个系统的开发才能事半功倍，否则就会是“棋差一着，满盘皆输” 。同时，在这次的系统开发中我也看到了自己在新知识的学习，新工具的应用方面的不足。开始时，我对 Visual Basic 和 Access

40、可以说只是停留在书面上的了解，还不够深入透彻。系统的开发过程也就成为我对这两种开发工具的深入透彻学习的过程。正因为这样，所以在设计过程中往往会被一些问题卡住。在原地徘徊了一段时间后，我通过查找参考资料，和同学交流，利用互联网向有经验的编程人员请教等各种方式试着克服在设计过程中遇到的困难。随着开发设计的深入，我也逐渐掌握了一部分编程技巧，了解了一些关于编程方面的规律，一些困难也就迎刃而解了。总之，这次的商场员工管理系统开发过程对我来说不仅仅是一次毕业设计，这也是我一次有意义的学习、提高的过程。通过这次系统开发，我不但初步掌握了两种数据库系统开发工具，也让我看到了自己知识结构、知识储备、学习和应用

41、能力上的不足。以后需要继续努力学习弥补不足之处。致致 谢谢 本次毕业设计的较以往有所提前，在这么长时间的设计过程中，从一开始选定课题题目，经过查找资料和实地调研，然后是系统分析和设计，直到最后的系统实施，都受到了来自各方面的帮助。首先要感谢我的导师夏明长老师。夏老师为人和蔼，平易近人，知识渊博，治学认真而严谨。感谢夏老师从大四上学期末就对本系统设计开始一路指导至本论文及系统的完成，由衷感谢他在论文上的全力指导上,他宽厚待人的学者风范使我非常景仰。感谢授课老师课上对我们的教导,若没有老师丰富的授课内容，很难顺利完成本次毕业设计。感谢我的同组同学在困难时给予我的帮助。感谢安徽工业大学四年以来对我的

42、教育和培养。 参考文献参考文献1 袭沛曾，陆慰民 ，杨志强. Visual Basic 程序设计教程（6.0 版）.高等教育出版社. 2000 年2 肖建 ，薛凤武 ， 吴静. Visual Basic 6.0 基础教程. 中国电力出版社. 2002 年3 张大年， 廖智勇 ，刘检锋. Visual Basic 数据库应用开发与实例 .清华大学出版社. 2002 年4 杨宗志. Visual Basic 数据库程序设计.清华大学出版社. 2001 年5 陈豫龙， 何旭洪. Visual Basic 6.0 数据库开发实例导航 人民邮电出版社. 2002 年6 Visual Basic 6.0

43、时尚编程百例 机械工业出版社. 2001 年7 飞思科技产品研发中心. Access 2000 数据处理技术 电子工业出版社 2001 年8 李春葆 张植民. Visual Basic 数据库系统设计与开发. 北京：清华大学出版社，2003 年9 张瀚文 齐锦刚，Visual Basic 数据库系统开发实例与解析，高等教育出版社 2003年10 David L.Anderson，Managing Information Systems，清华大学出版社，2001 年11 James A.OBrien，Introduction to Information Systems，高等教育出版社，2002

44、源代码源代码：1用户登陆Dim rc As New ADODB.Recordset 定义记录集变量Dim i As Integer 检测输入口令的次数Dim DLYongHuMing As StringDim DLQuanXian As StringPrivate Sub DataSave() 数据存储 Dim SQL As String SQL = SQL = insert into 登陆日志 & Space$(1) SQL = SQL & ( SQL = SQL & 登陆日期 SQL = SQL & ,登陆时间 SQL = SQL & ,用户名 SQ

45、L = SQL & ,权限 SQL = SQL & ) SQL = SQL & values ( SQL = SQL & & Date & SQL = SQL & , & Time & SQL = SQL & , & DLYongHuMing & SQL = SQL & , & DLQuanXian & SQL = SQL & ) Cnndb.Execute (SQL)End SubPrivate Sub DataFind() 数据查找 Dim SQL As Stri

46、ng If TxtYhm.Text = Then SQL = select * from 口令信息 where 用户名= or 用户名 is null Else SQL = select * from 口令信息 where 用户名= & TxtYhm.Text & End If If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.EOF Then MsgBox 用户名不存在!, vbInformation TxtYhm.SetFocus i = i + 1 If i = 5 Then End End If E

47、xit Sub Else If TxtYhm.Text = And TxtMm.Text = Then SQL = select * from 口令信息 where (用户名 = or 用户名 is null) and (密码 = or 密码 is null) ElseIf TxtYhm = And TxtMm Then SQL = select * from 口令信息 where (用户名 = or 用户名 is null) and 密码 = & TxtMm.Text & ElseIf TxtYhm And TxtMm = Then SQL = select * from 口

48、令信息 where 用户名 = & TxtYhm.Text & and (密码 = or 密码 is null) Else SQL = select * from 口令信息 where 用户名 = & TxtYhm.Text & and 密码 = & TxtMm.Text & End If If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.EOF Then MsgBox 密码不正确!, vbInformation TxtMm.SetFocus i = i + 1 If i =

49、 5 Then End End If Exit Sub Else DLYongHuMing = rc.Fields(用户名).Value DLQuanXian = rc.Fields(权限).Value If rc.Fields(权限).Value = 管理员 Then QuanXian = (管理员) End If If rc.Fields(权限).Value = 操作员 Then QuanXian = (操作员) 主窗体.Men_Yhgl.Visible = False 主窗体.Men_Dlrz.Visible = False End If If rc.Fields(权限).Value =

50、 一般用户 Then QuanXian = (一般用户) 主窗体.Men_Bjbmxx.Visible = False 主窗体.Men_Bjygxx.Visible = False 主窗体.Men_Bjkqxx.Visible = False 主窗体.Men_Bjgzxx.Visible = False 主窗体.Men_Sjbf.Visible = False 主窗体.Men_Sjhf.Visible = False 主窗体.Men_Gng.Visible = False 主窗体.Men_Yhgl.Visible = False 主窗体.Men_Dlrz.Visible = False End

51、 If YongHuMing = TxtYhm.Text MiMa = TxtMm.Text Call DataSave Unload Me 主窗体.Show End If End IfEnd SubPrivate Sub CmdAdd_Click() Call DataFindEnd SubPrivate Sub CmdExit_Click() EndEnd SubPrivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyF1 CmdAdd_Click Case v

52、bKeyF2 CmdExit_Click End SelectEnd SubPrivate Sub Form_Load() Me.Top = (Screen.Height - Me.Height) / 2 Me.Left = (Screen.Width - Me.Width) / 2End SubPrivate Sub Txtmm_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then CmdAdd.SetFocusEnd SubPrivate Sub TxtYhm_KeyPress(KeyAscii As Integer) I

53、f KeyAscii = vbKeyReturn Then TxtMm.SetFocusEnd Sub2编辑部门信息Private Sub MSFlexGrid1_Click() Dim SQL As String Dim i As Integer For i = 0 To MSFlexGrid1.Rows - 1 清除表格控件最左边的选定当前行标志 MSFlexGrid1.TextMatrix(i, 0) = Next SQL = & vbCrLf SQL = SQL & SELECT * & vbCrLf SQL = SQL & FROM 部门基本情况 &a

54、mp; vbCrLf If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.RecordCount 0 Then ChangeCheck = True MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) = 标出表格控件最左边的选定当前行标志 Txtbmbh.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) 将表格控件选定当前行数据付给各个输入框 Txtbmmc.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1

55、.Row, 2) Txtbz.Text = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) MFGridClickTxtBmbh = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 1) 进行表格控件选定当前行数据备份 MFGridClickTxtBmmc = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 2) MFGridClickTxtBz = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 3) End IfEnd SubPrivate Sub MSFl

56、exGrid1_LostFocus() 清除表格控件最左边的选定当前行标志 Dim i As Integer For i = 0 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(i, 0) = NextEnd SubPrivate Sub Txtbmbh_Change() Call TxtdianCheck(Txtbmbh)End SubPrivate Sub Txtbmbh_GotFocus() Call TxtYellow(Txtbmbh)End SubPrivate Sub Txtbmbh_KeyPress(KeyAscii As Integ

57、er) Select Case KeyAscii Case Asc(0) To Asc(9) Case vbKeyDelete Case vbKeyBack Case vbKeyReturn Txtbmmc.SetFocus Case Else KeyAscii = 0 End SelectEnd SubPrivate Sub Txtbmbh_LostFocus() Call TxtWhite(Txtbmbh) Txtbmbh.Text = Format(Txtbmbh.Text, 00)End SubPrivate Sub Txtbmmc_GotFocus() Call TxtYellow(

58、Txtbmmc)End SubPrivate Sub Txtbmmc_KeyPress(KeyAscii As Integer) If KeyAscii = vbKeyReturn Then Txtbz.SetFocusEnd SubPrivate Sub Txtbmmc_LostFocus() Call TxtWhite(Txtbmmc)End SubPrivate Sub txtbz_GotFocus() Call TxtYellow(Txtbz)End SubPrivate Sub Txtbz_KeyPress(KeyAscii As Integer) If KeyAscii = vbK

59、eyReturn Then CmdAdd.SetFocusEnd SubPrivate Sub Txtbz_LostFocus() Call TxtWhite(Txtbz)End SubPrivate Sub Form_Load() Call DataFresh( select * from 部门基本情况 ) MSFlexGrid1.ColWidth(0) = 600 MSFlexGrid1.ColWidth(2) = 1500 MSFlexGrid1.ColWidth(3) = 3950 ChangeCheck = False Call LCountEnd Sub3编辑员工信息：Privat

60、e Sub MSFlexGrid1_Click() Dim SQL As String Dim i As Integer For i = 0 To MSFlexGrid1.Rows - 1 清除表格控件最左边的选定当前行标志 MSFlexGrid1.TextMatrix(i, 0) = Next SQL = & vbCrLf SQL = SQL & SELECT * & vbCrLf SQL = SQL & FROM 员工基本信息 & vbCrLf If rc.State = 1 Then rc.Close rc.Open SQL, Cnndb, 3, 2 If rc.RecordCount 0 Then ChangeCheck = True SQL = select * from 部门基本情况 where 部门名称= & MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 14) & If rc.State = 1 Then rc.Close rc.Ope