【正文】 5～ 65 [4] Lance Mortensen Rick Sawtell: MCSE:SQL Server 2021 Administration，電子工業(yè)出版社， 2021 年版 [5] Roger Jennings： Visual Basic 6 數(shù)據(jù)庫開發(fā)人員指南，機械工業(yè)出版社1999 年版 [6] 盧毅主編： Visual Basic 數(shù)據(jù)庫設(shè)計實例導(dǎo)航，科學(xué)出版社 2021年版 [7] 劉鋼主編： Visual Basic 程序設(shè)計，中國民航出版社 2021 年版 [8] 沈光陽、李勁： SQL SERVER 2021 與 XML 整合應(yīng)用，清華大學(xué)出版社 2021 年版 [9] 林陳雷 郭安源 葛曉東： Visual Basic 教育信息化系統(tǒng)開發(fā)實例導(dǎo)航[M].2021。謝謝你們 給 我的無私幫助！ － － 33 參考文獻(xiàn) [1] Timothy Buchanan： Visual Basic 加數(shù)據(jù)庫 [M].2021。張老師淵博的學(xué)識，敏捷的思維，嚴(yán)謹(jǐn)求實的態(tài)度和誨人不倦的精神使學(xué)生受益非淺，而且樂觀幽默平易近人，令我終身難忘。 首先感謝 張巖 老師的關(guān)心，指導(dǎo)和教誨。開闊了視野，增長了知識，積累了經(jīng)驗。這些都有待于進(jìn)一步的改善。 在整個畢業(yè)設(shè)計階段的工作和本論文的寫作過程的經(jīng)歷將會使我終生受益，并對我今后的工作和發(fā)展產(chǎn)生深遠(yuǎn)的影響。系統(tǒng)設(shè)計為整個程序構(gòu)建了骨架 ,各個功能模塊實現(xiàn)各個細(xì)節(jié)部分。 一個完整的企業(yè)人事信息管理系統(tǒng)就創(chuàng)建完畢了。通過測試的可執(zhí)行文件 ,就可以發(fā)布了。編譯完畢之后 ,即生成了相應(yīng)的可執(zhí)行文件。選擇 ” Project|Renshi_MIS Properties” 菜單 ,進(jìn)行屬性設(shè)置。 完成了企業(yè)人事管理系統(tǒng)的編譯和調(diào)試工作 ,最后一步就是系統(tǒng)的編譯和發(fā)行。軟件產(chǎn)品可用黑盒法和白盒法進(jìn)行測試，通常兩種方法結(jié)合使用。在軟件生命周期的每個階 段，都不可避免地會產(chǎn)生錯誤，通常在編寫出每個原程序后，就要對它進(jìn)行必要的測試，這步工作自己來完成。 － － 29 圖 417 密碼更改的流程圖 本章小結(jié) 本章是本文的主體部份 ,詳細(xì)介紹了系統(tǒng)各模塊的功能與實現(xiàn) ,而且加附了一些模塊的主要功能代碼 ,便于讀者的理解。 在管理員菜單中可以對當(dāng)前用戶的密碼進(jìn)行修改 ,同時也可以添加新的用戶。 系統(tǒng)其它功能簡介 在開發(fā)的過程中還實現(xiàn)了一些其它的功能 ,使系統(tǒng)有了進(jìn)一步的完善。 部門管理模塊 部門管理對于企業(yè)的管理層人員來講非常重要 ,可以通過此功能來了解 所有部門的大概情況。通過使用報表中的各種控件 ,可以很簡單地實現(xiàn) 復(fù)雜報表的設(shè)計 ,避免了繁雜的編程過程。計算主要是通過對所輸入的數(shù)據(jù)進(jìn)行相加和相減的運算 ,最后顯示結(jié)果數(shù)據(jù)。如果要打印的工資報表有多頁 ,可以通過4個頁面瀏覽按鈕進(jìn)行上下翻頁。在上面工具條的下拉列表框中選擇需要顯示的比例。窗口主要分成工具條和預(yù)覽效果兩部分 ,預(yù)覽效果顯示的就是最終打印的結(jié)果。具體的實現(xiàn)方法是首先建立數(shù)據(jù)環(huán)境 ,然后在數(shù)據(jù)環(huán)境中添加 Command 命令 ,并設(shè)置命令屬性 :在 SQL 語句中輸入 select * from gongzi,使其與數(shù)據(jù)庫中的工資表相連 ,最后添加和設(shè)計 Data Report 數(shù)據(jù)報表。查詢功能分為按姓名和按工號復(fù)合查詢的兩種方式和其它模塊不同的是員工工資管理填加了一個工資報表窗體。 － － 26 工資管理的修改與刪除同樣需要以列表的形式顯示 : 圖 412 員工工資列表窗體 做為子窗體的員工工資列表能夠清楚的表現(xiàn)員 工各項收入與支出的金額。其中實發(fā)工資的內(nèi)容不需用戶添寫 ,在添寫完其它工資內(nèi)容后點擊開始統(tǒng)計按鈕將員工的收入與支出金額相減得出實發(fā)工資項。如圖411 所示 : 圖 411 員工工資添加窗體 首先從部門下拉表中選擇部門 ,再從姓名下拉列表中選擇要添加工資的員工。同時 ,在統(tǒng)計和查詢時需要用到員工基本信息模塊和部門信息。 主要包括以下幾項功能 : .員工工資的錄入 .員工工資的修改與刪除 .員工工資的查詢 .員工基本工資的設(shè)定 .獎金以及福利補貼的設(shè)置 .實發(fā)工資計算 .根據(jù)出勤統(tǒng)計結(jié)果計算本月各項實際金額 .輸出工資報表 工資管理的輸出結(jié)果是對員工工作的一個評價。 員工工資管理模塊 工資管理是企業(yè)管理中不 可缺少的一項工作。界面與員工考勤查詢窗體相同 ,分為按工號查詢和按姓別查詢兩種 ,可以按照各種方式以及它們的組合進(jìn)行查詢。選擇需要修改的記錄 ,單擊下面的修改按鈕或單擊鼠標(biāo)右鍵選擇修改評價菜單 ,在員工評價信息添加窗體中進(jìn)行修改。 圖 49 員工考勤列表窗體 － － 24 員工評價模塊 員工評價的主要功能包括 : .員工評價信息的添加 .員工評價信息的修改與刪除 .員工評價信息的查詢 當(dāng)先擇主菜單中的添加員工評價信息菜單 ,將出現(xiàn)如圖 410 所示的窗體 : 圖 410 員工評價信息添加窗體 實現(xiàn)各數(shù)據(jù) 庫中添加評價記錄的方法和前面員工信息 ,考勤信息的添加方法相同。在員工考勤列表窗體中使用了 PopupMenu函數(shù)來調(diào)用主窗體中的員工考勤菜單 ,使得操作更加簡單、方便。用戶在列表中選擇了要操作的員工記錄后點擊該按扭 ,屏幕將出現(xiàn)員工信息添加窗體 ,窗體中體現(xiàn)出上一步用戶所選擇的考勤記錄 ,在具體的文本框中寫入修改的記錄 ,單擊保存按鈕出現(xiàn) ” 記錄保存成功 ” 消息對話框 ,點擊確定按扭返回員工列表窗體 ,至此己完成了對員工信息的修改。 兩項功能都是在 MSFlexGird 列表中實現(xiàn)的。此查詢功能通過 SQL 語句搜索考勤表中的數(shù)據(jù) ,并將符合要求的數(shù)據(jù)提取出來。之后點擊確定按扭將以列表形式顯示出需要的員工考勤信息。當(dāng)點擊 Check 復(fù)選框控件后 ,光標(biāo)自動移動到相應(yīng)的 文本框進(jìn)行查詢內(nèi)容的輸入。 選擇“添加考勤“菜單，將出現(xiàn)如圖 47 所示的窗體。如果出現(xiàn)相同記錄 ,將出現(xiàn)消息對話框 ,提示用戶己存在及員工的考勤。選擇了員工的姓名之后就可以在考勤項目中添加所需要的數(shù)據(jù)并選擇 SSTAB 控件的不同頁面進(jìn)行輸入。當(dāng)用戶選擇了一個具體的部門之后 ,在隨后的姓名列表中將通過 SQL 語句列出此部門的所有員工的姓名 ,而同時在員工工號的文本框中自動添加了此員工的工號。在添加記錄之前 ,用戶可以根據(jù)現(xiàn)有員工檔案的具體情況選擇進(jìn)行添加 ,在基本信息標(biāo)簽頁中選擇 部門下拉列表框 ,其中包含了企業(yè)的所有部門。在主窗體的菜單中選擇考勤添加便進(jìn)入了考勤添加窗體。 主要分為考勤添加、考勤查詢和修改、刪除等功能 。另外 ,考勤管理為工資管理直接提供每個月工作時間的 統(tǒng)計結(jié)果 ,用以計算工資 ,同時考勤管理也需要其它功能－ － 21 所提供的員工、部門等信息。 員工考勤模塊 員工考勤管理模塊主要實現(xiàn)如下功能： 1 添加員工考勤信息 2 修改員工考勤信息 3 刪除員工考勤信息 4 查詢員工考勤信息 考勤管理是每個企事業(yè)所必需的 ,計算機管理系統(tǒng)的出現(xiàn)使員工出勤情況的記錄和統(tǒng)計變得十分簡單。 － － 20 圖 46 員工檔案列表窗體 至此 ,員工信息管理模塊己經(jīng)完成。刪除員工信息的功能和修改功能類似 ,在列表中選擇要刪除的記錄后點擊鼠標(biāo)右鍵 ,在彈出的子窗體中選擇刪除信息彈出 ” 是否刪除此記錄 ” 對話框 ,點擊確定后完成了信息的刪除操作。首先如果用戶需要修改一些信息 ,可以在菜單中選擇修改信息 ,這時 ,如果沒有先擇要具體修改的信息 ,將出現(xiàn)消息對話框 ,通知用戶選擇一條要修改的記錄 ,然后則通過 SQL 語句載入窗體 ,觸發(fā)窗體的 Load 事件 ,顯示員工信息列表窗體并列出所有員工的信息 ,在窗體的下部放置了一個修改按扭。 N Y 圖 44 查詢功能的數(shù)據(jù)流程圖 : 選擇查詢條件 輸入查詢的內(nèi)容 開始查詢 ? 顯示查詢結(jié)果 再次查詢 ? 返回主窗體 清空查詢條件 － － 19 圖 45 員工檔案查詢窗體 在介紹了上述兩項功能之后 ,將講述一下員工信息的修改與刪除的功能。首先點擊要先擇的 CheckBox 復(fù)選框控件 ,這時光標(biāo)自動移動到它對應(yīng)的文本框 ,只要在相應(yīng)的文本框中輸入要查找的內(nèi)容 ,然后點擊確定按扭即完成了此項操作 ,并以 MSFlexGird 列表的形式顯示出數(shù)據(jù)。分為按工號查詢、按員工姓名查詢和按員工部門查詢。 員工信息的添加窗口如圖 43: 圖 43 員工信息添加窗體 － － 18 在員工信息模塊中添加了一項查詢功能 ,這樣可以使用戶更加方便的操作所需要信息 ,大大節(jié)約了 搜索的時間。如果是添加狀態(tài) ,性別選擇框?qū)⑦x擇第一個 。如果數(shù)據(jù)庫中存在與此項添加的員工檔案相同的數(shù)據(jù) ,按確定后將彈出消息對話框 ” 己存在此員工的信息 ” ,提示用戶己經(jīng)存在此員工的信息 ,從而避免了相同員工信息的重復(fù)錄入。在備注文本編輯框中可以對窗體中沒有提及到的一些員工信息進(jìn)行編輯 ,讓檔案的錄入更加完備、全面。用戶可以直接從下拉表中選擇需要的輸入條件。 員工基本信息中是以工號為主鍵 ,來識別表的唯一性。兩個按鈕用來確定是否添 加員工信息。 員工信息添加窗口用來添加員工個人信息 ,可供用戶瀏覽查詢及以記錄為單 在窗體上放置多個文本框和下拉式列表框 ,用來輸入員工個人基本信息 ,工作信息和其它信息 。 _ Resume ExecuteSQL_Exit End Function Public Function ConnectString() As String ConnectString = FileDSN= End Function 以上兩個函數(shù)代碼分別用來完成執(zhí)行各種 SQL 語句和連接數(shù)據(jù)庫。 amp。公用代碼如下 : Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New － － 16 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then SQL MsgString = sTokens(0) amp。這樣可以極大的提高代碼的效率。 圖 42 系統(tǒng)的主界面 在主界面中 ,員工管理菜單是此系統(tǒng)的重要組成部份 ,其中包括 4 個主要功能模塊 :員工基本信息模塊 ,員工考勤模塊 ,員工評價模塊和員工工資管理模塊。在窗體上添加所需控件。這里我們刪除這個窗體，單擊 File|Save Project 菜單，將這個工程項目命名為 Renshi_MIS。 表 31 員工檔案信息表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 ygid Varchar 10 Not null 工號 ygname Varchar 20 Not null 姓名 sex Char 10 Not null 性別 age Varchar 3 Not null 年齡 birth Datetime 8 null 出生日期 address Varchar 50 null 地址 tel Varchar 15 null 電話 politic Varchar 50 null 政治面貌 school Varchar 50 null 畢業(yè)院校 ygidentity Varchar 20 null 身份證號 department Varchar 50 null 所在部門 text Text 16 null 備注 表 32 員工評價表 字段名 數(shù)據(jù)類型 長度 是否為空 說明 pjid Varchar 10 Not null 工號 pjname char 8 Not null 姓名 attitude char 20 null 工作態(tài)度 publish char 40 null 獎勵及處罰 Level1 Varchar 40 null 技術(shù)水平