信息标准管理系统

目录可行性分析......................................5二、系统分析某些....................................91）业务流程图..................................92）数据流程图..................................93）功能分析图..................................104）数据字典...................................115）数据加工解决描述...........................116）管理信息系统流程设想图（新系统模型）.............13三、系统设计某些...................................141）功能构造图设计...............................142）新系统信息解决流程设计........................14系统实行某些....................................161）程序框图....................................162）源程序.....................................185）系统使用阐明书...............................31五、附录或参照资料...................................32工资管理信息系统课程设计引言本课题将设计一种应用与事业单位工资管理系统。随着国民经济急速发展，事业单位工资应用体系也变越来越复杂，单位中，部门、职务、工作效益等与工资管理关于信息随之急剧增长。在这种状况下单靠人工来解决员工工资不但要消耗大量人力和物力，并且极容易出错。该系统详细任务就是设计一种事业单位工资数据库管理系统，由计算机来代替人工执行一系列工作，诸如增长员工添加删除、工资设立、修改、查询、记录等操作。这样就使财务人员可以快捷高效地完毕工资管理任务。1.应用背景人类社会正从工业时代阔步迈向信息时代，人们越来越注重信息技术对老式产业改造，信息化水平高低已经成为衡量一种单位当代化水平高低。在这种环境下，老式手工工资管理已经远远落后于信息化管理。随着计算机技术飞速发展，计算机在信息管理中应用普及，运用计算机实现人事工资管理势在必行。运用计算机管理工资信息，是适应当代化规定、推动管理制度走向科学化、规范化必要条件；工资管理是一项琐碎、复杂而又十分细致工作，工资计算、发放、核算工作量很大，普通不容许出错，如果实行手工操作，每月发放工资须手工填制大量表格，这就会耗费工作人员大量时间和精力，运用计算机进行工资发放工作，不但可以保证工资核算精确无误、迅速输出，并且还可以运用计算机对关于工资各种信息进行记录，服务于财务部门其她方面核算和财务解决，同步计算机具备着手工管理所无法比拟长处.例如:检索迅速、查找以便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些长处可以极大地提高人事工资管理效率,也是管理科学化、正规化,与世界接轨重要条件。该系统详细任务就是设计一种工资数据库管理系统，由计算机来代替人工执行一系列工作，诸如增长员工添加删除、工资设立、记录、发放、修改、查询等操作。这样就使财务人员可以快捷高效地完毕工资管理任务。设计指引思想是一切为顾客着想，界面简洁，操作尽量简朴明了。计算机资源是受到限制，因而充分运用了VisualBasic功能，在尽量地减少对系统资源占用前提下，设计出功能丰富软件。2.课题研发目与意义工资管理是一项琐碎、复杂而又十分细致工作，普通不容许发生错误。手工进行工资发放工作，需要重复地进行抄写、计算，不但耗费财务人员大量时间，并且往往由于抄写不慎，浮现张冠李戴，或者由于计算疏忽，浮现工资发放错误现象。同步工资发放具备较强时间限制，必要严格按照单位规定期间完毕计算和发放工作。正是工资管理这种重复性、规律性、时间性，使得工资管理计算机化成为也许。计算机进行工资发放工作，不但可以保证工资核算对的无误、迅速输出，并且还可以运用工资数据库对关于工资各种信息进行记录，服务于财务部门其她方面核算和财务解决，使会计人员从繁重手工制作中解脱出来,提高了会计信息及时性、对的性、全面性。大大提高了管理水平和管理效率，产生了巨大经济效益和社会效益。信息时代计算机技术发展给整个社会生活、工作方式带来了一次革命。老式意义上工资管理形式和内涵都在发生着本质变化。此前那种一种会计、一种账本工资管理形式已经可以被计算机及财务软件所代替。计算机以及有关软件介入使得工资管理变得科学化、透明化、简朴化。因而，依照不同单位自身特点开发适合自己工资管理软件是显得十分必要。工资管理软件从属于财务软件（又称会计软件）。中华人民共和国财务软件起步于70年代末，经历了从自主开发、委托定点开发向原则化、通用化、商品化、专业化发展几种阶段。三十年来财务软件市场规模化、产业化发展迅速。近年来随着市场竞争日趋激烈，财务软件模式转向集中式管理；某些行政单位为适应财政预算管理变革，开始对财务实行集中式管理。可以说集中式财务管理在某些单位来说是一种管理发展趋势。这种管理模式在此前因网络、通讯技术限制而无法实行，随着互联网技术发展，基于网络计算，支持集中管理模式财务软件开始出当前市场，并越来越受到但愿采用集中财务管理模式单位所爱慕。因此，在国内各级事业单位中她们更需要有一种以便、快捷、安全、透明工资管理软件。3.信息系统简介管理信息系统就是咱们常说MIS（ManagementInformationSystem），在强调管理，强调信息当代社会中它越来越得到普及。MIS是一门新学科，它跨越了若干个领域，例如管理科学、系统科学，运筹学、记录学以及计算机科学。在这些学科基本上，形成信息收集和加工办法，从而形成一种纵横交织系统。它是一种不断发展新型学科。管理信息系统定义随着计算机技术和通讯技术进步也在不断更新。在现阶段普遍以为，管理信息系统是一种由人和计算机或其她信息解决手段构成并用于管理信息系统。管理信息系统能进行信息收集、传播、加工、保存、维护和使用。它能实测国民经济部门或不同单位各种运营状况，能运用过去数据预测将来，能从全局出发辅助决策，能运用信息控制国民经济部门或不同单位活动，并协助实现其规划目的。管理信息系统是一门综合了管理科学、系统理论、计算机科学系统性边沿学科。

