稿费发放管理系统论文.doc

稿费发放管理系统

稿费发放管理系统

摘要

本文从稿费管理手段亟待现代化的要求出发，提出了建立计算机稿费管理系统的思路, 设计并实现了基于Visual Basic 6.0和SQL Server 2000的能进行稿费查询的管理系统,进而探讨了系统开发过程中的实际需求分析、总体功能和实现方案，最后将系统主要分为用户登录、信息录入、稿费管理、打印输出、维护等模块。其中还介绍了Visual Basic 6.0和SQL Server 2000的历史以及各自的优点和发展前景。系统按毕业设计要求以Visual Basic 6.0为工具进行开发，采用SQL Server 2000对数据库进行操作，从需求分析到运行测试，论文详细介绍本系统的各项功能、界面以及具体的开发过程。运用计算机软件技术初步开发了稿费管理系统，并对其中的关键技术进行了深入探讨。站在出版社的角度解决出版业目前面临的关键问题，努力构建符合知识经济要求的管理系统，使本课题的研究开发更具实用性和可行性。总之，整个软件的开发原则是“简便实用”。
系统具有界面友好、操作方便等特点，并且还综合考虑到实际需求，经过反复实践和修改，基本达到了预期的效果。

关键字：稿费管理；管理系统；数据库技术；Visual Basic 6.0；SQL Server 2000

MANAGEMENT SYSTEM OF PAYMENT ISSUE

ABSTRACT

With the request of the modernizing motheds of payment management, this thesis presents an idea of setting up an payment management system of computer,and designs and realizes an management system which may inquire the payment.What’s more,it explores the practical need analysis,total functions and the plan of realizition in the development process of the system,and mainly devides the system into several modulds,such as users’registry, information entering,payment management,printing output and safeguarding and so on.The paper also introduces the history,repective advantages and development foreground of Visual Basic 6.0 and SQL Server 2000.According to the request of graduate design,the system employs the Visual Basic 6.0 as a development tool,and applies SQL Server 2000 to operate the database.From need analysis to running tese,various functions,interfaces and specific development process of this system are also presented in the thesis.What make this task with practical and practicable are solving the crucial problems faced at present of the presses and making,efforts to construct an managemen system which accords with the demand of intellectual economy. In short, the development principle of this software is " simple and practical".
The system has characterstics of amicable interface and convenience operation and so on.It also considers the practial need synthetically and has been practiced again and again with modify,thus,basically achieves the expect effect.

Key words: Payment management; Managment system; Database technology; Visual Basic 6.0; SQL Server 2000

目 录

第一章 绪论---------------------------------------------------------------------------------------------1
1.1 引言-----------------------------------------------------------------------------------------------1
1.2 稿费发放管理现状-----------------------------------------------------------------1
1.3 Visual Basic 6.0 介绍----------------------------------------------------------------2
1.4 SQL Sever 2000 介绍-----------------------------------------------------------3
第二章 总体设计--------------------------------------------------------------------------------------4
2.1 需求分析----------------------------------------------------------------------------4
2.2 业务流程功能分析-----------------------------------------------------------------4
2.3 系统总体设计-----------------------------------------------------------------------5
第三章 功能模块设计与数据库设计----------------------------------------------------------6
3.1主要功能模块设计---------------------------------------------------------------------------6
3.2数据库设计-------------------------------------------------------------------------------------7
第四章 系统实现--------------------------------------------------------------------------------------10
4.1 系统概述----------------------------------------------------------------------------------------10
4.2 系统实现与代码设计-----------------------------------------------------------------------10
4.2.1 系统登录主界面实现设计--------------------------------------------------------10
4.2.2 系统管理员和操作员登录设计-------------------------------------------------12
4.2.3 刊物信息管理设计------------------------------------------------------------------14
4.2.4 稿费管理设计-------------------------------------------------------------------------16
4.2.5 稿费信息查询设计------------------------------------------------------------------18
4.2.6 稿费信息统计设计----------------------------------------------------------20
4.2.7 汇款单打印-------------------------------------------------------------------21
4.3 系统功能特点-----------------------------------------------------------------------------------23
第五章 系统的测试-------------------------------------------------------------------------24
5.1 测试环境与测试条件----------------------------------------------------------------24
5.2 实例测试结果---------------------------------------------------------------------------24
5.3 性能分析-----------------------------------------------------------------------------------27
第六章 结论--------------------------------------------------------------------------------29
参考文献-------------------------------------------------------------------------------------30

