天通储蓄所人事管理系统

1、目录 摘要 .3 关键字.4 KEY WORD.4 第一章 前言 .4 1.1 开发背景.4 1.2 开发目标.5 1.3 开发目的.5 1.4 研究意义.5 第二章 系统分析 .6 2.1 系统的设计思想 .6 2.2 可行性分析 .6 2.3 需求分析 .7 2.3.1 数据维护 .8 2.3.2 数据查询 .8 2.3.3 报表输出 .8 2.3.4 系统维护 .8 2.4 系统综合要求及运行环境和开发平台 .9 2.4.1 系统综合要求及运行环境 .9 2.4.2 系统开发平台 .10 2.5 业务分析 .10 第三章 数据库设计 .10 3.1 数据库的引入 .10 3.2 数据库的

2、物理结构 .13 3.2.1 管理员表 .13 3.2.2 职称表 .14 3.2.3 籍贯表 .14 3.2.4 职务表 .14 3.2.5 学历表 .14 3.2.6 部门表 .15 3.2.7 离职人员表 .15 3.2.8 退休人员表 .16 3.2.9 在职人员表 .17 3.3 数据库的完整性和安全性 .18 3.3.1 数据库的完整性 .18 3.3.2 数据库的安全性 .19 第四章 功能模块设计 .19 4.1 系统总体功能模块 .19 4.1.1 子模块的功能设计 .20 第五章 程序设计 .22 5.1 程序设计语言简述 .22 5.2 程序设计思想 .23 5.3 系统

3、程序设计 .24 第六章 结束语 .38 致谢 .39 摘要摘要 人工的人事信息的管理都显得十分的落后而且效率低下，尤其在查询 方面效率低。为了适应现代化的环境，许多的管理事务都由电脑来管理， 从而提高了管理的速率、效率。而现在的人事信息管理系统已经完全可以 用电脑来管理。 本论文主要包括人事信息管理系统方案的分析与规划，本系统是一个 典型的人事信息管理系统，其开发中要包括后台数据库的建立和维护以及 前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性 强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等 特点。 经过分析,我使用 PB 自带的数据库 、Sybase 公

4、司生产的 PowerBuiler8.0 作为开发工具, 用 Microsoft Windows XP Professional Intel(R) PIIII CPU 1.5 GHz Double CPU 512MB Rom 160GBHardDisk 作为开发平台。 利用其提供的各种面向对象的开发工具,首先在短时间内建立系统应 用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成满 意的可执行系统。 本系统可以让用户很方便的对各个职员的信息进行添加修改和打印。 以及对其职务部门等信息的维护。 关键字关键字 信息管理信息管理系统人事信息管理系统 PB9.0 Key word The

5、 information manage The information management systemPB8.0 Personnel the information management system 第一章第一章 前言前言 1.11.1 开发背景开发背景 近年来，随着计算机技术的发展时代的到来，我们已经进入 了信息时代，也称数字化时代，在这数字化时代里，储蓄所的人 事管理都受到了极大的挑战。以现代计算技术基础的数字化人事 管理主要是朝着信息化、现代化的目标迈进。作为新型管理模式， 它具有对于人事任免和各个职员的基本资料的维护来说极为宝贵 的特性，可为新型管理模式的建构提供理想的环境。在此

6、开发的 人事信息管理系统，旨在探索一种以计算机技术为基础的人事管 理模式。通过这种新的模式，为天通储蓄所营造一种新的人事管 理环境，使管理突破时空限制，提高工作效率和工作水平，使人 事管理更加快捷方便准确。 1.21.2 开发目标开发目标 建立储蓄所人事管理系统，采用计算机对企业内各个人员 的资料进行管理，进一步提高管理效益和现代化水平。帮助储蓄 所工作人员提高工作效率，实现人事管理工作流程的系统化、规 范化和自动化。 1.31.3 开发目的开发目的 近几年，在认识管理上各个企业都花了很多人力物力。由于 以前各个企业都是靠人员在书面上记录和整理相关的信息。这样 做起来不仅效率低而且容易出现错误

