【正文】 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 考勤表的維護(hù)上面已經(jīng)完成了對所有員工按照給定年月創(chuàng)建了或者說初始化了員工的考勤表。最后根據(jù)實(shí)際遲到的總次數(shù)來計(jì)算扣除的考勤工資。下面簡單分析一下記載按鈕的click事件：首先通過語句： select * from kqinfo where 員工編號=39。 and 年月=39。, db, adOpenStatic, adLockOptimistic If Then MsgBox 輸入可能有誤，考勤表中沒有相應(yīng)的考勤記錄！, vbOKOnly + vbExclamation, 警告 Exit Sub……來對考勤表中該員工的在輸入年月的情況下查詢，如果記錄集為空，則表明該考勤表中還沒有該考勤記錄存在，所以還不能進(jìn)行考勤維護(hù)。實(shí)現(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è)計(jì)通過管理人員輸入年、月，系統(tǒng)即可生成當(dāng)月的員工工資表。創(chuàng)建/瀏覽月工資表按鈕的click事件：根據(jù)輸入的年月在工資表中查詢，如果沒有該月的工資則系統(tǒng)開始創(chuàng)建該月的員工工資記錄。個(gè)人所得稅是在應(yīng)發(fā)工資的基礎(chǔ)上－800的差乘20%得到的。具體代碼如下: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, 警告 Exit Sub End If a = b = c = a amp。 39。 amp。實(shí)現(xiàn)的語句是：(實(shí)發(fā)工資) = x (個(gè)人所得稅)如果該月工資已經(jīng)創(chuàng)建，則系統(tǒng)給出提示后，用戶可以瀏覽該月的工資表記錄。最后生成的工資項(xiàng)有：員工號、姓名、基本工資、崗位工資、加班津貼、考勤工資、行政性扣款、應(yīng)發(fā)工資、個(gè)人所得稅、實(shí)發(fā)工資、年月。圖49員工工資表瀏覽界面圖書館該窗體包括一個(gè)表格控件、一個(gè)文本框控件、一個(gè)組合框控件、四個(gè)按鈕控件。如果記錄集非空，則根據(jù)復(fù)選框的值來進(jìn)行考勤字段的維護(hù)。 d amp。 a amp。文本框和組合框用來輸入和顯示考勤表記載的字段信息，復(fù)選框按鈕控件用來維護(hù)考勤情況。當(dāng)員工在該年月中有遲到等情況發(fā)生時(shí)，管理員可以通過操作該窗體來記載該員工的遲到，早退等考勤情況。 c amp。 c amp。導(dǎo)出到excel按鈕的click事件將記錄集中的數(shù)據(jù)導(dǎo)出到excel表中實(shí)現(xiàn)報(bào)表打印。文本框控件用于輸入年，組合框用于選擇考勤的月份。下面是創(chuàng)建考勤表的界面圖：該窗體同時(shí)也完成瀏覽已經(jīng)創(chuàng)建的考勤表的瀏覽和報(bào)表功能。, db, adOpenStatic, adLockOptimistic If Not Then MsgBox 該編號重復(fù)！, vbOKOnly + vbExclamation, 警告 Exit Sub Else (員工編號) = (崗位編號) = If = Then (業(yè)務(wù)檔案) = 無 Else (業(yè)務(wù)檔案) = End If MsgBox 記載成功！, vbOKOnly + vbExclamation, 提示 End If = = = End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Left = ( Width) \ 2Top = ( Height) \ 2 Set adoPrimaryRS = New Recordset select * from gwxsinfo , db, adOpenStatic, adLockOptimistic With Combo1 For i = 1 To .AddItem (崗位編號) Next i End With End Sub員工的考勤是員工工資核算的重要的組成部分之一。 具體代碼如下:Dim WithEvents adoPrimaryRS As RecordsetPrivate Sub Command1_Click() If = Then MsgBox 員工編號不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 崗位編號不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 業(yè)務(wù)檔案不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If Set adoPrimaryRS = New Recordset a = select * from TBInfo where 員工編號=39。按鈕的click事件和員工基本信息輸入的界面按鈕類似，不同是該按鈕觸發(fā)的事件連接的數(shù)據(jù)庫表是員工業(yè)務(wù)檔案表，而上面是員工基本信息表而已。本功能采用與人事檔案相同對象編程技術(shù)，固源碼得到了重用，這是軟件工程所提供的源碼重用過程，這樣不僅可以縮短開發(fā)周期及減少開發(fā)費(fèi)用。當(dāng)未越界的時(shí)候，一直循環(huán)。其它按鈕還有修改按鈕，添加按鈕，刪除按鈕，查找按鈕。 通過上面的員工基本信息輸入窗體可以得知，員工基本信息的輸入窗體是不具備數(shù)據(jù)的維護(hù)功能的，員工的基本信息的維護(hù)功能是通過另外設(shè)計(jì)的窗體完成的。 a amp。該窗體的源代碼具體如下:Dim WithEvents adoPrimaryRS As RecordsetPrivate Sub Command1_Click() If = Then MsgBox 員工編號不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 姓名不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 性別不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 部門不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 民族不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If = Then MsgBox 出生年月不能為空！, vbOKOnly + vbExclamation, 警告 Exit Sub End If If Not IsDate() Then MsgBox 生日應(yīng)輸入日期（yyyymmdd）！, vbOKOnly + vbExclamation, 警告 Exit Sub Else = Format(, yyyymmdd) End If If = Then MsgBox 政治面貌不能為空！, vbOKO