如何應用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.