第一篇：人事工資管理系統畢業設計論文VB

哈爾濱工業大學高等教育畢業設計（論文）

摘要

由于計算機技術的飛速發展,數據庫技術作為數據管理的一個有效的手段,在各行各業中得到越來越廣泛的應用。因此,本文圍繞一個”人事管理系統”程序的設計和應用系統的開發課題為背景,詳細介紹了以VB和SQL SERVER為語言編寫管理信息系統的過程。該程序通過VB的ADO數據對象來實現VB前臺與后臺SQL SERVER數據庫的連接,并具有典型的數據庫應用系統的特征,完成了系統結構與現實生活的緊密結合。

管理系統的開發不僅是一個應用程序編寫的過程,更重要的是在系統分析和設計階段所做的工作。該程序在設計過程中嚴格遵循軟件工程學的方法,用分階段的生命周期計劃嚴格管理,并主要講述了程序的總體設計、詳細設計階段,對程序進行需求迭代,不斷修正和改進,利用SQL SERVER的強大數據庫功能,直到形成一個完善的可行性系統.優美、秀麗的界面,方便實用的查詢與維護功能共同構成了“人事工資管理系統”。

關鍵詞：VB，SQL SERVER，數據庫，軟件工程，管理信息系統

－ I － 哈爾濱工業大學高等教育畢業設計（論文）

Abstract Because of the rapid development of computer technology, database technology as an effective means of data management, in all walks of life are increasingly wide application.Therefore, this article on a “personnel management system” design and procedures for applications development topics background, details and SQL Server to add language to the process of preparing management information systems.The procedure adopted to achieve the target data add the ado with VB prospects background SQL Server databases and database applications with typical characteristics, and completed the structure and system combining real life.Management system applications development is not only a preparation process, but more importantly in the analysis and design phase work.The procedure strictly followed in the design process software engineering methods, and use a phased plan to manage the life cycle and on the main procedures designed, detailed design stage, the demand for computation procedures, and constantly revised and improved, the use of SQL Server powerful database functions, Until the feasibility of forming a perfect system.beautiful and attractive interface for practical information and the maintenance of the common functions constitute a “Personnel wage management system.”

Keyword: VB，SQL SERVER，Database, Software Engineering, Management Information Systems

－ II － 哈爾濱工業大學高等教育畢業設計（論文）

目錄

摘要..........................................................................................................................I Abstract.......................................................................................................................II 第1章 緒論...............................................................................................................5 第2章 相關工具的基本理論.............................................錯誤！未定義書簽。

2.1 關于VB的說明..............................................................錯誤！未定義書簽。2.2 關于管理信息系統.........................................................錯誤！未定義書簽。2.3 數據庫系統概述.............................................................錯誤！未定義書簽。2.4 ADO與SQL SERVER 2000.........................................錯誤！未定義書簽。

2.4.1 AxtiveX數據對象--ADO......................................錯誤！未定義書簽。2.4.2 關于SQL SERVER 2000.......................................錯誤！未定義書簽。

第3章 系統需求分析與總體設計.....................................錯誤！未定義書簽。

3.1 需求分析........................................................................錯誤！未定義書簽。3.2 系統設計..........................................................................錯誤！未定義書簽。

3.2.1 系統功能分析.......................................................錯誤！未定義書簽。3.2.2 數據流程圖..........................................................錯誤！未定義書簽。3.3 數據庫設計....................................................................錯誤！未定義書簽。

3.3.1 數據庫需求分析...................................................錯誤！未定義書簽。3.3.2 實體之間的E–R模型...........................................錯誤！未定義書簽。3.3.3 數據庫邏輯結構設計............................................錯誤！未定義書簽。3.4 本章小結........................................................................錯誤！未定義書簽。

第4章 系統詳細設計..........................................................錯誤！未定義書簽。

4.1 系統模塊的具體實現......................................................錯誤！未定義書簽。

4.1.1 系統的主界面.......................................................錯誤！未定義書簽。4.1.2 員工基本信息模塊..............................................................................7 4.1.3 員工考勤模塊.......................................................錯誤！未定義書簽。4.1.4 員工評價模塊.......................................................錯誤！未定義書簽。4.1.5 員工工資管理模塊...............................................錯誤！未定義書簽。4.1.7 部門管理模塊.......................................................錯誤！未定義書簽。4.1.8 系統其它功能簡介...............................................錯誤！未定義書簽。

哈爾濱工業大學高等教育畢業設計（論文）

4.2 本章小結........................................................................錯誤！未定義書簽。

第5章 系統運行與測試......................................................錯誤！未定義書簽。結

論.....................................................................................錯誤！未定義書簽。致