7、。现在计算机已经非常普及 应用计算机管理一些事情也是非常方便和高效的。这就需要设计 一款在计算机上能够应用的软件（应用程序）。这样不仅仅能提 高工作的效率还能节省小不少的人力和资金，去进行其他事情的 工作；也进一步保证了人员管理时数据的正确却性。所以我想通 过本次设计接触一下这个开发项目。 1.41.4 研究意义研究意义 由于以往储蓄所人事管理水平普遍不高，有的还停留在纸 介质基础上，这种管理手段已不能适应时代的发展，因为它浪费 了了许多的人力和物力。在当今信息时代这种传统的管理方法必 然被计算机为基础的信息管理系统所代替。如果本系统能被采用， 将会改变以前的状况，可以树立良好的形象，提高工作

8、效率。 第二章第二章 系统分析系统分析 2.12.1 系统的设计思想系统的设计思想 学生信息学院管理信息系统基本设计思想是把整个系统按照实现模块 进行分解，利用 Visual Basic 进行编程。此子系统的系统结构如图 2-1 所示。 帮 助 图 2-1 学生信息管理系统结构图 2.22.2 可行性分析可行性分析 可行性分析（Feasibility Analysis）也称为可行性研究，是 在系统调查的基础上，针对新系统的开发是否具备必要性和可能 性，对新系统的开发从技术、经济、社会的方面进行分析和研究， 以避免投资失误，保证新系统的开发成功。可行性研究的目的就 是用最小的代价在尽可能短的时间

9、内确定问题是否能够解决。该 系统的可行性分析包括以下几个方面的内容。 人事管理系统 数 据 维 护 数 据 查 询 报 表 输 出 系 统 维 护 1：技术可行性：本系统您需要一台装有 PowerBuilder 软件的 计算机即可，对机器本身没有太高的要求，一般当前学校或个人 电脑完全可满足要求。 2：经济可行性：由于本系统是为储蓄所管理使用的系统，装 上该应用软件，即可使用系统，系统成本主要集中在系统软件的 开发上，当系统投入运行后可以为储蓄所节约大量的人力，物力。 所带来的效益远远大于系统软件的开发成本。在经济上完全可行。 3：操作可行性：界面设计时充分考虑管理人员的习惯，使得 操作简单；

10、数据录入迅速、规范、可靠；统计准确；制表灵活； 适应力强；容易扩充。 4：管理上的可行性：主要是管理人员是否支持，现有的管理 制度和方法是否科学，规章制度是否齐全，原始数据是否正确等。 规章制度和管理方法为系统的建设提供了制度保障。 综上所述，此系统开发目标已明确，在技术可行，并且投 入少、见效快。因此系统的开发是完全可行的。 2.32.3 需求分析需求分析 本系统要求的方面很少因为它是给储蓄所设计的所以面向的 对象只有登陆这个系统的人员。涉及到的对象只有两个：一个是 一般的管理员；一个是系统管理员。系统管理员可以使用全部功 能包括对使用者权限的管理。一般管理员则没有权限使用这个功 能。系统维

11、护模块中除口令修改和用户权限设置外都是对部门信 息资料的录入。系统维护模块是对各个人员的详细资料的录入功 能，在其中加入添加删除修改功能。数据查询是用户根据自己的 需要查询所需要的信息，而报表输出则是用户对某些需要打印的 输出功能。用户权限管理涉及到权限的设计，所以在登陆时就要 考虑到登陆用户的权限，所以也就应该在登陆界面上进行一下这 方面的设计。 .1 数据维护数据维护 在调研过程中了解到数据维护子系统主要包括在职人员维 护、离职人员维护、人员调入、人员调出这五个项目。这无个子 功能登陆就能使用。 .2 数据查询数据查询 这部分主要内容是调出人员资料查询、调入

