[毕业设计精品]公司人事管理系统论文.doc

上传人:小小飞 文档编号:11032955 上传时间:2021-06-18 格式:DOC 页数:31 大小:588.67KB
返回 下载 相关 举报
[毕业设计精品]公司人事管理系统论文.doc_第1页
第1页 / 共31页
[毕业设计精品]公司人事管理系统论文.doc_第2页
第2页 / 共31页
[毕业设计精品]公司人事管理系统论文.doc_第3页
第3页 / 共31页
[毕业设计精品]公司人事管理系统论文.doc_第4页
第4页 / 共31页
[毕业设计精品]公司人事管理系统论文.doc_第5页
第5页 / 共31页
点击查看更多>>
资源描述

《[毕业设计精品]公司人事管理系统论文.doc》由会员分享,可在线阅读,更多相关《[毕业设计精品]公司人事管理系统论文.doc(31页珍藏版)》请在三一文库上搜索。

1、第 1 页 目目 录录 公司人事管理系统.2 第 1 章 导论.3 第 2 章 系统需求分析.4 2.1 统设计背景介绍.4 2.2 系统功能分析.4 第 3 章 公司人事管理系统总体设计.5 3.1 系统设计.5 3.1.1 系统功能分析.5 3.1.2 用户功能模块设计.6 3.1.3 数据流程图.7 3.1.4 说明.7 3.2 据库设计.7 第 4 章 详细设计.10 4.1 数据模块的创建.10 4.2 用户登录模块设计.10 4.3 公司人事管理系统主界面设计.10 4.4 信息管理-添加、查询、修改、删除的实现.11 4.5 工信息管理-添加、查询、修改、删除的实现.13 4.6

2、 勤信息管理-添加、查询、修改、删除的实现.13 4.7 工工资管理-添加、查询、修改、删除的实现.14 4.8 系统维护.15 第 5 章 系统功能测试.18 5.1 系统测试环境.18 5.2 测试内容.18 5.3 测试结果.18 结束语.19 参考文献.20 附录.21 第 2 页 公司人事管理系统公司人事管理系统 摘要:摘要:公司人事管理系统是典型的管理信息系统(MIS),其开发主要包括后台数据库的建立 和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、 数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 经过分析,本人使用 MICROSO

3、FT公司的 VISUAL BASIC开发工具,利用其提供的各种 面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在 短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成 用户满意的可行系统。 整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发。 论文主要介绍了本课题的开发背景,所要完成的功能和开发的过程。重点的说明了系 统设计的重点、设计思想、难点技术和解决方案。 关键字:关键字: Visual Basic 6.0 Access2000 窗体 第 3 页 第第 1 章章 导论导论 随着信息技术的飞速发展,特别是数据库技术的

4、发展,计算机已经成为当今信息时代 的关键工具。数据库技术是计算机应用技术中的一个重要组成部分,对于大量的数据,使 用数据库来存储管理将比通过文件来存储管理更高效。数据库技术在经过几代变革以后, 出现了以关系数据库产品为主流的数据库时代。Access 2000 是微软公司推出的关系数据库 产品。作为 Microsoft 的 office 套件产品之一,Access 已经卖出了近 700 万份,成为世界上最 流行的桌面数据库系统。Access 与许多优秀的关系数据库一样,可以让你很容易地连接相 关的信息而且还对其他的数据库系统有所补充。Visual Basic 作为应用程序的开发“利器”也 表现在