謝.....................................................................................錯誤！未定義書簽。參考文獻.................................................................................錯誤！未定義書簽。附錄1 外文翻譯...................................................................錯誤！未定義書簽。附錄2 譯文..........................................................................錯誤！未定義書簽。附錄3 系統的實現代碼.....................................................錯誤！未定義書簽。

第1章 緒論

隨著計算機的日益普及和網絡的發展,數據庫的應用范圍越來越廣,數據庫應用的功能也越來越強,因此編寫管理信息系統應用程序也顯得尤為重要,在強調管理,強調信息的現代社會中它變得越來越普及。

人事管理是任何企事業單位都需要進行的一項工作,因此,開發制作人事管理系統具有較大的社會現實意義,同時人事管理系統是一切應用系統的典范,它具有一切應用系統的特征,系統結構與現實生活緊密結合,具體直觀,具有典范的數據庫系統的特性。人事管理系統主要用于企業內部員工的檔案、工資、考勤、評價的管理,便于公司領導掌握人員的動向,及時調整人才的分配,同時也減少了手工操作帶來的一些繁瑣與不便,使員工情況的記錄和統計變得十分簡單.這些優點可以極大的提高企業對人事管理的效率.因此,人事管理系統是企事業信息化、智能化、科學化和正規化不可缺少的管理軟件。

本系統開發的目的一方面從提高人事管理工作的效率出發，擺脫過去由人用紙和筆進行的費時費力的繁重工作，即利用成熟的計算機系統來實現商品管理工作的自動化。本系統根據企業管理的一些實際情況而編制的一套自動化的人事管理系統。

人事管理系統針對企業員工信息的處理工作采用計算機進行全面的現代化管理,主要包括:.員工基本信息的管理.員工評價的管理

.員工考勤信息的管理.員工工資的管理

.企業內部人事變動的管理.企業部門管理

用戶通過輸入員工的基本信息、考勤信息等,由系統自動生成相應的統計數據及工資統計報表以供用戶查詢、打印,另外用戶還可以對這些基本信息進行定期的更新與刪除工作,人事管理系統力求以方便快捷的途徑去管理手工操作的每繁瑣數據。

本設計來自：計算機畢業設計論文網http://www.tmdps.cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens()As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL)Set cnn = New ADODB.Connection cnn.Open ConnectString If InStr(“INSERT,DELETE,UPDATE”, _ UCase$(sTokens(0)))Then cnn.Execute SQL MsgString = sTokens(0)& _ “ query successful” Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic Set ExecuteSQL = rst MsgString = “查詢到” & rst.RecordCount & _ “ 條記錄 ”

End If ExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = “查詢錯誤: ” & _ Err.Description Resume ExecuteSQL_Exit End Function Public Function ConnectString()As String ConnectString = “FileDSN=renshi.dsn” End Function 以上兩個函數代碼分別用來完成執行各種SQL語句和連接數據庫。

4.1.2 員工基本信息模塊

該模塊主要完成員工基本信息的輸入、查詢與修改,它定義了三個主要窗口:信息添加窗口、復合查詢窗口、員工信息列表窗口。員工信息添加窗口用來添加員工個人信息,可供用戶瀏覽查詢及以記錄為單

在窗體上放置多個文本框和下拉式列表框,用來輸入員工個人基本信息,工作信息和其它信息;多個標簽用來提示多個文本框所需要的內容。兩個按鈕用來確定是否添加員工信息。一個下拉列表框用來顯示員工的性別。

員工基本信息中是以工號為主鍵,來識別表的唯一性。在員工性別錄入中使用了ComboBox下拉列表控件,在載入窗體時程序將自動在兩個下拉式文本框中添加內容,這樣可以規范化輸入內容,其中加入了”男”、”女”。用戶可以直接從下拉表中選擇需要的輸入條件。輸入的出生日期按照YYYY-MM-DD的統一格式來錄入。在備注文本編輯框中可以對窗體中沒有提及到的一些員工信息進行編輯,讓檔案的錄入更加完備、全面。當用戶輸寫完信息后單擊保存按扭,就將員工信息存儲到后臺的SQL SERVER數據庫中。如果數據庫中存在與此項添加的員工檔案相同的數據,按確定后將彈出消息對話框”己存在此員工的信息”,提示用戶己經存在此員工的信息,從而避免了相同員工信息的重復錄入。

載入窗體時,將首先通過整型變量gintmode的值來判斷是添加還是修改狀態(1為添加,2為修改)。如果是添加狀態,性別選擇框將選擇第一個;如果是修改狀態,將選擇顯示當前的記錄。

員工信息的添加窗口如圖4-3:

圖4-3 員工信息添加窗體

在員工信息模塊中添加了一項查詢功能,這樣可以使用戶更加方便的操作所需要信息,大大節約了搜索的時間。

