工资管理系统设计与开发-VB毕业设计

1、XXXXX大学开放教育计算机科学与技术本科毕业论文-XX市计量测试所工资管理系统XXXXX大学计算机科学与技术专业(本科)毕业设计论文设计题目 XX市计量测试所工资管理系统 所在班级: 2002春计本 学生姓名: 学 号: 指导教师: 完成日期: 目 录第一章 引 言41.1 概述41.2系统意义41.3系统目标41.4 工资管理系统将达到的 效果51.5 使用软件的 介绍51应用程序开发工具52关系型数据库的 选择5第二章 铁岭市计量测试所工资管理系统系统分析72.1可行性分析72.1.1经济可行性72.1.2技术可行性72.1.3法律可行性822系统需求分析82.2.1问题识别82.2.2

2、系统功能分析8第三章 工资管理系统设计103.1数据库分析103.2应用程序设计123.2.1登录模块133.2.2职工信息管理模块153.2.3职工信息查询模块193.2.4职工信息删除213.2.5职工工资信息管理模块223.2.6职工工资信息查询模块263.2.7操作员管理模块283.2.8退出功能模块30第四章 系统测试314.1软件测试的 目的 314.2测试条件及要求314.3软件测试的 步骤314.4单元测试324.5集成测试32第五章 总结34致 谢35参考文献36摘 要工资管理系统是典型的 管理信息系统,采用计算机管理企业的 工资发放是当前不可缺少的 一种管理手段.其开发主要

3、包括后台数据库的 建立和维护以及前端应用程序的 开发两个方面.对于前者要求建立起数据一致性和完整性强,数据安全性好的 数据库.而对于后者则要求应用程序功能完备,易使用等特点.本系统着眼于工资管理制度的 业务实际,经过实际的 需求分析,采用功能强大的 VB6.0做为开发工具、ACCESS 2000做为数据库开发出来的 系统.本系统可管理职工基本信息的 记录,进行修改,增加,查询,删除一些功能.并可以进行工资的 修改,增加,查询,删除.主要用于电脑城员工工资的 统一管理,同时方便统计部分数据.论文主要介绍了 本课题的 开发背景,所要完成的 功能和开发的 过程.重点的 说明了 系统设计的 重点、设计

4、思想、难点技术和解决方案.关键词:工资管理系统 VB6.0 数据库 ACCESS 2000AbstractIt is syste米 of typical 米anage米ent infor米ation, using co米puter to 米anage and give business laborage to the people that is the powerful 米anage米ent way and it cannot be cancel. its develop米ent that wages 米anages pri米arily includes the establishing o

5、f backstage database with support and the head apply two aspects of the procedures develop米ents. Request to establish to rise the data consistency with the database that the latter applied the procedure function is co米plete, easy usageetc. characteristics.This syste米 for taking laborage 米anage米ent r

6、ule access fact, after actuality needs checking. choosing powerful software that is VB6.0 for the basic tools, choosing Access 2000 for database syste米.This Owen syste米 base on laborage 米anage米ent infor米ation history. Then 米ake changing, adding, reserching, deleting, and lots of functions else! 米ain

7、 function is 米anage the staff laborage of Co米puter-City, and accessing the a part of database at the sa米e ti米e.The 米ost part of assign米ent are introducing the basic, and the functions, which will be finish, and the steps of 米aking the syste米. Lots of things explan about syste米 design, food ideas of

8、design, difficult technolagys and how to solve the米.Key words: the syste米 of wages 米anage米ent, Visual basic 6.0, database , ACCESS 2000 第一章 引 言1.1 概述随着我国国民经济建设的 蓬勃发展,信息化深入到社会的 各个行业,企事业单位也面临着更大的 机遇与挑战,如何融入信息化进程是每一个企事业单位必须解决的 问题,利用计算机实现企事业工资的 管理已是当前不可缺少的 一种管理手段.工资管理是一项琐碎的 、复杂而又十分细致的 工作,工资计算、发放、核算的 工作量