12、人员资料查询、 在职人员资料查询、离职人员资料查询、退休人员资料查询这五 个查询功能与数据维护五个功能想对应。 .3 报表输出报表输出 这部分包括个人详细资（以特定的条件查询到所需要的个 人资料然后打印） 、在职人员清单、离职人员清单、退休人员清 单、调入人员清单、调出人员清单五个栏目。每个功能界面内都 设置了打印功能，并且设置了打印预览功能，更方便了使用者。 .4 系统维护系统维护 系统维护包括部门表维护、籍贯表维护、学历表维护、职 务表维护、职称表维护和口令修改、用户权限管理七个功能模块。 其中除了用户权限管理功能为成功登陆后功能即可使用。用户权 限管理功能

13、只有系统管理员才能使用也是本系统权限全开的唯一 操作权限。 2.42.4 系统综合要求及运行环境和开发平台系统综合要求及运行环境和开发平台 .1 系统综合要求及运行环境系统综合要求及运行环境 用户需求分析： 人事信息管理系统是基于 Windows 操作系统基础上，通过 对大量的工作人员的基本资料管理系统的研究和分析并结合对人 事信息管理进行分析提出来的。 系统以功能强大的 Windows 系列操作系统作为操作系统 平台，使其具备优良的可视化图形操作界面，大力提高系 统的可操作性和交互性尽量减少操作员的负担，让他们更 方便、更快捷、更简单的进行操作。 扩大系统功能覆盖面。它的功能

14、要求能进行数据维护/查 询、系统维护等功能的综合管理。并能实现控制各用户系 统权限，从而保证系统的安全性能。 系统运行环境简介： 基于以上对系统各种需求的分析和定义，建议系统采用一下 配置，已确定系统的稳定、高效运行。 （一）硬件环境 最低配置 C233 以上 CPU，32MB 以上内存，40 硬盘 建议配置 CII300 以上 CPU，64MB 内存，80 硬盘。 打印机一台； UPS 不间断电源一台（避免数据因突然停电等意外情 况下的丢失） （二）软件环境 Win95 以上操作系统 .2 系统开发平台系统开发平台 电脑配置：CPU: P4 2.6 内存：DDR 512M 硬

15、盘：80G 操作系统：Microsoft Windows XP professional 简体中文版 开发环境： PowerBuiler 数据库：PowerBuiler 数据库 2.52.5 业务分析业务分析 人事信息管理系统的业务流程：首先由系统管理员（有录入 权限的用户）将各自权限范围内的信息进行录入，然后保存信息 到数据库中。有权限的人可以对这些库信息进行修改和删除。所 有用户均可以进行信息查询，还可以报表打印。 第三章第三章 数据库设计数据库设计 3.13.1 数据库的引入数据库的引入 数据库技术从 60 年代中期至今只有不到 40 年的历史，但 其发展速度之快是其它技术所不及的。它已

16、由第一代的层次型、 网状型数据库，第二代的关系型数据库发展到今天以面向对象为 主要模型的数据库，即第三代数据库。数据库技术和网络通信技 术、面向对象编程技术、并行计算机技术、人工智能技术相互融 合、相互渗透，促进了数据库技术的广泛应用。 数据库(Database)，是按照数据结构来组织、存储和管理数 据的仓库，是用于查询的大量数据的存储区域。使用数据库可以 带来许多好处：如减少了数据的冗余度，从而大大地节省了数据 的存储空间，实现数据资源的充分共享等等。此外，数据库技术 还为用户提供了非常简便的使用手段，使用户易于编写有关数据 库应用程序。特别是近年来推出的计算机关系数据库管理系统， 操作直观