查詢功能使用復合查詢的模式。分為按工號查詢、按員工姓名查詢和按員工部門查詢。用戶可以根據實際需要選擇其中的一項或幾項。首先點擊要先擇的CheckBox復選框控件,這時光標自動移動到它對應的文本框,只要在相應的文本框中輸入要查找的內容,然后點擊確定按扭即完成了此項操作,并以MSFlexGird列表的形式顯示出數據。查詢功能的另一個特點是如果用戶對查詢窗口不做任何操作,直接點擊確定按扭,在查詢結果的列表窗口中顯示出所有員工的信息。

第二篇：ASP2057人事工資管理系統

人事工資管理系統

摘要

人事工資管理系統是企業內部用以管理人事檔案和工資等信息的實用性軟件。用它代替企業傳統的手工管理方式，大大提高了工作效率和安全性，提高了信息處理的速度和準確性，節省了工作人員的時間和精力，使企業人事管理和工資管理系統化、科學化、規范化和自動化。是現代企業必不可少的管理工具。

本系統采用ASP語言和Access數據庫開發而成，包括職工管理、檔案管理、考勤管理、工資管理等模塊，并將工資計算與考勤、獎懲相關聯，生成較合理的薪酬管理體制，以產生有效的激勵機制。同時系統設置了一些必要的輔助功能，比如對員工合同到期提醒和生日提醒等功能，有助于鞏固企業與員工的心理契約，促進員工積極向上，向公司靠攏。系統能夠實現數據的錄入、插入、刪除、查詢、統計、更新等功能，能滿足企業職工管理方面的基本要求。

關鍵詞：ASP；Access；數據庫；人事；工資

目錄 引言......................................................錯誤！未定義書簽。

1.1 系統開發背景........................................錯誤！未定義書簽。1.2 系統研究意義........................................錯誤！未定義書簽。1.3 系統研究方法........................................錯誤！未定義書簽。2 系統需求分析..............................................錯誤！未定義書簽。

2.1可行性分析..........................................錯誤！未定義書簽。

2.1.1可行性分析....................................錯誤！未定義書簽。2.1.2 經濟可行性....................................錯誤！未定義書簽。2.1.3 操作可行性....................................錯誤！未定義書簽。2.2 系統目標............................................錯誤！未定義書簽。2.3 系統功能需求分析....................................錯誤！未定義書簽。3 數據庫設計................................................錯誤！未定義書簽。

3.1 數據庫表簡介........................................錯誤！未定義書簽。3.2 數據庫結構設計......................................錯誤！未定義書簽。3.3 數據庫連接文件......................................錯誤！未定義書簽。4 系統功能模塊詳細設計及實現.................................................2 4.1 模塊設計.............................................................2 4.2 功能模塊的說明.......................................................3 4.3 系統界面的設計......................................錯誤！未定義書簽。

4.3.1 系統登錄界面的設計............................錯誤！未定義書簽。4.3.2 系統主界面的設計...............................................3 4.3.3 系統各模塊界面的設計...........................................4 5 系統評價..................................................錯誤！未定義書簽。

5.1 系統的特點..........................................錯誤！未定義書簽。5.2 系統的缺點..........................................錯誤！未定義書簽。5.3 將來可能提出的要求..................................錯誤！未定義書簽。結 論....................................................錯誤！未定義書簽。參考文獻....................................................錯誤！未定義書簽。致 謝....................................................錯誤！未定義書簽。系統功能模塊詳細設計及實現

4.1 模塊設計

人事工資管理系統共包括以下七個功能模塊：職工管理模塊、考勤管理模塊、檔案管理模塊、工資管理模塊、事項記錄模塊、其他事記模塊、系統管理模塊。其中每個模塊又分為若干個小功能模塊。其系統功能模塊詳細關系如圖1所示：

圖1 系統模塊結構圖

4.2 功能模塊的說明

人事工資管理系統的七個功能模塊的詳細介紹如下：

1．職工管理模塊：實現用戶自由的信息錄入。結合人事變動完成本單位各類人員變動事宜，實時記錄人員進入單位后的所有變化信息。實現對員工信息靈活的查詢功能。

2．考勤管理模塊：將考勤數據按月輸入到系統中，系統將記錄所有請假、礦工、遲到、早退等數據，并進行自動統計和匯總。

3．檔案管理模塊：提供全部人員記錄，用以記錄和查看人員相關信息。4．工資管理模塊：實現對基本工資的管理，每月可以計算和修改工資數據，記錄工資發放日期。

5．事項記錄模塊：根據單位情況設立培訓、獎懲等事項記錄。

6．其它事記模塊：用于企業內部記錄單位的基本信息和員工生日等，促進員工團結一致、積極向上。

7．系統管理模塊：主要包括用戶登陸和安全退出系統。提供有效的用戶認證安全機制。

圖2 系統登錄頁面

打

4.3.2 系統主界面的設計