9、很大,一般不允许出错,如果实行手工操作,每月发放工资必须手工填制大量的 表格,这样会浪费工作人员大量的 时间和精力,如果没有一个完整的 管理系统来进行管理,那么势必会给管理人员带来种种麻烦.面对目前的 情况,铁岭市计量测试所迫切要求开发一个新的 工资管理系统来适应这项工作.1.2系统意义以前,有关工资的 所有相关操作的 程序都是由手工来完成的 ,利用这种方式当企业规模较小 ,业务不是很多,需要管理的 数据量也很少时,用人工方式处理或许还可以接受,但随着企业规模的 逐渐增大,经营时间的 增长,其工资各种补帖的 不断增加,以往的 那种靠手工记录各类信息,单据等的 办法已远远不能满足财务人员的 发展

10、要求,而且,手工操作的 方式极易产生误差且不易检查出错误,易给该部门造成不可避免的 物质和经济损失.还有,其管理的 范围的 不断扩大,大量的 数据需要录入,大量的 信息需要修改、更新、查询与维护,且费时费力,造成工作效率低,准确率差,这样时间久了 ,会给查找、更新、维护带来不少的 困难,从而使该管理系统管理不完善,这样久而久之,最终导致该部门被现行市场所淘汰.所以开发一个有关工资管理的 软件是非常必要的 . 1.3系统目标采用计量所现有的 软硬件及科学的 管理系统开发方案,建立铁岭市计量测试所工资管理系统,实现铁岭市计量测试所工资管理的 计算机自动化.要求系统符合计量所的 工资管理制度,并达到

11、操作直观、方便、实用、安全等要求.能够提供详细的 员工基础信息,包括自然条件信息、工资情况、来源、去向、岗位变动情况.能够随时查阅在职、非在职人员信息,提供出职工花名册,同时为财务部提供人员变动单及月基本工资汇总情况等.针对这些要求,系统建立了 职工信息查询、职工信息删除、职工工资信息管理、职工工资信息查询4个主要信息库.系统根据增减人员、工资变动操作自动生成记录记载变动内容,以便用户查询其变动过程.实现了 对员工信息的 查询、统计、增减、变动记录、打印相关报表等功能.1.4 工资管理系统将达到的 效果该系统着眼于员工工资业务的 实际,对发放工资业务进行了 细致的 分析、研究,认真分析其业务流

12、程,采用灵活方便的 计算处理方式,改变手工操作的 繁杂、低效、不宜操作、灵活性差的 特点,提高其工作效率和效益.实现铁岭市计量测试所工资管理业务的 制度化、现代化的 管理.工资管理系统是为了 能够迅速、准确地反映出用户需要的 各种信息,及时方便的 进行各种检索,从而为决策者做出准确的 判断提供强有力的 支持.计算机的 使用使得企业管理变得更加合理,更加规范,更加科学.1.5 使用软件的 介绍1应用程序开发工具微软公司的 Visual Basic 6.0是Windows应用程序开发工具,是目前最为广泛的 、易学易用的 面向对象的 开发工具.Visual Basic提供了 大量的 控件,这些控件可

13、用于设计界面和实现各种功能,减少了 编程人员的 工作量,也简化了 界面设计过程,从而有效的 提高了 应用程序的 运行效率和可靠性.故而,实现本系统VB是一个相对较好的 选择.在目前市场上这些众多的 程序开发工具中,有些强调程语言的 弹性与执行效率;有些则偏重于可视化程序开发工具所带来的 便利性与效率的 得高,各有各的 优点和特色,也满足了 不同用户的 需求.然而,语言的 弹性和工具的 便利性是密不可分的 ,只有便利的 工具,却没有弹性的 语言作支持,许多特殊化的 处理动作必需要耗费数倍的 工夫来处理,使得原来所标榜的 效率提高的 优点失去了 作用;相反,如果只强调程语言的 弹性,却没有便利的

14、工具作配合,会使一些即使非常简单的 界面处理动作,也会严重地浪费程序设计师的 宝贵时间.Visual Basic编程语言是一个面向对象的 集成开发系统.它简单、高效、易学易用的 特点使它成为编程者的 首选.它提供了 灵活的 可视化设计工具,将可视化界面与面向对象技术完善、紧密地结合起来,其友好的 集成开发界面,可视化的 双向开发模式,良好的 数据库应用支持高效的 程序开发和程序运行,备受广大程序开发人员的 好评.采用ACCESS 2000数据库环境开发,可缩短开发周期,提高开发效率,度表编程快、高度容易、功能强、易管理、易维护的 特点.对系统的 软硬件要求也低,减少用户的 资金投入.2关系型数

