公司员工工资管理系统毕业论文(2)(共61页)

1、哈尔滨工业大学工学硕士学位论文- PAGE II - PAGE I -课程名称：管理系统中计算机应用(yngyng)题目(tm)名称：员工工资管理系统专业(zhuny)班级：海大专接本学号：1521120130学生姓名：张瑞指导教师：王业统摘要公司员工工资管理是公司管理的一项重要内容。随着公司员工数量增加，企业的工资管理工作也变得越来越复杂。工资管理既涉及到企业的人事管理，同时也是企业财务管理的重要组成部分。工资管理需要和人事管理相联系，同时连接工时考勤和医疗保险等等，来生成企业每个职工的基本工资、津贴、医疗保险、保险费、实际发放工资等。资金是企业生存的主要元素，资金的流动影响到企业的整体运作

2、，企业员工的工资是企业资金管理的一个重要的组成部分。早期的工资统计和发放都是使用人工方式处理纸质材料，不仅花费财务人员大量的时间且不易保存和查询，往往由于个人的因素抄写不慎或计算疏忽，出现工资发放错误的现象。基于以上原因，公司员工工资管理系统使用电脑安全保存、快速计算、全面统计，实现工资管理的系统化、规范化、自动化。公司员工工资管理系统是典型的信息管理系统（MIS），前台程序开发工具采用(ciyng)微软的VB6，后台数据库采用Access数据库。VB6是一种面向对象的开发工具，具有组件丰富、语言简单、功能强大的优点。 Access数据库具有与VB6无缝连接、操作简单、易于使用的优点。运行结果

3、证明，本公司员工工资管理系统可以极大地提高工作效率，节省了人力和物力，最终满足企业财务管理、员工工资发放的需要，同时也成为现代化企业管理的标志。关键词：工资管理 信息管理 数据(shj)查询 数据库不要(byo)删除行尾的分节符，此行不会被打印PAGE II- - PAGE II -目 录 TOC o 1-3 h z u HYPERLINK l _Toc255733682 摘 要 PAGEREF _Toc255733682 h I HYPERLINK l _Toc255733683 第1章 绪论(xln) PAGEREF _Toc255733683 h 1 HYPERLINK l _Toc25

4、5733684 1.1数据库管理系统 PAGEREF _Toc255733684 h 1 HYPERLINK l _Toc255733685 1.2公司(n s)员工工资管理系统 PAGEREF _Toc255733685 h 1 HYPERLINK l _Toc255733686 第2章 企业(qy)工资管理系统设计分析 PAGEREF _Toc255733686 h 2 HYPERLINK l _Toc255733687 第3章 开发环境及实现技术 PAGEREF _Toc255733687 h 3 HYPERLINK l _Toc255733688 3.1 开发环境 PAGEREF _T

5、oc255733688 h 3 HYPERLINK l _Toc255733689 3.1.1本系统开发需求的软件环境： PAGEREF _Toc255733689 h 3 HYPERLINK l _Toc255733690 3.1.2本系统开发需求的硬件环境： PAGEREF _Toc255733690 h 3 HYPERLINK l _Toc255733691 3.2 开发工具 PAGEREF _Toc255733691 h 4 HYPERLINK l _Toc255733692 3.2.1开发工具简介 PAGEREF _Toc255733692 h 4 HYPERLINK l _Toc2

6、55733693 3.2.2 Visual Basic特点 PAGEREF _Toc255733693 h 5 HYPERLINK l _Toc255733694 3.2.3 Visual Basic 系统在程序应用中的常用名词 PAGEREF _Toc255733694 h 8 HYPERLINK l _Toc255733695 3.2.3 数据库介绍 PAGEREF _Toc255733695 h 9 HYPERLINK l _Toc255733696 第4章 系统设计 PAGEREF _Toc255733696 h 12 HYPERLINK l _Toc255733697 4.1 系统设