通過用戶驗證后，進入人事工資管理系統的主頁面。系統的主頁面是由一個“T”字形結構的框架頁面構成，它將該頁面分成頂部系統名稱顯示頁面、下面左側菜單頁面和右面主顯示頁面。

其中菜單頁是該頁面的主題部分，實現了菜單的分類分級顯示，主菜單項從上往下排成一列,平時子菜單是隱藏的,單擊某一主菜單項時將展開它的所有子菜單項，同時其他主菜單項的子菜單項將緊縮回去。其界面如圖3 所示：

圖3 菜單界面。

4.3.3 系統各模塊界面的設計

由于系統模塊較多,下面將只介紹部分模塊的詳細設計：

（一）職工管理模塊：本模塊根據搜索內容和方式分為按部門查看員工和離職員工查看兩部分。其中按部門查看員工的界面如圖4所示：

圖4 據部門查看員工頁面

圖5 新增員工頁面

（三）工資管理模塊：工資管理模塊包括員工工資的計算、工資按月統計和發放領取情況。員工工資計算頁面如圖6所示：

圖6 工資計算頁面

圖7 工資統計頁面

圖8 工資領取頁面

（四）考勤管理模塊：

圖9 考勤記錄頁面

圖10 考勤按月統計頁面

Powered by 計算機畢業論文網http://www.tmdps.cn http:// www.tmdps.cn

第三篇：人事工資管理系統

人事工資管理系統一、登錄界面

登錄界面如圖1所示。

圖1登錄界面

二、主界面

輸入用戶名和密碼，單擊【登錄】按鈕，打開如圖2所示的主界面。

圖2主界面 圖2中的菜單中包含的菜單選項如下： 【人事管理】：檔案管理、獎罰管理、調動管理、考評管理?！竟べY管理】：考勤津貼、工資總結。【系統管理】：部門管理、數據備份。【用戶管理】：操作員管理、修改口令、更改操作員?！就顺觥坎话ㄈ魏芜x項。

三、人事管理菜單

1.選擇圖2中的【人事管理】?【檔案管理】菜單選項，打開如圖3所示的界面。

圖3檔案管理

選擇圖3中的【增加】工具按鈕，打開如圖4所示的界面，以實現增加員工信息。

圖4增加員工信息

在圖3中選中某員工，單擊【修改】工具按鈕，打開如圖5所示界面，以實現員工信息修改。

圖5修改員工信息界面

2.選擇圖2中的【人事管理】?【獎罰管理】菜單選項，打開如圖6所示的界面。

圖6獎罰管理

選擇圖6中的【增加】工具按鈕，打開如圖7所示的界面，以實現增加員工獎罰信息。

圖7增加獎罰管理

選擇圖6中的某一員工記錄，單擊【修改】工具按鈕，打開如圖8所示的界面，以實現修改員工獎罰信息。

圖8修改員工獎罰信息

在圖6中選中某員工記錄，單擊【刪除】工具按鈕以實現刪除員工獎罰信息。

3.選擇圖2中的【人事管理】?【調動管理】菜單選項，打開如圖9所示的界面。

圖9員工調動管理界面

選擇圖9中的【增加】工具按鈕，打開如圖10所示的界面，以實現增加員工調動信息。

圖10增加員工調動信息

選擇圖9中的某一員工記錄，單擊【修改】工具按鈕，打開如圖11所示的界面，以實現修改員工調動信息。

圖11修改員工調動信息

在圖9中選中某員工記錄，單擊【刪除】工具按鈕以實現刪除員工調動信息。

4.選擇圖2中的【考評管理】?【調動管理】菜單選項，打開如圖12所示的界面。

圖12考評管理界面 選擇圖12中的【增加】工具按鈕，打開如圖13所示的界面，以實現增加員工考評信息。

圖13增加考評信息

選擇圖12中的某一員工記錄，單擊【修改】工具按鈕，打開如圖14所示的界面，以實現修改員工考評信息。

圖14修改考評信息

在圖12中選中某員工記錄，單擊【刪除】工具按鈕以實現刪除員工考評信息。

四、工資管理菜單

1.選擇圖2中的【工資管理】?【考勤津貼】菜單選項，打開如圖15所示的界面。

圖15考勤津貼界面

在圖15中選擇工資月份，選擇員工編號，輸入全勤獎金、加班工資，單擊【增加】工具按鈕，以實現增加員工考勤津貼信息。

2.選擇圖2中的【工資管理】?【考勤津貼】菜單選項，打開如圖16所示的界面。

圖16工資總結界面

在圖16中選擇月份，顯示對應員工工資信息。

五、系統管理菜單

1.選擇圖2中的【系統管理】?【部門管理】菜單選項，打開如圖17所示的界面。

圖17部門管理

單擊圖17中的【增加】工具按鈕，打開如圖18所示的界面，以實現增加部門信息。

