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

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

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

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

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

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

6、)的程序设计 visual basic执行的过程是以控件为主,当你使用鼠标或键盘触动那个控件就执行该控件所敲定的动作。不像传统basic程序设计是采用程序导向设计,也就是说程序执行的流程在编写程序的时候就决定了。至于visual basic程序执行的流程是在执行时由操作者来决定其流程。(2) 输入与输出界面设计简单 应用visual basic所提供的工具,只要设定该工具的属性,不用写程序便能做到实用的输出输入界面,至于传统basic就必须编写复杂的程序,没有基础的人是很难做到的。(3) 用来制作多媒体软件传统basic必须编写各个语音驱动程序才能发音,兼容性低,由于visual basic是

7、在windows环境下执行,多媒体界面要求统一,因此编写程序时不必考虑兼容性的问题。(4) 多任务处理在传统basic语言下,多个程序是无法一次同时执行,在windows环境,visual basic拥有多任务处理的功能,因此visual basic能同时打开多个窗口执行不同的工作。(5) 数据可以互通visual basic 可以直接调用windows API函数和应用“动态数据交换”可与windows其他应用程序交换数据。(6) 提供友好的人机界面visual basic提供鼠标操作环境及键盘处理环境。(7) 网络 Visual Basic 提供与Internet有关的控件,可以让你很容易

8、地设计出有关的网络的应用程序。(8) active xVisual Basic提供设计activer x控件(Active X control)的功能,Active X控件可以说是新版的OCX控件,在Visual Basic 5.0中已经可以设计自己的控制,除此之外,也可以设计程序,不论是或,都可以置于网络服务器,用户只要应用下载,就可以直接在浏览器中执行visual basic应用程序。(9) 动态连结程序库存 visual basic可以设计动态连结程序库,让程序的执行更有效率,更可以设计成网站应用程序。(10) 与数据库连结 visual basic 6.0 支持各类数据库,包含acce

9、ss,dbase 2,sql(结构化查询语言)等等,并提供方便的数据库与控件的数据栏位连结功能,用户只要简单的设定控件与数据库的数据连结,就可以做出功能强大的数据库管理系统。除此之外,visual basic 5.0亦提供ado(data access object)控件与数据库存取语法,提供程序代码阶段的数据库存取功能,在visual basic 6.0更提供了最先进的ado 2.0,更适合用于一发网络数据库与存取不同类型的数据库,配合自制的active x data control,让网络数据库程序的发展更加快速简单。1.2 管理信息系统的开发1.2.1 管理信息系统的开发方式管理信息系统

10、的开发方式主要有独立开发方式、委托开发方式、合作开发方式、购买现成软件方式等4种。这4种开发方式各有优点和不足,城要根据使用单位的技术力量、资金情况、外部环境等各种因素进行综合考虑和选择。不论哪种开放方式都需要有单位的领导和业务人员参加,并在管理信息系统的整个开发过程中培养、锻炼、壮大该系统的维护队伍。1.2.2 系统开发的一般方法管理信息系统的开发是一个复杂的系统工程,它涉及到计算机处理技术、系统理论、组织结构、管理功能、管理知识等各方面的问题,至今没有一种统一完备的开发方法。而任何一种开发策略都要明确以下问题:(1)系统要解决的问题(2)系统可行性研究(3)系统开发的原则(4)系统开发前的

11、准备工作(5)系统开发方法的选择和开发计划的制定1.3 系统的运行环境Visual Basic 6.0是windows 95/98或windows NT环境下的应用程序,对环境的要求与windows95/98或windows NT基本一致,具体要求如下:微处理器:486DX/66MHz或更高(推荐使用Pentium)或更高的微处理器。内存至少16MB以上。硬盘空间:标准版,典型安装48MB,完全安装80MB；专业版,典型安装48MB,完全安装80MB；企业版,典型安装128MB, 完全安装147MB；MSDN(用于提供帮助文档),需要67MB空间；Internet Explorer 4.x(w

12、indows 98中已经包含),大约需要66MB.显示设备:VGA或更高分辨率的显示器。读入设备:CD-ROM。操作系统:Microsoft windows NT 3.51或更新的版本或Microsoft windows 95/98或更新的版本。二 Visual Basic概述2.1 Visual Basic技术的发展动态2.1.1 概述Visual Basic是以结构化BASIC语言为基础。以事件驱动作为运行机制的新一代可视化程序设计语言。Visual指的是开发图形用户界面(GUI)的方法； Basic指的是BASIC语言,它是计算机技术发展史上应用最为广泛的语言之一。VB综合运用了BASI

