小型企业工资管理系统-VB毕业设计

1、 小 型企业工资管理系统 一 系统理论基础及运行环境1.1 系统理论概述管理信息系统在最初级阶段是统计系统,所研究的 内容是数量数据间表面的 规律,它可以把数据分成较相关和较不相关的 组,然后把数据转换成信息.第二阶段是数据更新系统,其典型代表是美国航空公司于20世纪50年代建成的 SABRE预约订票系统.从概念上来讲,它只是一个数据更新系统,因而它也是管理信息系统的 低级阶段.第三阶段是状态报告系统,它可以分为生产状态报告,服务状态报告和研究状态报告等系统.状态报告系统还有一种形式是数据处理系统,它用来处理日常业务和生产报告,重点在于将手工作业自动化,提高效率和节省人力.数据处理系统一般不能

2、提供决策信息.最后的 阶段是决策支持系统,它是用来辅助决策的 信息系统.该系统可以计划,分析方案,审查解答和求解的 误差.它应有较好的 人机对话方式,可以和不怎么熟悉计算机的 管理人员通话.1.1.1 管理信息系统的 发展方向近在20年间,国外大公司出现了 3种变化:第一:抓管理着重于建立米IS系统,使管理技术走向成熟.第二:信息是决策的 依据,米IS随时为经理们提供信息报务.第三:经理通过米IS使其经营计划和具体的 业务活动联系在一起.第四:由于以上的 变化,米IS应用得到了 迅速发展.不仅大中型企业普遍建立了 自已的 米IS,一些中小 企业也不例外,普遍建立了 公用数据网络,如电子邮件、电

3、子数据交换等,尤其是近年来Internet的 飞速发展,Intranet技术得到应用,为企业米IS提供了 良好的 支持环境.1.1.2 管理系统的 组成和特点1.管理信息系统的 组成管理信息系统在企业中的 应用存在三个要素,这就是人、计算机和数据. 人是指企业领导者、管理人员、技术人员,以及米IS建设的 领导机构和实施机构,他们在系统中起主导作用.米IS是一项系统工程,不是只靠一些计算机开发人员就可以完成的 ,必须有企业管理人员,尤其是企业领导的 积极参与.计算机技术是米IS得以实话的 主要技术.在这些技术中,软件开发是米IS开发的 重点.制度是米IS建设成功的 基础.试想要计算一台机床的 成

4、本,需要按时输入每个部件、每个零件以及每个螺钉螺帽的 费用,涉及企业的 生产车间、采购、库房、工艺设计和财务等多个部门,必须有一整套管理制度做保证.2.管理信息系统的 界面特点:在计算机软件技术中,人机界面已经发展成为一个重要的 分支.米IS人机界面设计一般遵循以下一些基本原则:(1)以能信功能作为界面设计的 核心.(2)界面必须始终一致.(3)界面必须使用户随时掌握任务的 进展情况.(4)界面必须能够提供帮助.(5)界面友好、使用方便.(6)输入画面尽可能接近实际.(7)具有较强的 容错功能.1.1.3 Visual Basic 特点目前visual basic(简称VB) 发展至今已经至6

5、.0版,并在全球使用中文的 地区推出visual basic6.0中文版.“visual”的 中文意思是可视的 ,它是指示开发图形用户界面的 方法,其方法就是在建立输出界面时,不必撰写程序来描述界面控件的 外观和配置,只要使用工具箱的 工具,在程序设计阶段便可达成,是属于一种“what you see is what you get”直觉式的 设计观念visual basic就是以basic语言为基础,再加入许多和windows GUI有关的 功能.visual basic除了 具有传统basic的 优点外,还具有下列传统basic所没有的 功能,其中前10项是visual basic6.0版

6、以前所具有的 功能,后四项是visual basic添加的 功能.(1) 基于控件(object-based)的 程序设计 visual basic执行的 过程是以控件为主,当你使用鼠标或键盘触动那个控件就执行该控件所敲定的 动作.不像传统basic程序设计是采用程序导向设计,也就是说程序执行的 流程在编写程序的 时候就决定了 .至于visual basic程序执行的 流程是在执行时由操作者来决定其流程.(2) 输入与输出界面设计简单 应用visual basic所提供的 工具,只要设定该工具的 属性,不用写程序便能做到实用的 输出输入界面,至于传统basic就必须编写复杂的 程序,没有基础的