第一章 绪论

1.1 引言
人类已经进入21世纪，科学技术突飞猛进，知识经济初见端倪，特别是信息技术和网络技术的迅速发展和广泛应用，对社会的政治、经济、军事和文化领域产生越来越深刻的影响，也改变着人们的工作、生活、学习和交流方式。信息的获取、处理、交流和应用能力，已经成为人们最重要的能力之一。
稿费发放管理系统是出版业信息管理中的一项主要任务，以往的手工操作已经不能适应现代办公需要，为了摆脱繁琐的劳动提高工作效率，利用计算机进行信息处理成为必然。开发功能完善及安全可靠的管理系统可以大大提高企业资源的利用率，及时准确地获取需要的信息，充分发挥人员的工作潜力。不难想象，正是资讯的迅速发展，使得人们从过去繁琐的手工劳动中得以解脱，从而使这种服务在现在才能迅速普及。稿费管理在出版行业中占有重要地位，及时有效的稿费管理，是出版社健康发展并与作者建立信任的关键[1]。
本项目开发一套适用于出版行业稿费发放的管理软件。实现对稿费发放正规化、自动化和智能化，从而提高管理人员的工作质量和效率，也适应了精兵简政之领导原则，为办公自动化的普及奠定了基础。为此开发稿费发放管理系统软件，能够适应现今社会并提高生产效率。本课题采用VB数据库和SQL技术开发稿费发放管理系统。
1.2 稿费发放管理现状
稿费发放管理是网络管理的重大功能之一, 稿费管理系统的核心技术，包括数据库设计、数据维护、数据检索及稿件稿费的收发[2]。目前，稿费发放管理系统管理严密，信息更新及时，不仅可以实现稿费信息的网络查询功能，方便用户操作使用，还可以计算稿费[3]。实践结果表明,利用目前计算机中已有的软件,无须增加额外费用,即可实现稿费管理工作的现代化[4]。现代化的管理方式虽不能全面应用于稿费发放管理中，但采用稿费发放管理系统后，可以充分利用现代化管理手段，规范操作，科学有序高效的进行稿费发放等的管理，并且由系统自动计算稿费，使相关信息不需要重复录入，完全杜绝了差错，大大提高了工作效率[5]。大部分稿费管理系统本着从实际出发的原则设计用户界面简单，使用方法灵活，成本低的稿费发放管理系统，不仅可以协助编辑人员组织稿件，辅助决策选题计划，还可以处理杂务，减少编辑部工作人员的重复繁杂的编务工作，帮助稿费发放部门的工作人员及时准确发放稿费给作者等等[6]。稿费发放管理系统方便使用用户能快速开发基于图形界面的应用程序的能力和解决实际问题的能力，注重实践，突出应用，力求达到可读性，适用性和先进性[7]。稿费发放管理应用已取得初步应用和发展，但科技期刊编辑部处理稿件及管理部发放稿费的工作效率和质量水平有待提高,要能够及时分析和掌握期刊稿件来源情况,做到有计划、有目的地发送稿费,还要加强利用稿费数据库管理系统及友好的运行界面，实现稿件管理部及稿费发放部工作流程的计算机管理和网上稿件投审编校和稿费发放一体化。目前众多稿费发放管理部门对稿费发放工作流程进行了编程,成功地用于稿费的日常管理工作[8]。
本课题研究的稿费发放管理系统是一种将多媒体技术应用在稿费发放中的管理系统，给出了系统的设计思想及使用环境，该系统具有较强的适用性和通用性。
1.3 Visual Basic 6.0 研究现状
Visual Basic是第一个可进行可视化开发的集成开发工具，它所具有的“编辑后继续运行（edit and continue）”的特性，超越了旧的编辑-编译-测试模式。Visual Basic引入了面向对象的程序设计思路和“控件”概念，使得大量已经编好的Visual Basic程序可以直接拿来使用。同时，Visual Basic又是最容易学习与应用的程序语言之一，功能相当强大。它已成为一种专业化的开发语言和环境。使用Visual Basic不仅可以快速创建Windows程序，还可以编写企业水平的客户/服务程序及功能强大的数据库应用程序。现在，从个人使用的小型工具软件到大型企业的系统软件，甚至通过网络普及全球的分布式应用软件，都可以使用Visual Basic开发[9]。Visual Basic 6.0功能更加强大，操作更加灵活，Visual Basic 已俨然成为Windows上数据库系统的标准。利用Visual Basic可进行应用程序各个方面的开发，涵盖了界面外观、多媒体控制与图像处理、时间控制、操作系统、程序控制、磁盘文件、数据库、网络与通信、鼠标和键盘、数学算法和程序发布等方面的内容。
1.4 SQL Server 2000研究现状
SQL Server 是一个关系数据库管理系统，它最初是由Microsoft Sybase 和Ashton-Tate 三家公司共同开发的，于1988 年推出了第一个OS/2 版本在Windows NT 推出后，Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了。Microsoft 将SQL Server 移植到Windows NT系统上，专注于开发推广SQL Server 的Windows NT 版本，Sybase 则较专注于SQL Server 在UNIX 操作系统上的应用[10]。
SQL Server 2000 是Microsoft公司推出的SQL Server 数据库管理系统的较新版本。该版本继承了SQL Server 7.0 版本的优点同时又比它增加了许多更先进的功能：具有使用方便、可伸缩性好、与相关软件集成程度高等优点可跨越从运行Microsoft Windows 98 的膝上型电脑到运行Microsoft Windows 2000 的大型多处理器的服务器等多种平台使用。
SQL Server 2000是为创建可伸缩电子商务、在线商务和数据仓储解决方案而设计的真正意义上的关系型数据库管理与分析系统。SQL Server 2000中包含许多新特性，这些特性使其成为针对电子商务、数据仓库和在线商务解决方案的卓越的数据库平台。
SQL Server 2000能提供超大型系统所需的数据库服务。大型服务器可能有成千上万的用户同时连接到SQL Server 2000的情况， SQL Server 2000为这些环境提供了全面的保护，具有防止问题发生的安全措施。例如，可以防止多个用户试图同时更新相同的数据。SQL Server 2000还在多个用户之间有效地分配可用资源，比如内存、网络带宽和磁盘I/O等。
SQL Server 2000不仅能作为一个功能强大的数据库服务器有效地工作，而且数据库引擎也应用于需要在客户端本地存储独立数据库的应用程序中。SQL Server 2000可以动态地将自身配置成能有效地使用客户端桌面或膝上型电脑中的可用资源，而不需要为每个客户端专设一个数据库管理员。应用程序供应商还可以将SQL Server 2000作为应用程序的数据存储组件嵌入到应用程序中。
总之，对于那些希望确保数据库解决方案具备伸缩性、可靠性及灵活性的客户而言，SQL Server 2000提供了最强的支持[11]。