13、C语言和新的可视化设计工具,既具有Windows所特有的优良性能和图形工作环境,又具有编程的简易性。管理信息系统在最初级阶段是统计系统,所研究的内容是数量数据间表面的规律,它可以把数据分成较相关和较不相关的组,然后把数据转换成信息。第二阶段是数据更新系统,其典型代表是美国航空公司于20XX50年代建成的SABRE预约订票系统。从概念上来讲,它只是一个数据更新系统,因而它也是管理信息系统的低级阶段。第三阶段是状态报告系统,它可以分为生产状态报告,服务状态报告和研究状态报告等系统。状态报告系统还有一种形式是数据处理系统,它用来处理日常业务和生产报告,重点在于将手工作业自动化,提高效率和节省人力。数

14、据处理系统一般不能提供决策信息。最后的阶段是决策支持系统,它是用来辅助决策的信息系统。该系统可以计划,分析方案,审查解答和求解的误差。它应有较好的人机对话方式,可以和不怎么熟悉计算机的管理人员通话。2.1.2 Visual Basic技术的发展阶段Visual Basic是微软公司为简化Windows应用程序的开发,于1991年在原Basic语言的基础上开发出的新一代面向对象的程序设计语言。它具有简单易学、功能强大、软件费用支出低、见效快等特点,特别适合初学者学习。它的发展经历了以下的几个阶段:第一阶段 1992年秋推出了Visual Basic2.0版。第二阶段 1993年4月推出了Visu

15、al Basic3.0版。第三阶段 1995年8月首次推出了能开发32位应用程序的Visual Basic4.0版。第四阶段 1997年推出了Visual Basic 5.0版。此版本又分三种版本进行发售,即:学习版,专业版和企业版。第五阶段 1998年秋微软又推出了更完善的Visual Basic 6.0版。目前Visual Basic的最高版本就是Visual Basic 6.0 版。2.1.3 Visual Basic技术的特点 Visual Basic 技术具有以下一些特点:(1)可视化的集成开发环境(2)面向对象的程序设计思想(3)交互式的开发环境(4)高度的可扩充性(5)根据安装V

16、isual Basic 版本的不同,Visual Basic集成环境中的菜单以及工具条中的一些选项可能会有所不同。本论文是以企业版为蓝本而编写的。2.2 本课题的提出及研究意义20XX70年代以来,以信息技术及其产业化进程迅速推进为标志,人类社会逐渐进入了一个全新的知识经济时代。出版业是我国文化事业的重要组成部分。也是国民经济的重要产业部门。作为知识密集、智力密集的出版业,面对知识经济大潮的冲击,如何努力构建符合知识经济要求的管理体系,是出版业目前面临的关键问题。工资管理在出版行业占有重要地位,及时有效的管理工资,是出版社健康发展、与作者建立信任的关键。在过去的工资发放管理中,采用手工方式计算

17、、发放工资,这就不可避免地产生一些人为错误。另外,由于受工作量、工作习惯等因素制约,工作人员难以对工资发放数据进行统计、分析,致使在管理中经常出现不该出现的错误和漏洞。采用工资发放管理系统后,并且由系统自动计算工资,使相关信息不需要重复录入,完全杜绝了差错,大大提高了工作效率。另外,依托决策支持系统的数据分析,能够更加迅速地响应市场和预测市场,更精确地把握工资发放的内在规律,增加决策频度和力度,及时针对反馈信息调整策略,由过去的追随市场变化向掌握市场变化迈进,由过去被动应变、滞后反应转向主动出击、超前准备,使出版社的发展向更加合理、更加健康的方向发展。三 数据库3.1 数据库的基本概念数据库技