7、计分析 PAGEREF _Toc255733697 h 12 HYPERLINK l _Toc255733698 4.1.1业务流程图 PAGEREF _Toc255733698 h 12 HYPERLINK l _Toc255733699 4.1.2 数据流程图 PAGEREF _Toc255733699 h 13 HYPERLINK l _Toc255733700 4.1.3 功能结构图 PAGEREF _Toc255733700 h 14 HYPERLINK l _Toc255733701 4.2 系统数据库设计 PAGEREF _Toc255733701 h 15 HYPERLINK

8、l _Toc255733702 4.3 系统的设计与实现 PAGEREF _Toc255733702 h 22 HYPERLINK l _Toc255733703 4.3.1用户登录窗体 PAGEREF _Toc255733703 h 22 HYPERLINK l _Toc255733704 4.3.2添加用户窗体 PAGEREF _Toc255733704 h 27 HYPERLINK l _Toc255733705 4.3.3删除用户窗体 PAGEREF _Toc255733705 h 31 HYPERLINK l _Toc255733706 4.3.4系统的主界面的设计与实现 PAGER

9、EF _Toc255733706 h 34 HYPERLINK l _Toc255733707 4.3.5员工基本信息窗体 PAGEREF _Toc255733707 h 37 HYPERLINK l _Toc255733708 4.3.6 报表打印窗体 PAGEREF _Toc255733708 h 49 HYPERLINK l _Toc255733709 4.3.7工资发放信息查询窗体 PAGEREF _Toc255733709 h 51 HYPERLINK l _Toc255733710 4.3.7 其它窗体 PAGEREF _Toc255733710 h 55 HYPERLINK l

10、_Toc255733711 结 论 PAGEREF _Toc255733711 h 56千万不要删除行尾的分节符，此行不会被打印。在目录上点右键“更新域”，然后“更新整个目录”。打印前，不要忘记把上面“Abstract”这一行后加一空行- PAGE 10 - PAGE 58 -绪论(xln)1.1数据库管理系统数据库管理系统（DBMS）是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同，DBMS可以

11、分成层次型、网状型、关系型、面向对象型等。MS Access 2000就是(jish)一种关系型数据库管理系统。 关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等细节，已得到(d do)了比较广泛的应用。 1.2公司员工工资管理系统公司工资管理是一项琐碎、复杂而又十分细致的工作，一般不允许发生差错。最初的工资统计和发放都是使用人工方式处理，工作量大的时候，出现错误

12、的机率也随之升高，不仅花费财务人员大量的时间，而且往往由于抄写不慎，或者由于计算的疏忽，出现工资发放错误的现象。同时工资的发放具有较强的时间限制，必须严格按照单位规定的时间完成计算和发放工作。正是企业工资管理的这种重复性、规律性、时间性，使得企业工资管理计算机化成为可能。企业工资管理系统就是使用电脑代替大量的人工统计和计算，完成众多企业工资信息的处理，同时使用电脑还可以安全地、完整地保存大量的企业工资记录。 企业工资管理系统设计(shj)分析需求分析的过程可以说是一个对具体问题的反复理解和抽象的过程。理解就是对现实问题的理解，要弄清楚究竟需要解决什么问题。抽象就是除去问题的表面，提取问题的本质

13、，建立问题的逻辑模型，以便于以后阶段的系统的设计实现。需求分析阶段是软件产品生存命期中的一个重要阶段，其根本任务是确定用户对软件系统的需求。所谓需求是指用户对软件的功能和性能的要求，就是用户希望软件能什么事情，完成什么样的功能，达到什么性能。通常需求分为两种类型：一种是功能性需求，一种是非功能性需求，这一点也需要有一种清楚的认识。功能性需求是指需要计算机系统解决的问题，也就是对数据的处理要求，这是一类最主要的需求。非功能性需求是指实际使用环境所要求的需求，往往是一些限制(xinzh)要求，例如：性能要求，可靠性要求，安全保密要求，等等。 软件(run jin)需求一般包含三个层次业务需求、用户