圖18增加部門

選擇圖17中的某一部門，單擊【修改】工具按鈕，打開如圖19所示的界面，以實現修改部門信息。

圖19修改部門

在圖17中選中某員工記錄，單擊【刪除】工具按鈕以實現刪除部門信息。

2.選擇圖2中的【系統管理】?【數據備份】菜單選項，打開如圖20所示的界面。

圖20數據備份

五、用戶管理菜單

1.選擇圖2中的【用戶管理】?【操作員管理】菜單選項，打開如圖21所示的界面。

圖21操作員管理

在圖21中輸入用戶名和密碼，選擇權限，單擊【增加】工具按鈕，以實現增加操作員信息。在圖21中的某一操作員，會自動填寫用戶名和密碼，可以修改用戶名、密碼、權限，單擊【修改】工具按鈕，以實現修改操作員信息。

在圖21中的某一操作員，單擊【刪除】工具按鈕，以實現刪除操作員信息。

2.選擇圖2中的【用戶管理】?【修改口令】菜單選項，打開如圖22所示的界面。

圖22修改密碼

輸入登錄用戶的原始密碼，兩次輸入相同的心密碼，單擊【確定】按鈕，實現密碼修改。3.選擇圖2中的【用戶管理】?【更改操作員】菜單選項，打開如圖23所示的界面。

圖23更改操作員

選擇用戶名，輸入該用戶的密碼，實現以所選擇的用戶身份登錄。

第四篇：vb課程設計 職工工資管理系統代碼

Form1: Dim errorCount As Integer Private Sub Command1_Click()If Text1.Text = “system” And Text2.Text = “1234” Then

Load Form2

Form2.Show

Me.Hide

MsgBox “登陸成功，歡迎您進入職工工資管理系統”, vbInformation, “登陸成功”

Else

errorCount = errorCount + 1

If errorCount < 3 Then

MsgBox “用戶名或密碼錯誤(第” & errorCount & “次)！”, vbOKOnly + vbExclamation, “登陸失敗”

Text1.SetFocus

End If

If errorCount >= 3 Then

Text1.Enabled = False

Text2.Enabled = False

Command1.Enabled = False

MsgBox “三次輸入用戶名或密碼錯誤,程序將自動退出！”, vbOKOnly + vbExclamation, “登陸失敗”

End

End If End If

End Sub

Private Sub Command2_Click()Unload Me End Sub

Private Sub Form_Load()errorCount = 0 End Sub

Private Sub Form_Unload(Cancel As Integer)If MsgBox(“是否要退出程序?”, vbYesNo, “退出提示”)= vbNo Then

Cancel = 1 End If End Sub

For i = 1 To jlNum

ygList(i).shifagongzi =(CSng(ygList(i).jibengz)+ ygList(i).gerensui

CSng(ygList(i).jingtie)

ygList(y).shifagongzi = ygList(zuishao).shifagongzi ygList(zuishao).shifagongzi = linShi.shifagongzi End If Next loadData End Sub

Private Sub Command5_Click()Dim linShi As YuanGong

linShi.ygnamg = InputBox(“請輸入要添加的姓名”, “添加員工-姓名錄入”)If Len(Trim(linShi.ygnamg))> 0 Then

linShi.jibengz = InputBox(“請輸入添加員工的基本工資”, “添加員工-基本工資錄入”)

If Len(Trim(linShi.jibengz))> 0 Then

linShi.jingtie = InputBox(“請輸入添加員工的津貼”, “添加員工-津貼錄入”)

If Len(Trim(linShi.jingtie))> 0 Then

linShi.gerensui = InputBox(“請輸入添加員工的個人所得稅”, “添加員工-個稅錄入”)

If Len(Trim(linShi.gerensui))> 0 Then

linShi.suidianfei = InputBox(“請輸入添加員工的水電費”, “添加員工-水電費錄入”)

If Len(Trim(linShi.suidianfei))> 0 Then

Open filedir For Append As #1

Write #1, linShi.ygnamg;linShi.jibengz;linShi.jingtie;linShi.gerensui;linShi.suidianfei

Close #1

MsgBox “添加員工成功！”, vbOKOnly + vbInformation, “成功”

jlNum = 0 If Len(Trim(filedir))> 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a))> 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim Preserve ygList(jlNum)As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Next

Close #1

MsgBox “刪除員工成功！”, vbOKOnly + vbInformation, “成功”

jlNum = 0 If Len(Trim(filedir))> 0 Then

Open filedir For Input As #1

Do While Not EOF(1)

Line Input #1, a

If Len(Trim(a))> 0 Then

jlNum = jlNum + 1

End If

Loop

Close #1

ReDim ygList(jlNum)As YuanGong

jlNum = 0

Open filedir For Input As #1

