【文章內(nèi)容簡(jiǎn)介】 信息模塊,員工考勤模塊,員工評(píng)價(jià)模塊和員工工資管理模塊。在編寫程序的具體代碼之前首先要?jiǎng)?chuàng)建公用模塊,VB中可以用公用模塊來(lái)存放整個(gè)工程項(xiàng)目公用的函數(shù),過(guò)程和全局變量等。這樣可以極大的提高代碼的效率。在項(xiàng)目資源管理器中為項(xiàng)目添加一個(gè)Module,并保存就可以開始添加代碼了。公用代碼如下:Public Function ExecuteSQL(ByVal SQL _As String, MsgString As String) _As Dim n As Dim rst As Dim sTokens() As StringOn Error GoTo ExecuteSQL_ErrorsTokens = Split(SQL)Set n = New ConnectStringIf InStr(INSERT,DELETE,UPDATE, _UCase$(sTokens(0))) Then SQLMsgString = sTokens(0) amp。 _ query successfulElseSet rst = New Trim$(SQL), n, _adOpenKeyset, _adLockOptimisticSet ExecuteSQL = rstMsgString = 查詢到 amp。 amp。 _ 條記錄 End IfExecuteSQL_Exit:Set rst = NothingSet n = NothingExit FunctionExecuteSQL_Error:MsgString = 查詢錯(cuò)誤: amp。 _Resume ExecuteSQL_ExitEnd FunctionPublic Function ConnectString() As StringConnectString = FileDSN=End Function以上兩個(gè)函數(shù)代碼分別用來(lái)完成執(zhí)行各種SQL語(yǔ)句和連接數(shù)據(jù)庫(kù)。 員工基本信息模塊該模塊主要完成員工基本信息的輸入、查詢與修改,它定義了三個(gè)主要窗口:信息添加窗口、復(fù)合查詢窗口、員工信息列表窗口。 員工信息添加窗口用來(lái)添加員工個(gè)人信息,可供用戶瀏覽查詢及以記錄為單在窗體上放置多個(gè)文本框和下拉式列表框,用來(lái)輸入員工個(gè)人基本信息,工作信息和其它信息。多個(gè)標(biāo)簽用來(lái)提示多個(gè)文本框所需要的內(nèi)容。兩個(gè)按鈕用來(lái)確定是否添加員工信息。一個(gè)下拉列表框用來(lái)顯示員工的性別。員工基本信息中是以工號(hào)為主鍵,來(lái)識(shí)別表的唯一性。在員工性別錄入中使用了ComboBox下拉列表控件,在載入窗體時(shí)程序?qū)⒆詣?dòng)在兩個(gè)下拉式文本框中添加內(nèi)容,這樣可以規(guī)范化輸入內(nèi)容,其中加入了”男” 、”女”。用戶可以直接從下拉表中選擇需要的輸入條件。輸入的出生日期按照YYYYMMDD的統(tǒng)一格式來(lái)錄入。在備注文本編輯框中可以對(duì)窗體中沒有提及到的一些員工信息進(jìn)行編輯,讓檔案的錄入更加完備、全面。當(dāng)用戶輸寫完信息后單擊保存按扭,就將員工信息存儲(chǔ)到后臺(tái)的SQL SERVER數(shù)據(jù)庫(kù)中。如果數(shù)據(jù)庫(kù)中存在與此項(xiàng)添加的員工檔案相同的數(shù)據(jù),按確定后將彈出消息對(duì)話框”己存在此員工的信息”,提示用戶己經(jīng)存在此員工的信息,從而避免了相同員工信息的重復(fù)錄入。載入窗體時(shí),將首先通過(guò)整型變量gintmode的值來(lái)判斷是添加還是修改狀態(tài)(1為添加,2為修改)。如果是添加狀態(tài),性別選擇框?qū)⑦x擇第一個(gè)。如果是修改狀態(tài),將選擇顯示當(dāng)前的記錄。員工信息的添加窗口如圖43:圖43 員工信息添加窗體在員工信息模塊中添加了一項(xiàng)查詢功能,這樣可以使用戶更加方便的操作所需要信息,大大節(jié)約了搜索的時(shí)間。查詢功能使用復(fù)合查詢的模式。分為按工號(hào)查詢、按員工姓名查詢和按員工部門查詢。用戶可以根據(jù)實(shí)際需要選擇其中的一項(xiàng)或幾項(xiàng)。首先點(diǎn)擊要先擇的CheckBox復(fù)選框控件,這時(shí)光標(biāo)自動(dòng)移動(dòng)到它對(duì)應(yīng)的文本框,只要在相應(yīng)的文本框中輸入要查找的內(nèi)容,然后點(diǎn)擊確定按扭即完成了此項(xiàng)操作,并以MSFlexGird列表的形式顯示出數(shù)據(jù)。查詢功能的另一個(gè)特點(diǎn)是如果用戶對(duì)查詢窗口不做任何操作,直接點(diǎn)擊確定按扭,在查詢結(jié)果的列表窗口中顯示出所有員工的信息。選擇查詢條件輸入查詢的內(nèi)容開始查詢?顯示查詢結(jié)果再次查詢?返回主窗體清空查詢條件 N Y 圖44 查詢功能的數(shù)據(jù)流程圖:圖45 員工檔案查詢窗體在介紹了上述兩項(xiàng)功能之后,將講述一下員工信息的修改與刪除的功能。這兩項(xiàng)功能都是在MSFlexGird列表中實(shí)現(xiàn)的。首先如果用戶需要修改一些信息,可以在菜單中選擇修改信息,這時(shí),如果沒有先擇要具體修改的信息,將出現(xiàn)消息對(duì)話框,通知用戶選擇一條要修改的記錄,然后則通過(guò)SQL語(yǔ)句載入窗體,觸發(fā)窗體的Load事件,顯示員工信息列表窗體并列出所有員工的信息,在窗體的下部放置了一個(gè)修改按扭。用戶在列表中選擇了要操作的員工記錄后點(diǎn)擊該按扭,屏幕將出現(xiàn)員工信息添加窗體,窗體中體現(xiàn)出上一步用戶所選擇的員工記錄,在具體的文本框中寫入修改的記錄,單擊保存按鈕出現(xiàn)”記錄保存成功”消息對(duì)話框,點(diǎn)擊確定按扭返回員工列表窗體,至此己完成了對(duì)員工信息的修改。刪除員工信息的功能和修改功能類似,在列表中選擇要?jiǎng)h除的記錄后點(diǎn)擊鼠標(biāo)右鍵,在彈出的子窗體中選擇刪除信息彈出”是否刪除此記錄”對(duì)話框,點(diǎn)擊確定后完成了信息的刪除操作。值得注意的是在員工列表窗體中使用了PopupMenu函數(shù)來(lái)調(diào)用主窗體中的員工檔案菜單,使得操作更加簡(jiǎn)單、方便。圖46 員工檔案列表窗體至此,員工信息管理模塊己經(jīng)完成。它使用了MDI結(jié)構(gòu)應(yīng)用開發(fā),它可以實(shí)現(xiàn)多個(gè)窗口的統(tǒng)一顯示和管理,便于在不同功能之間快速的切換。 員工考勤模塊員工考勤管理模塊主要實(shí)現(xiàn)如下功能：1 添加員工考勤信息2 修改員工考勤信息3 刪除員工考勤信息4 查詢員工考勤信息考勤管理是每個(gè)企事業(yè)所必需的,計(jì)算機(jī)管理系統(tǒng)的出現(xiàn)使員工出勤情況的記錄和統(tǒng)計(jì)變得十分簡(jiǎn)單。考勤管理用于員工出入單位的情況錄入,請(qǐng)假、加班和出差情況的錄入,每個(gè)月底進(jìn)行整個(gè)月的出勤情況統(tǒng)計(jì)。另外,考勤管理為工資管理直接提供每個(gè)月工作時(shí)間的統(tǒng)計(jì)結(jié)果,用以計(jì)算工資,同時(shí)考勤管理也需要其它功能所提供的員工、部門等信息?？记诠芾砟K同樣使用VB的ADO數(shù)據(jù)對(duì)象連接SQL SERVER數(shù)據(jù)庫(kù),使得前臺(tái)與后臺(tái)成功連接。主要分為考勤添加、考勤查詢和修改、刪除等功能。考勤添加模塊主要是用來(lái)實(shí)現(xiàn)系統(tǒng)用戶對(duì)企業(yè)現(xiàn)有員工的考勤登記,包括出勤記錄、請(qǐng)假記錄、加班記錄和出差記錄。在主窗體的菜單中選擇考勤添加便進(jìn)入了考勤添加窗體。窗體中使用了SSTAB控件,使界面和功能更加完美。在添加記錄之前,用戶可以根據(jù)現(xiàn)有員工檔案的具體情況選擇進(jìn)行添加,在基本信息標(biāo)簽頁(yè)中選擇部門下拉列表框,其中包含了企業(yè)的所有部門。它的具體實(shí)現(xiàn)是通過(guò)ADODC控件綁定到員工信息數(shù)據(jù)表中,從表中使用DISTINCT選擇不同的部門名稱加入到下拉列表中。當(dāng)用戶選擇了一個(gè)具體的部門之后,在隨后的姓名列表中將通過(guò)SQL語(yǔ)句列出此部門的所有員工的姓名,而同時(shí)在員工工號(hào)的文本框中自動(dòng)添加了此員工的工號(hào)。這種使用方式的好處是讓用戶可以根據(jù)員工檔案的具體情況進(jìn)行編輯,對(duì)每個(gè)員工進(jìn)行考勤錄入,從而避免了不了解企業(yè)內(nèi)部員工檔案的實(shí)際情況而造成錯(cuò)誤的可能,同時(shí)也大大縮短了考勤操作的時(shí)間。選擇了員工的姓名之后就可以在考勤項(xiàng)目中添加所需要的數(shù)據(jù)并選擇SSTAB控件的不同頁(yè)面進(jìn)行輸入。完成上述所有操作之后單擊保存按扭將所有記錄添加到數(shù)據(jù)庫(kù)中。如果出現(xiàn)相同記錄,將出現(xiàn)消息對(duì)話框,提示用戶己存在及員工的考勤。若想取消上述操作,可以單擊退出按扭,該窗體將自動(dòng)關(guān)閉,并返回到系統(tǒng)的主窗體。選擇“添加考勤“菜單，將出現(xiàn)如圖47所示的窗體。圖47 員工考勤添加窗體考勤模塊的查詢功能仍然使用的是復(fù)合式查詢,分為按姓名查詢和按考勤的錄入時(shí)間查詢兩種,用戶可以根據(jù)需要進(jìn)行選擇。當(dāng)點(diǎn)擊Check復(fù)選框控件后,光標(biāo)自動(dòng)移動(dòng)到相應(yīng)的文本框進(jìn)行查詢內(nèi)容的輸入。在按考勤時(shí)間查詢中,用戶可以從ComboBox下拉列表中選擇出考勤的時(shí)間范圍。之后點(diǎn)擊確定按扭將以列表形式顯示出需要的員工考勤信息。如果在查詢窗體中不進(jìn)行任何操作直接點(diǎn)擊確定列表中將顯示出所有員工的考勤信息。此查詢功能通過(guò)SQL語(yǔ)句搜索考勤表中的數(shù)據(jù),并將符合要求的數(shù)據(jù)提取出來(lái)。圖48 員工考勤查詢窗體考勤信息的刪除與修改功能的實(shí)現(xiàn)和員工信息的刪除與修改采用相同的方法。 兩項(xiàng)功能都是在MSFlexGird列表中實(shí)現(xiàn)的。首先如果用戶需要修改一些信息,可以在菜單中選擇修改信息,這時(shí),如果沒有先擇要具體修改的信息,將出現(xiàn)消息對(duì)話框,通知用戶選擇一條要修改的記錄,然后則通過(guò)SQL語(yǔ)句顯示員工信息列表窗體并列出所有員工的信息,在窗體的下部放置了一個(gè)修改按扭。用戶在列表中選擇了要操作的員工記錄后點(diǎn)擊該按扭,屏幕將出現(xiàn)員工信息添加窗體,窗體中體現(xiàn)出上一步用戶所選擇的考勤記錄,在具體的文本框中寫入修改的記錄,單擊保存按鈕出現(xiàn)”記錄保存成功”消息對(duì)話框,點(diǎn)擊確定按扭返回員工列表窗體,至此己完成了對(duì)員工信息的修改。刪除員工信息的功能和修改功能類似,在列表中選擇要?jiǎng)h除的記錄后點(diǎn)擊鼠標(biāo)右鍵,在彈出的子窗體中選擇刪除信息彈出”是否刪除此記錄”對(duì)話框,點(diǎn)擊確定后完成了信息的刪除操作。在員工考勤列表窗體中使用了PopupMenu函數(shù)來(lái)調(diào)用主窗體中的員工考勤菜單,使得操作更加簡(jiǎn)單、方便。并且列表的前三列己被固定,是不可編輯的。圖49 員工考勤列表窗體 員工評(píng)價(jià)模塊員工評(píng)價(jià)的主要功能包括:.員工評(píng)價(jià)信息的添加.員工評(píng)價(jià)信息的修改與刪除.員工評(píng)價(jià)信息的查詢當(dāng)先擇主菜單中的添加員工評(píng)價(jià)信息菜單,將出現(xiàn)如圖410所示的窗體:圖410 員工評(píng)價(jià)信息添加窗體實(shí)現(xiàn)各數(shù)據(jù)庫(kù)中添加評(píng)價(jià)記錄的方法和前面員工信息,考勤信息的添加方法相同。選擇修改評(píng)價(jià)菜單,將出現(xiàn)員工評(píng)價(jià)列表的窗體,此窗體同樣采用子窗體的形式,由主窗體繼承而來(lái)。選擇需要修改的記錄,單擊下面的修改按鈕或單擊鼠標(biāo)右鍵選擇修改評(píng)價(jià)菜單,在員工評(píng)價(jià)信息添加窗體中進(jìn)行修改。選擇查詢工作評(píng)價(jià)菜單,將出現(xiàn)員工評(píng)價(jià)查詢窗體。界面與員工考勤查詢窗體相同,分為按工號(hào)查詢和按姓別查詢兩種,可以按照各種方式以及它們的組合進(jìn)行查詢。滿足查詢要求的記錄都將出現(xiàn)在員工評(píng)價(jià)記錄列表框中。 員工工資管理模塊工資管理是企業(yè)管理中不可缺少的一項(xiàng)工作。員工工資管理模塊用于每個(gè)月員工實(shí)發(fā)工資的計(jì)算,計(jì)算的項(xiàng)目包括基本工資、獎(jiǎng)金、福利待遇、津貼等。主要包括以下幾項(xiàng)功能:.員工工資的錄入.員工工資的修改與刪除.員工工資的查詢.員工基本工資的設(shè)定.獎(jiǎng)金以及福利補(bǔ)貼的設(shè)置.實(shí)發(fā)工資計(jì)算.根據(jù)出勤統(tǒng)計(jì)結(jié)果計(jì)算本月各項(xiàng)實(shí)際金額.輸出工資報(bào)表工資管理的輸出結(jié)果是對(duì)員工工作的一個(gè)評(píng)價(jià)。計(jì)算工資的基本依據(jù)是考勤管理模塊的統(tǒng)計(jì)結(jié)果。同時(shí),在統(tǒng)計(jì)和查詢時(shí)需要用到員工基本信息模塊和部門信息。首先選擇主窗體中添加工資菜單將出現(xiàn)我添加員工工資窗體。如圖411所示:圖411 員工工資添加窗體首先從部門下拉表中選擇部門,再?gòu)男彰吕斜碇羞x擇要添加工資的員工。在月份文本框中使用的是Format(Now, yyyymmdd)函數(shù),直接添加計(jì)算機(jī)的系統(tǒng)日期。其中實(shí)發(fā)工資的內(nèi)容不需用戶添寫,在添寫完其它工資內(nèi)容后點(diǎn)擊開始統(tǒng)計(jì)按鈕將員工的收入與支出金額相減得出實(shí)發(fā)工資項(xiàng)。最后單擊確認(rèn),將所填數(shù)據(jù)存入數(shù)據(jù)庫(kù)中。工資管理的修改與刪除同樣需要以列表的形式顯示:圖412 員工工資列表窗體做為子窗體的員工工資列表能夠清楚的表現(xiàn)員工各項(xiàng)收入與支出的金額。選擇修改可以對(duì)所選數(shù)據(jù)進(jìn)行編輯,也同樣可以點(diǎn)擊鼠標(biāo)右鍵選擇所需要的操作。查詢功能分為按姓名和按工號(hào)復(fù)合查詢的兩種方式和其它模塊不同的是員工工資管理填加了一個(gè)工資報(bào)表窗體。選擇主窗體中的工資報(bào)表菜單即會(huì)顯示該窗體。具體的實(shí)現(xiàn)方法是首先建立數(shù)據(jù)環(huán)境,然后在數(shù)據(jù)環(huán)境中添加Command命令,并設(shè)置命令屬性:在SQL語(yǔ)句中輸入select * from gongzi,使其與數(shù)據(jù)庫(kù)中的工資表相連,最后添加和設(shè)計(jì)Data Report數(shù)據(jù)報(bào)表。 圖413 員工工資報(bào)表窗體工資報(bào)表窗體做為子窗體來(lái)顯示。窗口主要分成工具條和預(yù)覽效果兩部分,預(yù)覽效果顯示的就是最終打印的結(jié)果。在下面的工具條上包括４個(gè)頁(yè)面瀏覽按鈕。在上面工具條的下拉列表框中選擇需要顯示的比例。別外兩個(gè)按鈕分別用來(lái)實(shí)現(xiàn)打印與導(dǎo)出操作。如果要打印的工資報(bào)表有多頁(yè),可以通過(guò)4個(gè)頁(yè)面瀏覽按鈕進(jìn)行上下翻頁(yè)。此模塊通過(guò)工資管理的創(chuàng)建,著重描述了工資計(jì)算和數(shù)據(jù)報(bào)表的使用。計(jì)算主要是通過(guò)對(duì)所輸入的數(shù)據(jù)進(jìn)行相加和相減的運(yùn)算,最后顯示結(jié)果數(shù)據(jù)。數(shù)據(jù)報(bào)表為我們提供了一個(gè)更加方便快捷地實(shí)現(xiàn)報(bào)表打印的方法。通過(guò)使用報(bào)表中的各種控件,可以很簡(jiǎn)單地實(shí)現(xiàn)復(fù)雜報(bào)表的設(shè)計(jì),避免了繁雜的編程過(guò)程。以上便是人事管理的功能與實(shí)現(xiàn)。 部門管理模塊部門管理對(duì)于企業(yè)的管理層人員來(lái)講非常重要,可以通過(guò)此功能來(lái)了解所有部門的大概情況。其具體實(shí)現(xiàn)和人事變動(dòng)管理相同,窗體如下:圖416 部門管理窗體通過(guò)此窗體可以對(duì)該企業(yè)的部門進(jìn)行大至瀏覽,同樣也可以進(jìn)行添加、修改、刪除和查詢等編輯工作