14、需求和功能需求，还包括非功能需求。业务需求：反映了组织机构或客户对系统、产品高层次的目标要求，它们在项目视图与范围文档中予以说明。用户需求：描述了用户使用产品必须要完成的任务和具备的功能，这在使用实例文档或方案脚本说明中予以说明。功能需求：定义了开发人员必须实现的软件功能，使得用户能完成他们的任务，从而满足其业务需求。开发(kif)环境及实现技术开发(kif)环境衡量是否具备使用新系统所需的条件，一般可从软硬件的性能要求、环境条件、技术人员水平(shupng)和数量等方面去考虑和分析，其中开发人员的技术水平应首先考虑近期内可以培养和发展的技术人员。近些年计算机技术飞速发展，硬件条件可以说是日新

15、月异，其发展速度已令人惊讶的成倍比例发展。软件方面同样进展神速，无论任何系统都难不到如今的计算机。本系统就是由VB与access数据库相结合而设计出来的。以下为本系统开发需求。3.1.1本系统开发需求的软件环境：（1）Windows 2000 操作系统。（2）VB 6.0（3）ACCESS 数据库3.1.2本系统开发需求的硬件环境：CPU为400MHZ以上；硬盘数据量最小配置为20G；计算机内存要求为128M以上；对于公司员工工资管理信息系统应着重分析其经济效益，整合现有资源,提高工作效率。经济上的可行性首先要估算新系统的开发费用和运行、维护费用，再与所估计的将获得的效益进行比较，看是否有利。

16、开发、运行和维护费用主要包括：购买和安装设备的费用：计算机硬件、系统软件、机房、电源、空调等；软件开发费用：若由本单位的技术人员开发，则该项费用可以计入下面的人员费用一项；人员费用：系统开发人员、操作人员和维护人员的工资、培训费用等；消耗品费用：系统开发所用材料、系统正常运行所用消耗品，例如水、电费，打印纸、可移动磁盘等开支；其它费用：系统的效益可以从经济效益和社会效益两方面考虑。本系统是由内部人员开发，开发费用(fi yong)较低。系统维护费用也相对较低。所以本系统在经济上是可行的。开发工具3.2.1开发工具简介(jin ji)现在(xinzi)，市场上可以选购的应用开发产品很多，流行的也

17、有数十种。目前在我国市场上最为流行、使用最多、最为先进的可用作企业级开发工具的产品有：Microsoft公司的Visual BasicMicrosoft公司的Visual CBorland公司的Delphi Powersoft公司的PowerBuliderJava等等在目前市场上这些众多的程序开发工具中，有些强调编程语言的弹性与执行效率；有些则偏重于可视化程序开发工具所带来的便利性与效率的得高，各有各的优点和特色，也满足了不同用户的需求。然而，语言的弹性和工具的便利性是密不可分的，只有便利的工具，却没有弹性的语言作支持，许多特殊化的处理动作必需要耗费数倍的工夫来处理，使得原来所标榜的效率提高的

18、优点失去了作用；相反，如果只强调程语言的弹性，却没有便利的工具作配合，会使一些即使非常简单的界面处理动作，也会严重地浪费程序设计师的宝贵时间。作为数据库系统的开发，Visual Basic是一个非常理想选择。数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前，数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言Visual Basic语言，该开发工具具有很多长处：Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环

19、境下的种类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美，而且(r qi)程序开发人员不必具有C/C+编程基础。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。3.2.2 Visual Basic特点(tdin)1、可视化编程：用传统程序设计语言设计程序时，都是通过编写程序代码

20、来设计用户界面，在设计过程中看不到界面的实际显示效果，必须编译后运行程序才能观察。如果对界面的效果不满意，还要回到程序中修改(xigi)。有时候，这种编程-编译-修改的操作可能要反复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计的复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计要求的屏幕布局，用系统提供的工具，在屏幕上画出各种“部件”，即图形对象，并设置这些图形对象的属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能的那部分代码，从而可以大大提高程序设计的效率。2、面向对象的程序