18、术是计算机应用技术中的一个重要组成部分,它所研究的问题是如何科学地组织和存储数据,使得对大量数据的管理比用文件管理具有更高明的效率,因此涉及的两个主要方面是:数据的组织和数据的管理。数据库是以一定的方式组织并存储在一起的相互有关的数据的集合。对数据库的管理由数据库管理系统来实现,数据库管理系统是用户与数据库之间的接口,它提供了对数据库使用和加工的操作。3.2 数据库系统简述信息技术的发展极大地失去了社会的进步和发展。作为信息技术主要支柱之一的数据库技术在社会各个领域中有着广泛的应用。数据库技术可以为各种用户提供及时的、准确的、相关的信息,满足这些用户的各种不同的需要。3.2.1 数据库系统应用

19、示例1.航空售票系统。2.银行业务系统。3.超市的销售业务系统。4.工厂的管理信息系统。5.学校教学管理系统。6.图书管理系统。3.2.2 数据库系统的作用(1)管理大量数据。(2)数据库定义功能。(3)数据查询功能。(4)控制多用户的访问。3.3 管理系统3.3.1 使用SQL操作数据库SQL是完整的数据库操作语言,使用SQL可以对数据库进行各种操作,例如,可以用SQL语句生成新的数据库、生成或加入表格、修改数据库等。但SQL最常用于从数据库中获取数据。从数据库中获取数据被称为“查询数据库”。查询数据库是所使用的SQL语句为Select 语句。数据库技术是计算机应用技术中的一个重要组成部分,

20、它所研究的问题是如何科学地组织和存储数据,使得对大量数据的管理比用文件管理具有更高明的效率,因此涉及的两个主要方面是:数据的组织和数据的管理。数据库是以一定的方式组织并存储在一起的相互有关的数据的集合。对数据库的管理由数据库管理系统来实现,数据库管理系统是用户与数据库之间的接口,它提供了对数据库使用和加工的操作。信息技术的发展极大地失去了社会的进步和发展。作为信息技术主要支柱之一的数据库技术在社会各个领域中有着广泛的应用。数据库技术可以为各种用户提供及时的、准确的、相关的信息,满足这些用户的各种不同的需要。Select语句的格式如下:Select From Where ADO 与Data控件的

21、RecordSource属性也可在代码中通过SQL语句将选择的结果赋给RecordSource属性,从而达到查询的目的。3.3.2 使用ADO操作数据库ADO(ActiveX Data Object)是Microsoft软件所支持的对数据库进行操作的最有效、最简单、功能最强大的方法。还可以使用ADO技术与之结合,建立数据库的内容,以及执行SQL操作。利用ADO的对象来对数据库进行访问,在这里简单介绍三个主要的对象。Connection对旬表示正在使用的数据源和ADO接口之间的链接。它包含了所有错误的接口。Command对象表示一个能被数据提供者出路的命令。Command接口可以返回一个Reco

22、rdSet记录集或执行一个操作(如查询、修改、删除、插入)。RecordSet对象是个最复杂、功能最强大的接口。在RecordSet接口中,含有数据的游标。作为一个游标,它仅仅是数据,没有任何的属性和方法。另一方面,创建和管理一个游标的RecordSet对象有着丰富的属性界面。游标是存储在活动内存中的一张虚拟表。它从数据提供者得到一个数据集。3.4 ADODC控件的使用第一步,设置Adodc1的Visible属性的值为False,可以使其在运行中看不见；第二步,ConnectionString的属性设置是用来选取以创建好的数据库db1.mdb,选中ConnectionString属性,单击其后

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

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

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

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

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

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

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

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

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

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

33、ft windows common control26.0(sp4)”列表项。第八步,在SSTAB控件TAB属性为“1”的选项卡上添加一个MSHFLEXGRID控件,在使用该控件前,需要先将其添加到工具箱中,添加方法如下:单击“工程”/“部件”命令,打开“部件”对话框,在“部件”对话框中选中“Microsoft hierarchical flexgrid control6.0(sp4)(OLEDB)”。工资管理:Dim i As IntegerDim rs As New ADODB.RecordsetPrivate Sub cmdadd_Click(Index As Integer)rs.Op