页脚为页码，页码格式如下。

第二章 系统总体设计

稿费发放管理系统是现代化的管理应用方案，应满足稿费信息化管理需要的灵活性，使管理员、作者和主管部门之间能快速、及时地进行沟通，以作为管理部门信息化管理的强力支撑。数据库创建及应用在整个稿费发放管理中占有基础地位,其设计的优劣将直接影响整个系统的效率以及实现的效果.以下将详细描述稿费发放管理系统的总体设计并对其性能进行分析。
2.1 需求分析
用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输入和输出，收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。
通过对稿费发放管理的现状进行了解和分析,与经常参与稿费发放管理部门和个人经过充分地讨论之后,可以初步确定将在数据库中存储以下数据:
投稿作者基本情况(如:作品名称、作者姓名、性别、年龄等) ;稿件录用的基本信息(如:刊物名称、刊物类别等) ;稿费信息录入(如:发放名称、发放计划、发放方式等) ；稿费管理管理数据（如：稿费信息修改、删除、统计、查询、发放，汇款单）。因此，要在系统分析的基础上，对整个系统的划分、软硬件配置、数据存储以及整个系统实现等方面合理安排。
2.2 业务流程功能分析
得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。
稿费发放管理的主要步骤是：工作人员对稿费单进行登记，稿费单经过统计核算后，由管理人员核准并签发，然后开始稿费发放的工作。
业务流程的主要功能表现：
稿费单录入：按稿件录入稿费信息资料；
稿费单查询：可按刊物名称、稿费开单日期、投稿人等进行统计与查询；
稿费分析：按刊物名称、年、期及稿费开单日期等进行汇总和分析；
稿费发放单、汇款单打印；
报刊信息的添加、修改、删除和查询。
各个实体之间具体的描述E－R图如图2-1:
作者投稿
稿费信息录入
稿费信息统计
稿费管理数据
稿件录用
稿费信息修改
稿费信息删除
稿费发放
汇款单
稿费信息查询