4.管理信息系统概述20世纪，随着全球经济蓬勃发展，众多经济学家纷纷提出了新管理理论。20世纪50年代，西蒙提出管理依赖于信息和决策思想。同步期维纳刊登了控制论，她以为管理是一种控制过程。1958年，盖尔写到：“管理将以较低成本得到及时精确信息，做到较好控制。”这个时期，计算机开始用于会计工作，浮现数据解决一词。1970年，WalterT.Kennevan给刚刚浮现管理信息系统一词下了一种定义：“以口头或书面形式，在适当时间向经理、职工以及外界人员提供过去、当前、预测将来关于公司内部及其环境信息，以协助她们进行决策。”在这个定义里强调了用信息支持决策，但并没有强调应用模型，没有提到计算机应用。1985年，管理信息系统创始人，明尼苏达大学管理学专家GordonB.Davis给了管理信息系统一种较完整定义，即“管理信息系统是一种运用计算机软硬件资源，手工作业，分析、筹划、控制和决策模型以及数据库人-机系统。它能提供信息支持公司或组织运营、管理和决策功能。”这个定义全面地阐明了管理信息系统目的、功能和构成，并且反映了管理信息系统在当时达到水平。管理信息系统起初应用于最基本工作，如打印报表、计算工资、人事管理等，进而发展到公司财务管理、库存管理等单项业务管理，这属于电子数据解决（EDP，ElectronicDataProcessing）系统。当建立了公司数据库，有了计算机网络从而达到数据共享后，从系统观点出发，实行全局规划和设计信息系统时，就达到管理信息系统阶段。随着计算机技术进步和人们对系统需求进一步提高，人们更加强调管理信息系统能否支持公司高层领导决策这一功能，更侧重于公司外部信息收集、综合数据库、模型库、办法库和其她人工智能工具能否直接面向决策者，这是决策支持系统（DSS，DecisionSupportSystem）任务。近间，国外大公司浮现了3种变化：

抓管理着重于建立MIS系统，使管理技术走向成熟。

信息是决策根据，MIS随时为经理们提供信息服务。