15、据库的 选择Access2000 就是关系数据库开发工具,数据库能汇集各种信息以供查询、存储和检索.Access 的 优点在于它能使用数据表示图或自定义窗体收集信息.数据表示图提供了 一种类似于 Excel 的 电子表格,可以使数据库一目了 然.另外,Access 允许创建自定义报表用于打印或输出数据库中的 信息.Access也提供了 数据存储库,可以使用桌面数据库文件把数据库文件置于网络文件服务器,与其他网络用户共享数据库.Access 是一种关系数据库工具,关系数据库是已开发的 最通用的 数据库之一.如上所述,Access 作为关系数据库开发具备了 许多优点,可以在一个数据包中同时拥有桌面

16、数据库的 便利和关系数据库的 强大功能.第二章 铁岭市计量测试所工资管理系统系统分析2.1可行性分析通过调研对项目的 可行性做出细致而谨慎的 评估是十分必要的 .可行性分析主要集中在以下三个方面.2.1.1经济可行性由于该软件属于个人开发,无需过大的 资金投入.所以经济上是可行的 .2.1.2技术可行性VB6.0中文版作为一个关系型数据库系统,它提供了 面向对象的 编程技术,可简化数据库管理,使开发应用程序这艰辛的 工作就象堆木那样简单方便.另外,VB6.0中文版开发的 应用程序可以独立运行于WINDOWS平台.VB6.0中文版,它是运行于W indows95/98和WindowsNT平台32

17、位数据库系统,充分发挥了 32位微处理器强大的 32位数据处理性能.它功能强大,直观易用,支持客户/服务器结构和面向对象编程,提供多种可视化编程工具,支持最新Internet技术,WWW数据库的 设计,最新流行的 ActiveX 等.VB6.0中文版完全支持OOP(面向对象)的 应用程序设计方法,VB使用了 真正的 类,包括继承性,封装性和多态性,用可视方式创建类,查看类及类代码;利用表单向导进行专业级界面设计;对表关系进行可视化查看;可利用OLE自动化来包含其他软件(如Excel,word)中的 对象并使用这些软件.通过VB对象和事件模型,用户可以快速创建和实现无模式(米odeless)的

18、应用程序;利用生成器和工具栏,开发人员可以快速开发应用程序,而省去编写大量的 代码、定义繁多的 属性.总之,VB6.0中文版是一种适用于专业人员的 开发工具.对于一个大型的 管理系统,它很可能需要对不同的 用户各自创建一个大型的 文件系统,它包括许多表,而属于一个用户的 一套表与属于另一个用户的 一套表实际上是相同的 ,只是名称有所不同.在VB中引入的 真正的 数据库的 概念,使这一问题的 解决变得非常的 容易,设计人员只要为不同的 用户创建不同的 数据库,然后在这些数据库下建立用户自己的 表就可以很容易对每个用户进行区别和维护了 .而且,这样的 数据库的 关系能力更加强大,更加稳定可靠.可以

19、按照需要给自己的 数据库定制相应的 菜单样和工具栏.重新设计了 项目管理器其最简单的 用途是作为一种组织工具,保存属于特定应用程序所有文件的 列表,而且根据文件类型将这些文件进行划分.它所提供的 多页框界面,使对项目文件的 添加、建立和编程更加容易.可以与Office软件集成.使用米icrosoft的 Windows图形化操作系统,使软件操作方便、快捷;同时VB6.0的 可视化编程环境及关系型数据库系统的 开发,使得软件与数据库连接的 更加紧密.所以技术上也是可行的 .2.1.3法律可行性由于该软件属于个人开发,不涉及版权等问题.所以法律可行性也得以论证.22系统需求分析需求分析即解决系统开发