17、，使用灵活，编程方便，功能强大，环境适应广泛，数 据处理能力极强。 数据库的设计是指对一个给定的应用环境，构造数据库模式， 建立数据库及其应用系统，满足各种用户需求。作为信息资源开 发、管理和服务的一种有效的手段，数据库技术的应用已越来越 广泛，从小型的单项事务处理系统到大型的信息系统大都用先进 的数据库技术来保持系统数据的安全性、完整性和共享性。对一 个实际的系统来说，数据库表的设计在遵循数据库理论的同时， 必须能用开发工具来实现用户在各方面提出的功能要求。 一个真正的、完整的站点是离不开数据库的，因为少量的 数据，如网页访问人数等完全可以存储在文本文件中，但实际应 用中，需要保存的数据远不

18、止这一点点，而且这些数据之间往往 还有关联，利用数据库来管理这些数据，可以很方便的查询和更 新。可以说一个动态网站的建设是离不开一个设计最优的数据库 的。我们现在可以使用的数据库有很多种，如：Fox 数据库(.dbf)、 Access 数据库(.mdb)、DB2、Informix、Oracle 和 SQL Server 等 等，在本次设计中，选择了 IBM 的 DB2 作为后台数据库工具， 因为它功能远比 Access、SQL Server 强大，并提供了许多标准 的关系数据库管理功能的支持。他的各种关系数据库管理系统适 应于各种硬件平台，包括 Unix，PC 和主机系统。 在设计人事管理信息

19、系统时，我们采用了传统的基于两层的 C/S 结构来构建系统。根据需求的分析结果，在此 C/S 结构中， 客户端有两种的操作用户：工作人员和读者。 PowerBuilder8.0 客户机/服务器结构原理：这里前端应用 程序发送命令给基于服务器数据库引擎，再由后者负责从物理磁 盘上读取数据并加以处理，最后返回给前端应用程序。服务器负 责数据库处理工作，而工作站负责用户界面处理工作：管理员对 有关借书人员的信息和图书的信息进行操作和维护。 PowerBuilder8.0 客户机/服务器的前端应用程序实际上不 直接与数据库引擎打交道。每个客户服务器提供一个数据库通信 接口，该数据库通信接口运行于前端。

20、这些接口也称为数据库通 信 API 等。数据库通信接口的工作流程如下： 服务器数据库 命令数据 工作站的前端应用程序 数据库接口 数据库通信接口 服务器端数据库引擎 命令数据 图 2-1 工作流程图 PowerBuilder8.0 提供了丰富和强壮的特性支持客户机/服务器 应用的开发。它提供了支持多种数据库如：Oracle,SQL Server 以及任何 ODBC 数据源的统一和一致的应用程序编程接口。开发 者可以不用修改数据库应用程序就能直接访问不同的数据库站点 和数据格式。 3.23.2 数据库的物理结构数据库的物理结构 本系统的数据库名称为 PFM.DB；yhb(管理员表)； post_

21、title(职称表)；people_stop_work(离职人员表)； people_retire(退休职员表)；people_in_work(在职人员表)； jiguan(籍贯表)；headship(职务表)；edu_level(学历表)； department(部门表) .1 管理员表管理员表 表 名字段名类型大小 必 填 备注 Yh_id 文本6N用户代码 Yh_mc文本10N用户名称 Yh_kl文本8N用户口令 yhb Yh_lx文本1N用户权限 .2 职称表职称表 表 名字段名类型大小 必 填 备注 Zc_id 文本6N职称代码 Post_title

22、Zcmc文本20Y职称名称 .3 籍贯表籍贯表 表 名字段名类型大小 必 填 备注 Ig_id 文本6N籍贯代码 jiguan igmc文本50Y籍贯名称 .4 职务表职务表 表 名字段名类型大小 必 填 备注 Zw_id 文本6N职务代码 headship Zwmc文本20Y职务名称 .5 学历表学历表 表 名字段名类型大小 必 填 备注 Deu_levelXl_id 文本6N学历代码 xlmc文本20Y学历名称 .6 部门表部门表 表 名字段名类型大小 必 填 备注 Bm_id 文本6N部门代码 department Bmmc