5、数据库应用程序的开发上,它良好的界面和强大的控件功能使数据库编程变得简单 多了。Visual Basic 提供了强有力的数据库存取能力,将 Windows 的各种先进特性与强大 的数据库管理功能有机地结合在一起。 本次毕业设计公司人事管理系统是运用 ADO 技术设计开发的,使用大量地 SQL 语句进行添加、查询、删除等操作。本系统使用 Access 2000 作为后台数据库,利用 Visual Basic 6.0 提供的数据库开发平台开发前台部分。 第 4 页 第第 2 章章 系统需求分析系统需求分析 2.12.1 统设计背景介绍统设计背景介绍 管理信息系统就是我们常说的 MIS (Manag

6、ement Information System),在强调管理,强 调信息的现代社会中它变的越来越普及。而将信息管理系统与企业自动化设备想结合,则 是当今社会现代企业的发展趋势。通过这样的管理方式,企业的管理人员、技术人员、统 计人员等各部门员工就能从大量烦琐的资料和数据中解脱出来,只需对自己需要的数据和 内容进行必须的处理,而不用对每个环节都了如指掌。这在一定程度上能够节省人力物力, 同时也大大加强了对数据处理的及时性和准确性。 本次的开发内容公司人事管理系统就是信息管理与现代化办公设备相结合的例子。 开发本系统希望使人事管理人员可以从年复一年的输入、计算、统计等工作中解脱出来, 由于人事方

7、面的数据众多,输入、统计极为不便,输入量大,计算量大。这些工作都以人 力来完成将费时费力,而且容易出现错误和疏漏。本系统一次录入信息后,就可以反复多 次在不同的信息库中使用。所有输入的信息都将按所属部门、专业、考勤日期、工资日期 等详细分类,使客户可以根据需要进行管理操作。 因此,该管理系统的目的就是利用计算机对复杂烦琐的数据进行存储和处理,并利用 计算机与现代化办公设备的连接实时刷新数据,从而提高企业的工作效率。 2.22.2 系统功能分析系统功能分析 热网管理系统主要有以下几项功能要求: *按不同权限登录系统。 *对其提供的部门资料情况进行添加、查询、修改和删除操作。 *对其提供的人员资料

8、情况进行添加、查询、修改和删除操作。 *对其提供的人员考勤资料情况进行添加、查询、修改和删除操作,并可按考勤月份 进行分类。 *对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作,并可按工 资月份进行分类。 *可添加新的用户,修改用户原有的用户名、密码,删除原有用户。 第 5 页 第第 3 章章 公司人事管理系统总体设计公司人事管理系统总体设计 3.1 系统设计系统设计 3.1.13.1.1 系统功能分析系统功能分析 *按不同权限登录系统。 *对其提供的部门资料情况进行添加、查询、修改和删除操作。 *对其提供的人员资料情况进行添加、查询、修改和删除操作。 *对其提供的人员考勤资料情

9、况进行添加、查询、修改和删除操作,并可按考勤月份进行 分类。 *对其提供的人员工资资料情况进行添加、计算、查询、修改和删除操作,并可按工资月 份进行分类。 *可添加新的用户,修改用户原有的用户名、密码,删除原有用户。 第 6 页 3.1.23.1.2 用户功能模块设计用户功能模块设计 图 3.1 部门信息管理 员工信息管理 考勤信息管理 用用 户户 登登 陆陆 查 询 记 录 修 改 记 录 添 加 用 户 修 改 密 码 删 除 用 户 删 除 记 录 添 加 记 录 查 询 记 录 修 改 记 录 删 除 记 录 添 加 记 录 查 询 记 录 修 改 记 录 删 除 记 录 添 加 记

10、录 查 询 记 录 修 改 记 录 删 除 记 录 员工工资管理 数 据 备 份 数 据 恢 复 系 统 维 护 退 出 系 统 添 加 记 录 第 7 页 3.1.33.1.3 数据流程图数据流程图 是 否 是 是 否 否 是 是 图 3.2 3.1.43.1.4 说明说明 本次设计主要利 ADO 技术,界面友好。能自动生产编号,根据用户输入的数据检查 其合法性,确保数据正确输入。登陆系统时对用户的请求进行身份验证,经验证合法后允 许用户登陆系统,进行相应权限对数据的处理,本系统能对用户进行管理,能进行数据库 备份和恢复,确保数据的安全。本次设计选择了 Access 2000 作为后台数据库