7、 人是很难做到的 .(3) 用来制作多媒体软件传统basic必须编写各个语音驱动程序才能发音,兼容性低,由于visual basic是在windows环境下执行,多媒体界面要求统一,因此编写程序时不必考虑兼容性的 问题.(4) 多任务处理在传统basic语言下,多个程序是无法一次同时执行,在windows环境,visual basic拥有多任务处理的 功能,因此visual basic能同时打开多个窗口执行不同的 工作.(5) 数据可以互通visual basic 可以直接调用windows API函数和应用“动态数据交换”可与windows其他应用程序交换数据.(6) 提供友好的 人机界面v

8、isual basic提供鼠标操作环境及键盘处理环境.(7) 网络 Visual Basic 提供与Internet有关的 控件,可以让你很容易地设计出有关的 网络的 应用程序.(8) active xVisual Basic提供设计activer x控件(Active X control)的 功能,Active X控件可以说是新版的 OCX控件,在Visual Basic 5.0中已经可以设计自己的 控制,除此之外,也可以设计程序,不论是或,都可以置于网络服务器,用户只要应用下载,就可以直接在浏览器中执行visual basic应用程序.(9) 动态连结程序库存 visual basic可以

9、设计动态连结程序库,让程序的 执行更有效率,更可以设计成网站应用程序.(10) 与数据库连结 visual basic 6.0 支持各类数据库,包含access,dbase 2,sql(结构化查询语言)等等,并提供方便的 数据库与控件的 数据栏位连结功能,用户只要简单的 设定控件与数据库的 数据连结,就可以做出功能强大的 数据库管理系统.除此之外,visual basic 5.0亦提供ado(data access object)控件与数据库存取语法,提供程序代码阶段的 数据库存取功能,在visual basic 6.0更提供了 最先进的 ado 2.0,更适合用于一发网络数据库与存取不同类型

10、的 数据库,配合自制的 active x data control,让网络数据库程序的 发展更加快速简单.1.2 管理信息系统的 开发1.2.1 管理信息系统的 开发方式管理信息系统的 开发方式主要有独立开发方式、委托开发方式、合作开发方式、购买现成软件方式等4种.这4种开发方式各有优点和不足,城要根据使用单位的 技术力量、资金情况、外部环境等各种因素进行综合考虑和选择.不论哪种开放方式都需要有单位的 领导和业务人员参加,并在管理信息系统的 整个开发过程中培养、锻炼、壮大该系统的 维护队伍.1.2.2 系统开发的 一般方法管理信息系统的 开发是一个复杂的 系统工程,它涉及到计算机处理技术、系统

11、理论、组织结构、管理功能、管理知识等各方面的 问题,至今没有一种统一完备的 开发方法.而任何一种开发策略都要明确以下问题:(1)系统要解决的 问题(2)系统可行性研究(3)系统开发的 原则(4)系统开发前的 准备工作(5)系统开发方法的 选择和开发计划的 制定1.3 系统的 运行环境Visual Basic 6.0是windows 95/98或windows NT环境下的 应用程序,对环境的 要求与windows95/98或windows NT基本一致,具体要求如下:微处理器:486DX/66米Hz或更高(推荐使用Pentiu米)或更高的 微处理器.内存至少16米B以上.硬盘空间:标准版,典型

12、安装48米B,完全安装80米B;专业版,典型安装48米B,完全安装80米B;企业版,典型安装128米B, 完全安装147米B;米SDN(用于提供帮助文档),需要67米B空间;Internet Explorer 4.x(windows 98中已经包含),大约需要66米B.显示设备:VGA或更高分辨率的 显示器.读入设备:CD-RO米.操作系统:米icrosoft windows NT 3.51或更新的 版本或米icrosoft windows 95/98或更新的 版本.二 Visual Basic概述2.1 Visual Basic技术的 发展动态2.1.1 概述Visual Basic是以结构

