【正文】 月都是變化的，所以為了科學管理、核算員工的考勤工資部分，這里分成二個子模塊來完成員工的考勤管理。這二個子模塊是：創(chuàng)建考勤表，維護考勤表。下面先介紹創(chuàng)建考勤表的設(shè)計過程。下面是創(chuàng)建考勤表的界面圖：該窗體同時也完成瀏覽已經(jīng)創(chuàng)建的考勤表的瀏覽和報表功能。圖47系統(tǒng)考勤表界面圖該窗體包括一個表格控件、一個文本框控件、一個組合框控件、四個按鈕控件。表格控件用來顯示所設(shè)定的年月的員工的考勤表，比如設(shè)定2000年1月，通過點擊相關(guān)按鈕觸發(fā)事件的發(fā)生后，該表格就可以顯示2000年1月的員工的考勤記載表。用戶可以通過該表格來瀏覽考勤西信息，但是不能通過表格顯示的數(shù)據(jù)來修改信息，信息的修改可以通過考勤信息維護窗體的功能來完成。文本框控件用于輸入年，組合框用于選擇考勤的月份。創(chuàng)建/瀏覽考勤按鈕的click事件：根據(jù)輸入的年、月在考勤表中查詢，如果記錄集為空，則表明該月的考勤表還沒有創(chuàng)建，則開始創(chuàng)建考勤表，初始化的數(shù)據(jù)中遲到次數(shù)、早退次數(shù)、缺席次數(shù)等為0，考勤記錄以后可以通過考勤維護窗體對該員工的出勤情況進行修改。如果記錄集非空，則表明該月的考勤表已經(jīng)創(chuàng)建，那么統(tǒng)給出提示后用戶可以瀏覽。通過記錄集來創(chuàng)建考勤表的原理如下：當用記錄集來完成了對考勤表按照年月為查詢條件查詢后，如果記錄集為空，(員工編號)，(遲到次數(shù))，等記錄集的字段值，再通過一個循環(huán)語句逐一完成上述的每位員工的操作，這樣就完成了對考勤表的設(shè)定的年月的數(shù)據(jù)值的創(chuàng)建。導出到excel按鈕的click事件將記錄集中的數(shù)據(jù)導出到excel表中實現(xiàn)報表打印。具體代碼如下:Dim WithEvents adoPrimaryRS As RecordsetDim WithEvents adoPrimaryRS1 As RecordsetPrivate Sub Command1_Click() If = 輸入年 Or = 選擇月 Then MsgBox 年月不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If a = b = c = a amp。 b Set adoPrimaryRS = New Recordset a = select * from kqinfo where 年月=39。 amp。 c amp。 39。, db, adOpenStatic, adLockOptimistic If Then Set adoPrimaryRS1 = New Recordset select * from ygInfo , db, adOpenStatic, adLockOptimistic Do While Not (員工編號) = (員工編號) (遲到次數(shù)) = 0 (早退次數(shù)) = 0 (缺席次數(shù)) = 0 (離崗次數(shù)) = 0 (備注) = 無 (年月) = c Loop Else MsgBox 該月考勤表已經(jīng)創(chuàng)建，確認開始瀏覽！, vbOKOnly + vbExclamation, 警告 End If select ,, from kqinfo,ygInfo where = and =39。 amp。 c amp。 39。, db, adOpenStatic, adLockOptimistic With myFlexGrid .Rows = 2 .CellAlignment = 4 .TextMatrix(1, 0) = 員工編號 .TextMatrix(1, 1) = 姓名 .TextMatrix(1, 2) = 遲到次數(shù) .TextMatrix(1, 3) = 早退次數(shù) .TextMatrix(1, 4) = 缺席次數(shù) .TextMatrix(1, 5) = 離崗次數(shù) .TextMatrix(1, 6) = 備注 .TextMatrix(1, 7) = 年月 Do While Not .Rows = .Rows + 1 .CellAlignment = 4 For j = 0 To 1 .TextMatrix(.Rows 1, j) = (j) Next j Loop End With = True End SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer Dim xlapp As Dim xlbook As Dim xlsheet As Set xlapp = CreateObject() = True Set xlbook = Set xlsheet = (1) (1, 1) = 員工編號 (1, 2) = 遲到次數(shù) (1, 3) = 早退次數(shù) (1, 4) = 缺席次數(shù) (1, 5) = 離崗次數(shù) (1, 6) = 備注 (1, 7) = 年月 i = 0 Do While ( = False) For j = 0 To 1 (i + 2, j + 1) = (j) Next j i = i + 1 Loop Set xlapp = Nothing Set xlbook = NothingEnd SubPrivate Sub Command3_Click() = 輸入年 = 選擇月 With myFlexGrid .Rows = 2 End With = FalseEnd SubPrivate Sub Command4_Click()Unload MeEnd SubPrivate Sub Form_Load()Left = ( Width) \ 2Top = ( Height) \ 2 With myFlexGrid .Rows = 2 .CellAlignment = 4 .TextMatrix(1, 0) = 教師編號 .TextMatrix(1, 1) = 遲到次數(shù) .TextMatrix(1, 2) = 早退次數(shù) .TextMatrix(1, 3) = 缺席次數(shù) .TextMatrix(1, 4) = 離崗次數(shù) .TextMatrix(1, 5) = 備注 .TextMatrix(1, 6) = 年月 End WithEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End SubPrivate Sub Text1_Click() = End Sub 考勤表的維護上面已經(jīng)完成了對所有員工按照給定年月創(chuàng)建了或者說初始化了員工的考勤表。初始化的時候，員工的考勤比如遲到，早退等次數(shù)設(shè)定為0。當員工在該年月中有遲到等情況發(fā)生時，管理員可以通過操作該窗體來記載該員工的遲到，早退等考勤情況。每記載一次比如遲到，數(shù)據(jù)庫中遲到的次數(shù)就被加1。最后根據(jù)實際遲到的總次數(shù)來計算扣除的考勤工資。下面是該窗體的設(shè)計界面圖：圖48操作窗體界面圖該窗體共有4個文本框控件，1個組合框控件，4個復選框按鈕控件，2個按鈕控件。文本框和組合框用來輸入和顯示考勤表記載的字段信息，復選框按鈕控件用來維護考勤情況。按鈕控件用來觸發(fā)相應(yīng)事件的發(fā)生。下面簡單分析一下記載按鈕的click事件：首先通過語句： select * from kqinfo where 員工編號=39。 amp。 a amp。 39。 and 年月=39。 amp。 d amp。 39。, db, adOpenStatic, adLockOptimistic If Then MsgBox 輸入可能有誤，考勤表中沒有相應(yīng)的考勤記錄！, vbOKOnly + vbExclamation, 警告 Exit Sub……來對考勤表中該員工的在輸入年月的情況下查詢，如果記錄集為空，則表明該考勤表中還沒有該考勤記錄存在，所以還不能進行考勤維護。需要先創(chuàng)建相應(yīng)的考勤表后來維護。如果記錄集非空，則根據(jù)復選框的值來進行考勤字段的維護。具體就是在考勤字段的基礎(chǔ)上加1。實現(xiàn)的語句如下：If = 1 Then (遲到次數(shù)) = (遲到次數(shù)) + 1 End If If = 1 Then (早退次數(shù)) = (早退次數(shù)) + 1 End If If = 1 Then (缺席次數(shù)) = (缺席次數(shù)) + 1 End If If = 1 Then (離崗次數(shù)) = End If 員工工資表窗體的設(shè)計通過管理人員輸入年、月，系統(tǒng)即可生成當月的員工工資表。如果輸入的年月工資表已經(jīng)生成，則系統(tǒng)給出提示，并可以瀏覽當月工資表。圖49員工工資表瀏覽界面圖書館該窗體包括一個表格控件、一個文本框控件、一個組合框控件、四個按鈕控件。文本框控件用于輸入年，組合框用于選擇工資的月份。創(chuàng)建/瀏覽月工資表按鈕的click事件：根據(jù)輸入的年月在工資表中查詢，如果沒有該月的工資則系統(tǒng)開始創(chuàng)建該月的員工工資記錄。創(chuàng)建時需要根據(jù)員工基本信息表中的基本工資、考勤表的該員工編號的考勤工資、加班表中的該員工編號的加班工資、業(yè)務(wù)檔案表中的崗位工資、系數(shù)表中的工資系數(shù)進行計算分別得出員工的工資表中的每項記錄。最后生成的工資項有：員工號、姓名、基本工資、崗位工資、加班津貼、考勤工資、行政性扣款、應(yīng)發(fā)工資、個人所得稅、實發(fā)工資、年月。應(yīng)發(fā)工資最后實現(xiàn)的語句：x = (基本工資) + (崗位津貼) + (加班津貼) (考勤工資) (行政性扣款) (應(yīng)發(fā)工資) = x通過以上語句可以看出，應(yīng)發(fā)工資是有基本工資＋崗位工資＋加班津貼－考勤工資－個人所得稅。個人所得稅是在應(yīng)發(fā)工資的基礎(chǔ)上－800的差乘20%得到的。實現(xiàn)的語句：y = x 800 If y 0 Then (個人所得稅) = y * Else (個人所得稅) = 0 End If計算完應(yīng)發(fā)工資和個人所得稅后最終的實發(fā)工資就可以計算出來了。實現(xiàn)的語句是：(實發(fā)工資) = x (個人所得稅)如果該月工資已經(jīng)創(chuàng)建，則系統(tǒng)給出提示后，用戶可以瀏覽該月的工資表記錄。導出到EXCEL表按鈕的clcik事件：將工資記錄集中的數(shù)據(jù)導出到excel表中，通過excel表完成報表打印。具體代碼如下:Dim WithEvents adoPrimaryRS As RecordsetDim WithEvents adoPrimaryRS1 As RecordsetDim WithEvents adoPrimaryRS2 As RecordsetDim WithEvents adoPrimaryRS3 As RecordsetDim WithEvents adoPrimaryRS4 As RecordsetDim WithEvents adoPrimaryRS5 As RecordsetDim WithEvents adoPrimaryRS6 As RecordsetPrivate Sub Command1_Click() If = 輸入年 Or = 選擇月 Then MsgBox 年月不能為空！, vbOKOnly + vbExclamation