23、文本20Y部门名称 .7 离职人员表离职人员表 表 名字段名类型大小 必 填 备注 Zy_id文本6N职员代码 Zyxm文本10N职员姓名 Bm_id文本6Y部门代码 Xb文本2Y性别 Jg_id文本6Y籍贯代码 Zw_id文本6Y职务代码 Zc_id文本6Y职称代码 Xl_id文本6Y学历代码 Csrq日期Y出生日期 Jtdh文本20Y家庭电话 Gzdh文本20Y工作电话 People_stop_work Sjhm文本20Y手机号码 Chhm文本20Y传呼号码 Sfzh文本18Y身份证号 Txdz文本50Y通信地址 Yzbm文本6Y邮政编码 gl数字Y工龄 Drsj日期Y调入

24、时间 Grjl文本Y个人简历 Lzsj日期Y留职起始时间 Yhzh文本20Y银行帐号 .8 退休人员表退休人员表 表 名字段名类型大小 必 填 备注 Zy_id文本6N职员代码 Zyxm文本10N职员姓名 Bm_id文本6Y部门代码 Xb文本2Y性别 Jg_id文本6Y籍贯代码 Zw_id文本6Y职务代码 Zc_id文本6Y职称代码 Xl_id文本6Y学历代码 Csrq日期Y出生日期 People_retire Jtdh文本20Y家庭电话 Gzdh文本20Y工作电话 Sjhm文本20Y手机号码 Chhm文本20Y传呼号码 Sfzh文本18Y身份证号 Yhzh文本20Y银行帐号

25、Txdz文本50Y通信地址 Yzbm文本6Y邮政编码 gl数字Y工龄 Drsj日期Y调入时间 Grjl文本Y个人简历 Txsj日期Y退休起始时间 .9 在职人员表在职人员表 表 名字段名类型大小 必 填 备注 Zy_id文本6N职员代码 Zyxm文本10N职员姓名 Bm_id文本6Y部门代码 Xb文本2Y性别 Jg_id文本6Y籍贯代码 Zw_id文本6Y职务代码 Zc_id文本6Y职称代码 People_in_work Xl_id文本6Y学历代码 Csrq日期Y出生日期 Jtdh文本20Y家庭电话 Gzdh文本20Y工作电话 Sjhm文本20Y手机号码 Chhm文本20Y传呼

26、号码 Sfzh文本18Y身份证号 Yhzh文本20Y银行帐号 Txdz文本50Y通信地址 Yzbm文本6Y邮政编码 gl数字Y工龄 Drsj日期Y调入时间 Dcsj日期Y调出时间 Grjl文本20Y个人简历 3.33.3 数据库的完整性和安全性数据库的完整性和安全性 .1 数据库的完整性数据库的完整性 数据库的完整性是指数据的正确性和相容性。数据库管理 系统（DBMS）用一定的机制来检查数据库中的数据是否满足规定 的条件完整性约束条件，数据的约束条件是语义的体现，将 作为模式的一部分存入数据库中。 本系统中定义了表与表之间的联系有助于实现完整性规则， 一般在程序中实现具体的完整

27、性控制。 .2 数据库的安全性数据库的安全性 数据库的安全性是指保护数据库以防止不合法的使用所造 成的数据泄漏、更改或破坏。在数据库系统中，大量的数据集中 存放，而且为许多用户直接共享，是宝贵的信息资源，系统的安 全保护措施就显得更为重要，它保护数据库防止恶意的破坏和非 法的存取。 本系统包括数据库的安全。采用管理员来管理系统鉴定的方法实现数 据库的安全，此安全管理措施并不在前台开发工具中实现，而是在后台数 据库中实现。在登录数据库时，系统让管理员户表示自己的身份，不同的 人员权限不同，系统进行核实，鉴别此人员是否为合法用户，若是，系统 进一步核实用户，其权限为 admin 的