图2-1稿费发放管理业务流程图
2.3 系统总体结构设计
经过系统分析工作，将稿费发放管理系统划分为4大部分：稿费单管理、稿费单查询、稿费统计分析、系统数据维护。
（1）稿费统计分析：主要完成稿费汇总工作；
（2）系统数据维护：又可分为报刊管理和系统设置功能，报刊管理主要完成报刊信息的增加、修改、删除和查看功能；系统设置主要完成管理员和操作员的设置工作；
（3）稿费单查询：实现了按照不同的查询条件查询稿费单信息的功能；
（4）稿费单管理：主要完成稿费单的录入、修改和删除。
系统设计的总体框架如图2-2所示，而系统的功能主要就体现在各模块上。
由于系统采用模块化、结构化设计，各模块在信息上互相沟通，功能上互相独立．使系统的网络扩充、功能增加、业务扩展就更容易实现。
系统总体设计模块如图2-2所示：
稿费发放管理系统

稿费单管理
稿费单查询
系统数据维护
稿费单统计

按刊物统计
按汇总字段统计
稿费单修改
稿费单录入
按日期查询
按所选字段查询
按刊物查询
操作员管理
系统管理员
删除项目
添加项目
按日期段统计

图2-2 系统总体结构

第三章 功能模块设计与数据库设计

根据稿费发放的实际情况及需要，功能模块的设计显得要严密很多，不但要使用户界面简洁实用，还要方便管理员的管理操作。下面就部分功能模块及数据库作详细全面的设计。
3.1 主要功能模块设计
系统的运行以封面表单开始，用户可点击控件数据、维护、查询、统计和退出进行需要的操作，管理员和操作员管理则要求输入登录密码，并设置三次检查功能，若第三次输入的密码均有错，则自动退出系统；否则出现系统菜单，接收用户的操作，操作完后可以从系统菜单中退出系统。
稿费发放管理系统中的主要功能模块如图3-1与图3-2所示：
系统数据维护

添加项目

删除项目

系统管理员

操作员管理
稿费单统计
按刊物统计
按汇总字段统计
按日期段统计

图3-1 稿费单统计 图3-2 系统数据维护
3.2 数据库设计
根据稿费发放管理系统的实际需要和数据流量的大小，数据库服务器使用了SQL Server 2000连接数据库。
（1）创建数据库：建立数据库并命名为“GFGL”处理数据库中的数据。
（2）创建表：完成数据库的建立后就可以创建表了，创建表定义字段名和数据类型。稿费发放管理系统共有五个数据表，分别为期刊表(表2-1)、刊物信息表(表2-2)、稿费发放表(表2-3)、系统管理员表(表2-4)和操作员信息表(表2-5)。
表中的每个字段都必须有一个唯一的名字，指明字段可以包含什么数据类型。varchar表示该数据类型能够包含任何字符，可以定义文本型字段的大小；Nvarchar表示只能包含指定字符；Money杯用来存储货币数据，货币数据不需要使用单引号“‘”，但是货币数据前应带有适当的货币符号，money被限制到小数点后四位；Datetime表明该字段中只允许输入有效的时间和日期。
每个表的内容和结构如下：
（1）期刊表：期刊日期。
（2）刊物信息表：刊物名称、刊物代码、所属部门、负责人、创建日期和备注。
（3）稿费发放表：序号、页码、姓名、金额、邮编、地址、刊物名称、日期、年、期。
（4）系统管理员表：系统操作员、密码。
（5）操作员信息表：操作员、密码。
各表中的主要内容如下：
表3-1 期刊表
字段
字段名
类型
字段大小
允许空
1
年
Nvarchar
4
是
2
月
Nvarchar
2
是
3
卷号
Nvarchar
4
是