Do While Not EOF(1)

jlNum = jlNum + 1

Input #1, ygList(jlNum).ygnamg

Input #1, ygList(jlNum).jibengz

Input #1, ygList(jlNum).jingtie

Input #1, ygList(jlNum).gerensui

Input #1, ygList(jlNum).suidianfei

Loop

Close #1

loadData

Command2.Enabled = True

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = True

Command6.Enabled = True End If

Text1.Text = “姓名” & vbTab & “工資” & vbTab & “津貼” & vbTab & “所得稅” & vbTab & “水電費” & vbCrLf

For i = 1 To jlNum

Text1.Text = Text1.Text & ygList(i).ygnamg & vbTab & ygList(i).jibengz & vbTab & ygList(i).jingtie & vbTab & ygList(i).gerensui & vbTab & ygList(i).suidianfei & vbCrLf

Next Else

MsgBox “刪除員工失??！”, vbOKOnly + vbExclamation, “失敗” End If End Sub

Private Sub Command7_Click()

第五篇：SQL vb課程設計工資管理系統概要（模版）

課程設計報告

課程設計題目： 工資管理系統

學生姓名 ： 專 業 ：

班 級 ： 指導教師 ：

2011年 12 月 17 日

姓名： 學號： 實驗時間：12月14日 實驗地點：

一、課程設計題目：

工資管理系統

二、課程設計目的：

本次課程設計的主要目的是綜合運用所學的數據庫與VB知識解決一個比較實際的簡單問題，側重對數據庫連接、查詢等相關內容的綜合應用，使同學們能進一步熟悉掌握數據庫的基本使用方法，進一步提升自己的編程能力并逐步培養編程思維，進而不斷提高同學們解決問題的能力，并為以后的語言學習打下良好的基礎。

三、課程設計要求： 1.獨立完成；

2.此次課程設計在規定的時間必須在實驗室完成，不得以任何理由在其他地點進行；

3．每個人需按照選題規則確定好自己的題目（注意不是多人完成一題，每人獨立完成一題），不得以任何理由選擇其他的題目，當然在完成自己的題目之后根據個人興趣可以繼續選做其他的題目；

4．課程設計完成后嚴格按照報告格式撰寫課程設計報告，并于結束后的第三天上交到學習委員統一交給老師；

5．課程設計的成績由兩部分組成：程序檢查成績（40％，每個功能占程序分的20%）＋報告檢查成績（40％）＋平時考核（20%）

四、試驗要求 員工基本信息的管理功能。單位員工變動、獎懲情況的管理功能。3 工資的計算、修改功能。4 查詢統計功能。5 報表打印功能。具有數據備份和數據恢復功能。

五、試驗過程

1.數據庫的設計

本系統的數據庫是SQL數據庫，在SQL環境下創建數據庫工資.mdb文件。該數據庫包括員工信息表、工資標準表、其他工資標準表、用戶表用于紀錄員工的基本信息數據庫表結構如下所示： 字段名 類型 varchar

大小 8

允許空 Not null 員工編號

姓名 varchar 10 Not null 性別 varchar 職務 Varchar 出生年月 datetime 員工頭像 image

員工信息表

字段名 類型

員工編號 varchar

月份 int 津貼 money 獎金 Money 扣保險 Money 扣考勤 Money 扣其他 Money 其他工資標準表 Not null 8 Not null Not null

大小

允許空 8 NULL NULL NULL NULL NULL

字段名 類型

大小

職務 varchar

基本工資 money 8

工資標準表

字段名 類型

大小

用戶名 char

口令 char 10

用戶表 2．主要內容 登錄窗體

登錄窗體 設計代碼：

允許空

Not null

Not null

允許空

Not null

Not null

Option Explicit