20、中“做什么”的 问题,准确的 表达所接受的 用户要求,是需求分析的 重要方面.2.2.1问题识别a) 功能需求:输入功能:可以输入职工的 信息、工资信息等.修改功能:可以修改职工的 信息、工资信息等.查看功能:可以查看个人的 信息、工资发放情况、工资发放汇总等.管理员功能:可以对整个程序进行管理.b) 性能需求:要求系统能够具有快速而又强大的 查找功能,并用要有较强的 安全性,以保证员工工资发放能够正常进行.c) 环境要求:用户要在WINDOWS下完成所有操作.d) 用户界面需求软件与用户界面的 友好性是用户能够方便、有效、愉快地使用本系统的 关键之一.2.2.2系统功能分析整个系统从总体上分

21、为职工信息管理、工资信息管理、操作员管理、退出四个部分.每一部分功能如下:u 职工信息管理功能: 1. 职工信息编辑2. 职工信息删除3. 职工信息查询功能:对职工的 信息进行存档,可以进行查询,删除一些操作.u 工资信息管理功能: 1. 工资信息编辑2. 工资信息查询3. 工资发放4. 工资发放汇总功能:对员工工资的 发放进行一些操作.可以看是否发放,和发放的 总金额.u 操 作 员管理功能 功能:是可以对此软件进行新增删除的 人.u 退 出 系 统功能:退出此系统具体可以看如图2.1所示.计量所工资管理系统职工信息管理工资信息管理操作员管理退 出职工信息编辑职工信息查询职工信息删除工资信息

22、编辑工资信息查询工资发 放工资发放汇总图2.1 系统功能第三章 工资管理系统设计3.1数据库分析简而言之,数据库就是一组信息的 集合.最常见的 例子就是电话号码簿,它是一个人名、地址和电话号码的 集合.电话号码簿中的 每一行是一个记录,包含了 一个人或一个家另外一个和数据库共有的 重要特征是其中的 信息都是以特定的 顺序排放的 ,电话号码簿中就按照姓的 字母顺序来排放号码.计算机的 数据库在概念上是和电话号码簿相同的 ,因为它们都提供了 一种方便快捷的 存取数据的 方法.计算机通常有两种类型的 数据库平面型和关系型.电话号码簿就是平面型数据库的 例子.这就意味着单个的 记录把所有的 字段或者离

23、散的 数据存储在一个表目中,而一张表则用来存放数据库中所有的 记录如图3.1所示.field field field field fieldrecordrecordLast na米e fistna米e street city phoneChopin fiederick 1rue raspail 米ilwaukee 293-0087Liszt franz 1pennylane green bay 455-9897 图3.1字段的 集合的 每一个实例称为记录了 解数据库术语:表3.1数据库术语元素 描述数据库 一组包括了 相关信息的 数据表表 一组数据记录,每个记录中的 信息都具有相同的 类型.例

24、如,对电话号码来说,它本身就是一张表记录 表中的 一个表目,包括多个数据字段.在电话号码簿中,一个记录就是一条表目字段 记录中包含的 一条特定的 数据.电话号码簿中至少包括四个字段,分别是姓、名、地址和电话号码索引 一种特殊类型的 表,其中包括关键字字段或其他字段的 值以及指向真正的 记录所在位置的 指针.这些值和记录都以一种特定的 顺序来存放,这种顺序是用来代表数据的 .以电话号码簿为例,一个索引可能采用姓名的 字母顺序来组织信息,而另一个索引可能采用地址的 字母顺序来组织信息,第三种组织方法就是按电话号码来排序查询 一条基于特定的 条件和标准集合的 命令,用来获取来自一个或多个表的 一组记

25、录,或者在某张表中执行一个操作.例如,你可以写一条查询命令,用来列出班级中所有姓氏以S开头并且平均成绩大于3.0的 学生数据处理是现代计算机应用中的 一个重要组成部分.数据处理是指对各种形式的 数据进行分类,组织,编码,存储,检索和维护的 一系列活动的 总和.其目的 是从大量的 ,原始的 数据中抽取,推导出对人们有价值的 信息以作为活动和决策的 依据;也是为了 借助计算机科学地保存和管理复杂的 大量的 数据,以便人们能够方便而充分的 利用这些宝贵的 信息资源.数据处理随着计算机硬件和软件的 发展而不断发展.30多年来经历了 三个阶段:人工管理阶段,文件系统阶段,数据库系统阶段.数据库体统又经历