经理通过MIS使其经营筹划和详细业务活动联系在一起。由于以上变化，MIS应用得到了迅速发展。不但大中型公司普遍建立了自己MIS，某些中小公司也不例外，普遍建立了公用数据网络，特别是近年来Internet飞速发展，Intranet技术得到广泛应用，为公司MIS提供了良好支持环境。从国际技术发展趋势看，20世纪90年代浮现了几种全新管理技术，相应MIS开发技术在20世纪90年代也有了新发展。1.信息综合集成MIS在计算机网络和分布式数据库管理系统支持下，与公司其她系统，如OA、CAD、CAM、CAPP、在线数据采集系统集成，形成制造业计算机集成制造系统，或者普通企事业单位综合信息系统（CIIS，ComputerIntegratedInformationSystem），实现办公、管理、计算、设计、控制、监测，以及决策等多功能综合。2.Internet/Intranet因特网（Internet）已经被广大顾客所熟悉，而以因特网技术为基本公司内部信息系统——Intranet既可以通过接入方式成为因特网一某些，也可以自成体系，实现公司内部管理。它可以克服老式MIS存在系统封闭、顾客界面形式不统一、各种软件版本并存、维护移植困难等问题，为新一代公司MIS开发注入了强劲活力。3.先进软件开发工具为了缩短软件开发周期，提高软件质量和原则化水平以及软件可维护性，越来越多软件开发公司使用先进软件开发工具或计算机辅助软件工程工具（CASE，Computer-AidedSoftwareEngineering），如各种可视化建模工具、系统分析和设计工具、软件质量测试工具、软件文档建立和管理工具等。尚有各种MIS开发平台和代码生成工具，这些工具极大地以便了MIS开发。4.多媒体技术随着计算机性能提高，MIS采用越来越多多媒体技术，用图形、图像、声音代替本来单调字符形式，给顾客提供了一种更加生动真实应用环境。会计信息系统也称为电算化会计系统，它是以提供会计信息为目信息系统。会计信息系统重要由帐务解决、报表解决、工资核算、固定资产核算、应收应付核算、材料核算、销售核算、成本核算等子系统构成。工资核算信息系统是会计信息系统中重要构成某些。5.工资管理信息系统最后目工资管理信息系统最后目是为管理、决策服务，达到这个目的手段无外乎如下几种方面：一是运用计算机可迅速整顿、传播、解决各种数据特点，解决会计业务，从而更为全面、更为精确提供管理、决策所需财务信息；二是运用计算机解决数据速度快特点，解决会计业务，从而更为快捷地提供各种管理、决策所需地财务信息；三是运用计算机对数据分类整顿长处，按管理规定，对会计核算数据进行各种加工、解决，从而筛选出管理所需信息；四是会计人员从繁杂手工核算工作中解脱出来，运用她们懂财务、理解状况优势，参加分析、参加管理、参加决策。一、可行性分析可行性分析任务是明确开发应用项目必要性和可行性。必要性来自实现开发任务迫切性，而可行性则取决于实现应用系统资源和条件。这项工作建立在初步调查基本上。系统可行性研究在系统整个过程中占有很重要地位，它决定所选项目是不是也许实现或值得去实现。可行性研究目就是用最小代价在尽量短时间内拟定问题与否可以解决。它重要涉及技术、经济、运营、法律等方面可行性：既有技术与否可以实现本系统设计开发；经济上与否值得去实现；与否可以在普通平台下运营等。技术可行性是指开发一种新系统所需要技术与否具备，如支持新系统软硬件功能以及技术人员数量和水平。本系统是进行职工工资解决。结合实际需要，通过仔细斟酌，我选取了MicrosoftVisualBasic6.0作为开发顾客界面软件，它综合了可视化开发环境易用性、32位优化编译技术迅速和强大、有数据引擎提供可伸缩性等特点；选MicrosoftOfficeAccess用来开发后台数据库，它具备较好安全性与兼容性；并且本系统对硬件规定不高，在既有技术基本上一定能实现本系统。经济可行性是评价一种计算机信息系统与否可行最基本一种办法，是对信息系统解决方案成本有效性量度。信息系统开发是一种投资，因而对于顾客来说，她一方面关怀是：与否值得开发一种信息系统。而在效益方面，她们一方面关怀是：当她们使用了这套管理信息系统后，工资解决效率与否提高了，人力资源与否节约了。而本系统设计和开发事实上正好能满足她们这些规定。尚有该系统对硬件规定不高，装有win98系统以上计算机普通就能运营系统，因此在系统运营方面也不存在问题。1.开发办法在开发办法选取上，我选取了自顶向下开发方略：自顶向下开发方略是从工资管理整体进行设计，逐渐从抽象到详细，从概要设计到详细设计，体现构造化设计思想。自顶向下是强调由全局到局部、由长远到近期、由上层到下层，从摸索、研制一种合理信息流模型出发，设计出适合于这种信息流信息系统。子模块通过信息流拟定，并且尽量规定每个局部模块优化建立在全局优化指引下。第一层一方面分析工资管理信息系统系统环境、系统边界、系统总目的，然后分析系统完毕总目的所应具备功能以及实现这些功能信息需求。第二层是模块级。依照系统目的、功能以及需求，导出各个模块目的、功能以及信息需求。同理，逐级地推演更下一层地模块，即由上而下、由粗而细、逐级分解、逐级细化。“自顶向下”是一种演绎式分析办法，是一种整体性、系统性强分析办法。其详细环节如下：分析工资核算目的、环境和系统运营条件；依照总体目的拟定各项详细功能；拟定需要决策内容；依照每项决策内容拟定所需要信息；为整个系统规定各个功能模块；为要研制各个功能模块和数据库规定先后顺序。该办法长处是对整个筹划来讲，逻辑性很强；其缺陷是难以制定这样大方案。为理解决这一矛盾，我在参照了既有工资管理信息系统基本上，进行总体规划。2.开发环境简介(1)数据库技术简介数据库技术作为数据管理技术，是计算机软件领域一种重要分支，产生于60年代末。现已形成相称规模理论体系和实用技术。先进数据库设计是应用成功基石。万万丈高楼平地起，数据库设计犹如高楼基石，是开发高品质应用前提。(2)数据库体系构造数据体系构造提成三级：内部级（Internal）,概念级(Conceptual)和外部级（External）。这个三级构造有时也称为“三级模式构造”。外部级：最接近顾客，是单个顾客所能看到数据特性。单个顾客使用数据视图描述称为“外模式”。概念级别：涉及到所有顾客数据定义、是全局数据视图。全局视图描述称为“概念模式”。内部级：最接近于物理存储设备，涉及到实际数据存储构造物理存储数据视图描述称为“内模式”。数据库三级模式构造是数据三个抽象级别。它把数据详细组织留给DBMS去做，顾客只要抽象地解决数据，而不必关怀数据在计算机中表达和存储，这样就减轻了顾客使用系统承担。(3)数据库管理系统（DBMS）数据库管理系统（DBMS）是指数据库系统中管理数据软件系统。DBMS是数据库系统核心构成某些。对数据库一切操作，涉及定义、查询、更新及各种控制，都是通过DBMS进行。在不同计算机系统中，由于缺少统一原则，虽然同种数据模型DBMS，它们在顾客接口、系统功能方面也经常是不相似。顾客对数据库进行操作，是由DBMS把操作从应用程序带到外部级、概念级、再导向内部级，进而操作存储器中数据。DBMS重要目的，是使数据作为一种可管理资源解决。DBMS重要功能为： 数据库定义功能：DBMS提供数据定义语言（DDL）定义数据库三级构造，涉及外模式、概念模式、内模式及基互相之间映象，定义数据完整性、安全控制等约束。因而，在DBMS中应涉及DDL编译程序。 数据库操纵功能：DBMS提供数据操纵语言（DML）实现对数据库中数据操作。基本数据操作提成两类四种：检索（查询）更新（插入、删除、修改） 数据库保护功能：数据库中数据是信息社会战略资源，对数据保护是至关重要大事。DBMS对数据库保护重要通过四个方面实现： 数据库恢复：数据库被破坏或数据不对的时，系统有能力把数据库恢复到对的状态。 数据库并发控制：DBMS并发控制子系统能防止错误发生，对的解决好多顾客、多任务环境下并发操作。 数据库完整性控制：保证数据库中数据及语义对的性和有效性，防止任何对数据导致错误操作。 数据库安全性控制：防止未经授权顾客蓄谋或无意地存取数据库中数据，以免数据泄露、更改或破坏。 数据库存储管理：把各种DML语句转换成低层文献系统命令，起到数据存储、检索和更新作用。(4)Access数据库简介Access数据库软件是一种关系型数据库管理系统，它为顾客提供了数据库管理工具集和应用程序开发环境。MicrosoftOffice应用软件在办公自动化方面已得到广泛应用，而Access是Office系列中重要组件之一，它是关系型数据库，特别是中小型数据库应用领域中最通用数据库软件。Access是一种数据库管理系统（DBMS）,它同Oracle、DBASE和Foxpro等数据库软件系统同样，用于构造数据库应用程序并实行对数据库统一管理。顾客可以通过Access提供开发环境及工具集以便地构建数据库应用程序，大某些是直观地可视化地操作，无需编写程序代码便可以便地完毕数据库管理工资它长处是：1.ACCESS是真正关系型数据库管理系统。ACCESS具备主核心字和外部核心字定义，提供了数据库完整性应用，避免数据遭到不合理删除或修改。ACCESS数据库还具备数据确认规则，以免输入数据是非精准数据。它支持字段类型有数字文本、日期、货币、备注、是/否及OLE对象和空值等。可以说，ACCESS数据库软件提供了真正关系型数据库管理。2.ACCESS是面向数据库开发人员和最后顾客数据库管理系统。ACCESS提供了VBA(VISUALBASICFORAPPLICATION)语言。对于数据库开发人员。运用该语言以及系统提供可视化和向导，便可以设计出具备一定规模、功能强大数据库应用系统。对于数据库最后顾客，并不需要编程，就可运用这些可视化工具和向导进行简朴数据库设计和管理。3.ACCESS是开放式数据库管理系统。4.ACCESS内置了大量内部函数。ACCESS软件包括了大量内部函数，涉及数据库、数学、财务、日期、时间、字符串等函数。5．可视化操作工具和以便向导。(5)Visualbasic编程语言简介VisualBasic简称VB，是微软公司推出一种可视化编程工具，是当今世界上应用最广泛编程语言之一，它也被公以为是编程效率最高一种编程办法。它开发速度快捷，具备语法简朴易学开发环境，是初学者首选。VB提供可视化开发环境，使用者可以像搭积木同样构建出程序界面，并且它提供丰富控件组，省去了自己编写代码实现这些效果麻烦，这样就可以把更多精力放在程序功能方面实现上。本系统中使用是MicrosoftVisualBasic6.0中文公司版。二、系统分析某些工资汇总表工资查询工资表奖金、加班工资、事假扣除工资等后勤、财会部门人事部门工资管理信息系统管理员职工基本信息1）业务流程图工资汇总表工资查询工资表奖金、加班工资、事假扣除工资等后勤、财会部门人事部门工资管理信息系统管理员职工基本信息 2）数据流程图数据流程图是一种能全面地描述信息系统逻辑模型重要工具，它可以用少数几种符号综合地反映出信息在系统中流动、解决和存储状况。符号阐明如下：