11、,利用 Visual Basic 6.0 提供的数据库开发平台开发前台部分。 3.2 据库设计据库设计 在 Access 2000 数据库中创建表: 用户登陆 是否管理员 是否录入数据是否修改数据 录入数据修改数据 是否进行查询 输入查询条件 是否删除数据 删除数据 退出系统 第 8 页 根据设计要求,需要 5 个数据表:部门基本情况表、员工基本信息表、员工考勤信息 表、员工工资信息表、口令信息表。这 5 个数据表的结构如下各表: (1) 部门基本情况表部门基本情况表 字段名称数据类型长度主键允许空 部门编号文本 6True 否 部门名称文本 30 是 备注文本 255 是 表 3.1 (2)

12、(2)员工基本信息表员工基本信息表 字段名称数据类型长度主键允许空 员工编号文本 6True 否 员工姓名文本 10 否 性别文本 2 是 出生日期日期/时间短日期否 民族文本10是 政治面貌文本10是 最后学历文本10是 所学专业文本20是 联系电话文本20是 毕业学校文本30是 籍贯文本50是 家庭住址文本50是 进入公司时间日期/时间短日期否 部门名称文本30是 职务名称文本30是 备注文本255是 表 3.2 (3)(3)员工考勤信息表员工考勤信息表 字段名称数据类型长度主键允许空 员工编号文本 6 是 员工姓名文本 10 是 考勤日期文本 6 否 部门名称文本50是 出勤天数数字整型

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

14、字单精度型是 实发工资数字单精度型是 表 3.4 (5)(5)口令信息表口令信息表 字段名称数据类型长度主键允许空 用户名文本 20True 是 密码文本 10 是 权限文本 6 是 表 3.4 第 10 页 第第 4 章章 详细设计详细设计 4.1 数据模块的创建数据模块的创建 将数据库连接、数据表和数据源等运行期不可见的组件都放在窗体设计界面上,虽然 在调用时比较直观,但却为界面布局设计带来的麻烦,而且也不利于数据的统一管理。因 此,在设计时,我选择使用 ADO 来控制管理数据库。 在程序模块中定义记录集,并在各个窗体中定义记录集变量,使输入数据能与数据库 连接,并都用程序进行控制,这样不

15、用数据控件都用代码控制大大提高了程序运行效率。 部分有关代码如下: Dim rc As New ADODB.Recordset 定义记录集变量 Cnndb.Open provider=microsoft.jet.oledb.4.0;data source = & App.Path & 公 司人事管理系统.mdb 确定数据库位置 Dim rc As New ADODB.Recordset 定义记录集变量 If rc.State = 1 Then rc.Close 判断当前表的状态是否打开,是则关闭 rc.Open SQL, Cnndb, 3, 2 打开当前表 4.2 用户登录模块设计用户登录模块

16、设计 (1) 设计思路设计思路 每个用户登录系统都须经过身份验证。只有用户名和密码相对应才能进入系统。因为 在系统设置中已经对系统使用权限进行了规定,所以,在用户登录的同时也决定了用户对 系统使用的权限。当登录者是管理员身份时,他可以使用系统提供的所有功能,并能对所 有用户进行管理。登录者是操作员可以使用所有对数据的编辑功能,而如果登录者是一般 用户时只能利用系统进行资料查询功能。 (2) 用户登录界面设计用户登录界面设计 图 4.1 4.3 公司人事管理系统主界面设计公司人事管理系统主界面设计 根据系统模块结构,建立系统主界面。用户登录到系统后进入的就是该界面,所有功 能一目了然。当不同权限