28、方可进行管理。通常要求用户输入口 令，系统和对用户口令以鉴别用户身份。这是一种简单可行的方法，实现 起来比较方便。 第四章第四章 功能模块设计功能模块设计 对本系统的各个子模块进行了系统分析和数据库设计后，本 章将主要讨论该系统所实现的各部分功能。 4.14.1 系统总体功能模块系统总体功能模块 软件所实现的功能强弱是衡量一个软件的最根本的标准。 经过对系统的可行性分析、需求分析、数据分析以及数据库设计 后，结合调研的情况，确定了本系统的主要的子功能模块如下图 所示。 天通储蓄所人事管理系统 数 据 维 护 数 据 查 询 报 表 输 出 系 统 维 护 .1 子模块的功能设计

29、子模块的功能设计 各个子功能模块下的下一级功能模块如下图所示 数据维护功能模块： 数据维护 在 职 人 员 维 护 离 职 人 员 维 护 退 休 人 员 维 护 人 员 调 入 人 员 调 出 数据查询功能模块： 数据查询 调 出 人 员 资 料 查 询 退 休 人 员 资 料 查 询 调 如 人 员 资 料 查 询 在 职 人 员 资 料 查 询 离 职 人 员 资 料 查 询 报表输出模块： 报表输出 个 人 详 细 资 料 在 职 人 员 清 单 离 职 人 员 清 单 退 休 人 员 清 单 调 出 人 员 清 单 调 入 人 员 清 单 系统维护模块： 系统维护 部 门 表 维 护

30、 籍 贯 表 维 护 学 历 表 维 护 职 务 表 维 护 职 称 表 维 护 口 令 修 改 用 户 权 限 管 理 第五章第五章 程序设计程序设计 5.15.1 程序设计语言简述程序设计语言简述 PowerBuiler 是著名的数据库应用开发工具生产商 Sybase Inc 的子公司 PowerSoft 于 1991 年 6 月推出的数据库应用开发 工具历经了多次的升级换代。 PowerBuiler 的开发式数据库系统，能够访问任何一种常用 的数据库管理系统（DBMS） ，例如 Oracle、Sybase、SQL Server、DB2、Infoemin 等，它可以 ODBC 连接各种数据

31、库，也 可以通过专用的数据库连接，从而大大提高了连接速度和效率。 PowerBuiler 还可一使用内嵌的 SQL 语句对数据库进行操作，使 得应用程序对数据的处理更加方便和灵活。 5.25.2 程序设计思想程序设计思想 常见的设计思想有两种：结构化和面向对象化，本系统采 用的是面向对象的设计思想，下面简单介绍一下两者的不同以及 面向对象程序设计的优点。 传统的结构化开发过程包括软件目标的功能分解，以及使 用正确的参数和返回值来创建函数。首先分析需求，确定功能， 然后以函数的形式进行建模。在一个 Web 应用中很可能有上千 个函数，这些函数能够不受限制的互相调用，因此在访问某个变 量时，很难保

32、证它不是正在被其他的函数访问或者修改。用 JSP 脚本来开发 Web 应用时就是上面所说的情况。只使用 JSP 而不 使用任何 Bean 或自定义标记，在 Web 应用的规模比较小时还不 会出现太多的问题，但是在 Web 应用的规模增大时就肯定会出 现问题。这些代码也许能够满足功能上的需要，却不能达到非功 能性的要求。 在结构化开发方法面临问题的时候，使用面向对象的方法 进行分析、设计和开发就可以解决一部分问题。面向对象的分析 和设计方法源于现实生活中的模块化的思想。对象是提供一组相 关功能的实体，对象之间互相作用从而完成一定的任务。OO 开 发方法包括对目标的模块化，以及用类的形式对数据和函