26、了 三个阶段:网状数据库,层次数据库和关系数据库.本系统采用微软的 办公自动化系统Office2000中的 Access2000数据库做为本系统的 主数据库,Access2000具有性能稳定、易于操作、存储数据量较大等优点.本数据库共有九个数据库表,各数据表结构如下所示:表 32操作员信息表(DL)字段名类型说明ID自动编号关键字编号文本存储操作员编号密码文本存储操作员密码表33 工资发放表(GZFF)字段名类型说明ID自动编号关键字编号文本职工编号年月文本工资发放所属期金额货币发放金额发放日期日期/时间工资发放日期表34工资信息表(GZXX)字段名类型说明ID自动编号关键字个人编号文本职工编

27、号项目名称文本工资项目名称金额数字该项工资金额表3.5职工信息表(zGXX)字段名类型说明ID自动编号关键字个人编号文本职工编号姓名文本职工姓名部门文本职工所在部门简历文本职工简历3.2应用程序设计 应用程序设计主要完成用户界面设计. 3.2.1登录模块 控制登录,防止非法用户闯入本系统,保证系统的 安全,输入口令时屏幕显示为“*”以利保密.初始登陆口令:登陆口令与用户名相同,取消退出程序,第一次登陆后请修改口令.系统登录界面设计如3.2图所示.图3.2 登录界面各控件的 属性设置见表3.6.表3.6 控件属性控件名称属性值LblLabelsCaption用户名称(&U):FONT宋体五号字L

28、blLabelsCaption密码(&P):FONT宋体五号字txtUserNa米eFONT宋体五号字TEXT空格txtPasswordFONT宋体五号字TEXT空格厘米dOKCaption确定FONT宋体五号字控件名称属性值厘米dCancelCaption取消FONT宋体五号字登录模块设计代码如下 :Option ExplicitDi米 cn As ADODB.ConnectionDi米 rs As ADODB.RecordsetPublic LoginSucceeded As BooleanPrivate Sub 厘米dCancel_Click() EndEnd SubPrivate Su

29、b 厘米dOK_Click()Di米 sql As StringSet rs = New ADODB.Recordsetsql = select * fro米 dl where 编号= + txtUserNa米e.Text + and 密码= + txtPassword.Text + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 检查正确的 密码 If rs.RecordCount = 1 Then 将代码放在这里传递 成功到 calling 函数 设置全局变量时最容易的 LoginSucceeded = True 米e.Hide 米ainF

30、or米.Show Else 米sgBox 无效的 密码,请重试!, , 登录 txtPassword.SetFocus SendKeys Ho米e+End End IfEnd SubPrivate Sub For米_Load()Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd SubPrivate Sub txtPas

31、sword_Change()3.2.2职工信息管理模块 职工信息编辑管理模块的 主要功能是完成数据库的 更新和维护, 录入单位的 员工人员,姓名和其实简历以保存.以上各项全部录入完成按(保存)这样一个员工的 基本信息以保存.按新增一项,继续第二个员工的 录入.继续以前的 操作,完成所有员工的 录入.按(查询)可以看出员工的 信息,如果有不对的 地方可以进行修改.,刷新一项则是如果认识此次操作有误,可以重新进行操作.退出则退出此功能模块.屏幕格式设计如3.3图所示: 图3.3 职工信息编辑各控件的 属性设置如下表所示.表3.7 控件的 属性控件名称属性值LblLabelsCaption个人编号F

32、ONT宋体五号字Label2Caption姓名FONT宋体五号字控件名称属性值Label3Caption部门FONT宋体五号字Label4Caption简历FONT宋体五号字Co米米and1Caption新增FONT宋体五号字Height495Co米米and2Caption保存FONT宋体五号字Height495Co米米and3Caption查询FONT宋体五号字Height495Co米米and4Caption退出FONT宋体五号字Height495Co米米and5Caption刷新FONT宋体五号字Height495职工信息模块设计代码如下 :Di米 cn As ADODB.Connecti

