劉春東 張東輝 戴美魁 霍珍珍 劉 洋

（河北建筑工程學(xué)院，河北 張家口075000）

1 前 言

外聘教師工資管理是一項瑣碎、復(fù)雜又十分細致的工作，不允許發(fā)生差錯.最初的工資統(tǒng)計和發(fā)放都是使用人工方式處理，工作量大的時候，出現(xiàn)錯誤的機率也隨之升高，花費財務(wù)人員大量的時間，而且往往由于抄寫不慎，或者由于計算的疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象.同時工資的發(fā)放具有較強的時間限制，必須嚴格按照學(xué)校規(guī)定的時間完成計算和發(fā)放工作.正是外聘教師工資管理的這種規(guī)律性、復(fù)雜性、時間性，使得外聘教師工資管理計算機化成為可能.外聘教師工資管理系統(tǒng)就是使用電腦代替大量的人工統(tǒng)計和計算，完成眾多企業(yè)工資信息的處理，同時使用電腦還可以安全地、完整地保存大量的工資記錄.

2 外聘教師工資管理系統(tǒng)設(shè)計［1－4］

1）系統(tǒng)功能分析

根據(jù)外聘教師情況及實現(xiàn)目標，系統(tǒng)功能模塊如圖1所示.

圖1 系統(tǒng)功能模塊框圖

系統(tǒng)最終實現(xiàn)的主要功能如下：

（1）系統(tǒng)模塊設(shè)置：實現(xiàn)系統(tǒng)的登錄，及密碼修改.

（2）外聘教師個人信息管理部分：實現(xiàn)外聘教師個人基本信息錄入、修改及查詢功能.

（3）外聘教師工資信息設(shè)置模塊：包括設(shè)置外聘教師每課時工資、月發(fā)放工資及個人所得稅，實現(xiàn)外聘教師工資的計算功能.

（4）系統(tǒng)信息設(shè)置模塊：包括用戶的密碼信息等，實現(xiàn)系統(tǒng)的密碼修改.

2）“主窗體”模塊設(shè)計

主窗體設(shè)計的界面首先通過設(shè)計向?qū)?，設(shè)計出符合Windows使用習(xí)慣的主窗體，然后通過菜單編輯器對主窗體進行編輯添加系統(tǒng)需要的菜單選項.主窗體主要由系統(tǒng)、數(shù)據(jù)、查詢和報表四個主模塊組成，如圖2所示.在各模塊中有相應(yīng)的窗體以滿足系統(tǒng)的需求.

圖2 “主窗體”模塊

3）“外聘教師基本信息”窗體設(shè)計

該窗體需要實現(xiàn)三個功能：添加外聘教師的個人基本資料、聘任部門、聘期、聘期內(nèi)所教課程、學(xué)時、實驗、課設(shè)、畢設(shè)等相關(guān)信息；對現(xiàn)有外聘教師的基本信息進行查詢、編輯、刪除；增加新的外聘教師信息；并將這些信息存入數(shù)據(jù)庫.在該窗體中，需要在窗體中添加ADO控件，使用ADO對象鏈接數(shù)據(jù)庫，對數(shù)據(jù)庫進行相應(yīng)的操作，如圖3所示.部分程序清單如下：

圖3 “外聘教師基本信息”窗體模塊

Dim iID As Integer，bAdd As Boolean

Private IsConnect As Boolean＇標記數(shù)據(jù)庫是否連接

Private cn As ADODB.Connection＇連接數(shù)據(jù)庫的Connection對象

Private rs As ADODB.Recordset＇保存結(jié)果集的Recordset對象

Public strSQL As String＇保存執(zhí)行SQL語句的字符串

Public Conn As String＇連接字符串

Public strDB As String＇數(shù)據(jù)庫名稱

Private Sub Adodc1＿Click（）

End Sub

…

Public Function QueryExt（ByVal strSQLstmt As String）As ADODB.Recordset＇執(zhí)行數(shù)據(jù)庫查詢語句

Dim rst As New ADODB.Recordset

Connect＇連接到數(shù)據(jù)庫

Set rst.ActiveConnection＝cn＇設(shè)置rst的ActiveConnection屬性，指定與其關(guān)聯(lián)的數(shù)據(jù)庫連接

rst.CursorType＝adOpenDynamic＇設(shè)置游標類型

rst.LockType＝adLockOptimistic＇設(shè)置鎖定類型

rst.Open strSQLstmt＇打開記錄集

Set QueryExt＝rst＇返回記錄集

End Function

4）“工資查詢報表”窗體設(shè)計

在該窗體中，可以實現(xiàn)外聘教師的工資查詢，如應(yīng)發(fā)工資，實發(fā)工資，稅后每月應(yīng)發(fā)工資等.還可以將工資導(dǎo)出成Excel表格，如圖4，5所示.在該窗體中，主要是由ADODC1控件和DataGrid控件組成，ADODC1控件主要是用于連接數(shù)據(jù)庫，可以對數(shù)據(jù)庫進行查詢.DataGrid主要是顯示想要的數(shù)據(jù).

圖4 外聘教師工資導(dǎo)出窗體

圖5 外聘教師工資導(dǎo)出到Excel

部分程序清單如下：

Option Explicit

Dim i，j，k As Integer

Dim xlapp As Variant

Dim xlBook As Variant

Dim xlSHEET As Variant

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strSQL2As String

Dim IsConnect As Boolean

Private Sub cmbPQ＿Change（）

rs＝"select distinct from工資where聘期＝"＋"＇"＋cmbPQ.Value＋"＇group by聘期"

Adodc1.Refresh

Set DataGrid1.DataSource＝rs

DataGrid.Refresh

End Sub

…

Public Function QueryExt（ByVal strSQLstmt As String）As ADODB.Recordset＇執(zhí)行數(shù)據(jù)庫查詢語句

Dim rst As New ADODB.Recordset

Connect＇連接到數(shù)據(jù)庫

Set rst.ActiveConnection＝cn

＇設(shè)置rst的ActiveConnection屬性，指定與其關(guān)聯(lián)的數(shù)據(jù)庫連接

rst.CursorType＝adOpenDynamic＇設(shè)置游標類型

rst.LockType＝adLockOptimistic＇設(shè)置鎖定類型

rst.Open strSQLstmt＇打開記錄集

Set QueryExt＝rst＇返回記錄集

End Function

［1］周緒，管麗娜.白海波.Access 2000中文版入門與提高.北京：清華大學(xué)出版社，2003.2

［2］劉韜等.Visual Basic 6.0數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航.北京：人民郵電出版社，2002.8

［3］沈洪，施明利，等.VB程序設(shè)計.北京：清華大學(xué)出版社，2010.8

［4］楊忠寶，康順哲.VB語言程序設(shè)計教程.北京：人民郵電出版社，2010.11