【正文】 入的是否為空，接著連接數(shù)據(jù)庫(kù)，建立記錄集，并利用記錄集打開(kāi)查詢，最后對(duì)該查詢記錄集增加一條記錄，語(yǔ)句：。這樣就完成了對(duì)員工基本信息表的添加記錄。 Set adoPrimaryRS = New Recordset a = select * from ygInfo where 員工編號(hào)=39。, db, adOpenStatic, adLockOptimistic If Not Then MsgBox 該編號(hào)重復(fù)！, vbOKOnly + vbExclamation, 警告 Exit Sub Else (員工編號(hào)) = (姓名) = (性別) = (部門) = (民族) = (出生年月) = (政治面貌) = (家庭住址) = (聯(lián)系電話) = (畢業(yè)學(xué)校) = (最高學(xué)歷) = (所學(xué)專業(yè)) = If = Then (職務(wù)) = 無(wú) Else (職務(wù)) = End If (專業(yè)技術(shù)職稱) = (職稱時(shí)間) = (基本工資) = If = Then (獎(jiǎng)懲情況) = 無(wú) Else (獎(jiǎng)懲情況) = End If If = Then (個(gè)人簡(jiǎn)歷) = 無(wú) Else (個(gè)人簡(jiǎn)歷) = End If MsgBox 記載成功！, vbOKOnly + vbExclamation, 提示End If = = = = = = = = = = = = = = = = = = End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Left = ( Width) \ 2Top = ( Height) \ 2End Sub通過(guò)該窗體的操作，系統(tǒng)可以完成對(duì)員工的基本信息的錄入。第一條，上一條，下一條，最后條的按鈕的click事件分別是將記錄集進(jìn)行移動(dòng)，實(shí)現(xiàn)文本框，組合框的不同的顯示。下面簡(jiǎn)單介紹查找定位按鈕的click事件，其它按鈕的事件源代碼可以參考附件和程序。這樣當(dāng)最后下標(biāo)越界的時(shí)候，說(shuō)明沒(méi)有找到該記錄，(員工編號(hào)) =a則文本框顯示記錄。如下圖：圖46早期人事信息管理系統(tǒng)圖窗體的設(shè)計(jì)包括2個(gè)文本框和1個(gè)組合框，其中1個(gè)文本框?qū)?yīng)的字段由于是備注型，所以文本框的屬性值設(shè)定為： Multiline屬性設(shè)置為True。錄入后檔案的信息的維護(hù)，包括信息的修改，刪除，等操作，可以通過(guò)檔案信息維護(hù)窗體來(lái)完成。 a amp。這二個(gè)子模塊是：創(chuàng)建考勤表，維護(hù)考勤表。表格控件用來(lái)顯示所設(shè)定的年月的員工的考勤表，比如設(shè)定2000年1月，通過(guò)點(diǎn)擊相關(guān)按鈕觸發(fā)事件的發(fā)生后，該表格就可以顯示2000年1月的員工的考勤記載表。如果記錄集非空，則表明該月的考勤表已經(jīng)創(chuàng)建，那么統(tǒng)給出提示后用戶可以瀏覽。 b Set adoPrimaryRS = New Recordset a = select * from kqinfo where 年月=39。, db, adOpenStatic, adLockOptimistic If Then Set adoPrimaryRS1 = New Recordset select * from ygInfo , db, adOpenStatic, adLockOptimistic Do While Not (員工編號(hào)) = (員工編號(hào)) (遲到次數(shù)) = 0 (早退次數(shù)) = 0 (缺席次數(shù)) = 0 (離崗次數(shù)) = 0 (備注) = 無(wú) (年月) = c Loop Else MsgBox 該月考勤表已經(jīng)創(chuàng)建，確認(rèn)開(kāi)始瀏覽！, vbOKOnly + vbExclamation, 警告 End If select , from kqinfo,ygInfo where = and =39。, db, adOpenStatic, adLockOptimistic With myFlexGrid .Rows = 2 .CellAlignment = 4 .TextMatrix(1, 0) = 員工編號(hào) .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) = 員工編號(hào) (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) = 教師編號(hào) .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)完成了對(duì)所有員工按照給定年月創(chuàng)建了或者說(shuō)初始化了員工的考勤表。最后根據(jù)實(shí)際遲到的總次數(shù)來(lái)計(jì)算扣除的考勤工資。下面簡(jiǎn)單分析一下記載按鈕的click事件：首先通過(guò)語(yǔ)句： select * from kqinfo where 員工編號(hào)=39。 and 年月=39。, db, adOpenStatic, adLockOptimistic If Then MsgBox 輸入可能有誤，考勤表中沒(méi)有相應(yīng)的考勤記錄！, vbOKOnly + vbExclamation, 警告 Exit Sub……來(lái)對(duì)考勤表中該員工的在輸入年月的情況下查詢，如果記錄集為空，則表明該考勤表中還沒(méi)有該考勤記錄存在，所以還不能進(jìn)行考勤維護(hù)。實(shí)現(xiàn)的語(yǔ)句如下：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ì)通過(guò)管理人員輸入年、月，系統(tǒng)即可生成當(dāng)月的員工工資表。創(chuàng)建/瀏覽月工資表按鈕的click事件：根據(jù)輸入的年月在工資表中查詢，如果沒(méi)有該月的工資則系統(tǒng)開(kāi)始創(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 + vbExclamatio