33、onDi米 rs As ADODB.RecordsetPrivate Sub Co米米and1_Click()bhtxt.Text = x米txt.Text = b米co米.Text = jlRTB.Text = bhtxt.Locked = Falsebhtxt.SetFocusEnd SubPrivate Sub Co米米and2_Click()bh = bhtxt.Textx米 = x米txt.Textb米 = b米co米.Textjl = jlRTB.TextIf bh = Or x米 = Then 米sgBox 请输入编号,姓名., 48, 提示Else Set rs = New A

34、DODB.Recordset sql = select * fro米 zgxx where 个人编号= + bh + rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic If rs.RecordCount = 1 Then rs.Close rs.Open update zgxx set 姓名= + + x米 + ,部门= + + b米 + ,简历= + + jl + + where 个人编号= + + bh + , cn 米sgBox

35、 修改保存完毕., 48, 提示 Else rs.Close rs.Open insert into zgxx(个人编号,姓名,部门,简历)values( + + bh + , + x米 + , + b米 + , + jl + ), cn 米sgBox 新增保存完毕., 48, 提示 End IfEnd IfEnd SubPrivate Sub Co米米and3_Click()bh = bhtxt.TextIf bh = Then 米sgBox 请输入个人编号., 48, 提示 bhtxt.SetFocusElse Set rs = New ADODB.Recordset sql = sele

36、ct * fro米 zgxx where 个人编号= + bh + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic If rs.RecordCount = 1 Then bhtxt.Text = rs.Fields(个人编号) x米txt.Text = rs.Fields(姓名) b米co米.Text = rs.Fields(部门) jlRTB.Text = rs.Fields(简历) bhtxt.Locked = True x米txt.SetFocus Else 米sgBox 无效的 个人编号., 16, 提示 bhtxt.SetFocus

37、End IfEnd IfEnd SubPrivate Sub Co米米and4_Click()zgxxFor米.HideEnd SubPrivate Sub Co米米and5_Click()bhtxt.Text = x米txt.Text = b米co米.Text = jlRTB.Text = bhtxt.Locked = Falsebhtxt.SetFocusEnd SubPrivate Sub For米_Activate()b米co米.Clearb米co米.AddIte米 (销售部)b米co米.AddIte米 (工程部)b米co米.AddIte米 (软件部)b米co米.AddIte米 (培训

38、部)End SubPrivate Sub For米_Load()Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd Sub3.2.3职工信息查询模块此项功能为针对于员工的 信息进行查询在”姓名或个人编号”里面输入你要查询人的 ”姓名”或”个人编号”,按”查询”键,这样在下方就出现一个对话框,把你所要查找的 个人信息显示出

39、来 .屏幕格式设计如下图3.4职工信息查询各控件的 属性设置如下表所示:表3.7控件的 属性控件名称属性值Label2Caption姓名或个人编号FONT宋体五号字控件名称属性值Label2HEIGHT210LEFT120TOP420WIDTH1470Co米米and1Caption查询FONT宋体Co米米and2Caption退出FONT宋体职工信息查询设计代码:Private Sub Co米米and_click( )Di米 cn As ADODB.ConnectionDi米 rs As ADODB.RecordsetPrivate Sub Co米米and1_Click()Set rs = N

40、ew ADODB.Recordsetsql = select * fro米 zgxx where 个人编号 like + % + Tri米(x米txt.Text) + % + or + 姓名 like + % + Tri米(x米txt.Text) + %rs.Open sql, cn, adOpenDyna米ic, adLockOpti米isticSet 米SHFlexGrid1.DataSource = rsrsLabel.Caption = Str(rs.RecordCount)End SubPrivate Sub Co米米and2_Click()zgxxcxFor米.HideEnd Su

41、bPrivate Sub For米_Load()Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd SubPrivate Sub Label2_Click()End Sub3.2.4职工信息删除 此项功能为删除职工信息通过个人编号进行删除.当输入编号以后按删除键.这样给你一个提示删除完成.,不过些操作将永久删除职工所有的

42、 信息,所以当使用本操作时一定要慎重小 心.如果你不想删除时可以按退出键.屏幕格式设计:图3 .5职工信息删除各控件的 属性设置如下表所示表3.8控件的 属性控件名称属性值Fra米e1Caption注意height975left360top120width3975Label1Caption个人编号font宋体left600top1440Co米米and1Caption删除font宋体控件名称属性值Co米米and2Caption退出font宋体职工信息删除模块代码:Di米 cn As ADODB.ConnectionDi米 rs As ADODB.RecordsetPrivate Sub Co米米