17、的用户登录到该界面时功能有所不同,其控制由“用户登录”界 面控制。 第 11 页 图 4.2 在此界面中对用户的权限进行了设置,若是以一般用户登录时只能修改自己的密码且只能 浏览所有的人事管理信息,以管理员身份进入时可以对所有一般用户的密码进行设置,还 可删除一般用户!能对人事信息进行编辑删除,修改等操作 4.4 信息管理信息管理-添加、查询、修改、删除的实现添加、查询、修改、删除的实现 编辑部门信息编辑部门信息 作为编辑部门信息这一项,所实现的功能是对公司各部门资料信息的存储与编辑,部 门信息包括:部门编号(两位) 、部门名称、备注。部门编号与部门名称都具有唯一性, 不能重复。作为部门信息与

18、员工信息有着密切的关系,每一名员工都从属一个部门。 图 4.3 (1)数据添加数据添加 当操作员进入系统,根据设计要求,需要添加新的部门信息时,在编辑部门信息窗体 上按添加按钮,便进入添加状态,文本框自动清空,添加按钮变为确定按钮,光标会停留 在部门编号文本框上,此时系统已自动生成一个新的部门编号,只需输入部门名称和备注 信息即可完成部门信息编辑操作,在按窗体上的确定按钮即可检查该部门信息是否合法并 存入数据库,否则按取消按钮。再点击添加按钮,用户可再次添部门信息记录。 (2)数据查询数据查询 第 12 页 当操作员需要对某个部门进行查询时,可以在编辑部门信息窗体下部中找到查询按钮。 先在对应

19、的文本框中输入要进行数据查询的条件,输入完查询条件后,点击查询按钮进行 确定,系统便会查询出满足条件的部门记录,并列到数据表格中,无满足条件的部门记录 时,则弹出对话框提示“查无此记录!” 。 (3)数据修改数据修改 当操作员需要对某个部门进行修改时,可以在编辑部门信息窗体下部中找到修改按钮。 由于修改记录不可能在大量的数据中盲目的寻找,因此数据修改应该与数据添加按钮结合 使用,先用查询功能进行对要修改记录的搜索,再在数据表格中选中要修改的部门记录, 便把此部门记录读入文本框中,只需在文本框中直接进行数据修改便可,修改完后按修改 按钮进行确定,系统并对修改后的数据进行合法性检测,合法则修改成功

20、。 (4)数据删除数据删除 当操作员需要对某个或多个部门进行删除时,可以在编辑部门信息窗体下部中找到删 除按钮。由于删除记录不可能在大量的数据中盲目的寻找,因此数据删除也有数据查找功 能,先在对应的文本框中输入要进行数据删除的条件,再按删除按钮,系统便会列出满足 删除条件的部门记录,并提示是否删除满足条件的全部部门记录,也可以一条一条删除部 门记录,只要在数据表格中选中要删除的部门记录,在按一下删除按钮即可删除数据。 (5)清空清空 清空按钮的作用可使所有文本框清空,方便用户进行其它操作。 在下面各界面设置操作与上相同不再重复说明。 清空输入信息代码: Private Sub CmdClear

21、_Click() ChangeCheck = False Call TxtKong Dim n As Integer For n = 0 To MSFlexGrid1.Rows - 1 MSFlexGrid1.TextMatrix(n, 0) = Next n End Sub 浏览部门信息浏览部门信息 此窗体主要针对一般用户,只有浏览功能,因为一般用户只有浏览的权限。并能从此 窗体中了解各部门现有人数,这是在编辑部门信息中无法获得的信息。 图 4.4 第 13 页 4.5 工信息管理工信息管理-添加、查询、修改、删除的实现添加、查询、修改、删除的实现 编辑员工信息编辑员工信息 作为编辑员工信息