Private Function Selectsql(SQL As String As ADODB.Recordset '返回ADODB.Recordset對象 Dim ConnStr As String

Dim Conn As ADODB.Connection Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Set Conn = New ADODB.Connection 'On Error GoTo MyErr:

ConnStr = “Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工資;Data Source=(local” '這是連接SQL數據庫的語句 Conn.Open ConnStr

rs.CursorLocation = adUseClient

rs.Open Trim$(SQL, Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 'Exit Function 'MyErr: 'Set rs = Nothing

'Set Conn = Nothing '釋放相關的系統資源

'MsgBox Err.Description, vbInformation, “系統提示” '顯示出錯信息 End Function

Private Sub Command3_Click(Unload Me End Sub

Private Sub Form_Load(Dim SQL As String Dim rs As ADODB.Recordset Dim X As Long

On Error GoTo Err_box SQL = “ select * from 用戶表” Set rs = Selectsql(SQL If rs.RecordCount > 0 Then rs.MoveFirst

For X = 1 To rs.RecordCount

Combo1.AddItem rs.Fields(“用戶名”.Value rs.MoveNext Next X

Combo1.ListIndex = 0 End If rs.Close Exit Sub Err_box: End Sub

Private Sub Command1_Click(Dim SQL As String Dim rs As ADODB.Recordset If Text1.Text = “" Then MsgBox ”請輸入口令!“, 16 Text1.SetFocus Exit Sub End If

If Combo1.Text = ”“ Then MsgBox ”請選擇登錄用戶!“, 16 Combo1.SetFocus Exit Sub

End If

SQL = ”SELECT * FROM 用戶表 WHERE 用戶名='“ & Combo1.Text & ”' AND 口令='“ & Text1.Text & ”' “ Set rs = Selectsql(SQL If rs.RecordCount > 0 Then form2.Show '想要打開的主窗體 MsgBox ”登錄成功!“, 64, ”提示“ Unload Me Else

MsgBox ”口令不對,請重新輸入!“, 16, ”提示“ Text1.SetFocus End If End Sub

主控界面

主控界面

設計過程：

所有功能都在菜單中打開來實現，在最下面添加了工具欄，來顯示時間，操作員，狀態等信息。

設計代碼：

Private Sub rechaxun_Click（form3.Show End Sub

Private Sub reluru_Click(form3.Show End Sub

Private Sub cygl2_Click(form5.Show End Sub

Private Sub cyxx_Click(form3.Show End Sub

Private Sub Form_Load(Label2.Caption = Time End Sub

Private Sub gzcx_Click(Form4.Show End Sub

Private Sub Image1_Click(End Sub

Private Sub jcqk_Click(form6.Show End Sub

Private Sub rexiugai_Click(form6.Show End Sub

Private Sub rescbb_Click(Form4.Show

MsgBox ”請先查詢，再點擊生成報表按鈕“, , ”提示窗口“ End Sub

Private Sub sjbf_Click(Form7.Show End Sub

Private Sub sjhf_Click(Form7.Show End Sub

Private Sub tjcy_Click(form5.Show End Sub

成員管理 成員瀏覽

成員瀏覽 設計過程：

用控件可以實現檔案的瀏覽，在此窗體用戶可以瀏覽員工信息，此窗體與數據輪中的員工信息表進行連接。

設計代碼：

Private Sub Command4_Click(Unload Me End Sub 成員管理

成員管理

設計過程：

用于檔案的登記，此窗體和檔案瀏覽窗體中的數據表進行了連接，可以直接進行添加，刪除，修改等。

設計代碼：

Private Sub Command1_Click(Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click(Adodc1.Recordset.Update End Sub Private Sub Command3_Click(Adodc1.Recordset.Delete End Sub

Private Sub Command4_Click(Dim strb(As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 f1 = LOF(1 ReDim strb(f1 Get #1, , strb Adodc1.Recordset.Fields(”員工頭像“.AppendChunk strb Close #1 Image1.Picture = LoadPicture(CommonDialog1.FileName End Sub Private Sub Form_Load(End Sub 獎懲信息：

員工獎懲情況

設計過程：

用戶可以查找各月份的扣除以及獎勵狀況。

設計代碼：

Private Sub Command1_Click(Unload Me End Sub

Private Sub Command2_Click(Adodc1.Recordset.Update End Sub

Private Sub Text1_Change（Adodc1.RecordSource = ” select * from 其他工資標準 where 月份='“ & Text1 & ”'“ Adodc1.Refresh DataGrid1.Refresh End Sub

工資查詢：

工資查詢

設計過程：

通過在姓名欄和月份欄輸入信息，可以快速查找所需查詢人的工資情況；并將查詢結果生成execl表，方便用戶打印及攜帶。

設計代碼：

Private Sub Command1_Click(Dim i As Integer, r As Integer, c As Integer Dim newxls As Excel.Application Dim newbook As Excel.Workbook Dim newsheet As Excel.Worksheet Set newxls = CreateObject(”Excel.Application“ '創建excel應用程序,打開excel Set newbook = newxls.Workbooks.Add '創建工作簿 Set newsheet = newbook.Worksheets(1 '創建工作表 If Adodc1.Recordset.RecordCount > 0 Then For i = 0 To DataGrid1.Columns.Count1 DataGrid1.Col = c newsheet.Cells(r + 1, c + 1 = DataGrid1.Columns(c Next c Adodc1.Recordset.MoveNext Loop Dim myval As Long Dim mystr As String myval = MsgBox(”是否保存該Excel表?“, vbYesNo, ”提示窗口“

If myval = vbYes Then mystr = InputBox(”請輸入文件名稱“, ”輸入窗口“ If Len(mystr = 0 Then MsgBox ”系統不允許文件名稱為空！“, , ”提示窗口“ Exit Sub End If newsheet.SaveAs ”d:“ & mystr & ”.xls“ MsgBox ”Excel文件保存成功，位置：d:“ & mystr & ”.xls“, , ”提示窗口“ newxls.Quit End If End If End Sub Private Sub Command2_Click(Unload Me End Sub Private Sub Form_Load(End Sub Private Sub Text1_Change(Adodc1.RecordSource = ”select a.員工編號,姓名,月份,基本工資,津貼+獎金+扣保險+扣考勤+扣其他 as 獎懲總額,基本工資+津貼+獎金+扣保險+扣考勤+扣其他 as 實發工資 from 員工信息表 a,工資標準 b,其他工資標準 c where a.職務=b.職務 and a.員工編號=c.員工編號 and 姓名 like '“ & Text2 & ”%'and c.月份='“ & Text1 & ”' “ Adodc1.Refresh DataGrid1.Refresh End Sub Private Sub Text2_Change（Adodc1.RecordSource = ”select a.員工編號,姓名,月份,基本工資,津貼+獎金+扣保險+扣考勤+扣其他 as 獎懲總額,基本工資+津貼+獎金+扣保險+扣考勤+扣其他 as 實發工資 from 員工信息表 a,工資標準 b,其他工資標準 c where a.職務=b.職務 and a.員工編號=c.員工編號 and 姓名 like '“ & Text2 & ”%' and c.月份='“ & Text1 & ”'“ Adodc1.Refresh DataGrid1.Refresh End Sub 數據備份及恢復：

數據備份及恢復 設計過程：

用戶可以將數據庫進行完全備份和差異備份，并且在操作不當時可以進行恢復。

設計代碼：

Public Cn As ADODB.Connection Private Sub Command1_Click(Cn.Execute ”backup database 工資 to disk='d:工資完全備份.bak' with name='工資 backup all',description='Full Backup Of pubs'“ MsgBox ”數據完全備份已經完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command2_Click(Cn.Execute ”backup database 工資 to disk='d:工資差異備份.bak' with differential ,noinit,name='工資 backup dif',description='Differential Backup Of 工資'“

MsgBox ”數據差異備份已經完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command3_Click(Cn.Execute ”restore database 工資 from disk='d:工資完全備份.bak' with FILE=1“ MsgBox ”數據恢復已經完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command4_Click(Cn.Execute ”restore database 工資 from disk='d:工資差異備份.bak' with FILE=1“ MsgBox ”數據恢復已經完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Form_Load(Set Cn = New ADODB.Connection strcon = ”Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=true;Initial Catalog=工資;Data Source=(local;“ + _ ”use procedure for prepare=1;auto translate=true;“ + _ ”use encryption for data=false;tag with column collation when possible=false“ Cn.ConnectionString = strcon On Error Resume Next Cn.Open If Cn.Errors.Count > 0 Then For i = 0 To Cn.Errors.Count-1 If Cn.Errors(i.Number =-2147467259 Then MsgBox ”網絡不通或服務器未開，請確認后再試“, vbOKOnly + vbInformation, ”提醒" Unload Me

Exit Sub Exit For End If Next i End If End Sub

3、設計體會

在數據庫課程開課之前我就下決心要學好這一門課，因為這是我的專業課，我一開始就謹慎小心，爭取每一個細節都做得很好。現在終于是完成了，我的設計體會如下：

小心謹慎是關鍵，因為做程序關鍵就是寫代碼，每一個字母都要很小心輸入，若是不小心錯了一個，就會帶來龐大的“查錯工程”，不過從我檢查錯誤當中也學會了一些檢查的方法，比如設置中斷點，可以觀查每一個變量的當前值，很有效的。

小心是一個方面，另一個是怎么樣讓程序最人性化，并且保持較簡潔的程序代碼，通俗說就是事半功倍。有很多時間我是花在了調試程序方面，一部分是在找錯誤，還有就是怎么用最簡練的代碼實現當前的作用。其中絕大多數都是自己寫的代碼，只有在自己不會的時候才借鑒了指導老師發下來的那個示例作品的代碼。

我的程序大多數是我自己寫的，但是自己的知識和水平都十分有限，所以會經常去查看書或者在網上尋找資料，通過看書、看資料，我改進了自己的不足，也學會的很多新的作程序方法，都是十分有用的。

在一個體會就是做程序要有對全局和面的分析能力，老師告訴我好多設計中不曾想到的東西，比如數據表建立的不完美，用戶權限應該分開等。做什么事都是一樣的，具體體現在了這次的數據庫課程設計上來，讓我學到了很多東西。就像要完成一個很大的工作，要先從小的部分做起，不能急于求成，細心謹慎才是關鍵，堅持不懈，最后再把這些小的窗體在連接起來，就構成了一個整體。

只有實踐真正動手做了才會真正了解，在不斷的學習和實踐中體會到更多的經驗。