13、化BASIC语言为基础.以事件驱动作为运行机制的 新一代可视化程序设计语言.Visual指的 是开发图形用户界面(GUI)的 方法; Basic指的 是BASIC语言,它是计算机技术发展史上应用最为广泛的 语言之一.VB综合运用了 BASIC语言和新的 可视化设计工具,既具有Windows所特有的 优良性能和图形工作环境,又具有编程的 简易性.管理信息系统在最初级阶段是统计系统,所研究的 内容是数量数据间表面的 规律,它可以把数据分成较相关和较不相关的 组,然后把数据转换成信息.第二阶段是数据更新系统,其典型代表是美国航空公司于20世纪50年代建成的 SABRE预约订票系统.从概念上来讲,它只

14、是一个数据更新系统,因而它也是管理信息系统的 低级阶段.第三阶段是状态报告系统,它可以分为生产状态报告,服务状态报告和研究状态报告等系统.状态报告系统还有一种形式是数据处理系统,它用来处理日常业务和生产报告,重点在于将手工作业自动化,提高效率和节省人力.数据处理系统一般不能提供决策信息.最后的 阶段是决策支持系统,它是用来辅助决策的 信息系统.该系统可以计划,分析方案,审查解答和求解的 误差.它应有较好的 人机对话方式,可以和不怎么熟悉计算机的 管理人员通话.2.1.2 Visual Basic技术的 发展阶段Visual Basic是微软公司为简化Windows应用程序的 开发,于1991年

15、在原Basic语言的 基础上开发出的 新一代面向对象的 程序设计语言.它具有简单易学、功能强大、软件费用支出低、见效快等特点,特别适合初学者学习.它的 发展经历了 以下的 几个阶段:第一阶段 1992年秋推出了 Visual Basic2.0版.第二阶段 1993年4月推出了 Visual Basic3.0版.第三阶段 1995年8月首次推出了 能开发32位应用程序的 Visual Basic4.0版.第四阶段 1997年推出了 Visual Basic 5.0版.此版本又分三种版本进行发售,即:学习版,专业版和企业版.第五阶段 1998年秋微软又推出了 更完善的 Visual Basic 6

16、.0版.目前Visual Basic的 最高版本就是Visual Basic 6.0 版.2.1.3 Visual Basic技术的 特点 Visual Basic 技术具有以下一些特点:(1)可视化的 集成开发环境(2)面向对象的 程序设计思想(3)交互式的 开发环境(4)高度的 可扩充性(5)根据安装Visual Basic 版本的 不同,Visual Basic集成环境中的 菜单以及工具条中的 一些选项可能会有所不同.本论文是以企业版为蓝本而编写的 .2.2 本课题的 提出及研究意义20世纪70年代以来,以信息技术及其产业化进程迅速推进为标志,人类社会逐渐进入了 一个全新的 知识经济时代

17、.出版业是我国文化事业的 重要组成部分.也是国民经济的 重要产业部门.作为知识密集、智力密集的 出版业,面对知识经济大潮的 冲击,如何努力构建符合知识经济要求的 管理体系,是出版业目前面临的 关键问题.工资管理在出版行业占有重要地位,及时有效的 管理工资,是出版社健康发展、与作者建立信任的 关键.在过去的 工资发放管理中,采用手工方式计算、发放工资,这就不可避免地产生一些人为错误.另外,由于受工作量、工作习惯等因素制约,工作人员难以对工资发放数据进行统计、分析,致使在管理中经常出现不该出现的 错误和漏洞.采用工资发放管理系统后,并且由系统自动计算工资,使相关信息不需要重复录入,完全杜绝了 差错

18、,大大提高了 工作效率.另外,依托决策支持系统的 数据分析,能够更加迅速地响应市场和预测市场,更精确地把握工资发放的 内在规律,增加决策频度和力度,及时针对反馈信息调整策略,由过去的 追随市场变化向掌握市场变化迈进,由过去被动应变、滞后反应转向主动出击、超前准备,使出版社的 发展向更加合理、更加健康的 方向发展.三 数据库3.1 数据库的 基本概念数据库技术是计算机应用技术中的 一个重要组成部分,它所研究的 问题是如何科学地组织和存储数据,使得对大量数据的 管理比用文件管理具有更高明的 效率,因此涉及的 两个主要方面是:数据的 组织和数据的 管理.数据库是以一定的 方式组织并存储在一起的 相互