表3-2 刊物信息表
字段
字段名
类型
字段大小
允许空
1
刊物名称
Nvarchar
50
否
2
刊物代码
Nvarchar
10
否
3
刊号
Nvarchar
20
是
4
所属部门
Nvarchar
20
是
5
负责人
Nvarchar
10
是
6
创建日期
datetime
8
是
7
备注
Nvarchar
100
是

表3-3 稿费发放表
字段
字段名
类型
字段大小
允许空
1
序号
Nvarchar
30
否
2
页码
Nvarchar
30
否
3
姓名
Nvarchar
18
是
4
金额
money
8
是
5
邮编
Nvarchar
10
是
6
地址
Nvarchar
250
是
7
联系电话
Nvarchar
20
是
8
刊物名称
Nvarchar
50
否
9
年
Nvarchar
4
是
10
期
Nvarchar
2
是
11
日期
datetime
8
是

表3-4 系统管理员表
字段
字段名
类型
字段大小
允许空
1
系统操作员
Nvarchar
10
否
2
密码
Nvarchar
6
否

表3-5 操作员信息表
字段
字段名
类型
字段大小
允许空
1
操作员
Nvarchar
10
否
2
密码
Nvarchar
6
否

第四章 系统实现

4.1 系统概述
在Visual Basic6.0 中，窗体及控件都是应用程序中的对象。用户通过设置对象的属性，编写事件和方法程序来处理对象。窗体的设计和制作在系统中占有很重要的地位。窗体是用户接触的界面，是用户操作的对象，用户对系统的使用和管理都是通过窗体进行的。Visual Basic 6.0提供了窗体设计器，它可以实现可视化编程功能，从而使系统编程过程变的简单、方便、直观。在窗体设计器中有各种工具栏，如窗体控制，布局，调色板等工具栏，从而使窗体的设计过程更加灵活方便。使用窗体设计器设计窗体时可以做到：
（1）向窗体添加控件对象和类
（2）设置各控件对象的属性
（3）在对象的时间中编写程序代码
根据系统要求按其功能模块确定所需设计的窗体，每项功能都对应一个窗体或多个窗体来实现。
4.2系统实现与代码设计
4.2.1 系统登录主界面实现设计
稿费管理系统要添加和修改记录，系统主窗体采用了图形化界面，主窗体使用视觉效果很好的背景图片，并通过其上的Label控件实现稿费单管理，稿费单查询，稿费分析与统计，管理员设置等动态图形菜单的显示。
（1）表单的数据环境中添加三个内容：刊物信息表，稿费发放表，操作员表。
（2）表单中放置期刊基本信息表中的字段，然后调整布局。
系统开始是欢迎界面，接着显示系统主界面菜单。主界面菜单上添加了五个命令按钮，分别是“数据”、“维护”、“查询”、“统计”和“退出”。用户可以根据不同需要点击进入查询。其余的四个命令按钮分别是系统管理员、操作员、添加项目和删除项目，管理员和操作员管理则要求输入登录密码。操作完后可以从系统菜单中退出系统。
欢迎界面如图4-1所示：

图4-1 欢迎进入稿费发放管理系统
系统开始的欢迎界面程序设计如下：
Private Sub Timer1_Timer()
Load Frm_Main
Frm_Main.Show
Unload Me
End Sub
计时器（Timer）是Visual Basic的新增控件。它提供了计时功能，即每隔一段计时时间间隔就产生一次Timer 事件，用于控制某些进程。在4-2图中，使用了计时器，使得界面友好简单又漂亮。
系统主窗体实现的主要程序设计如下：
Private Sub LblAddItem_Click()
LblAdministrator.Caption = ""
LblOP.Caption = ""
LblAddItem.Caption = "添加项目"
LblDeleteItem.Caption = ""
Load Main_Magazine
Main_Magazine.Show
Me.Hide
End Sub
其它程序类似，主窗体如下：