外部实体 解决 数据流 数据存储 数据流程图分多少层次视实际状况而定，考虑到工资管理信息系统相对较小，在这里我把数据流程图分为二层。第一层：人事部门人事部门 员工信息财务部门工资核算系统 财务部门工资核算系统 工资信息后勤部门 汇总分派后勤部门 信息 奖金、扣款等信息 第二层：人事部门人事部门 员工信息 职工工资计算解决基本数据输入解决 职工工资计算解决基本数据输入解决 工资登记单 工资查询表后勤部门 后勤部门 劳务奖金、扣款等信息 工资记录单 工资计算单工资记录工资记录工资汇总解决 职工工资表工资 工资 月工资共计表工资汇总解决 信息单 记录单 工资信息单 工资单 工资汇总单账务解决系统 工资汇总单账务解决系统 工资汇总表功能分析图系统功能分析是在系统开发总体任务基本上完毕。该工资管理系统采用是MIS设计办法，在设计系统之前，需要充分理解系统功能，依照系统所要达到规定设计详细模块。本系统需要完毕功能重要有：个人工资单查询打印查询结束员工查询工资总表扣除工资奖金基本工资员工基本信息员工查询员工增删资料输入工资管理系统个人工资单查询工资汇总工资设定个人工资单查询打印查询结束员工查询工资总表扣除工资奖金基本工资员工基本信息员工查询员工增删资料输入工资管理系统个人工资单查询工资汇总工资设定4）数据字典数据项定义：数据项标示符数据项名称类型及宽度简述取值范畴I1职工号数字型10I2姓名字符型10I3部门名称字符型10I4基本工资数字型10数据流定义：数据流标示符数据流名称数据流来源数据流去向D1员工信息人事部门基本数据输入解决D2劳务奖金后勤部门基本数据输入解决D3扣款信息后勤部门基本数据输入解决数据存储定义：数据存储编号数据存储名称简述数据存储构成有关联解决S1职工工资表S2工资汇总表S3月工资共计表S4工资查询表数据解决定义：解决逻辑编号解决逻辑名称输入数据流输出数据流解决逻辑描述P1基本数据输入解决员工基本信息、奖金扣款等信息工资登记单基本数据录入P2职工工资计算解决工资登记单工资计算单对录入数据进行简朴计算P3工资记录工资信息单工资记录单将信息单数据进行记录P4工资汇总解决工资信息单工资汇总单对工资信息进行汇总数据加工解决描述解决名称标示符输入输出解决逻辑描述P1基本数据输入解决员工基本信息、奖金扣款等信息工资登记单将基本数据录入P2职工工资计算解决工资登记单工资计算单对录入数据进行简朴计算P3工资记录工资信息单工资记录单将信息单数据进行记录P4工资汇总解决工资信息单工资汇总单对工资信息进行汇总6）管理信息系统流程设想图（新系统模型）通过对现行系统需求分析，本系统数据流向是合理，但为了便于计算机化管理，也为了使系统可以提供更多辅助决策信息，本系统应做如下改进设想：1.财务解决系统未对工资分派状况进行反馈，应增长工资分派反馈环节；2.工资记录与工资汇总重复计算，去除工资记录环节；3.工资查询在财务解决系统进行查询，减少不必要环节；依照前面分析与评价成果，提出新系统数据流程如图：人事部门人事部门 员工信息 职工工资计算解决基本数据输入解决 职工工资计算解决基本数据输入解决 后勤部门 后勤部门 劳务奖金、扣款等信息 工资计算单工资汇总解决 职工工资表 工资汇总解决 工资信息单 工资查询表 工资汇总单账务解决系统 工资汇总单账务解决系统工资费用分派解决 工资汇总表工资费用分派解决 工资费用分派凭证 工资费用分派单 工资费用分派表三、系统设计某些功能构造图设计相比本来功能构造图，咱们对其进行简化，把奖金、劳务工资等放入“更新主文献”目录，罚金、税金等放入“扣款文献”目录，基本工资放入“主文献”目录，可以看出来，当前系统较本来更简洁，更容易让员工清晰工资发放机制。工资管理信息系统工资管理信息系统数据维护打印工资汇总表打印工资单数据录入更新数据维护建立主解决文献数据录入计算和打印建立扣款文献更新主文献建立主文献数据维护打印工资汇总表打印工资单数据录入更新数据维护建立主解决文献数据录入计算和打印建立扣款文献更新主文献建立主文献4）新系统信息解决流程设计现行系统需求分析，本系统数据流向是合理，但为了便于计算机化管理，也为了使系统可以提供更多辅助决策信息，本系统应做如下改进设想：1.财务解决系统未对工资分派状况进行反馈，应增长工资分派反馈环节；2.工资记录与工资汇总重复计算，去除工资记录环节；3.工资查询在财务解决系统进行查询，减少不必要环节；新系统信息解决流程：人事部门人事部门 员工信息 职工工资计算解决基本数据输入解决 职工工资计算解决基本数据输入解决 后勤部门 后勤部门 劳务奖金、扣款等信息 工资计算单工资汇总解决 职工工资表 工资汇总解决 工资信息单 工资查询表 工资汇总单账务解决系统 工资汇总单账务解决系统工资费用分派解决 工资汇总表工资费用分派解决 工资费用分派凭证 工资费用分派单 工资费用分派表四、系统实行某些1）程序框图登陆界面：账号与密码都为1，输入点击登录按钮：进入主界面：点击员工信息，跳出如下界面：在员工信息管理界面可以对不同部门员工进行添加、修改、删除操作，点击离开后，进入基本工资界面：2）源程序管理员登录界面：工资管理登录系统图登陆窗口，进行密码验证，如果顾客输入对的顾客名和密码就可正常登陆。如果密码错误则浮现错误提示，如果想关闭系统，单击取消按钮即可退出系统，其实当代码如下：Login.frmPublicEN，a，PWAsStringPublicPAsIntegerPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCase0txtSQL="select*fromaccountswhereaccount='"&Text1(0).Text&"'"&"andpassword='"&Text1(1).Text+"'"Setrs=exesql(txtSQL)Ifrs.EOF=TrueThenMsgBox"没有这个顾客，请重新输入!"，vbCritical，"警告"WithText1(0).SelStart=0.SelLength=Len(Text1(0).Text)Text1(0).SetFocusEndWithElseEN=Trim(rs.Fields(0))a=Trim(rs.Fields(1))PW=Trim(rs.Fields(2))P=Trim(rs.Fields(3))UnloadMeSetlogin=NothingMain.ShowEndIfCase1Text1(0).Text=""Text1(1).Text=""Command1(0).Enabled=FalseCommand1(1).Enabled=FalseText1(0).SetFocusCaseElseUnloadMeSetlogin=NothingEndEndSelectEndSubPrivateSubForm_Activate()Text1(0).SetFocusEndSubPrivateSubLabel1_Click(IndexAsInteger)EndSubPrivateSubText1_Change(IndexAsInteger)IfText1(0).Text<>""OrText1(1).Text<>""ThenCommand1(1).Enabled=TrueEndIfIfText1(0).Text<>""AndText1(1).Text<>""ThenCommand1(0).Enabled=TrueElseCommand1(0).Enabled=FalseEndIfEndSub员工信息界面：在员工信息管理界面可以对不同部门员工进行添加、修改、删除等功能操作，规定添加工人编号、所在部门、顾客名、职务等。点击离开后，进入基本工资界面，其功能实当代码如下：Grengl.frmOptionExplicitDimrs0AsNewADODB.RecordsetDimsql0AsStringDimaAsStringDimbAsStringDimcAsBooleanDimdAsBooleanPrivateSubCommand1_Click()Timer1.Enabled=TrueText1.Enabled=Truec=Falsed=FalseEndSubPrivateSubCommand2_Click()Timer1.Enabled=TrueText1.Enabled=Falsec=Falsed=FalseEndSubPrivateSubCommand3_Click()Dimrs00AsNewADODB.RecordsetDimsql00AsStringsql00="deletefromyuangonwhereid='"&rs0.Fields(0)&"'"DimaAsStringDimbAsStringDimchoosea="信息删除"b=""&rs0.Fields(0)&"删除"choose=MsgBox("删除员工信息会将其其他有关信息也一起删除,与否删除?"，vbOKCancel，"系统信息")Ifchoose=vbOKThenCalldata3(sql00，a，b)ElseEndIfSetrs00=data1(rs00，sql0)Setrs0=rs00SetDataGrid1.DataSource=rs0DataGrid1.RefreshEndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubCommand5_Click()Dimrs4AsNewADODB.RecordsetDimsql4AsStringDimrs5AsNewADODB.RecordsetDimsql5AsStringDimsql6AsStringOnErrorGoTok2:IfText1.Text<>""ThenIfText1.Enabled=TrueThensql4="selectjibengonzifrombumengzwherebumen='"&DataCombo2.Text&"'andziwu='"&DataCombo1.Text&"'"Setrs4=data1(rs4，sql4)sql5="insertintoyuangon(id,xinming,nianling,xingbie,bumen,ziwu)values('"&Text1.Text&"','"&Text2.Text&"',"&Text3.Text&",'"&Combo1.Text&"','"&DataCombo2.Text&"','"&DataCombo1.Text&"')"sql6="insertintojibengonzi(id,jibengonzi)values('"&Text1.Text&"',"&rs4.Fields(0)&")"a="信息增长"b=""&Text1.Text&"信息增长"Calldata4(sql5，sql6，a，b)Setrs5=data1(rs5，sql0)Setrs0=rs5Elsesql4="selectjibengonzifrombumengzwherebumen='"&DataCombo2.Text&"'andziwu='"&DataCombo1.Text&"'"Setrs4=data1(rs4，sql4)sql5="updateyuangonsetxinming='"&Text2.Text&"',nianling="&Text3.Text&",xingbie='"&Combo1.Text&"',bumen='"&DataCombo2.Text&"',ziwu='"&DataCombo1.Text&"'whereid='"&Text1.Text&"'"Ifc=TrueOrd=TrueThensql6="updatejibengonzisetjibengonzi="&rs4.Fields(0)&""Elsesql6=""EndIfa="信息修改"b=""&Text1.Text&"信息修改"Ifsql6<>""ThenCalldata4(sql5，sql6，a，b)ElseCalldata3(sql5，a，b)EndIfSetrs5=data1(rs5，sql0)Setrs0=rs5EndIfElseMsgBox"员工编号不能为空"EndIfc=Falsed=FalseText1.Text=""Text2.Text=""Text3.Text=""SetDataGrid1.DataSource=rs0DataGrid1.RefreshExitSubk2:IfErr.Number=3021AndText1.Text=""ThenMsgBox"员工编号不能为空"，vbOKOnly，"错误"IfErr.Number=3021AndDataCombo1.Text=""OrDataCombo2.Text=""ThenMsgBox"部门,职位不能为空"，vbOKOnly，"错误"IfErr.Number=-ThenMsgBox"年龄必要在16～60周岁"，vbOKOnly，"错误"IfErr.Number=-AndText1.Text<>""ThenMsgBox"员工编号重复!"，vbOKOnly，"错误"EndSubPrivateSubCommand6_Click()Timer2.Enabled=Truec=Falsed=FalseEndSubPrivateSubDataCombo1_Click(AreaAsInteger)d=TrueEndSubPrivateSubDataCombo2_Change()Dimrs3AsNewADODB.RecordsetDimsql3AsStringsql3="selectziwufrombumengzwherebumen='"&DataCombo2.Text&"'"Setrs3=data1(rs3，sql3)SetDataCombo1.DataSource=rs3SetDataCombo1.RowSource=rs3c=TrueEndSubPrivateSubDataCombo2_Click(AreaAsInteger)Dimrs3AsNewADODB.RecordsetDimsql3AsStringsql3="selectziwufrombumengzwherebumen='"&DataCombo2.Text&"'"Setrs3=data1(rs3，sql3)SetDataCombo1.DataSource=rs3SetDataCombo1.RowSource=rs3c=TrueEndSubPrivateSubDataCombo3_Click(AreaAsInteger)Dimrs2AsNewADODB.RecordsetDimsql2AsStringsql2="select*fromyuangonwherebumen='"&DataCombo3.Text&"'"Setrs2=data1(rs2，sql2)Ifrs2.BOFThenMsgBox"部门内无员工信息"，vbOKOnly，"新部门"ElseSetrs0=rs2EndIfSetDataGrid1.DataSource=rs0DataGrid1.RefreshEndSubPrivateSubDataGrid1_DblClick()OnErrorGoTok1:IfText1.Enabled=FalseThenText1.Text=rs0.Fields(0)Text2.Text=rs0.Fields(1)Text3.Text=rs0.Fields(2)Combo1.Text=rs0.Fields(3)DataCombo2.Text=rs0.Fields(4)DataCombo1.Text=rs0.Fields(5)EndIfExitSubk1:IfErr.Number=3021ThenMsgBox"无记录,无法修改"，vbOKOnly，"错误"EndSubPrivateSubForm_Load()Combo1.ListIndex=0Setrs0=NewADODB.Recordsetsql0="select*fromyuangon"Setrs0=data1(rs0，sql0)SetDataGrid1.DataSource=rs0DataGrid1.RefreshDimrs1AsNewADODB.RecordsetDimsql1AsStringsql1="select*frombumen"Setrs1=data1(rs1，sql1)SetDataCombo3.DataSource=rs1SetDataCombo3.RowSource=rs1SetDataCombo2.DataSource=rs1SetDataCombo2.RowSource=rs1c=Falsed=FalseEndSubPrivateSubText3_KeyPress(KeyAsciiAsInteger)IfNotIsNumeric(Chr(KeyAscii))AndKeyAscii<>8ThenKeyAscii=0EndIfEndSubPrivateSubTimer1_Timer()IfDataGrid1.Height>2655ThenDataGrid1.Height=DataGrid1.Height-16.8IfFrame1.Height<1575ThenFrame1.Height=Frame1.Height+15.6IfFrame1.Top>2880ThenFrame1.Top=Frame1.Top-15.6IfDataGrid1.Height=2655ThenTimer1.Enabled=FalseEndSubPrivateSubTimer2_Timer()Frame1.Visible=FalseIfDataGrid1.Height<4335ThenDataGrid1.Height=DataGrid1.Height+15.6IfDataGrid1.Height=4335ThenFrame1.Top=4440Frame1.Height=15Frame1.Visible=TrueTimer2.Enabled=FalseEndIfEndSub基本工资管理界面：基本工资管理界面可以对各部门不同职务基本工资进行添加、修改和删除操作，其实当代码如下：Main.frmPrivateSubForm_Load()StatusBar1.Panels(1)="当前时间:"&""&Date&""&TimeEndSubPrivateSubj1_Click()fuligl.ShowEndSubPrivateSubj2_Click()bumengl.ShowEndSubPrivateSubj3_Click()ziwugl.ShowEndSubPrivateSubk_Click()EndSubPrivateSubk1_Click()gerengl.ShowEndSubPrivateSubk2_Click()fuli.ShowEndSubPrivateSubk3_Click()bmgzgl.ShowEndSubPrivateSubk4_Click()gonzitz.ShowEndSubPrivateSubl1_Click()gonzicx.ShowEndSubPrivateSubl2_Click()gonzidel.ShowEndSubPrivateSubl3_Click()gonzifafang.ShowEndSubPrivateSubq_Click()rizicx.ShowEndSubPrivateSubTimer1_Timer()StatusBar1.Panels(1)="当前时间:"&""&Date&""&TimeEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.IndexCase1gerengl.ShowCase2bmgzgl.ShowCase3laowugongzi.ShowCase4jiangjin.ShowCase5koukuan.ShowCase6gongzihuizong.ShowCase7EndEndSelectOptionExplicitDimrs1AsNewADODB.RecordsetDimsql1AsStringDimaAsStringDimbAsStringPrivateSubCommand1_Click()Dimrs4AsNewADODB.RecordsetDimsql4AsStringDimrs41AsNewADODB.RecordsetDimsql41AsStringOnErrorGoToNow1:sql41="select*frombumengzwherebumen='"&DataCombo1.Text&"'andziwu='"&DataCombo2.Text&"'"sql4="updatebumengzsetziwu='"&DataCombo2.Text&"',jibengonzi="&Text2.Text&"wherebumen='"&rs1.Fields(0)&"'andziwu='"&rs1.Fields(1)&"'"a="信息修改"b=""&DataCombo1.Text&""&DataCombo2.Text&""&"基本工资"IfDataCombo2.Text<>rs1.Fields(1)ThenSetrs41=data1(rs41，sql41)Ifrs41.BOF=TrueThenCalldata3(sql4，a，b)Setrs4=data1(rs4，sql1)Setrs1=rs4ElseMsgBox"本部门内存在相似职务工资，无法修改"，vbOKOnly，"错误"EndIfElseCalldata3(sql4，a，b)Setrs4=data1(rs4，sql1)Setrs1=rs4EndIfSetDataGrid1.DataSource=rs1DataGrid1.RefreshExitSubNow1:SelectCaseErr.Number:Case-MsgBox"基本工资不能为空"，vbOKOnly，"错误"Case3021MsgBox"本部门内暂无职务工资信息"，vbOKOnly，"错误"EndSelectEndSubPrivateSubCommand2_Click()EndSubPrivateSubCommand3_Click()DimsrAsNewADODB.RecordsetDimsqlAsStringsql="select*frombumengz"Setsr=data1(sr，sql)EndSubPrivateSubCommand4_Click()UnloadMeEndSubPrivateSubCommand5_Click()Dimrs3AsNewADODB.RecordsetDimsql3AsStringsql3="insertintobumengz(bumen,ziwu,jibengonzi)values('"&DataCombo1.Text&"','"&DataCombo2.Text&"',"&Text2.Text&")"Dimrs31AsNewADODB.RecordsetDimsql31AsStringsql31="select*frombumengzwherebumen='"&DataCombo1.Text&"'andziwu='"&DataCombo2.Text&"'"a="信息增长"b=""&DataCombo1.Text&""&DataCombo2.Text&""&"基本工资"OnErrorGoToNow1:Setrs31=data1(rs31，sql31)Ifrs31.BOFThenCalldata3(sql3，a，b)Setrs3=data1(rs3，sql1)Setrs1=rs3SetDataGrid1.DataSource=rs1DataGrid1.RefreshElseMsgBox"本部门内存在相似职务工资，无法添加"，vbOKOnly，"错误"EndIfExitSubNow1:SelectCaseErr.Number:Case-MsgBox"基本工资只能输入数字"，vbOKOnly，"错误"Case-MsgBox"基本工资不能为空"，vbOKOnly，"错误"EndSelectEndSubPrivateSubCommand6_Click()Dimrs4AsNewADODB.RecordsetDimrs41AsNewADODB.RecordsetDimsql4AsStringDimsql41AsStringDimchoosesql4="select*fromyuangonwherebumen='"&DataCombo1.Text&"'"sql41="deletefrombumengzwherebumen='"&DataCombo1.Text&"'andziwu='"&DataCombo2.Text&"'"a="信息删除"b=""&DataCombo1.Text&""&DataCombo2.Text&""&"基本工资"Setrs4=data1(rs4，sql4)Ifrs4.BOFThenchoose=MsgBox("拟定要删除信息？"，vbOKCancel+vbDefaultButton2+vbQuestion，"警告")Ifchoose=vbOKThenCalldata3(sql41，a，b)ElseMsgBox"相应部门职务存在，信息也许正被使用！删除失败"，vbOKOnly，"错误"EndIfSetrs41=data1(rs41，sql1)Setrs1=rs41SetDataGrid1.DataSource=rs1DataGrid1.RefreshEndSubPublicSubDataCombo1_Click(AreaAsInteger)Dimrs2AsNewADODB.Recordsetsql1="selectbumen,ziwu,jibengonzifrombumengzwherebumen='"&DataCombo1.Text&"'"Setrs2=data1(rs2，sql