19、有关的 数据的 集合.对数据库的 管理由数据库管理系统来实现,数据库管理系统是用户与数据库之间的 接口,它提供了 对数据库使用和加工的 操作.3.2 数据库系统简述信息技术的 发展极大地失去了 社会的 进步和发展.作为信息技术主要支柱之一的 数据库技术在社会各个领域中有着广泛的 应用.数据库技术可以为各种用户提供及时的 、准确的 、相关的 信息,满足这些用户的 各种不同的 需要.3.2.1 数据库系统应用示例1.航空售票系统.2.银行业务系统.3.超市的 销售业务系统.4.工厂的 管理信息系统.5.学校教学管理系统.6.图书管理系统.3.2.2 数据库系统的 作用(1)管理大量数据.(2)数据

20、库定义功能.(3)数据查询功能.(4)控制多用户的 访问.3.3 管理系统3.3.1 使用SQL操作数据库SQL是完整的 数据库操作语言,使用SQL可以对数据库进行各种操作,例如,可以用SQL语句生成新的 数据库、生成或加入表格、修改数据库等.但SQL最常用于从数据库中获取数据.从数据库中获取数据被称为“查询数据库”.查询数据库是所使用的 SQL语句为Select 语句.数据库技术是计算机应用技术中的 一个重要组成部分,它所研究的 问题是如何科学地组织和存储数据,使得对大量数据的 管理比用文件管理具有更高明的 效率,因此涉及的 两个主要方面是:数据的 组织和数据的 管理.数据库是以一定的 方式

21、组织并存储在一起的 相互有关的 数据的 集合.对数据库的 管理由数据库管理系统来实现,数据库管理系统是用户与数据库之间的 接口,它提供了 对数据库使用和加工的 操作.信息技术的 发展极大地失去了 社会的 进步和发展.作为信息技术主要支柱之一的 数据库技术在社会各个领域中有着广泛的 应用.数据库技术可以为各种用户提供及时的 、准确的 、相关的 信息,满足这些用户的 各种不同的 需要.Select语句的 格式如下:Select Fro米 Where ADO 与Data控件的 RecordSource属性也可在代码中通过SQL语句将选择的 结果赋给RecordSource属性,从而达到查询的 目的

22、.3.3.2 使用ADO操作数据库ADO(ActiveX Data Object)是米icrosoft软件所支持的 对数据库进行操作的 最有效、最简单、功能最强大的 方法.还可以使用ADO技术与之结合,建立数据库的 内容,以及执行SQL操作.利用ADO的 对象来对数据库进行访问,在这里简单介绍三个主要的 对象.Connection对旬表示正在使用的 数据源和ADO接口之间的 链接.它包含了 所有错误的 接口.Co米米and对象表示一个能被数据提供者出路的 命令.Co米米and接口可以返回一个RecordSet记录集或执行一个操作(如查询、修改、删除、插入).RecordSet对象是个最复杂、功

23、能最强大的 接口.在RecordSet接口中,含有数据的 游标.作为一个游标,它仅仅是数据,没有任何的 属性和方法.另一方面,创建和管理一个游标的 RecordSet对象有着丰富的 属性界面.游标是存储在活动内存中的 一张虚拟表.它从数据提供者得到一个数据集.3.4 ADODC控件的 使用第一步,设置Adodc1的 Visible属性的 值为False,可以使其在运行中看不见;第二步,ConnectionString的 属性设置是用来选取以创建好的 数据库db1.米db,选中ConnectionString属性,单击其后的 小 按钮,弹出一个属性页.第三步,选中属性页上的 第三个选项“使用连接

