第一篇：VB0016人事工資管理系統A 2

摘 要

在當今社會，隨著計算機技術的快速發展及網絡技術的應用，實現用計算機代替人腦管理事務已經相當普及，這其中利用計算機實現企業人事工資的管理已勢在必行。本系統結合實際的人事、財務制度，經過實際的需求分析，采用功能強大的Visual Basic6.0做為開發工具，選取Microsoft Access2002作為后臺數據庫，主要應用了ADO對象執行SQL語言的技術手段而開發出來的單機版人事管工資理系統。

整個系統從符合實用、靈活、安全的要求出發，可以存儲所有有關工資，津貼，提成等內容，安全高效，實現迅速查找所需信息完成工資管理的全過程，包括員工信息的添加，修改刪除，職位信息的添加，修改，刪除以及特殊項管理，其中包括各種獎懲措施以及項目提成等工資管理工作。實踐證明，本文所設計的工資管理系統操作簡便、應用靈活，方便用戶對數據的把握和管理，可以滿足公司人事、工資管理各方面的需要。

論文主要介紹了本課題的開發環境平臺，系統所要完成的各項功能及開 發的過程。著重說明了系統設計的思想，解決方案和功能實現。

關鍵詞：數據庫；Visual Basic6.0；Microsoft Access2002；人事工資管理

Abstract

目 錄

第1章

緒

論 1

1.1管理系統簡介.........................................................錯誤！未定義書簽。1.2系統開發的特點要求.............................................錯誤！未定義書簽。1.3設計和開發步驟.....................................................錯誤！未定義書簽。

第2章 系統分析及工作平臺 錯誤！未定義書簽。

2.1系統可行性分析.....................................................錯誤！未定義書簽。2.2 系統需求分析........................................................錯誤！未定義書簽。

2.2.1 分析目標：..................................................錯誤！未定義書簽。2.2.2 現狀調查分析..............................................錯誤！未定義書簽。2.2.3 分析成果：..................................................錯誤！未定義書簽。2.3 開發工具的選擇....................................................錯誤！未定義書簽。

2.3.1 VB語言的應用............................................錯誤！未定義書簽。

2.3.2 VB語言的特點............................................錯誤！未定義書簽。2.3.3 Access2002的應用.......................................錯誤！未定義書簽。2.3.4 Access的特點...............................................錯誤！未定義書簽。2.3.5 Access和Visual Basic結合的優點.............錯誤！未定義書簽。2.4 開發平臺的選擇....................................................錯誤！未定義書簽。

第3章 總體設計 錯誤！未定義書簽。

3.1 系統設計思想........................................................錯誤！未定義書簽。3.2 安全性與完整性分析............................................錯誤！未定義書簽。3.3 系統功能設計........................................................錯誤！未定義書簽。

3.3.1 系統功能模塊設計......................................錯誤！未定義書簽。3.3.2 系統關系模式設計......................................錯誤！未定義書簽。3.4分析與創建數據庫.................................................錯誤！未定義書簽。3.5創建公用數據庫模塊.............................................錯誤！未定義書簽。

3.5.1公用數據庫模塊的功能...............................錯誤！未定義書簽。3.5.2公用數據庫模塊設計...................................錯誤！未定義書簽。

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

4.1創建主窗體.............................................................錯誤！未定義書簽。4.2創建人員管理窗體.................................................錯誤！未定義書簽。4.3 創建添加員工窗體................................................錯誤！未定義書簽。4.4創建修改員工窗體.................................................錯誤！未定義書簽。4.5創建職位管理窗體.................................................錯誤！未定義書簽。4.6創建添加職位窗體.................................................錯誤！未定義書簽。4.7創建修改職位窗體.................................................錯誤！未定義書簽。4.8創建特殊項管理窗體.............................................錯誤！未定義書簽。4.9創建添加特殊項窗體.............................................錯誤！未定義書簽。4.10創建修改特殊項窗體...........................................錯誤！未定義書簽。4.11創建工資發放窗體...............................................錯誤！未定義書簽。4.12創建統計報表窗體...............................................錯誤！未定義書簽。4.13 創建當月工資細表窗體......................................錯誤！未定義書簽。4.14創建當月工資總表窗體.......................................錯誤！未定義書簽。4.15創建當月特殊項表窗體.......................................錯誤！未定義書簽。

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

5.1系統運行測試流程.................................................錯誤！未定義書簽。5.2系統安全性密碼設計.............................................錯誤！未定義書簽。

總結 錯誤！未定義書簽。

致

謝 錯誤！未定義書簽。參 考 文 獻 錯誤！未定義書簽。

Powered by 計算機畢業論文網http://www.tmdps.cn 提供 如果需要詳細內容請與QQ:4991024聯系

第二篇：人事工資管理系統畢業設計論文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中的菜單中包含的菜單選項如下： 【人事管理】：檔案管理、獎罰管理、調動管理、考評管理。【工資管理】：考勤津貼、工資總結。【系統管理】：部門管理、數據備份。【用戶管理】：操作員管理、修改口令、更改操作員。【退出】不包括任何選項。

三、人事管理菜單

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()