如何应用VB编写授课酬金软件

摘 要： 本文通过将计算机技术和数据库技术相结合，利用VB软件 和ACCESS数据库进行授课酬金系统的设计和程序开发，提高了授课酬金的计算效率，也提高了教务管理的信息化建设水平。

关键词： 数据库 授课酬金软件 ACCESS

授课酬金软件由于是各个单位自行开发的软件，所使用的数据库和计算机软件都不一样。目前，流行的关系型数据库管理系统有Oracle，Microsoft SQLServer，Access等，这些数据库采用了SQL语言标准，SQL语句可以用来执行各种各样的操作，例如更新数据库中的数据，从数据库中提取数据等[1]。本文采用的数据库系统是Access，前台开发软件使用VB软件。

而在开发初期，需求分析对软件开发至关重要。如果在软件开发初期不完全了解软件应具有的功能，那么在做的时候再想添加，完全有可能完全重做已完成的部分，造成软件开发时间的延长，不能在预定时间内完成[2]。因此在和教务处的老师进行探讨后，设计了如下图中所涉及的几个模块、打印预览模块和打印模块。

1.生成数据库和表单

1.1生成数据库

（1）打开VB软件，点击菜单栏上“外接程序”窗口，出现下拉菜单，点击其中的“可视化数据管理器”，出现VISDATA窗口。

（2）点击菜单栏上的“文件”并选择其中的“新建”，再选择MICROSOFT ACCESS VIERSION 7.0 MDB，就可出现建立数据库的窗口，输入相应的数据库文件名。

1.2生成表单

在“新建表”中输入所需要的字段后，关闭该表，单击“生成表”按钮，就可在VB窗口中出现系统生成的表单，对表单中的文本框、标签、命令按钮、DATA1的字体、大小、位置进行调整，调整后的表单如下图所示。

2.关键技术

2.1授课酬金的自动生成

由于在数据库表单中涉及酬金合计字段，如果手工计算这个字段值，费时费力，为了方便快捷，可让系统自动计算这个字段值。关键语句如下：

在Private sub txtfields_change（index as integer）中加入代码

txtFields.Item（26）=Val（txtFields.Item（4））*Val（txtFields.Item（18））*15*Val（txtFields.Item（25））+Val（txtFields.Item（19））*30*Val（txtFields.Item（4））*Val（txtFields.Item（25））+Val（txtFields.Item（20））*15*Val（txtFields.Item（4））*Val（txtFields.Item（25））+Val（txtFields.Item（21））+Val（txtFields.Item（22））+Val（txtFields.Item（23））+Val（txtFields.Item（24））*20

txtFields.Item（33）=Format（Val（txtFields.Item（26））+Val（txtFields.Item（28））-Val（txtFields.Item（30））+Val（txtFields.Item（32）），"##.#0"）

本文的数据库表中字段如上图所示，职称系数的index属性值为4，周标准课时的index属性值为18，超课时数的index属性值为19，实习实训工作量的index属性值为21，出卷费的index属性值为22，批卷费的index属性值为23，监考次数的index属性值为24，周数的index属性值为25，月课时费的index属性值为26，其他各字段的index属性值依次增加，酬金合计的index属性值为33，这样系统就自动计算了酬金合计这个字段值。

2.2路径设置

2.3生成报表

在制作报表的过程中，通常采用的是VB企业版附带的第三方报表书写器Crystal Reports。

2.3.1报表的制作

（1）打开VB软件，点击菜单栏上的“外接程序”，选择其中的“报表设计器”，就可以进入报表设计环境中。

（2）点击菜单栏上“File”中的“New”，然后根据系统提示就可生成简单的授课酬金报表，再对授课酬金报表进行相应的修改。

（3）在总计时，需通过菜单栏上“Insert”中的“Text Field”插入文本字段；在计算总页数时，需通过“Insert”中的“Formula Field”编辑Truncate（i）/10+1（i具有计数的功能），并通过工具栏上的小数点后移按钮使小数点后移两位，从而成为整数。

2.3.2报表控件的应用

（1）由于Crystal Reports不是VB的标准控件，而是Active X控件。使用时，要首先点击菜单栏上“工程”中的“部件”，打开部件窗口，选择Crystal Reports Control控件；

（2）新建一个窗体，并把Crystal Reports Control控件拖到此窗体上，再拖两个Command按钮和一个Label1按钮，将Command1的Caption属性改为“打印”或“打印预览”，Command2的Caption属性改为“关闭”，Label1的Caption属性改为自己所需要的标题，如“宁夏建设职业技术学院授课酬金表”，并对字体、大小、位置等进行设置。如果要将其发布给用户，还要设定数据库、报表的路径和文件名，否则将会出现错误。关键代码如下：

（3）右击Crystal Reports Control控件，如果要打印输出，就要在快捷菜单中选择“Crystal Properties”，在属性页的General选项卡中选择“To Printer”复选框；如果要打印预览，就在属性页的General选项卡中选择“To Window”复选框。

2.4生成.EXE文件

退出VB环境，运行Package & Deployment向导，根据系统提示就可生成.EXE文件。如果要将其发布给用户进行安装，就要把数据库文件和报表文件拷贝到安装程序的子目录下。

3.本程序的主要代码

4.结语

本文以ACCESS为后台数据库，利用VB软件开发了一套授课酬金软件，通过使用，本系统基本达到了预期的目标，同时系统运行安全可靠，为专门计算课酬的老师提供了方便，也提高了工作效率。

参考文献：

[1]刘史华.建立企业计算机集成制造系统（CIMS）：广东出版社，2003.2.

[2]吴澄.信息技术与企业的生存发展：电子工业出版社，1997.4.