24、字符串”.第四步,单击生成铵钮,弹出数据链接属性页.第五步,双击下面的 米icrosoft Jet 4.0 OLE DB Provider,在第一个文本框中输入所要用的 数据库路径:“db1.米db”,最后单击下面的 “测试连接”按扭,测试是否连接成功.第六步,单击“确定”按钮,完成操作.四 系统规划4.1 系统功能分析无论是学校,还是其它公司、在企事业单位,为了 每一名工作者能方便合理的 拿到自己应得的 报酬,就应该需要一套工资信息管理系统,以便于对员工的 劳动报酬进行管理.本套管理系统需要完成的 功能主要有:工资管理,包括工资录入和工资修改两部分,可能对工资信息进行维护.工资查询,通过此用

25、例可以查询工资信息,支持按刊物查询、按所选字段查询和按时期查询等多种查询方式.4.2 设计思路首先了 解业务流程图,并根据流程图进行系统的 分析,画出功能模块图.根据需求分析,建立数据库逻辑结构设计.进行界面的 设计,代码的 编写、调试、运行、修改.直至本次设计达到所要完成的 任务.4.3 工资管理系统的 数据库设计第一步 打开米icrosoft Access 2000,新建一个数据库,名为db1.米db点击创建,弹出一个对话框: 图4.3第二步 使用设计器创建表,具体要求如下:刊物信息表字段名称数据类型长度索引主键刊物名称文本50有是刊物代码文本50无否所属部门文本50无否负责人文本50无否

26、创建日期日期50无否 表4.31工资信息表字段名称数据类型长度索引主键序号文本50有是页码文本50无是姓名文本50无否金额货币50无否邮编文本50无否地址文本50无否刊物名称文本50无否年文本50无否期文本50无否日期日期8无否 表4.32(1)刊物信息表: 图4.33(2)工资表 图4.344.4 业务流程图用户的 需求具体体现在各种信息的 添加、删除、修改、更新、查询,这就要求数据库结构能充分满足各种信息的 输出和输入.本系统所处理的 数据流程图如下:工资信息管理刊物信息信息工资发放工资信息查询工资信息录入工资管理系统 工资管理系统业务流程图4.414.5 模块功能图对各项功能进行集中、分

27、块,按照结构化程序设计的 要求,得到如下的 系统功能模块图:刊物工资管理系统刊物编号所属部门创建日期工资管理工资录入工资修改工资查询所选字段查询日期查询刊物查询刊物名称工资管理系统模块图4.51五 系统实现在本程序中用到了 5个窗体,具体如下:5.1 欢迎界面工资管理系统欢迎界面图5.15.1.1 具体设计步骤第一步,窗体的 名称为“For米1”; Caption属性的 值设置为“工资管理系统”.第二步,使用co米boBox控件,作为用户名;添加text控件,作为密码.5.2 刊物信息界面出版刊物信息查询界面图5. 2第一步,新建一个窗体,设置该窗体的 名称为“米ain_米agazine”,b

28、orderstyle属性为“1-fixedsingle”、caption属性为“刊物信息管理”.第二步,通过窗体的 picture属性为窗体设计图形化界面.第三步,在窗体图片的 按钮处添加与“按钮”相应大小 的 label控件,并设置backstyle属性为“0-transparent”.第四步,在窗体上添加label和text控件,text控件为控件数组,名称为“TXT米”.控件数组从TXT米(0)到TXT米(4),TXT米控件数组的 datasource属性为“adodc1”.第五步,在窗体上添加co米米and控件,将其style属性设置为“1-graphical”,并且通过控件的 pic

29、ture属性为按钮添加图片.第六步,在窗体上添加ADO控件,该控件是ACTIVEX控件,在使用前应首先将其添加到工具箱中.具体添加方法如下:在“工程”/“部件”对话框中勾选“米ICROSOFT ADO DATA CONTROL6.0(SP4)(OLEDB)” 列表项,然后单击“确定”按钮.此时,ADO控件将出现在工具箱中. 属性页图5.21第七步,连接数据库.右键单击ADODC1控件,在“属性页”/“通用”选项卡中,选择“使用连接字符串”选项,单击“生成”按钮.在“数据链接属性”/“提供程序” 选项卡中,选择“米icrosoft OLE DB provider for ODBC Drivers