21、设计4.0版以后的Visual Basic支持面向对象的程序设计(chn x sh j)，但它与一般的面向对象的程序设计语言(C+)不完全相同。在一般的面向对象程序设计语言中，对象由程序代码和数据组成，是抽象的概念；而Visual Basic则是应用面向对象的程序设计方法(OOP)，把程序和数据封装起来作为一个对象，并为每个对象赋予应有的属性，使对象成为实在的东西。在设计对象时，不必编写建立和描述每个对象的程序代码，而是用工具画在界面上，Visual Basic自动生成对象的程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视的。3、结构化程序设计(shj)语言Visual Basic

22、是在BASIC语言的基础上发展起来的，具有高级程序设计语言的语句结构，接近于自然语言和人类的逻辑思维方式。Visual Basic语句简单易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同时具有功能强大且使用(shyng)灵活的调试器和编译器。Visual Basic是解释型语言，在输入代码的同时，解释系统将高级语言分解翻译成计算机可以识别的机器指令，并判断每个语句的语法错误。在设计Visual Basic程序的过程中，随时可以运行程序，而在整个程序设计好之后，可以编译生成可执行文件(.EXE)，脱离Visual Basic环境，直接在Windows环境下运行。4、事件驱动编程机制Visu

23、al Basic通过事件来执行对象的操作。一个对象可能会产生多个事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一个对象，当用户单击该按钮时，将产生一个“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定的操作。在用Visual Basic设计大型应用软件时，不必建立具有明显开始和结束的程序，而是编写若干个微小的子程序，即过程。这些过程分别面向不同的对象，由用户操作引发(yn f)某个事件来驱动完成某种特定的功能，或者由事件驱动程序调用通用过程来执行指定的操作，这样可以方便编程人员，提高效率。5、访问(fngwn)数据库Visual Basic具有强大的数据库管理功

24、能，利用数据控件和数据库管理窗口，可以直接建立或处理Microsoft Access格式的数据库，并提供了强大的数据存储和检索功能。同时，Visual Basic还能直接编辑和访问(fngwn)其他外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和处理。Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接的方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用结构化查询语言SQL数据标准，直接访问服务器上的数据库，并提供了简单的面向对象的库操作指令和多用户数据库

25、访问的加锁机制和网络数据库的SQL的编程技术，为单机上运行的数据库提供了SQL网络接口，以便在分布式环境中快速而有效地实现客户/服务器(client/server)方案。6、动态数据交换(DDE)利用动态数据交换(Dynamic Data Exchange)技术，可以把一种应用程序中的数据动态地链接到另一种应用程序中，使两种完全不同的应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接的数据。Visual Basic提供了动态数据交换的编程技术，可以在应用程序中与其他Windows应用程序建立动态数据交换，在不同的应用程序之间进行通信。7、对象(duxing)的链接与嵌入(OLE

26、)对象的链接与嵌入(OLE)将每个应用程序都看做是一个(y )对象(object)，将不同的对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具有声音、影像、图像、动画、文字等各种信息的集合式的文件。OLE技术是Microsoft公司对象技术的战略，它把多个应用程序合为一体，将每个应用程序看做是一个对象进行链接和嵌入，是一种应用程序一体化的技术。利用OLE技术，可以方便地建立复合式文档(compound document)，这种文档由来自多个不同应用程序的对象组成，文档中的每个对象都与原来的应用程序相联系，并可执行与原来应用程序完全相同的操作。8、动态链接库(DLL)V

27、isual Basic是一种高级程序设计语言，不具备低级语言的功能，对访问机器硬件(yn jin)的操作不太容易实现。但它可以通过动态链接库技术将C/C+或汇编语言编写的程序加入到Visual Basic应用程序中，可以像调用内部函数一样调用其他语言编写的函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具有的功能。微软公司的Visual Basic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。Visual Basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面

28、设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。3.2.3 Visual Basic 系统在程序应用中的常用(chn yn)名词Visual Basic 系统除了一般高级语言所具有的一些(yxi)名词术语外，还有几个系统常用的名词。其基本含义如下：视窗（Form）视窗是进行人机交互的界面或接口(ji ku)，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows 系统的标准视窗。对象 (Object)对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Bo