33、数进行 封装。面向对象方法主要有以下四个特征： (1)抽象性 抽象是对象建模参数的选择，这是进行分析后得到的结果。 这意味着是由分析人员来选择一定的参数，以表示对象，这是对 象模型化的第一步。 (2)封装性 由于某些原因，类中的数据和方法不需要对其他的对象公 开，我们可以将其隐藏在类的内部，这是对象模块化过程中很重 要的一步。这个步骤将确保对象的行为以简单的借口出现，而复 杂的执行过程都被隐藏了。比如，JavaBean 就可以为 Web 网页 开发人员提供一个简单的接口。 (3)继承性 在一个现存对象的基础上创建一个新的对象，这个过程称 为继承。这样我们可以不必重写所有的代码，只需在新对象中编

34、 写需要更新的代码就可以了。比如：Servlet 通常是由 HTTPServlet 派生来的，这意味着 Web 服务器可以用相同的方法 来处理具有从属关系的两个 Servlet。 (4)模块化 为了减少独立工作小组之间的依赖性，软件系统中必须使用 模块。比如，我们可以定义一个 JavaBean 来处理应用程序的状 态，这样做的优点是可以独立地对模块进行维护，这样就减少了 代码之间的相关性 5.35.3 系统程序设计系统程序设计 首先介绍下登陆窗口，它是系统安全的一个很关键的环节。 string ls_password,ls_get,ls_yh_mc,ls_lx ls_get=trim(sle_

35、kl.text) ls_yh_mc=trim(sle_yhm.text) if trim(ls_yh_mc)= then messagebox(错误,用户名不正确！,StopSign!) sle_yhm.SetFocus ( ) st_1.text=请输入登录口令，以进入系统 return end if select yh_kl,yh_lx into :ls_password,:ls_lx from yhb where yh_mc=:ls_yh_mc; if IsNull(ls_password) then ls_password= if ls_lx= then messagebox(错误,用

36、户名或口令不正确！,StopSign!) sle_yhm.SetFocus ( ) st_1.text=请输入登录口令，以进入系统 return end if if (trim(ls_password)=ls_get ) then insert into howdo values(Now(),Today(),进入 系统,:ls_yh_mc); select yh_id into :gs_yhid from yhb where yh_mc=:ls_yh_mc and yh_kl=:ls_password; gs_yhmc=ls_yh_mc gs_yhqx=ls_lx gs_yhkl=ls_pas

37、sword if is_get=更换操作员 then closewithreturn(parent,更换操作员) gu_menu_qx.menu_refresh() gu_menu_qx.menu_qxsz() else closewithreturn(parent,w_main) end if return else messagebox(错误,口令不正确！,StopSign!) sle_kl.SetFocus ( ) st_1.text=请输入登录口令，以进入系统 ii_ret=ii_ret+1 if ii_ret=3 then messagebox(登录失败,对不起，你没有使用权 限！)

38、 insert into howdo values(Now(),Today(),登 录失败,:gs_yhmc); Halt; end if return end if 在“确定”按钮的 Click 事件中添加进上面的程序用来和数据表 yhb 里面的资料进行对比，来确定用户的权限。 下面是系统管理员进入系统的界面： 在职人员维护功能界面： 新增按钮代码： String ls_newselect long ll_row OpenWithParm(w_query1,dw_1) ls_newselect = Message.StringParm if ls_newselect=Cancel then

39、Return dw_1.Modify(datawindow.table.select = + ls_newselect + ) ll_row=dw_1.retrieve() dw_1.setfocus() if ll_row0 then dw_1.setrow(1) dw_1.selectrow(1,true) end if dw_1.Modify(datawindow.table.select = + is_oldselect + ) 查询功能截面： 按新增弹出的功能界面： 确定按钮的 Click 事件的代码： long ll_row,ll_found integer li_rtn stri

40、ng ls_zyid SetPointer(HourGlass!) if istr_mod_peoplein.add_or_mod=query then istr_mod_peoplein.cancel=Cancel end if if sle_1.text= then MessageBox(数据保存,职员代码不能为空!) sle_1.setfocus() return end if if sle_2.text= then MessageBox(数据保存,职员姓名不能为空) sle_2.setfocus() return end if string ls_bmid,ls_jgid,ls_zwi