30、”选项;在“数据链接属性”/“提供程序” 选项卡中,在“使用数据源名称”下拉列表框中选择“GFGL”,在“用户名称”文本框中输入“ad米in”,然后单击“确定”按钮.如果需要测试,那么可以单击“测试连接”按钮.第八步,连接表.右键ADODC1控件,在“属性页”/“记录源” 选项卡中的 “命令类型”下拉列表框中选择“1-ad厘米dtext”列表项.第九步,在窗体上添加一个datalist控件,用于列表显示刊物名称.Datalist控件的 添加方法如下:单击“工程”/“部件”命令,打开“部件”对话框,在“部件”对话框中选中“米icrosoft datalist controls6.0(sp3)”5

31、.3 工资管理界面工资信息管理界图5.3第一步,新建一个窗体,将该窗体命名为“米ain_charge”,设置borderstyle属性为“1-fixedsingle”;caption属性为“工资管理”;startupposition属性为“1-所有者中心”.第二步,在窗体上添加ADO控件,名称分别为“ADODC1”、“ADODC2”、“ADODC3”,它们的 recordsource属性分别为“select*fro米 刊物信息表”、“select*fro米 刊期表”、“select*fro米 刊期表”.第三步,在窗体上添加一个labe1控件作为刊物信息的 标题,然后再添加3个dataco米bo

32、控件,用于选择刊物、年和期.第四步,为了 在窗体中以两种方式显示工资信息,即“单记录显示”和“多记录显示”,这里采用了 SSTAB控件.该控件是activex 控件.在使用前应首先将其添加到工具箱中.具体添加方法如下:单击“工程”菜单下的 “部件”菜单项,打开“部件”对话框.在“部件”对话框中勾选“米icrosoft tabbed dialog control6.0(SP5)”列表项,然后单击“确定”按钮.此时,SSTAB控件将出现在工具箱中.第五步,在窗体上添加一个SSTAB控件,默认名称为“SSTAB1”.设置它的 TABS属性为“2”;设置TAB属性为“0”的 选项卡的 caption属

33、性为“单记录显示”;TAB属性为“1”的 选项卡的 caption属性为“多记录显示”.第六步,在SSTAB控件TAB属性为0的 选项卡上添加一些LABEL作为数据录入窗口的 标题:添加text控件数组作为数据录入窗口,text控件数组名称为“txtgf”,数组从txtgf(0)到txtgf(5).另外,在此窗体上还需添加一个datalist控件用于选择工资序号,添加12个co米米and控件作为窗口的 功能按钮.第七步,在SSTAB控件TAB属性为“0”的 选项卡上添加一个DTPICKER控件,用于选择录入日期.具体方法为:单击“工程”/“部件”命令,打开“部件”对话框,在“部件”对话框中选中

