如何應(yīng)用VB編寫授課酬金軟件

摘 要： 本文通過將計算機技術(shù)和數(shù)據(jù)庫技術(shù)相結(jié)合，利用VB軟件 和ACCESS數(shù)據(jù)庫進行授課酬金系統(tǒng)的設(shè)計和程序開發(fā)，提高了授課酬金的計算效率，也提高了教務(wù)管理的信息化建設(shè)水平。

關(guān)鍵詞： 數(shù)據(jù)庫 授課酬金軟件 ACCESS

授課酬金軟件由于是各個單位自行開發(fā)的軟件，所使用的數(shù)據(jù)庫和計算機軟件都不一樣。目前，流行的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)有Oracle，Microsoft SQLServer，Access等，這些數(shù)據(jù)庫采用了SQL語言標準，SQL語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等[1]。本文采用的數(shù)據(jù)庫系統(tǒng)是Access，前臺開發(fā)軟件使用VB軟件。

而在開發(fā)初期，需求分析對軟件開發(fā)至關(guān)重要。如果在軟件開發(fā)初期不完全了解軟件應(yīng)具有的功能，那么在做的時候再想添加，完全有可能完全重做已完成的部分，造成軟件開發(fā)時間的延長，不能在預(yù)定時間內(nèi)完成[2]。因此在和教務(wù)處的老師進行探討后，設(shè)計了如下圖中所涉及的幾個模塊、打印預(yù)覽模塊和打印模塊。

1.生成數(shù)據(jù)庫和表單

1.1生成數(shù)據(jù)庫

（1）打開VB軟件，點擊菜單欄上“外接程序”窗口，出現(xiàn)下拉菜單，點擊其中的“可視化數(shù)據(jù)管理器”，出現(xiàn)VISDATA窗口。

（2）點擊菜單欄上的“文件”并選擇其中的“新建”，再選擇MICROSOFT ACCESS VIERSION 7.0 MDB，就可出現(xiàn)建立數(shù)據(jù)庫的窗口，輸入相應(yīng)的數(shù)據(jù)庫文件名。

1.2生成表單

在“新建表”中輸入所需要的字段后，關(guān)閉該表，單擊“生成表”按鈕，就可在VB窗口中出現(xiàn)系統(tǒng)生成的表單，對表單中的文本框、標簽、命令按鈕、DATA1的字體、大小、位置進行調(diào)整，調(diào)整后的表單如下圖所示。

2.關(guān)鍵技術(shù)

2.1授課酬金的自動生成

由于在數(shù)據(jù)庫表單中涉及酬金合計字段，如果手工計算這個字段值，費時費力，為了方便快捷，可讓系統(tǒng)自動計算這個字段值。關(guān)鍵語句如下：

在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"）

本文的數(shù)據(jù)庫表中字段如上圖所示，職稱系數(shù)的index屬性值為4，周標準課時的index屬性值為18，超課時數(shù)的index屬性值為19，實習實訓工作量的index屬性值為21，出卷費的index屬性值為22，批卷費的index屬性值為23，監(jiān)考次數(shù)的index屬性值為24，周數(shù)的index屬性值為25，月課時費的index屬性值為26，其他各字段的index屬性值依次增加，酬金合計的index屬性值為33，這樣系統(tǒng)就自動計算了酬金合計這個字段值。

2.2路徑設(shè)置

2.3生成報表

在制作報表的過程中，通常采用的是VB企業(yè)版附帶的第三方報表書寫器Crystal Reports。

2.3.1報表的制作

（1）打開VB軟件，點擊菜單欄上的“外接程序”，選擇其中的“報表設(shè)計器”，就可以進入報表設(shè)計環(huán)境中。

（2）點擊菜單欄上“File”中的“New”，然后根據(jù)系統(tǒng)提示就可生成簡單的授課酬金報表，再對授課酬金報表進行相應(yīng)的修改。

（3）在總計時，需通過菜單欄上“Insert”中的“Text Field”插入文本字段；在計算總頁數(shù)時，需通過“Insert”中的“Formula Field”編輯Truncate（i）/10+1（i具有計數(shù)的功能），并通過工具欄上的小數(shù)點后移按鈕使小數(shù)點后移兩位，從而成為整數(shù)。

2.3.2報表控件的應(yīng)用

（1）由于Crystal Reports不是VB的標準控件，而是Active X控件。使用時，要首先點擊菜單欄上“工程”中的“部件”，打開部件窗口，選擇Crystal Reports Control控件；

（2）新建一個窗體，并把Crystal Reports Control控件拖到此窗體上，再拖兩個Command按鈕和一個Label1按鈕，將Command1的Caption屬性改為“打印”或“打印預(yù)覽”，Command2的Caption屬性改為“關(guān)閉”，Label1的Caption屬性改為自己所需要的標題，如“寧夏建設(shè)職業(yè)技術(shù)學院授課酬金表”，并對字體、大小、位置等進行設(shè)置。如果要將其發(fā)布給用戶，還要設(shè)定數(shù)據(jù)庫、報表的路徑和文件名，否則將會出現(xiàn)錯誤。關(guān)鍵代碼如下：

（3）右擊Crystal Reports Control控件，如果要打印輸出，就要在快捷菜單中選擇“Crystal Properties”，在屬性頁的General選項卡中選擇“To Printer”復選框；如果要打印預(yù)覽，就在屬性頁的General選項卡中選擇“To Window”復選框。

2.4生成.EXE文件

退出VB環(huán)境，運行Package & Deployment向?qū)?，根?jù)系統(tǒng)提示就可生成.EXE文件。如果要將其發(fā)布給用戶進行安裝，就要把數(shù)據(jù)庫文件和報表文件拷貝到安裝程序的子目錄下。

3.本程序的主要代碼

4.結(jié)語

本文以ACCESS為后臺數(shù)據(jù)庫，利用VB軟件開發(fā)了一套授課酬金軟件，通過使用，本系統(tǒng)基本達到了預(yù)期的目標，同時系統(tǒng)運行安全可靠，為專門計算課酬的老師提供了方便，也提高了工作效率。

參考文獻：

[1]劉史華.建立企業(yè)計算機集成制造系統(tǒng)（CIMS）：廣東出版社，2003.2.

[2]吳澄.信息技術(shù)與企業(yè)的生存發(fā)展：電子工業(yè)出版社，1997.4.