34、en select*from 工资发放表 order by 序号, cnn, adOpenKeyset, adLockOptimisticIf rs.RecordCount 0 Thenrs.MoveLastlb1number.Caption = m & dcboyear.Text & dcbop.Text & Format(Val(Right(rs.Fields(序号), 5) + 1, 00000)Elselb1number.Caption = m & dcboyear.Text & dcbop.Text & 00001End Ifrs.CloseFor i = 1 To 5txtgf(i

35、).Enabled = Truetxtgf(i).Text = Next itxtgf(1).SetFocusCmdsave.Enabled = TrueCmdcancel.Enabled = Truecmdadd.Enabled = FalseEnd SubPrivate Sub cmddelete_Click(Index As Integer)rs.Open select*from 工资发放表, cnn, adOpenKeyset, adLockOptimisticrs.Deleters.UpdateAdodc4.Refreshrs.CloseEnd SubPrivate Sub cmdm

36、cancel_Click(Index As Integer)EndEnd SubPrivate Sub Cmdmd_Click(Index As Integer)rs.Open select*from 工资发放表, cnn, adOpenKeyset, adLockOptimisticSelect Case IndexCase Is = 0If Not rs.BOF Then rs.MoveFirstCase Is = 1If rs.RecordCount 0 ThenIf rs.BOF = False Then rs.MovePreviousIf rs.BOF = True Then rs.

37、MoveFirstEnd IfCase Is = 2If Adodc1.Recordset.RecordCount 0 ThenIf rs.EOF = False Then rs.MoveNextIf rs.EOF = True Then rs.MoveLastEnd IfCase Is = 3If rs.EOF = False Then rs.MoveLastEnd SelectCall viewdatars.CloseEnd SubPrivate Sub cmdmmodify_Click(Index As Integer).Next icmdmsave.Enabled = Truecmdm

38、cancel.Enabled = TrueEnd SubPrivate Sub cmdmsave_Click(Index As Integer)If txtgf(1).Text = ThenMsgBox 系统不允许(金额)为空!Exit SubEnd IfIf txtgf(2).Text = ThenMsgBox 系统不允许(邮编)为空!Exit SubEnd IfIf txtgf(3).Text = ThenMsgBox 系统不允许(杂志)为空!Exit SubEnd IfIf dcbomagazine.Text = ThenMsgBox 系统不允许(邮编)为空!Exit SubEnd If

39、If dcboygea.Text = ThenMsgBox 系统不允许(年)为空!Exit SubEnd IfIf dcbop.Text = ThenMsgBox 系统不允许(期)为空!Exit SubEnd Ifrs.Open select*from 工资发放表 where cnn, adOpenKeyset, adLockOptimisticmyval = MsgBox(确实要修改该记录吗?, vbYesNo, 修改提示)If myval = vbyge Thenrs.Fields(姓名) = txtgf(2).Textrs.Fields(金额) = Val(txtgf(3).Text)r

40、s.Fields(i) = txtgf(i).TextNext irs.Fields(日期) = dtpdaters.Fields(刊物名称) = dcbomagazine.Textrs.Fields(年) = dcboyear.Textrs.Fields(期) = dcbop.Textrs.Updaters.CloseAdodc4.RefreshFor i = 1 To 5txtgf(i).Enabled = FalseNext iEnd IfEnd SubPrivate Sub Cmdsave_Click(Index As Integer)If txtgf(1).Text = ThenMs

41、gBox 系统不允许(金额)为空!Exit SubEnd IfIf txtgf(2).Text = ThenMsgBox 系统不允许(邮编)为空!Exit SubEnd IfIf txtgf(3).Text = ThenMsgBox 系统不允许(杂志)为空!Exit SubEnd IfIf dcbomagazine.Text = ThenMsgBox 系统不允许(邮编)为空!Exit SubEnd IfIf dcboygea.Text = ThenMsgBox 系统不允许(年)为空!Exit SubEnd IfIf dcbop.Text = ThenMsgBox 系统不允许(期)为空!Exit

42、 SubEnd Ifrs.Open select*from 工资发放表, cnn, adOpenKeyset, adLockOptimisticrs.AddNewrs.Fields(序号) = lb1number.Captionrs.Fields(页码) = txtgf(1).Textrs.Fields(姓名) = txtgf(2).Textrs.Fields(金额) = Val(txtgf(3).Text)rs.Fields(邮编) = txtgf(4).Textrs.Fields(Adress) = txtgf(5).Textrs.Fields(日期) = dtpdaters.Fields(刊物名称) = dcbomagazine.Textrs.Fields(年) = dcboyear.Textrs.Fields(期) = dcbop.Textrs.UpdateAdodc4.Refreshrs.CloseFor i = 1 To 5txtgf(i).Enabled