人事管理系统毕业论文.docx

摘要随着计算机应用领域的不断扩大，信息的飞速发展，用计算机来管理信息事在必行。因此要对具体的信息管理开发与之相对应的管理系统。本系统为简单客户关系系统，采用VB.net开发语言，用sql作为它的数据库。本系统实现的主要功能有：职员基本信息录入、修改、删除的功能，工资的录入、修改、添加的功能，对职员信息、工资信息的查询功能,对职员基本信息和工资信息生成相应的报表的功能。可以说在功能上较一般人事管理系统系统来说更为强大和完善，可以更好的适用于一些中小型企业的人事管理系统，满足其要求。关键词: 人事管理系统系统、VB.net、sql48 / 52AbstractWith the constant enlargement of the computer application, the development at full speed of information, the manage with computer information things in competent to come. So should develop the administrative system corresponding to it to the concrete information management. This system is an administrative system of human resources, adopt VB.net to develop, use SQL2000 as its database. The main function that this system realizes has: The function that staff members basic information inputs , modification, deletes, salary inputs, modification, function save, staff members information , inquiry function of salary information , turn into the function of the report form to staff members basic information and salary information. We can say and come to speak stronger and more perfect than the general human resources administrative system as for the function, manpower resources management which is suitable for some small and medium enterprises that it can be better, meet its request. Key word: Administrative system of human resources, VB.net, SQL目录摘要IAbstractII前 言1第一章 需求分析21.1应用前景21.2系统功能31.3设计数据库41.3.1数据库背景41.3.2数据库技术51.3.3设计概要51.3.4数据库需求分析61.3.5数据结构61.3.6数据字典61.3.7数据库逻辑结构设计9第二章 总体设计132.1模块分析132.1.1模块划分132.1.2功能分析162.2.3 模块的关联17第三章 详细设计193.1引言193.2程序流程图203.2.1系统登陆203.2.2职员基本信息管理203.2.3职员信息调动管理213.2.4工资信息管理22第四章 编码234.1公共模块234.2数据库填充244.3系统登陆244.4添加信息264.5工资管理274.6查询管理314.7调用系统程序324.8报表管理33第五章 测试345.1测试分析345.2单元测试345.2.1 主界面模块345.2.2 管理员信息管理模块355.2.3 职员信息管理模块355.2.4 职员信息管理模块365.2.5 工资信息管理模块375.3集成测试385.4打包发布395.5维护设计40第六章 参考文献416 刘保顺编著.Visual Basic.NET数据库开发M.北京:清华大学出版社，200441第七章 致谢43附录44前 言随着社会的进步，企业经营要素也不断的改变，竞争条件亦不断变化更替，由原来的资本竞争逐步向人才竞争转变，因此随之而来就是更加国际化及专业化竞争，这会使企业的人才战略变得格外重要，传统单一的人事管理已经无法满足企业对于人才战略及越来越多的人才储备需求。因此近年来导入e-HR系统（电子商务化人事管理系统系统）已经是企业迈向未来不得不面临的课题。在计算机技术的飞速发展的同时，利用计算机来获得和处理信息是当今信息管理的一大特点。现在社会的企业信息也在急剧庞大，对于庞大的信息量，利用以前的手工记录信息现在已经是不现实了，所以用计算机技术处理企业信息是社会发展的必然的趋势。我在毕业设计中选择了这个课题，正是因为它的这些前瞻性。可以说做好了这个课题对以后从事计算机工作是非常有意义的。第一章 需求分析1.1应用前景企业在管理上总是面对大量信息需要处理，职员基本信息以及职员工资管理信息。传统的管理既浪费人力、物力、财力，又容易导致各种错误的发生。面对各种繁多的数据信息如果稍有不慎，就会造成不可估量的损失。因而实现一个智能化、系统化、信息化的人事管理系统系统是十分必要的。要想通过人事管理系统系统来提高企业的管理水平，光是选取一个好的或比较好的、适合本企业特点的人事管理系统软件还是远远不够的。人事管理系统软件通常只是一个通用的系统框架，它提供诸如报表生成、查询、宏，等等辅助工具来协助使用者工作。作为一种通用的系统，它适用于多种行业和企业的需要，能够处理各种各样包括规范的和不规范的、普遍存在的和特殊的、相对简单的和错综复杂的情景。因此，实施中根据企业的实际情况和企业所在地的政策法规，进行给这个骨架里添血添肉的工作就非常重要。毫不夸张地说，人事管理系统系统项目成功与否的关键就在于这种被称为实施过程添血添肉的工作。由于人事管理系统管理的是所有与人相关的数据，信息量大，变化频繁，内部关联性较弱，数据的采集、确认、更新和检查都比较困难，而且其管理的信息与员工的切身利益密切相关，特别是工资计算不能有任何错误，因此，实施工作尤为繁琐和困难，其难度和工作量远远大于一般人的预计。事相关信息的特点是信息量大、变化频繁、采集和确认困难而且无内联关系。采用计算机系统来管理人事信息要求数据的采集、更新能够完整、准确和及时。这两者之间的矛盾会因为新系统的投入运行而变得越来越突出。新系统在运行后无疑会迫使一部分员工改变已经熟悉了的工作方法和习惯，学习包括计算机知识在内的新知识、新方法、新程序，一部分人的利益也许会受到影响。在系统的实施过程中，很多企业由于有关人员素质较低、工作责任心不强，加上某些管理人员的随意指挥，会造成系统的实施和运行事倍功半，而且降低了系统的功效。所以，除加强培训外，建立必要的科学的程序性文件，做到有章可循，减少和杜绝各种特例情形，才能为人事管理系统系统的实施和正常运行提供有效的保证。总之，充分利用计算机的功能来实现对企业的人力资源进行管理可以得到很好的效果。利用方便友好的用户图形界面，简便的操作，完善的数据库管理，将会使得人事管理系统系统的管理效率大大提高，从而成为企业的得力助手。1.2系统功能 开发本系统的总体任务是实现人事管理系统的自动化和系统化，帮助企业管理人员更好更高效的完成企业管理工作。本系统要完成的功能有：职员信息管理：这一部分是对职工的基本信息进行录入，修改，删除，来维护企业的员工数据库资料。部门信息管理：这一部分要实现部门信息的录入，修改，删除这样一些基本的操作。信息设置管理：实现设置一些基本的信息资料，供其他模块使用。工资信息管理：这部分包括基本工资的设定，不同级别的职员所对应的基本工资是一样的，不同的也有其他相关的工资，工资的录入是这个模块的最基本的功能。 查询功能：这部分的功能是查询，包括了对职员基本信息，工资信息的查询。 报表功能：这一部分主要是生成报表，既要生成职员信息表，部门信息表，工资信息表，又要生成查询数据的报表。系统管理功能：实现对用户登陆的验证，修改密码，以及系统帮助，系统挂起，添加用户的功能。数据库管理功能：对数据库进行一些基本的管理操作，比如说：数据库的导入导出，数据库的备分和还原。1.3设计数据库数据库可以说是本人事管理系统系统的灵魂，职员信息，部门信息，工资信息等，都要以数据库为中心，可以说人事管理系统系统的所有工作将都是要围绕数据库展开工作的，所以设计一个科学，合理的数据库是做好本系统的关键。1.3.1数据库背景数据库技术的发展，已经成为先进信息技术的重要组成部分，是现代计算机信息系统和计算机应用系统的基础和核心。数据库技术最初产生于20世纪60年代中期，根据数据模型的发展，可以划分为三个阶段：第一代的网状、层次数据库系统；第二代的关系数据库系统；第三代的以面向对象模型为主要特征的数据库系统。 第三代数据库产生于80年代，随着科学技术的不断进步，各个行业领域对数据库技术提出了更多的需求，关系型数据库已经不能完全满足需求，于是产生了第三代数据库。主要有以下特征：1.支持数据管理、对象管理和知识管理；2.保持和继承了第二代数据库系统的技术；3.对其它系统开放，支持数据库语言标准，支持标准网络协议，有良好的可移植性、可连接性、可扩展性和互操作性等。第三代数据库支持多种数据模型（比如关系模型和面向对象的模型），并和诸多新技术相结合（比如分布处理技术、并行计算技术、人工智能技术、多媒体技术、模糊技术），广泛应用于多个领域（商业管理、GIS、计划统计等），由此也衍生出多种新的数据库技术。 分布式数据库允许用户开发的应用程序把多个物理分开的、通过网络互联的数据库当作一个完整的数据库看待。并行数据库通过cluster 技术把一个大的事务分散到cluster中的多个节点去执行，提高了数据库的吞吐和容错性。多媒体数据库提供了一系列用来存储图像、音频和视频对象类型，更好地对多媒体数据进行存储、管理、查询。模糊数据库是存储、组织、管理和操纵模糊数据库的数据库，可以用于模糊知识处理。 随着科学技术的发展，计算机技术不断应用到各行各业，数据存储不断膨胀的需要，对未来的数据库技术将会有更高的要求。在人类迈向21世纪知识经济的时候,信息变为经济发展的战略资源,信息技术已成为社会生产力重要的组成部分.人们充分认识到,数据库是信息化社会中信息资源管理与开发利用的基础.对于一个国家,数据库的建设规模,使用水平已成为衡量该国信息化程度的重要标志。因此,数据库的学习是非常重要的。1.3.2数据库技术安全性，安全第一的原则是永恒的真理，在设计过程中，要充分考虑业务层与数据层的安全性，对于业务层，做到根据角色不同可以执行不同的任务，做不同的操作，使用不同的流程；对于数据层，根据数据集的不同，角色的不同，可以对数据拥有读取、修改、删除的权限；对于每一个用户在系统中的每一步操作，都有系统日志记录，以备查询。业务和功能应该具有较强的可扩展性，要可以随着用户的需求变化而变化；数据集应可以灵活设计，可以由用户自己增删指标项。系统应该支持多种操作系统；支持多种数据库。易实施性实施过程应该实施周期短，上线成功率高。易维护性上线以后,系统要有较低的维护成本,不需要复杂的技术就能进行日常工作维护。系统技术特点：灵活，根据用户单位的业务需求，自定义设置工作操作流程，灵活进行客户化设计，帮助业务人员轻松完成日常工作。1.3.3设计概要本设计的是一个关于人事管理系统的数据库系统,主要适用于中小型企业的人事管理系统。本系统为单机版服务系统，通过这个系统管理员可以简捷、方便的对人力资源信息进行添加、修改、删除、查找。本系统具有强大的报表功能，能方便地生成所需要的报表信息。本系统采用的开发语言为，主要原因是VB.net属于面向对象型语言，在开发应用型管理信息系统上的灵活性和效率高。并且，VB.net容易上手使用，在现在，是微软最新推出的具有强大功能的软件开发工具，所以学习使用是十分有必要的。本系统采用 SQL技术建立数据库，使用技术建立数据源的链接,其主要原因是SQL功能强大，能够处理复杂的数据库信息，它的安全性更是有目共睹的。正是因为它的这些优点，使用它也是十分的必要的。1.3.4数据库需求分析用户的需求具体体现在各种信息的提取、保存、更新、修改和查询，这就要求数据库结构能充分满足各种信息的输入和输出。所以必须收集基本数据、数据结构以及数据处理的流程。1.3.5数据结构针对一般人事管理系统系统的要求，通过对企业管理工作过程的内容和数据流程分析，设计如下面的数据项和数据结构：职员信息：它包括的数据项有：职员编号，所属部门，性别，职位，职员姓名，别名，是否党员，学历，健康状态，教育程度，家庭住址，毕业院校，身份证，出生日期，专业特长，电话号码，简历，家庭成员，备注，经管人，职员照片，填表日期等。部门信息：它包括的数据项有：部门编号，部门名称，负责人，备注。工资信息：它包括的数据项有：职员编号，所属部门，职位，职员姓名，基本工资，奖金，津贴，扣除，实发工资，备注，日期。专业设定：专业编号，专业类型，专业名称。职位设定：职位编号，职位名称，基本工资，奖金。职员调动信息：职员编号，职员姓名，原来部门，原来职位，原来时间，现在部门，现在职位，更改时间。1.3.6数据字典1、系统管理：名字：系统管理别名：管理员信息管理描述：对每个登陆使用本系统的管理员进行综合管理，包括管理员信息的添加、修改。定义：管理员信息=密码+姓名+类型位置：系统菜单表1-1系统管理数据字典form1-1 system manage data dictionary2、部门信息管理：名字：部门信息管理别名：部门信息描述：对企业的各个部门进行管理，可以对部门实现添加，删除，修改的功能。定义：部门信息=部门编号+部门名称+部门负责+部门描述位置：信息管理表1-2 部门信息管理数据字典form1-1 department information manage data dictionary3、职员基本信息管理：名字：职员基本信息管理 别名：职员信息描述：对每一个职员的基本信息资料进行管理，管理的方法有添加，删除，修改。定义：职员信息=职员编号+姓名+别名+所属部门+职位+性别+是否党员+电话号码+健康状态+专业特长+外语程度+身份证+文化程度+出生日期+毕业院校+家庭住址+简历+家庭成员+备注+经手人+填表日期位置：信息管理表1-3 职员基本信息数据字典Form1-3 workers information data dictionary名字：职员基本信息查询别名：信息查询描述：在输入了职员的基本信息资料后，要对它的基本资料来实现查询管理。定义：信息查询=职员的编号+姓名+所属部门+性别+外语程度+专业特长+文化程度+身份证号位置：信息管理表1-4 职员基本信息查询数据字典Form1-4 Salary information data dictionary4、专业设定：名字：专业设定别名：专业信息描述：对职员的专业进行设定。定义：专业信息=专业编号+专业类型+专业名称位置：信息管理表1-5 专业设定数据字典Form1-5 profession set data dictionary5、 职员调动管理：名字：职员调动别名：调动描述：调动相关职员，并对调动后的职员信息进行相关修改。定义：职员调动=按职员编号+按姓名+按所属部门+按性别+职员编号+姓名+原来部门+原来职位+原来时间+部门名称+现在职位+更改时间位置：信息管理表1-6 人员调动数据字典Form1-6 worker change data dictionary6、 工资录入：名字：工资录入管理别名：工资录入定义：录入职员的工资。描述：工资录入=职员编号+所属部门+姓名+职位+基本工资+奖金+津贴+扣除+备注+实际工资位置：财务管理表1-7 工资录入数据字典Form1-7 salary input data dictionary名字：工资查询管理别名：工资查询定义：查询职员的工资信息描述：工资查询=职员编号+姓名+部门名称+职位位置：财务管理表1-8工资查询数据字典Form1-8 salary find data dictionary名字：职位设定管理别名：职位设定定义：设定职员的职位信息描述：职位设定=职位编号+职位名称+基本工资+奖金位置：信息管理表1-9职位设定数据字典Form1-9 data dictionary1.3.7数据库逻辑结构设计 将数据库概念结构转化为Access 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。每个表格表示在数据库中的一个表。图书馆管理信息数据库中各个表格的设计结果如下: Name Type Length Allow null说明Emp_idVarchar10No职员编号Departm_nameVarchar50No部门编号Sald_nameVarchar20No职位Emp_nameVarchar50No职员姓名Emp_name2Varchar50别名Emp_birthDatatime8出生日期Emp_partVarchar4是否党员Emp_sexVarchar4性别Emp_eduVarchar10教育程度Emp_healthVarchar10健康状态Emp_telVarchar50电话号码Emp_identityVarchar20身份证Emp_proVarchar50专业特长Emp_forVarchar10外语程度Emp_schoolVarchar50毕业院校Emp_picImage16照片Emp_masterVarchar20经手人Emp_homeText16家庭信息Emp_expText16简历Emp_noteText16备注Emp_dayDatetime8填表日期表1-10 职员信息表form1-10 worker information tablenametypelengthsAllow null 说明Departm_idVarchar10No部门编号Departm_nameVarchar50部门名称Departm_masterVarchar20负责人Departm_noteVarchar50备注表1-11 部门信息表form1-11 department information tableName Type LengthsAllow null 说明Emp_idVarchar10职员编号Salary_kouchuMoney8扣除Salary_jtMoney8津贴Salary_noteVarchar50备注Salary_titalVarchar20职位Salary_prizeMoney8奖金Salary_moneyMoney8基本工资Emp_nameVarchar20职员姓名表1-12 工资信息表 form1-12 salary information table NameTypeLengthsAllow null说明Change_idInt4No标识Emp_idVarchar50No职员编号Emp_nameVarchar50姓名Departm_nameVarchar50部门名称Salary_titalVarchar50职位Emp_dayDatetime8日期Departm_name1Varchar50调动部门Salary_tital1Varchar50调动职位Change_day1datetime8调动日期表1-13职员调动信息表Form1-13 stock book information tablenametypelengthsAllow null说明Pro_idInt4No职位编号Pro_typeVarchar50职位类型Pro_nameVarchar20职位名称Sald_moneyMoney8基本工资Sald_prizeMoney8奖金表1-14 专业信息表form1-14 professionary information tablenametypelengthAllow null 备注UsernameVarchar20No用户名UserpwdVarchar20no密码表1-15 系统表form1-15 systerm information table第二章 总体设计2.1模块分析2.1.1模块划分根据前面所做的需求分析，已经清楚地明白要做什么，现在是决定怎么做的时候了。基本上数据库部分已经可以连上，也就是说后台已经做好，整个系统根据功能使用上划分为6个模块，为系统管理模块、职员基本信息管理模块、工资信息管理模块、部门信息模块、设定信息管理模块、报表管理模块。1. 总的层次图如下：人事管理系统系统4相关信息查询2职员信息管理1系统管理3工资管理管理5报表管理6帮助信息 图2-1 总体层次图chart2-1 totality levels picture2. 各个模块细分的模块图如下：1 系统管理管理员修改个人信息添加管理员删除管理员修改管理员信息授权图2-2 系统管理层次图chart2-2 system manage levels picture2 职员基本信息管理删除信息修改信息信息录入保存信息信息查询图2-3 职员信息管理层次图chart2-3 worker information manage levels picture3 工资信息管理删除信息修改信息工资录入保存信息信息查询图2-4 工资信息管理层次图chart2-4 salary information manage levels picture4 人员调动管理删除调动信息人员调动人员查询保存调动信息调动信息查询图2-5 人员调动管理层次图chart2-5 worker change information manage levels picture5 部门信息管理删除信息修改信息信息录入保存信息图2-6 部门信息管理层次图chart2-6 department information manage levels picture6 其他设定设定添加职位设定专业设定设定修改设定保存图2-7 其他设定管理层次图chart2-7 other settings manage levels picture2.1.2功能分析这次毕业设计中，老师给我们同组的三位同学各自分配了不同的任务，我的任务主要是设计人事管理系统系统的工资模块，这样我也把自己工作的重点放在了设计工资模块上，在工资模块中，我主要实现了工资的个别录入，分类录入，并且可以分出月份来进行录入。工资模块的工资查询功能也特别重要，首先按照条件查找出符合条件的记录，然后把这些记录用报表输出。工资模块还应该有一个统计的功能，来实现对工资记录用报表来统计一些基本的数据。人事工资管理要成为一套采用资源管理器模式，集人事管理与工资管理与一体的系统，通过它可以方便 地为您管理人力资源。它要能应付工资的自动计算。这对工资变动不太大的企事业单位就会更加方便。系统要提供工资单、工资条、以及工资汇总表、工资统计表，适用于各种场合。系统还要提供人力资源结构分析学历结构分析等人力资源分析等报表。同时系统提供数据导入导出功能，为用户的特殊要求提供了一个方便的接口。系统可将工资数据、人事数据导出生成Excel、Html、Access等数据格式。2.2.3 模块的关联 整个系统之所以这样划分模块，其主要原因在于人事管理系统系统本身的运作环境、使用范围和功能结构。本管理系统为单机使用版本，以后在使用中可以进一步完善。工资管理模块需要以职员基本信息模块作为基本的关联，也就是说不同的职员对应不同的工资。人员调动模块也需要职员基本信息模块作为关联，因为，人员调动是改变职员的基本信息，同时记录这个改变的过程的。综上所述，系统模块，职员基本信息模块和信息设定模块是底层的模块，是内聚的。而工资管理模块和人员调动模块必须以其他模块作为基础，是偶合的。了解了所有模块的关联，对本系统的功能就能有更深层的理解。模块化设计分为两个不同层次，第一个层次为系列模块化过程，需要根据系统分析结果对整个系统进行模块化设计，本质上是系列开发过程。第二个层次为具体的模块化设计，需要根据用户的具体要求对模块进行选择和组合，并加以必要的设计计算和校核计算，本质上是选择及组合过程。模块化设计的原则是力求以少数模块组成尽可能多的功能，并在满足要求的基础上使系统精度高、性能稳定、结构简单、成本低廉，且模块结构应尽量简单、规范，模块间的联系尽可能简单。因此，如何科学地、有节制地划分模块，是模块化设计中很具有艺术性的一项工作，既要照顾制造管理方便，具有较大的灵活性，避免组合时产生混乱，又要考虑到该模块系列将来的扩展和向专用、变型的系统的辐射。划分的好坏直接影响到模块系列设计的成功与否。总的说来，划分前必须对系统进行仔细的、系统的功能分析和结构分析，并要注意以下各点：l）模块在整个系统中的作用及其更换的可能性和必要性。2）保持模块在功能及结构方面有一定的独立性和完整性。3）模块间的接合要素要便于联接与分离。4）模块的划分不能影响系统的主要功能。总的说来，模块化设计遵循一般技术系统的设计步骤，但比后者更复杂，需要花费的成本更高，要求每个零部件都能实现尽可能多的部分功能。第三章 详细设计3.1引言通过需求分析和总体设计，我已经在总体上制定好该怎么做，以下则是具体怎样实现所要求的系统，也就是说，经过这个阶段的设计，应该对目标系统有一个精确的描述。在本阶段中，确定应该如何具体地实现所要求的系统，从而在编码阶段可以把这个描述直接翻译成用具体的程序语言书写的程序。主要的工作有：根据在需求分析中所描述的数据、功能、运行、性能需求，并依照总体设计所确定的处理流程、总体结构和模块外部设计，设计软件系统的结构设计、逐个模块的程序描述（包括各模块的功能、性能、输入、输出、算法、程序逻辑、接口等等），解决如何实现系统功能。以下是对系统分析得出的一个简单的总体设计图。图3-1 系统总体流程图chart3-1 system flow chart3.2程序流程图3.2.1系统登陆开 始正确？登陆主界面用户名和密码N/Y 图3-2 系统登陆程序流程图chart3-2 logic the system order flow chart3.2.2职员基本信息管理YNYNYNYN开始完整？比较？继续添加结束读者信息添加职员信息修改职员信息成功？ 图3-3 添加职员信息程序流程图chart3-3 add worker information order flow chart3.2.3职员信息调动管理YNYN开始调动信息合法调动？记录调动信息，同时修改职员基本信息保存操作记录继续调动结束图3-4 职员调动信息程序流程图chart3-4 worker change information order flow chart3.2.4工资信息管理分类录入YN单一录入开始分类工资信息录入方法保存工资记录继续添加结束单一工资信息图3-5 工资信息添加程序流程图chart3-5 add worker salary information order flow chart第四章 编码编码这部分是最实质的一个部分，前面全部的分析和设计都是为此处的编码服务。同时，编码也关系到程序的可靠性、可读性、可测试性和可维护性，可以说编码部分的风格最能反映一个程序员的自身风格，也能反映出前期需求分析的正确性和完整性。一个好的程序必须要做到逻辑简明清晰，易读易懂，可移植性强同时在一些关键性语句上做一些必要的注释说明，同时在界面视觉上要简单舒服。本系统采用的编码语言为VB.net，是面向对象语言中功能较强的一种语言，同时也比较好学易懂。 以下是我负责模块的一些主要源代码：4.1公共模块Public cnstr As String = data source= & Environment.MachineName & ; & initial catalog=test;integrated security=sspi;persist security info=false;workstation id=workgroup;packet size=4096;user id=sa;password=123定义数据库的连接字符串Public cn As New SqlConnection(cnstr)创建连接 Public Function setobjtostr(ByVal val As Object) As String If IsDBNull(val) Then setobjtostr = Else setobjtostr = Trim(CStr(val) End IfEnd Function这个函数可以转换datagrid的数据，来获得datagrid的字符 Public Sub inicomb(ByVal ComboBox As ComboBox, ByVal tblname As String, ByVal tblfield As String) sql = select & tblfield & from & tblname cn.Open() cmd = New SqlCommand(sql, cn) rd = cmd.ExecuteReader ComboBox.Items.Clear() Do While rd.Read ComboBox.Items.Add(rd(tblfield) LoopEnd Sub初始化combox，让它绑定到对应的数据库字段4.2数据库填充 adocon.Open(Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False) adocon.Execute(restore database testsina from disk = & str1 & ) adocon = Nothing MsgBox(数据库填充成功, MsgBoxStyle.Information, 成功)4.3系统登陆图4-1 系统登陆图Chart4-1 The login chartsql = select * from userid where username= & username.Text & and userpwd= & userpasswd.Text & Dim com As SqlCommand = New SqlCommand(sql, cn) 执行sql语句 com.Connection.Open() Dim dr As SqlDataReader = com.ExecuteReader()从数据库中读值 If dr.Read() Then allusername = username.Text Dim frmsysmenu As New frmsysmenu frmsysmenu.Show()调出主界面 Me.Hide() com.Connection.Close() ElseIf Not dr.Read() Then MsgBox(您输入的用户名或密码错误！, MsgBoxStyle.OKOnly, 警告) End If com.Connection.Close()4.4添加信息图4-2 职员信息添加图Chart4-2 add worker information chartIf Me.departm_id.Text Then tb = ds.Tables(departm) rowarr = Nothing rowarr = tb.Select(部门编号= & & Trim(Me.departm_id.Text) & )返回查找与部门编号为 & Trim(Me.departm_id.Text) & 相等的数组 If UBound(rowarr) 0 Then On Error GoTo errorhandler tb = ds.Tables(departm) row = tb.NewRow()定义表的一个新行 formtorow(row)赋值函数，以列值依次赋值 tb.Rows.Add(row)添加一个数据行 Exit Suberrorhandler: MsgBox(Err.Description) Resume Next Else MsgBox(已经有此部门的编号！, MsgBoxStyle.OKOnly, 添加确认) Exit Sub End If Else MsgBox(部门编号不能为空！, MsgBoxStyle.OKOnly, 添加确认) Exit Sub End If在这里添加的信息如果要保存的数据库，还需要做一个保存的功能4.5工资管理A. 工资分类录入：图4-3 工资信息添加图Chart4-3 add salary information chartIf Trim(salary_tital.Text) Then Else MsgBox(请先选择职位！, MsgBoxStyle.Information, 添加确认) Exit Sub End If If Trim(salary_jt.Text) Then If Not IsNumeric(salary_jt.Text) Then MsgBox(请在津贴栏中输入数字！, MsgBoxStyle.Exclamation, 警告) salary_jt.Focus() Exit Sub End If Else MsgBox(请填写津贴！, MsgBoxStyle.Information, 添加确认) Exit Sub End If If Trim(salary_kouchu.Text) Then If Not IsNumeric(salary_kouchu.Text) Then MsgBox(请在扣除栏中输入数字！, MsgBoxStyle.Exclamation, 警告) salary_kouchu.Focus() Exit Sub End If Else MsgBox(请填写扣除！, MsgBoxStyle.Information, 添加确认) Exit Sub End If sql2 = select * from salary adpt2 = New SqlDataAdapter(sql2, cn) adpt2.Fill(ds2, salary) tb2 = ds2.Tables(salary) m = Me.DataGrid1.Visi