图4-2 稿费发放管理系统主界面
通过Timer控件和Time函数，在窗体状态栏中显示系统时间，当鼠标移动到时间上时，设置ToolTipText属性为系统日期，并用Format函数将其格式化为长日期，具体代码如下：
Private Sub LblTime_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < 10350 And Y < 7200 Then
LblTime.ToolTipText = Format(Date, "yyyy年m月d日")
End If
End Sub
4.2.2 系统管理员和操作员登录界面设计
系统管理员登录如图4-4所示，是操作人员打开本系统的必经之路，通过它可以防止非本系统操作人员的进入，确保了系统的安全性。输入密码后，系统将对所输入的密码进行检查，若输入密码正确，系统将进入正常工作状态。

图4-3系统管理员登录界面
登录后如要添加新的系统管理员，代码如下：
Private Sub lblSave_Click()
Dim rs As New ADODB.Recordset
If TxtAdministrator.Text = "" Then
MsgBox "系统不允许【系统管理员】为空！"
Exit Sub
End If
If TxtPassword.Text = "" Then
MsgBox "系统不允许【密码】为空！"
Exit Sub
End If
rs.Open "select * from 系统管理员表", cnn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs.Fields("系统管理员") = TxtAdministrator.Text
rs.Fields("密码") = TxtPassword.Text
rs.Update
MsgBox "数据保存成功！"
End Sub
Private Sub lblCancel_Click()
Frm_Main.Show
Unload Me
End Sub
操作员代码设计和管理员代码设计类似，登录界面如下图4-4所示：

图4-4系统操作员登录界面
4.2.3 刊物信息管理设计
在刊物信息管理窗体中，通过DataList列表察看现有的刊物信息。另外，在该窗体上还实现新增刊物和刊物信息修改的功能。刊物信息管理窗体如图4-5所示：

图4-5 刊物信息管理界面
在DataList控件的Click事件下，通过SQL语句检索刊物名称为列表中所选刊物的信息，由于文本框与DataList的控件邦定是同一数据库同一个表，所以文本框会自动显示与DataList 控件对应的刊物信息，代码如下：
Private Sub DataList1_Click()
Adodc1.RecordSource = "select * from 刊物信息表 where 刊物名称='" + DataList1.Text + "'"
Adodc1.Refresh
End Sub
通过按Enter键，使下一个文本框获得焦点，代码如下：
Private Sub TxtM_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn And Index < 6 Then TxtM(Index + 1).SetFocus
If KeyCode = vbKeyReturn And Index = 6 Then CmdSave.SetFocus
End Sub
使用ADO控件的AddNew方法新增记录，代码如下：
Private Sub LblAdd_Click()
LblAdd.Caption = "新增刊物"
LblModify.Caption = ""
Adodc1.Recordset.AddNew
For i = 0 To 7
TxtM(i).Enabled = True
TxtM(i).Text = ""
Next i
TxtM(0).SetFocus
End Sub
单击【确定】按钮，保存新增刊物或修改刊物信息，代码如下：
Private Sub CmdSave_Click()
If TxtM(0).Text = "" Then
MsgBox "刊物名称不允许为空！"
Exit Sub
End If
……
Adodc1.Recordset.Update '更新记录
Adodc2.Refresh '设置控件不可用
For i = 0 To 7
TxtM(i).Enabled = False
Next i
LblAdd.Caption = ""
LblModify.Caption = ""
End Sub
在取消按钮事件中，通过循环语句清空文本框数组中的内容，取消录入的信息代码如下：
Private Sub CmdCancel_Click()
For i = 0 To 7
TxtM(i).Text = ""
Next i
End Sub
4.2.4 稿费单管理设计
稿费单管理主完成稿费信息的新增和修改功能，通过单击主窗体中的“添加记录”和“修改记录”，设置当前操作是新增记录操作还是修改记录操作。如果为修改记录，那么修改记录的按钮可见，同时自动生成稿费单序号；如果为修改记录那么修改记录的按钮可见。另外，还可以通过序号列来查看某张稿费单的详细信息。
为了使用户信息更加明确方便管理，在其中添加了8个信息项：姓名、页码、金额、电话、邮编、Email、地址和日期，信息详尽，管理更是简单、方便、细致。
运行窗体如4-6所示：

图4-6 稿费单管理界面
在代码窗口申明部分，申明如下变量：
Dim i As Integer '定义整型变量
Dim r