29、x)，文本框 (Text Box)，命令按扭 (Command Button)，网格 (Data Grid)，ADO控件 (Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。属性 (Properties)属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜

30、色、接收或容纳的数据内容及数据的表现格式等。事件 (Events)事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。方法 (Method)方法(fngf)主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。过程(guchng) (Proce

31、dure)过程是指经过定义或说明(shumng)的，或基于某一对象对应的事件所引发的程序段。模块 (Module)模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。 3.2.3 数据库介绍关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。在数据库发展的历史上，最重要的成就就是关系模型。 关系数据库系统与非关系数据库系统的区别是：关系系统只有“表“这一种数据结构；而非关系数据库系统还有其他数据结构，对这些数

32、据结构有其他的操作。结构化查询语言SQL（Structured Query Language）是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言MicrosoftAccess介绍:Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据

33、存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。数据库连接方式(fngsh)选择：Visual basic6.0连接数据库的主要方式以下(yxi)几种方式：一是：用data控件进行(jnxng)数据库链接 ，二是利用adodc（ADO Data Control)进行数据库链接 。三是: 利用DataEnvironment进行数据库链接.四是利用ADO(Act

34、iveX Data Objects)进行编程技术应用介绍：用data控件进行数据库链接.第一步：给窗体添加一个Data控件。第二步：用Access建立一个名为Pad的数据库，在库中建立一个表Myset，给表添加四个字段：backcolor（数据），forecolor(文本），fontname(文本）,fontsize（文本）。注意：请将库文件存入程序所在目录。如果你的机器没安装有Access，可通过VB建库。利用adodc（ADO Data Control)进行数据库链接：使用adodata控件访问数据库可以完全不用编写代码,只需要通过简单的设置和操作其属性就可以实现与数据库的连接,通过绑定数

35、据感知控件,就能提供一个访问数据库的界面,用来实现对数据库的浏览,贴加,删除,修改等操作.三是: 利用(lyng)DataEnvironment进行数据库链接利用(lyng)DataEnvironment可以(ky)方便的对数据库进行链接，并为报表的建立做准备。四是：利用ADO(ActiveX Data Objects)进行编程ADO是Mcrosoft提出的第三种数据库访问对象，是Microsoft数据库访问技术的一个主要发展方向，ADO将OLE DB封装在一个数据对象中，使得VB程序中以方便地实现对数据库的访问。系统(xtng)设计系统设计(shj)分析4.1.1业务(yw)流程图人事部门人

36、员变动单报表人员奖励单人员惩罚单工资发放情况单工资发放人员决策部门财务部门人事部门人员变动统计员工财务部门人员奖励统计人员惩罚统计工资发放工资台帐4.1.2 数据(shj)流程图公司员工工资管理系统员工基本信息员工奖励管理信息查询员工惩罚管理报表打印工资发放管理员工基本信息报表员工奖励信息报表 员工惩罚信息报表工资发放信息报表添加用户用户管理帮助操作说明关于系统删除用户用户登录4.1.3 功能(gngnng)结构图系统(xtng)数据库设计启动Access 2000，创建新的数据库，命名为数据库.mdb，保存(bocn)在要存放这个系统所有工程文件的文件夹中。在使用的时，要把应用程序和这个数据

37、库保存在同一个文件夹中。 数据库是信息管理系统的后台，存储(cn ch)着所有的信息，在信息管理系统中有着很重要的地位。数据库设计的好与坏，直接影响到这个系统的运行效率。良好的数据库设计，可以提高数据信息的存储效率，确保数据信息的完整性和一致性。设计数据库系统时首先充分了解用户各个方面的需求，包括现有的及将来可能增加的要求数据库需求分析用户的需求具体体现在各种信息的提供，保存，更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入，收集基本数据，数据结构，以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础经过系统功能分析和需求总结及通过对员工工资计算过程的内容分析，考虑

38、到将来功能上的扩展，设计如下面所示的数据库及数据表数据库用户(yngh)信息表（用户资料）字段名数据类型字段大小可否为空默认值说明ID自动编号长整形索引（无重复）用户名文本8密码文本16员工基本(jbn)信息表（XX表）字段名数据类型字段大小可否为空默认值说明ID数字长整形是0索引姓名文本16性别自动编号长整形职务文本身份证号文本工资数字部门ID文本员工奖励(jingl)信息表（奖励表）字段名数据类型字段大小可否为空默认值说明ID数字长整形是0索引（无重复）姓名文本16性别文本职务文本奖励原因文本奖励金额数字奖励日期日期/时间备注文本员工惩罚(chngf)信息表（惩罚表）字段名数据类型字段大小

39、可否为空默认值说明ID数字长整形是0索引（无重复）姓名文本16性别文本职务文本惩罚原因文本惩罚金额数字惩罚日期日期/时间备注文本数据库的安全性、完整性、并发控制(kngzh)和恢复信息数据是公司的资源，因此保证数据库的安全可靠、正确有效(yuxio)是非常重要的问题。一般的数据库管理系统（DBMS）都有提供(tgng)了一定的数据保护功能。数据库保护也称为数据控制，主要包括数据的安全性、完整性、并发控制和数据库的恢复等。（1）数据库的安全性 数据库的安全性是指保护数据库以防止不合法的使用所造成的数据泄露、更改或破坏。由于数据库系统中存放着大量的数据，且为许多用户所共享，因此安全性问题是必须首先

40、要解决的。一般计算机系统中的安全措施是按照“用户标识和鉴别”、“DBMS存取控制”、“OS级安全控制”、“DB密码存储”来一级一级设置的。在现在流行的数据库系统中一般(ybn)都提供以下两种控制：用户标识和鉴别、数据存取控制。 （2）数据完整性为了保证(bozhng)数据库数据的正确性和相容性，数据库管理系统（DBMS）都提供了一种机制来检查(jinch)数据库中的数据，看它是否满足语义的规定条件，DBMS称这种机制为“数据完整性检查”。一般的DBMS中是通过完整性约束和数据库触发器来实现这一机制的。（3）并发控制在多用户数据库环境中，多个用户程序可并行存取数据库中的数据，为了以正确的方式调度

41、该并发操作，避免造成“丢失修改”、“不能重读”、“读脏数据”等不一致的情况，DBMS引入了“并发控制”这一机制。并发控制的主要方法是采用封锁机制，一般采用两种封锁机制：共享机制和排它机制来实现。（4）数据库后备与恢复主要使用转储、日志等方法进行数据库的恢复。用户界面设计用户界面是指软件系统与用户之间交互的接口，通常包括输出，输入，人机对话的界面与方式等。由于本系统的最终用户是那些对计算机技术并不算很精通的管理人员，因此本系统采用了基于菜单选择，填写表格和简单的问答选择等友好的用户界面交互方式。系统安全性验证用户界面设计用户登录窗口界面是用户看到的第一幅画面，也是进入系统之前必须经过的一道“关口

42、”。因此，简洁、实用、友好是设计时应当考虑到的风格。系统主画面屏幕区域设计进行系统的主画面屏幕区域设计时，是将整个屏幕划分为三个区域，如下图所示：主 菜 单 区工 作 区状 态 信 息 区在屏幕的最上方是主菜单区，显示本系统(xtng)的功能主菜单。用户可以有鼠标左键来选择相应的菜单，也可以用快捷键进行操作，然后用同样的方法在相应菜单下拉出该项的二级菜单（如果有的话），如果还有三级菜单，用户可在二级菜单选择相应的功能项，系统会自动弹出三级菜单。系统(xtng)的设计与实现4.3.1用户(yngh)登录窗体代码Option ExplicitDim myCn As adodb.Connection

43、Dim myRs As adodb.RecordsetDim Sum As IntegerPrivate Sub Combo1_Click()Combo1.SetFocusCombo1.SelStart = 0Combo1.SelLength = Len(Combo1.Text)End SubPrivate Sub Command1_Click()Dim str1 As StringIf Sum = 3 Then Unload Me 设置最多登录(dn l)次数为3 Exit SubEnd If Set myCn = New adodb.ConnectionSet myRs = New ado

44、db.RecordsetmyCn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 数据库.mdb;If Trim(Combo1.Text = ) Then MsgBox 用户名不能为空,请输入您的用户名!, vbOKOnly + vbExclamation, 警告(jnggo) Combo1.SetFocus Text2.Text = myCn.Close Sum = Sum + 1 Exit SubEnd Ifstr1 = select * from 用户(yngh)资料 where 用户名= & Combo1.

45、Text & myRs.Open str1, myCnIf myRs.EOF = True Then MsgBox 该用户名不存在,请重新输入(shr)!, vbOKOnly + vbExclamation, 警告 Combo1.SetFocus Combo1.Text = Text2.Text = myRs.Close myCn.Close Sum = Sum + 1 Exit SubEnd IfIf myRs.Fields(密码(m m) Trim(Text2.Text) Then MsgBox 密码不正确,请重新输入!, vbOKOnly + vbExclamation, 警告 Text

46、2.SetFocus myRs.Close myCn.Close Sum = Sum + 1 Exit SubEnd If myRs.ClosemyCn.CloseUnload MeForm9.ShowEnd SubPrivate Sub Command2_Click()Dim a1 As Integera1 = MsgBox(确定要退出系统(xtng)吗？, vbYesNo, 请问)If a1 = 6 Then Unload MeElse Combo1.Text = Text2.Text = Combo1.SetFocusEnd IfEnd SubPrivate Sub Form_Load(

47、)Form1.Top = 0Form1.Left = (Screen.Width - Form1.Width) / 2Set myCn = New adodb.ConnectionSet myRs = New adodb.Recordset Sum = 0 Combo1.Text = Text2.Text = myCn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 数据库.mdb;Persist Security Info=FalsemyCn.OpenmyRs.Open select

48、* from 用户(yngh)资料 order by 用户名 , myCn, adOpenKeyset, adLockPessimisticmyRs.MoveFirstDo Until myRs.EOFCombo1.AddItem Trim(myRs(用户名)Combo1.ItemData(Combo1.NewIndex) = myRs(ID)myRs.MoveNextLoopEnd SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then Text2.SetFocusEnd I

49、fEnd SubPrivate Sub Text2_Click()Text2.SetFocusText2.SelStart = 0Text2.SelLength = Len(Text2.Text)End Sub4.3.2添加(tin ji)用户窗体代码(di m):Dim myCn As New adodb.ConnectionDim myRs As New adodb.RecordsetPrivate Sub Command1_Click()Dim strName, strPass, strPassAgain As String strName = Trim(Text1.Text) strP

50、ass = Trim(Text2.Text) strPassAgain = Trim(Text3.Text)If strName = Or strPass = Or strPassAgain = Then MsgBox 请填写(tinxi)完整所有资料！, vbOKOnly, 警告 Text1.SetFocus Exit SubEnd IfmyCn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库.mdb;myRs.Open select * from 用户(yngh)资料 where 用户名= & strName & , myCnIf

51、 Not myRs.EOF Then Text1.SetFocus MsgBox 该用户名已经存在，请使用(shyng)其他用户名！, vbOKOnly, 警告 myRs.Close myCn.Close Exit SubEnd IfIf strPass strPassAgain Then MsgBox 两次输入(shr)的密码不同！, vbOKOnly, 警告 Text3.SetFocus myRs.Close myCn.Close Exit SubEnd IfmyRs.ClosemyRs.CursorType = adOpenKeysetmyRs.LockType = adLockOpti

52、misticmyRs.Open 用户资料, myCn, 3, 2myRs.AddNewmyRs!用户名 = Text1.TextmyRs!密码(m m) = Text2.TextmyRs.UpdatemyRs.ClosemyCn.CloseMsgBox 注册成功(chnggng)！, vbOKOnly, 提示Text1.Text = Text2.Text = Text3.Text = End SubPrivate Sub Command2_Click()Form11.HideEnd SubPrivate Sub Form_Load()Form11.Top = 0Form11.Left = (S

53、creen.Width - Form11.Width) / 2Dim snow(1 To 325, 0 To 2)Me.BackColor = 0Me.ShowDoEventsRandomize: amounty = 325For j = 1 To amountysnow(j, 0) = Int(Rnd * Form1.Width) Xsnow(j, 1) = Int(Rnd * Form1.Height) Ysnow(j, 2) = 10 + (Rnd * 20) 位移(wiy)量1030波动(用于控制速度)Next jDo While DoEvents 0For i = 1 To amou

54、nty 循环(xnhun)325次,每朵雪1次,屏幕每行325朵雪花oldx = snow(i, 0): oldy = snow(i, 1) 备份(bi fn)雪花i的坐标snow(i, 1) = snow(i, 1) + snow(i, 2) 雪花(xuhu)i的Y座标变一次If snow(i, 1) Form1.Height Then 如果雪花i落到最底部snow(i, 1) = 0 雪花i的Y座标置0(又从最上出现)snow(i, 2) = 5 + (Rnd * 30) 雪花i重算1个新的Y位移(速度)snow(i, 0) = Int(Rnd * Form1.Width) 雪花i重算1个

55、新的水平位置oldx = 0: oldy = 0 备份坐标置0End IfColoury = 8 * (snow(i, 2) - 10) + 60 计算颜色，值为60220或60260PSet (oldx, oldy), QBColor(0) 在旧位置擦除雪花iPSet (snow(i, 0), snow(i, 1), RGB(Coloury, Coloury, Coloury) 在新位置画雪花，颜色为灰白Next iLoopEnd SubPrivate Sub Text2_Click()Text2.SetFocusText2.SelStart = 0Text2.SelLength = Len

56、(Text2.Text)End SubPrivate Sub Text3_Click()Text3.SetFocusText3.SelStart = 0Text3.SelLength = Len(Text3.Text)End SubPrivate Sub Text1_Click()Text1.SetFocusText1.SelStart = 0Text1.SelLength = Len(Text1.Text)End Sub4.3.3删除(shnch)用户窗体代码(di m)Option ExplicitDim cn As adodb.ConnectionDim rs As adodb.Reco

57、rdsetPrivate Sub Command1_Click()rs.Deleters.UpdateEnd SubPrivate Sub Command2_Click()Form12.HideEnd SubPrivate Sub Command3_Click()List1.AddItem 本次(bn c)查看的起始位置：rs.MoveFirstDo Until rs.EOF List1.AddItem Trim(rs(用户名) List1.ItemData(List1.NewIndex) = rs(ID) rs.MoveNextLoopEnd SubPrivate Sub Form_Load

58、()Form12.Top = 0Form12.Left = (Screen.Width - Form12.Width) / 2Set cn = New adodb.ConnectionSet rs = New adodb.Recordsetcn.ConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & App.Path & 数据库.mdb;Persist Security Info=Falsecn.Openrs.Open select * from 用户(yngh)资料 order by 用户名 , cn, adOpe

59、nKeyset, adLockPessimisticrs.MoveFirstDo Until rs.EOF List1.AddItem Trim(rs(用户名) List1.ItemData(List1.NewIndex) = rs(ID) rs.MoveNextLooprs.MoveFirstEnd SubPrivate Sub List1_Click()Dim tempId As LongtempId = List1.ItemData(List1.ListIndex)rs.MoveFirstrs.Find id= & tempIdEnd Sub4.3.4系统的主界面(jimin)的设计与实

60、现代码(di m)Private Sub AddUser_Click()Form11.ShowEnd SubPrivate Sub Command1_Click()Form10.ShowEnd SubPrivate Sub Command2_Click()Form3.ShowEnd SubPrivate Sub Command3_Click()Form4.ShowEnd SubPrivate Sub Command4_Click()Form7.ShowEnd SubPrivate Sub Command5_Click()Form8.ShowEnd SubPrivate Sub Command6