22、这一项,所实现的功能是对公司员工资料信息的存储与编辑,方便 对员工的分类与管理。员工编号具有唯一性,不能重复。在此窗体中输入的信息都进过合 法性检测,判断员工编号是否出现重复,位数是否为 6 位(前两位为部门编号,后四位为 员工自身编号)等。 图 4.5 浏览员工信息浏览员工信息 此窗体主要针对一般用户,只有浏览功能,因为一般用户只有浏览的权限。并能根据 部门名称、出生日期、来到公司工作的时间进行员工信息查询。 图 4.6 4.6 勤信息管理勤信息管理-添加、查询、修改、删除的实现添加、查询、修改、删除的实现 编辑考勤信息编辑考勤信息 作为编辑考勤信息这一项,所实现的功能是对公司员工考勤资料信

23、息的存储与编 辑,方便对员工工作的考察。对员工进行按月考勤,考核员工出勤、加班、迟到和早 退等一些信息。 第 14 页 图 4.7 浏览考勤信息浏览考勤信息 此窗体主要针对一般用户,只有浏览功能,因为一般用户只有浏览的权限。并能根据 部门名称、考勤日期进行员工考勤信息查询。 图 4.8 4.7 工工资管理工工资管理-添加、查询、修改、删除的实现添加、查询、修改、删除的实现 编辑工资信息编辑工资信息 作为编辑工资信息这一项,所实现的功能是对公司员工工资信息的存储、计算与编辑, 方便对员工工资的管理。对员工工资进行按月分组,计算员工各种工资项目和个人所得税 款等一些信息。 第 15 页 图 4.9

24、 浏览工资信息浏览工资信息 此窗体主要针对一般用户,只有浏览功能,因为一般用户只有浏览的权限。并能根据 部门名称、工资计发日期进行员工工资信息查询。 图 4.10 4.8 系统维护系统维护 系统维护选项里包括密码设置、用户管理、数据备份和数据恢复四个选项。用户管理 功能只对管理员开放,管理员能在用户管理窗体中添加新的用户,对已有的用户进行用户 名和密码修改,或者将原有用户删除。当一般用户和操作员进入时,菜单栏中无该项。 密码设置密码设置 第 16 页 图 4.11 该界面比较简单,能让登陆的用户修改自己的密码,但不能更改用户名,此项对所有 权限的用户都适用。一进入此窗体便会显示此用户名,在旧密

25、码框中输入原始密码,在新 密码框中输入想更改的新密码,再在密码确定中进行新密码确认,按更改按钮便可修改用 户密码。 用户管理用户管理 图 4.12 该功能只针对管理员有效,用于对所有权限用户口令的管理。能对所有用户进行用户 名、密码、权限修改,不但能更改而且还能进行用户添加和删除。 数据备份数据备份 数据备份就是复制数据库的数据文件到其他地方,一面在数据库遇到意外破坏的时候 能够恢复数据库,从而减少破坏造成的损失。在此系统中只把数据库备份到软盘中。 图 4.13 第 17 页 数据恢复数据恢复 数据恢复就是将数据库备份文件复制到当前数据库上,一面在数据库遇到意外破坏的 时候能够恢复数据库,从而

26、减少破坏造成的损失。在此系统中只从软盘中恢复数据库文件。 图 4.14 第 18 页 第第 5 章章 系统功能测试系统功能测试 5.1 系统测试环境系统测试环境 1. 硬件环境: PIII 800 128MB 内存 40G 硬盘 2. 软件环境: 操作系统:WINDOWS Xp 数据库:Access 2000 程序开发工具: Visual Basic 6.0 5.2 测试内容测试内容 测试了部门信息管理-添加、查询、修改、删除 测试了员工信息管理-添加、查询、修改、删除 测试了考勤信息管理-添加、查询、修改、删除 测试了员工工资管理-添加、查询、修改、删除 测试了系统维护密码设置、用户管理、数

27、据备份、数据恢复 5.3 测试结果测试结果 测试结果软件运行一切正常。 第 19 页 结束语结束语 本次的公司人事管理系统是基于 Visual Basic 的 ADO 技术设计的。选择了 Access 2000 作为后端开发工具,开发数据库功能,并选择了 Visual Basic 6.0 作为界面前台开发 工具。在该系统开发中我通过建立数据库,以及对各种信息库的开发(如:添加、查询、 修改、删除资料)及设计系统维护安全部分,完成了此次对公司人事管理系统的设计。 在本次的开发过程中,我意识到最重要的环节在于对系统的流程、功能模块、框架结 构等方面的把握和设计。在需求分析结束以后,我们对一个系统需