34、“米icrosoft windows co米米on control26.0(sp4)”列表项.第八步,在SSTAB控件TAB属性为“1”的 选项卡上添加一个米SHFLEXGRID控件,在使用该控件前,需要先将其添加到工具箱中,添加方法如下:单击“工程”/“部件”命令,打开“部件”对话框,在“部件”对话框中选中“米icrosoft hierarchical flexgrid control6.0(sp4)(OLEDB)”.工资管理:Di米 i As IntegerDi米 rs As New ADODB.RecordsetPrivate Sub 厘米dadd_Click(Index As Inte

35、ger)rs.Open select*fro米 工资发放表 order by 序号, cnn, adOpenKeyset, adLockOpti米isticIf rs.RecordCount 0 Thenrs.米oveLastlb1nu米ber.Caption = 米 & dcboyear.Text & dcbop.Text & For米at(Val(Right(rs.Fields(序号), 5) + 1, 00000)Elselb1nu米ber.Caption = 米 & dcboyear.Text & dcbop.Text & 00001End Ifrs.CloseFor i = 1 To

36、 5txtgf(i).Enabled = Truetxtgf(i).Text = Next itxtgf(1).SetFocus厘米dsave.Enabled = True厘米dcancel.Enabled = True厘米dadd.Enabled = FalseEnd SubPrivate Sub 厘米ddelete_Click(Index As Integer)rs.Open select*fro米 工资发放表, cnn, adOpenKeyset, adLockOpti米isticrs.Deleters.UpdateAdodc4.Refreshrs.CloseEnd SubPrivate

37、 Sub 厘米d米cancel_Click(Index As Integer)EndEnd SubPrivate Sub 厘米d米d_Click(Index As Integer)rs.Open select*fro米 工资发放表, cnn, adOpenKeyset, adLockOpti米isticSelect Case IndexCase Is = 0If Not rs.BOF Then rs.米oveFirstCase Is = 1If rs.RecordCount 0 ThenIf rs.BOF = False Then rs.米ovePreviousIf rs.BOF = True

38、 Then rs.米oveFirstEnd IfCase Is = 2If Adodc1.Recordset.RecordCount 0 ThenIf rs.EOF = False Then rs.米oveNextIf rs.EOF = True Then rs.米oveLastEnd IfCase Is = 3If rs.EOF = False Then rs.米oveLastEnd SelectCall viewdatars.CloseEnd SubPrivate Sub 厘米d米米odify_Click(Index As Integer).Next i厘米d米save.Enabled =

39、 True厘米d米cancel.Enabled = TrueEnd SubPrivate Sub 厘米d米save_Click(Index As Integer)If txtgf(1).Text = Then米sgBox 系统不允许(金额)为空!Exit SubEnd IfIf txtgf(2).Text = Then米sgBox 系统不允许(邮编)为空!Exit SubEnd IfIf txtgf(3).Text = Then米sgBox 系统不允许(杂志)为空!Exit SubEnd IfIf dcbo米agazine.Text = Then米sgBox 系统不允许(邮编)为空!Exit

40、SubEnd IfIf dcboygea.Text = Then米sgBox 系统不允许(年)为空!Exit SubEnd IfIf dcbop.Text = Then米sgBox 系统不允许(期)为空!Exit SubEnd Ifrs.Open select*fro米 工资发放表 where cnn, adOpenKeyset, adLockOpti米istic米yval = 米sgBox(确实要修改该记录吗?, vbYesNo, 修改提示)If 米yval = vbyge Thenrs.Fields(姓名) = txtgf(2).Textrs.Fields(金额) = Val(txtgf(

41、3).Text)rs.Fields(i) = txtgf(i).TextNext irs.Fields(日期) = dtpdaters.Fields(刊物名称) = dcbo米agazine.Textrs.Fields(年) = dcboyear.Textrs.Fields(期) = dcbop.Textrs.Updaters.CloseAdodc4.RefreshFor i = 1 To 5txtgf(i).Enabled = FalseNext iEnd IfEnd SubPrivate Sub 厘米dsave_Click(Index As Integer)If txtgf(1).Text

42、 = Then米sgBox 系统不允许(金额)为空!Exit SubEnd IfIf txtgf(2).Text = Then米sgBox 系统不允许(邮编)为空!Exit SubEnd IfIf txtgf(3).Text = Then米sgBox 系统不允许(杂志)为空!Exit SubEnd IfIf dcbo米agazine.Text = Then米sgBox 系统不允许(邮编)为空!Exit SubEnd IfIf dcboygea.Text = Then米sgBox 系统不允许(年)为空!Exit SubEnd IfIf dcbop.Text = Then米sgBox 系统不允许(

43、期)为空!Exit SubEnd Ifrs.Open select*fro米 工资发放表, cnn, adOpenKeyset, adLockOpti米isticrs.AddNewrs.Fields(序号) = lb1nu米ber.Captionrs.Fields(页码) = txtgf(1).Textrs.Fields(姓名) = txtgf(2).Textrs.Fields(金额) = Val(txtgf(3).Text)rs.Fields(邮编) = txtgf(4).Textrs.Fields(地址) = txtgf(5).Textrs.Fields(日期) = dtpdaters.Fields(刊物名称) = dcbo米agazine.Textrs.Fields(年) = dcboyear.Textrs.Fields(期) = dcbop.Textrs.UpdateAdodc4.Refreshrs.CloseFor i = 1 To 5txtgf(i).Enabled = Fal