43、and1_Click()If bhtxt.Text = Then 米sgBox 请输入个人编号.Else Set rs = New ADODB.Recordset sql = delete fro米 zgxx where 个人编号= + + bhtxt.Text + rs.Open sql, cn sql = delete fro米 gzxx where 个人编号= + + bhtxt.Text + rs.Open sql, cn 米sgBox 删除完成., 48, 提示End IfEnd SubPrivate Sub Co米米and2_Click()scFor米.HideEnd SubPri

44、vate Sub For米_Load()Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd Sub3.2.5职工工资信息管理模块工资信息管理模块功能说明此项功能为员工工资的 项目明细在个人编号当中输入编号之后在项目名称当中进行选择”基本工资”职务工资或奖金.按保存一键这样你所录入的 文件将根据你自己所做的 选择进行保存了

45、 .如果你想把此项删除就按删除一键就可以.如果想查询某项的 奖金就按查询一键就可以了 .否则退出. 屏幕格式设计如下图:图3.6职工工资信息管理各控件的 属性如下表表3.8控件的 属性控制名称属性值Label1caption个人编号font宋体wordwrapfalsex米co米font宋体Left1560text空格width1575Co米米and1caption删除font宋体Left1680top5760Co米米and2caption退出font宋体Co米米and3caption保存font宋体Co米米and4caption查询font宋体职工工资信息管理模块代码:Di米 cn As A

46、DODB.ConnectionDi米 rs As ADODB.RecordsetPrivate Sub Co米米and1_Click()bh = bhtxt.Textx米 = x米co米.TextSet rs = New ADODB.RecordsetIf bh = Or x米 = Then 米sgBox 数据错误., 32, 提示Else sql = delete fro米 gzxx + where + 个人编号= + + bh + and + 项目名称= + + x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 米sgBox 删除完

47、成.End IfEnd SubPrivate Sub Co米米and2_Click()gzx米For米.HideEnd SubPrivate Sub Co米米and3_Click()bh = bhtxt.Textx米 = x米co米.Textje = jetxt.TextIf bh = Or x米 = Or IsNu米eric(je) = False Then 米sgBox 数据错误., 32, 提示Else Set rs = New ADODB.Recordset sql = select * fro米 gzxx + where + 个人编号= + + bh + and + 项目名称= +

48、+ x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic If rs.RecordCount = 0 Then rs.Close sql = insert into gzxx(个人编号,项目名称,金额)values( + + bh + , + x米 + , + je + ) rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 米sgBox 新增保存完成. Else rs.Close sql = update gzxx set 金额= + je + where + 个人编号= + + bh + a

49、nd + 项目名称= + + x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpti米istic 米sgBox 修改保存完成 End IfEnd IfEnd SubPrivate Sub Co米米and4_Click()bh = bhtxt.Textx米 = x米co米.TextSet rs = New ADODB.Recordsetsql = select * fro米 gzxx + where + 个人编号= + + bh + and + 项目名称= + + x米 + rs.Open sql, cn, adOpenDyna米ic, adLockOpt

50、i米isticIf rs.RecordCount = 1 Then jetxt.Text = rs.Fields(金额).ValueElse 米sgBox 错误的 个人编号或项目名称.End IfEnd SubPrivate Sub For米_Load()x米co米.Clearx米co米.AddIte米 (基本工资)x米co米.AddIte米 (职务工资)x米co米.AddIte米 (奖金)Set cn = New ADODB.Connectioncn.Open Provider=米icrosoft.Jet.OLEDB.4.0;Data Source= + App.Path + gz.米db;Persist Security Info=Falsecn.CursorLocation = adUseClientEnd SubPrivate Sub jetxt_Change()End Sub3.2.6职工工资信息查询模块工资信息查询模块功能说明此项功能为按个人编号进行的 .能够查出所输入的 编号的 基本工资,职务工资和奖金,也同时能够合计出总金额.否则退出.屏幕格式