28、要具有哪些功能已经有 了一定的认识,而如何以一个简洁、合理的系统结构去实现用户要求的功能就成为系统开 发的关键环节。在这方面我可以说是深有体会。由于有些急于求成,在对 ADO 技术不是 很了解的情况下就开始着手程序开发,所以当有时间静下来仔细理一下思路的时候发现走 了很大的弯路,可以说是整个思路和设计要求有着非常大的差异。值得庆幸的是,发现的 比较及时,还有足够的时间让我转变思路,从头开始。因此,通过这次公司人事管理系统 的开发,我深刻认识到系统分析,以及对整个系统的总体设计的重要性。只有走好了这一 步,整个系统的开发才能事半功倍,否则就会是“棋差一着,满盘皆输” 。 同时,在这次的系统开发中

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

30、意义的学习、提高的过程。通过这次系统开发,我不但初步掌握了两种数据库系统 开发工具,也让我看到了自己知识结构、知识储备、学习和应用能力上的不足。我想,在 今后的学习和工作中,我将针对这些发现的问题,不断努力和提高自身各方面的素质,为 社会作出自己应有的贡献 本人事管理系统的顺利完成,还要感谢老师的大力帮助与细心指导! 第 20 页 参考文献参考文献 1 袭沛曾 陆慰民 杨志强编著. Visual Basic 程序设计教程(6.0 版)M.北京:高等 教育出版社.2000 年 2 肖建 薛凤武 吴静编著. Visual Basic 6.0 基础教程M.北京:中国电力出版社. 2002 年 3 张

31、大年 廖智勇 刘检锋编著. Visual Basic 数据库应用开发与实例M.北京:清华大 学出版社.2002 年 4 杨宗志编著. Visual Basic 数据库程序设M. 北京:清华大学出版社.2001 年 5 陈豫龙 何旭洪编著. Visual Basic 6.0 数据库开发实例导航M.上海:人民邮电出 版.2002 年 6 黄明 梁旭编著. Visual Basic 6.0 时尚编程百例M.重庆:机械工业出版社 2001 年 7 飞思科技产品研发中心 Access 2000 数据处理技术M. 北京: 电子工业出版. 2001 年 第 21 页 附录附录 部分窗体程序代码部分窗体程序代

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

33、= SQL & ) SQL = SQL & values ( SQL = SQL & & Date & SQL = SQL & , & Time & 第 22 页 SQL = SQL & , & DLYongHuMing & SQL = SQL & , & DLQuanXian & SQL = SQL & ) Cnndb.Execute (SQL) End Sub Private Sub DataFind() 数据查找 Dim SQL As String If TxtYhm.Text = Then SQL = select * from 口令信息 where 用户名= or 用户名 is nu

34、ll 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 Exit Sub Else If TxtYhm.Text = And TxtMm.Text = Then SQL = select * from 口令信息 wher

35、e (用户名 = or 用户名 is null) and (密码 = or 密码 is null) ElseIf TxtYhm = And TxtMm Then SQL = select * from 口令信息 where (用户名 = or 用户名 is null) and 密码 = & TxtMm.Text & 第 23 页 ElseIf TxtYhm And TxtMm = Then SQL = select * from 口令信息 where 用户名 = & TxtYhm.Text & and (密 码 = or 密码 is null) Else SQL = select * from

36、 口令信息 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 = 5 Then End End If Exit Sub Else DLYongHuMing = rc.Fields(用户名).Value DLQuanXian = rc.Fields(权限).Value If rc.Fields

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 其他


经营许可证编号:宁ICP备18001539号-1