2024年5月24日发(作者：)

如何应用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）中加

入代码

（26）=val（（4））*val

（（18））*15*val（（25））+val

（（19））*30*val（（4））*val

（（25））+val（（20））*15*val

（（4））*val（（25））+val

（（21））+val（（22））+val

（（23））+val（（24））*20

（33）=format（val（（26））

+val（（28））-val（（30））+val

（（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.