41、d,ls_zcid,ls_xlid select bm_id into :ls_bmid from department where bmmc=:ddlb_bmmc.text; select jg_id into :ls_jgid from jiguan where jgmc=:ddlb_jgmc.text; select zw_id into :ls_zwid from headship where zwmc=:ddlb_zwmc.text; select zc_id into :ls_zcid from post_title where zcmc=:ddlb_zcmc.text; sele

42、ct xl_id into :ls_xlid from edu_level where xlmc=:ddlb_xlmc.text; istr_mod_peoplein.zy_id=sle_1.text istr_mod_peoplein.zyxm=sle_2.text istr_mod_peoplein.bm_id=ls_bmid istr_mod_peoplein.xb=ddlb_xb.text istr_mod_peoplein.jg_id=ls_jgid istr_mod_peoplein.zw_id=ls_zwid istr_mod_peoplein.zc_id=ls_zcid ist

43、r_mod_peoplein.xl_id=ls_xlid istr_mod_peoplein.csrq=date(em_1.text) istr_mod_peoplein.jtdh=sle_4.text istr_mod_peoplein.gzdh=sle_5.text istr_mod_peoplein.sjhm=sle_6.text istr_mod_peoplein.chhm=sle_7.text istr_mod_peoplein.sfzh=em_sfzh.text istr_mod_peoplein.yhzh=sle_9.text istr_mod_peoplein.gl=integ

44、er(em_gl.text) istr_mod_peoplein.yzbm=em_yzbm.text istr_mod_peoplein.drsj=date(em_2.text) istr_mod_peoplein.txdz=sle_13.text istr_mod_peoplein.dryy=sle_14.text gb_grjl=Blob(mle_1.text) if istr_mod_peoplein.add_or_mod=add then dw_peoplein.retrieve() ll_found = dw_peoplein.Find(zy_id=+sle_1.text+, els

45、e messagebox(保存数据,保存数据时发生错误!) rollback using sqlca; return end if SQLCA.AutoCommit = True if dw_peoplein.dataobject=d_people_inwork then UPDATEBLOB people_in_work SET grjl = :gb_grjl WHERE zy_id =:sle_1.text USING sqlca ; IF Sqlca.SQLNRows 0 THEN COMMIT USING SQLCA; END IF UPDATEBLOB people_in_work

46、SET photo=:gb_photo WHERE zy_id = :sle_1.text USing sqlca; IF Sqlca.SQLNRows 0 THEN COMMIT USING SQLCA; END IF elseif dw_peoplein.dataobject=d_people_stopwork then UPDATEBLOB people_stop_work SET grjl = :gb_grjl WHERE zy_id = :sle_1.text USING sqlca ; IF Sqlca.SQLNRows 0 THEN COMMIT USING SQLCA; END

47、 IF UPDATEBLOB people_stop_work SET photo=:gb_photo WHERE zy_id = :sle_1.text USing sqlca; IF Sqlca.SQLNRows 0 THEN COMMIT USING SQLCA; END IF elseif dw_peoplein.dataobject=d_people_retire then UPDATEBLOB people_retire SET grjl = :gb_grjl WHERE zy_id = :sle_1.text USING sqlca ; IF Sqlca.SQLNRows 0 T

48、HEN COMMIT USING SQLCA; END IF UPDATEBLOB people_retire SET photo=:gb_photo WHERE zy_id = :sle_1.text USing sqlca; IF Sqlca.SQLNRows 0 THEN COMMIT USING SQLCA; END IF End if SQLCA.AutoCommit = False end if Closewithreturn(Parent,istr_mod_peoplein) 系统管理员的权限管理界面： 增加按钮的 Click 事件代码： string ls_return_string,ls_yhmc,ls_pwd,ls_yh_style integer li_position,li_pos2,li_rtn long ll_row,ll_rowcount,ll_found open(w_add_yh,parent) ls_return_stri