畢業(yè)設計（論文）VB.NET企業(yè)員工勞動合同管理系統(tǒng)的設計與實現(xiàn)

1、企業(yè)員工勞動合同管理系統(tǒng)的設計與實現(xiàn)企業(yè)員工勞動合同管理系統(tǒng)的設計與實現(xiàn) 摘 要：隨著計算機技術的飛速發(fā)展，企業(yè)內相關數(shù)據(jù)信息也急劇增長，因此 企業(yè)應建立一套完整的現(xiàn)代化、網(wǎng)絡化、規(guī)范化的員工勞動合同管理系統(tǒng)來改 變傳統(tǒng)手工辦理員工勞動合同相關業(yè)務速度慢、效率低以及資料容易丟失的弊 端，提高工作效率，優(yōu)化員工勞動合同管理，降低勞動成本，從而為企業(yè)不斷 地創(chuàng)造出更多的經(jīng)濟效益。員工勞動合同管理系統(tǒng)的管理模塊，是一個根據(jù)參 考資料以及通過對中大型公司進行實際調研，采用 microsoft vb.net 編程， 運用 sql server 2000 數(shù)據(jù)庫系統(tǒng)開發(fā)的系統(tǒng)。本系統(tǒng)操作簡便，界面友好，

2、靈活實用.系統(tǒng)管理模塊主要提供了靈活有效的信息輸入方式，快速的信息檢 索能力，有效地解決了公司內部員工合同的信息管理、信息共享、信息檢索， 信息保密問題。本課題能實現(xiàn)對企業(yè)員工勞動合同進行管理的功能，便于工作 人員操作，能夠優(yōu)化企業(yè)管理能力，提高企業(yè)工作效率，并加大與同行之間的 競爭力。 關鍵詞：企業(yè) 勞動合同管理 數(shù)據(jù)庫 the design and implement of enterprise employee labor contract management system abstract: along with the rapid development of computer t

3、echnology, the inside relevant data information in business enterprise also grows sharply, the enterprise shall establish a complete set of modernization and network and standardization of the labor contract management systems to change the traditional manual related business deal with employees con

4、tract which is inefficient and material easily lost defects, improving work efficiency, optimizing the employee contract management, reduce the labor cost, thus for enterprise constantly create more economic benefits. employee contract management system management module, is a reference material and

5、 based on according to the actual investigation, are evaluated by microsoft , using sql server 2000 database system development erface flexible, practical, this module provides flexible and effective lord the information input methods, rapid information retrieval capabilities, and further

6、effectively solved in a companys internal employee contract information management, information sharing, information retrieval and information confidential problems. this topic can realize the functions of enterprise employee labor contract management, facilitating personnels to work, optimizing the

7、 ability of enterprise management, strengthening the enterprise efficiency, and increasing the competitiveness between peers. keywords: enterprise labor contract management database 目目 錄錄 前前 言言.1 第第 1 1 章章 緒緒 論論.2 1.1 系統(tǒng)開發(fā)背景.2 1.2 系統(tǒng)實現(xiàn)要求.2 1.3 系統(tǒng)開發(fā)平臺.3 1.4 系統(tǒng)開發(fā)工具簡介.3 第第 2 2 章章 系統(tǒng)可行性分析系統(tǒng)可行性分析.4 2.1 經(jīng)

8、濟和市場可行性分析.4 2.2 技術可行性分析.4 2.3 系統(tǒng)需求分析.4 第第 3 3 章章 需求分析需求分析.5 3.1 系統(tǒng)設計目標.5 3.2 系統(tǒng)主要功能.5 3.2.1 用戶管理 .5 3.2.2 數(shù)據(jù)維護 .5 3.2.3 數(shù)據(jù)查詢 .5 3.2.4 數(shù)據(jù)統(tǒng)計 .5 3.2.5 續(xù)簽查詢功能 .6 第第 4 4 章章 概要設計概要設計.7 4.1 系統(tǒng)體系結構設計.7 4.2 開發(fā)工具的選擇.7 4.3 用戶管理功能模塊.8 4.4 數(shù)據(jù)庫結構設計.8 4.4.1 數(shù)據(jù)庫概念結構設計.8 4.4.2 數(shù)據(jù)庫邏輯結構設計.9 4.5 所需實用技術.10 第第 5 5 章章 系統(tǒng)界

9、面設系統(tǒng)界面設計計與實現(xiàn)與實現(xiàn).11 5.1 界面設計原則.11 5.2 用戶管理的界面設計.11 5.2.1 登錄及注冊的界面設計.11 5.2.2 修改密碼的界面設計.13 5.3 主界面的界面設計.13 5.3.1 員工基本信息界面.13 5.3.2 員工基本信息錄入修改界面.15 5.3.3 員工基本信息查看界面.16 5.3.4 員工基本信息導出 excel 界面 .16 5.3.5 員工基本信息刪除界面.17 5.3.6 員工基本信息查詢及到期提醒界面.18 第第 6 6 章章 系統(tǒng)測試及分析系統(tǒng)測試及分析.20 6.1 單元測試.20 6.2 集成測試.20 總總 結結.21 致

10、致 謝謝.22 參參 考考 文文 獻獻.23 附附 錄錄.24 前前 言言 隨著企業(yè)管理水平的提高和市場競爭的加劇，企業(yè)管理系統(tǒng)在提高企業(yè)的 競爭能力方面發(fā)揮的作用越來越大。首先，企業(yè)的管理方式走向智能化。隨著 信息技術和互聯(lián)網(wǎng)的發(fā)展，企業(yè)內部會產(chǎn)生各種業(yè)務信息（包括文字、圖片、 業(yè)務數(shù)據(jù)等） 。面對海量信息，如何迅速找到有價值的信息是人們最關心的問 題。通過智能化管理，可實現(xiàn)信息從原始存儲狀態(tài)到不同服務類型的自動組織、 歸類。其次，由于非結構化信息比結構化信息更難標準化并且被人理解，所以 對其進行存儲、檢索、發(fā)布以及利用也就需要更加智能化的 it 技術，比如海 量存儲、智能檢索、信息挖掘、內

11、容保護、信息的增值開發(fā)利用等等?，F(xiàn)代社 會企業(yè)管理能力進一步提高，企業(yè)應建立一套完整的現(xiàn)代化、網(wǎng)絡化、規(guī)范化 的員工勞動合同管理系統(tǒng)來改變傳統(tǒng)手工辦理員工合同相關業(yè)務的速度慢、效 率低以及資料容易丟失的弊端，提高工作效率、優(yōu)化員工合同管理、降低勞動 成本，從而為企業(yè)不斷地創(chuàng)造出更多的經(jīng)濟效益。 對于企事業(yè)單位的人事管理系統(tǒng)來說，不需要大型的數(shù)據(jù)庫系統(tǒng)，只需要 一個操作方便，功能實用，能滿足企業(yè)對數(shù)據(jù)進行管理的系統(tǒng)。我們的目標就 是在于開發(fā)一個功能實用、操作方便的企業(yè)員工勞動合同管理系統(tǒng)。 該系統(tǒng)能夠錄入員工合同及本人的基本信息，在操作上能完成諸如添加、 修改、刪除、查看功能。同時能按各種條件查

12、詢、實現(xiàn)分類統(tǒng)計，續(xù)簽提醒， 并打印出花名冊及用戶的注冊登錄及修改密碼等方面的工作，基本滿足員工合 同管理的日常需要。 該系統(tǒng)的規(guī)模是中等偏下。技術上主要涉及界面設計和數(shù)據(jù)庫設計，開發(fā) 工具可采用應用軟件開發(fā)工具 vb.net，后臺數(shù)據(jù)庫選擇 sql server 2000。利 用 visual basic.net 的一些特性（如跨語言調試）以及 visual basic.net 與 公共類型系統(tǒng)和公共語言運行庫的一致性，尤其是在數(shù)據(jù)庫開發(fā)方面具有很大 優(yōu)勢，它能夠支持大多數(shù)數(shù)據(jù)庫的鏈接，通過 ado 技術足以方便快捷的實現(xiàn)數(shù) 據(jù)庫鏈接，并進行有效的訪問。 第第 1 1 章章 緒緒 論論 1.

13、1.1 1 系統(tǒng)開發(fā)背景系統(tǒng)開發(fā)背景 隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們 深刻認識，它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。 企業(yè)應建立一套完整的現(xiàn)代化、網(wǎng)絡化、規(guī)范化的員工勞動合同管理系統(tǒng) 來改變傳統(tǒng)手工辦理員工合同相關業(yè)務速度慢、效率低以及資料容易丟失的弊 端，該項目開發(fā)的系統(tǒng)為企業(yè)員工勞動合同管理系統(tǒng)。 員工勞動合同管理系統(tǒng)是一個單位不可缺少的部分。一個功能齊全、簡單 實用的信息管理系統(tǒng)不但能有效減輕公司相關工作人員的工作負擔，而且它的 內容對于公司管理者來說都至關重要。所以員工勞動合同管理系統(tǒng)應該能夠為 用戶提供充足的信息和快捷的查詢手段。但一

14、直以來人們使用傳統(tǒng)的方式管理 員工勞動合同信息、統(tǒng)計和查詢數(shù)據(jù)，這種管理方式存在著許多缺點，如：效 率低、保密性差，人工的大量浪費，另外時間一長，將產(chǎn)生大量的文件和數(shù)據(jù)， 這對于查找、更新和維護都帶來了不少困難。該系統(tǒng)完成后可用于公司的員工 勞動合同信息的管理，可提高工作效率，優(yōu)化員工合同管理，降低勞動成本。 作為計算機應用的一部分，使用計算機對企事業(yè)單位的各類信息進行管理， 具有手工管理無法比擬的優(yōu)點，例如：檢索迅速、查詢方便、效率高、可靠性 好、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高公司 信息管理的效率，也是一個單位科學化、正規(guī)化管理，與世界接軌的重要條件。 1.21

15、.2 系統(tǒng)實現(xiàn)要求系統(tǒng)實現(xiàn)要求 1. 基本功能 （1）對員工勞動合同信息的錄入，修改；對員工的增加，刪減。 （2）對勞動合同到期人員提前三十日予以提醒，對新簽勞動合同員工的試 用期到達提前十日予以提醒。 （3）對合同到期人員是否續(xù)簽進行系統(tǒng)登記，如續(xù)簽或解除，如續(xù)簽，登 記續(xù)簽勞動合同的起止時間，對首簽員工試用期考核結果進行系統(tǒng)登記，如合 格或不合格。 2. 輔助功能 （1）對勞動合同信息可實現(xiàn)分類統(tǒng)計，如按用工類型，按合同簽訂年限長 短，按合同起止時間等。 （2）按單項條件或組合條件查詢符合條件的勞動合同信息。 （3）具備以花名冊形式打印，用戶名密碼登錄的功能。 1.31.3 系統(tǒng)開發(fā)平臺系

16、統(tǒng)開發(fā)平臺 服務器端平臺軟件全部采用 microsoft 的產(chǎn)品，便于維護和管理。 1. 服務器端平臺 操作系統(tǒng)：microsoft windows 2003 server 數(shù)據(jù)庫系統(tǒng)：microsoft sql server 2000 開發(fā)語言：microsoft visual bisic.net 開發(fā)工具：visual studio 2005 2. 客戶端運行環(huán)境 操作系統(tǒng)：microsoft windows 2003 及更高版本 1.41.4 系統(tǒng)開發(fā)工具簡介系統(tǒng)開發(fā)工具簡介 vb.net 是 microsoft 環(huán)境下簡單、易學、高效的一種編程語言，其快速開 發(fā)的特性深受程序員的喜愛。

17、但是.net 以前版本的 visual basic 面向對象的能 力遠遠不能滿足程序員的需要，這也是越大項目越少用到 visual basic 的原因。 visual basic.net 新增和將強了許多新的面向對象的特性比如繼承、重載等等。 語言的新特點也包括了對進程的控制和底層結構的操作，這些新特點使得 visual basic.net 再次成為程序員關注的焦點。 vb.net 的特點：構造函數(shù)、封裝特性、自由線程、繼承、初始化函數(shù)、 基于對象、面向對象、重載、覆蓋、多態(tài)性。 sql server2000 的常見版本有：企業(yè)版、標準版、個人版、開發(fā)版，其中 企業(yè)版功能全面，應用于大中型產(chǎn)品

18、服務處理器，能夠支持大型網(wǎng)站聯(lián)機事務 處理、以及聯(lián)機分析處理。 sql server2000 的特點：internet 集成、可伸縮性和可用性、企業(yè)級數(shù) 據(jù)庫功能、易于安裝、部署和使用。 第第 2 2 章章 系統(tǒng)可行性分析系統(tǒng)可行性分析 2.12.1 經(jīng)濟和市場可行性分析經(jīng)濟和市場可行性分析 目前企業(yè)管理系統(tǒng)在提高企業(yè)的競爭能力方面發(fā)揮的作用越來越大，企業(yè) 的管理方式走向智能化。隨著信息技術和互聯(lián)網(wǎng)的發(fā)展，企業(yè)內部會產(chǎn)生各種 業(yè)務信息（包括文字、圖片、業(yè)務數(shù)據(jù)等） 。通過智能化管理，可實現(xiàn)信息從 原始存儲狀態(tài)到不同服務類型的自動組織、歸類。因此開發(fā)一個小型的管理系 統(tǒng)，用開發(fā)工具在短時間內完成

19、，具有經(jīng)濟和市場可行性。 2.22.2 技術可行性分析技術可行性分析 該項目的規(guī)模是中等偏下。技術上主要涉及界面設計和數(shù)據(jù)庫設計，開發(fā) 工具可采用應用軟件開發(fā)工具 vb.net，利用 visual basic.net 的一些特性 （如跨語言調試）以及 visual basic.net 與公共類型系統(tǒng)和公共語言運行庫 的一致性，尤其是在數(shù)據(jù)庫開發(fā)方面具有很大優(yōu)勢，它能夠支持大多數(shù)數(shù)據(jù)庫 的鏈接，通過 ado 技術足以方便快捷的實現(xiàn)數(shù)據(jù)庫鏈接，并進行有效的訪問。 2.32.3 系統(tǒng)需求分析系統(tǒng)需求分析 企業(yè)員工勞動合同管理系統(tǒng)包括員工基本信息管理，和數(shù)據(jù)查詢統(tǒng)計等主 要功能。具體功能如下： 1.

20、員工基本信息的新增、修改、刪除、查看，打印等操作，基本信息包 括姓名，身份證號碼，簽訂合同的時間等內容。此功能為合同管理系統(tǒng)和數(shù)據(jù) 庫設計模塊提供了依據(jù)。此外，還包含有提醒功能和續(xù)簽查詢。 2. 數(shù)據(jù)查詢統(tǒng)計按單項條件或組合條件查詢或統(tǒng)計符合條件的員工勞動 合同信息。 3. 用戶管理即管理員的信息管理，主要功能為登錄系統(tǒng)用戶名和密碼的 注冊和修改的功能。 第第 3 3 章章 需求分析需求分析 要開發(fā)一個管理系統(tǒng)，首先要進行需求分析和總體設計，分析系統(tǒng)的適用 對象和用戶需求，設計系統(tǒng)的體系結構和數(shù)據(jù)庫結構，選擇實用的開發(fā)工具和 后臺數(shù)據(jù)庫，規(guī)劃項目開發(fā)進度等這些工作在實際的項目開發(fā)過程中是非常重

21、 要的。而系統(tǒng)的每一項需求都必須在系統(tǒng)中體現(xiàn)出來。系統(tǒng)功能的全面性，安 全性是系統(tǒng)的生產(chǎn)至關重要的前提，它決定了系統(tǒng)的可靠性和對客戶的服務能 力。系統(tǒng)建設雖是在 visual b 環(huán)境下設計的，但應用系統(tǒng)都需要后 臺數(shù)據(jù)庫的支持，而 visual b 和 sql server 2000 數(shù)據(jù)庫也是系統(tǒng) 開發(fā)常用的比較廣泛的組合之一。 3.13.1 系統(tǒng)設計目標系統(tǒng)設計目標 隨著現(xiàn)代社會企業(yè)管理能力的進一步提高，企業(yè)應建立一套完整的現(xiàn)代化、 網(wǎng)絡化、規(guī)范化的員工勞動合同管理系統(tǒng)來改變傳統(tǒng)手工辦理員工合同相關業(yè) 務速度慢、效率低以及資料容易丟失的弊端，這樣可以提高工作效率，優(yōu)化員 工合同管理，降低

22、勞動成本，從而為企業(yè)不斷地創(chuàng)造出更多的經(jīng)濟效益。 3.23.2 系統(tǒng)主要功能系統(tǒng)主要功能 3.2.1 用戶管理 即管理員的信息管理，主要功能為登錄系統(tǒng)用戶的注冊以及用戶名和密碼 的修改。 3.2.2 數(shù)據(jù)維護 即對企業(yè)員工基本信息的新增、修改、刪除、查看，打印等操作。 3.2.3 數(shù)據(jù)查詢 該功能是對勞動合同信息可實現(xiàn)分類查詢，如按用工類型，按合同簽訂年 限長短，按合同起止時間等；按單項條件或組合條件查詢符合條件的勞動合同 信息。 3.2.4 數(shù)據(jù)統(tǒng)計 該功能是對勞動合同信息可實現(xiàn)分類統(tǒng)計如按用工類型，按合同簽訂年限 長短，按合同起止時間等；按單項條件或組合條件查詢符合條件的勞動合同信 息提醒

23、功能對勞動合同到期人員提前三十日予以提醒，對新簽勞動合同員工的 試用期到達提前十日予以提醒。 3.2.5 續(xù)簽查詢功能 對合同到期人員是否續(xù)簽進行系統(tǒng)登記，如續(xù)簽或解除，如續(xù)簽，登記續(xù) 簽勞動合同的起止時間，對首簽員工試用期考核結果進行系統(tǒng)登記，如合格或 不合格。 第第 4 4 章章 概要設計概要設計 4.14.1 系統(tǒng)體系結構設計系統(tǒng)體系結構設計 本章將根據(jù)需求分析中總結的用戶需求設計系統(tǒng)的體系結構。系統(tǒng)的功能 模塊圖如 4.1 所示。 在功能模塊示意圖的樹狀結構中，每一個葉結點都是一個最小的功能模塊。 每一個功能模塊都需要針對不同的表完成不同的數(shù)據(jù)庫操作，即添加記錄，修 改記錄，刪除記錄查

24、詢顯示記錄信息，以及統(tǒng)計記錄信息等。如圖 4.1 所示。 圖 4.1 系統(tǒng)功能模塊示意圖 4.24.2 開發(fā)工具的選擇開發(fā)工具的選擇 開發(fā)數(shù)據(jù)庫原理信息系統(tǒng)需要選擇兩種工具，即前臺開發(fā)語言和后臺數(shù)據(jù) 庫。選擇開發(fā)工具時應該考慮用戶需求、系統(tǒng)功能和性能的需求。 1. 前臺開發(fā)工具選擇 visual b。 2. 后臺數(shù)據(jù)庫選擇 sql server 2000。 3. 中間層采用 ado 數(shù)據(jù)訪問技術，將對數(shù)據(jù)庫的操作定義在模塊中。 4.34.3 用戶管理功能模塊用戶管理功能模塊 運行系統(tǒng)后，首先會看到登錄窗體，對用戶的身份進行認證。用戶管理模 塊的功能比較簡單，在系統(tǒng)開始使用時，默認用戶為 adm

25、in,密碼為 11，進入 主界面以后，可以進行用戶注冊，或修改密碼等操作。 4.44.4 數(shù)據(jù)庫結構設計數(shù)據(jù)庫結構設計 4.4.1 數(shù)據(jù)庫概念結構設計 數(shù)據(jù)庫結構設計是總體設計階段非常重要的環(huán)節(jié)，好的數(shù)據(jù)庫結構可以簡 化開發(fā)過程，使系統(tǒng)功能清晰明確。因為數(shù)據(jù)庫結構的變化會造成編碼的改動， 所以必須認真設計數(shù)據(jù)庫結構后再進行編碼，從而避免無謂的重復工作。 在仔細調查本系統(tǒng)運作過程的基礎上，得到本系統(tǒng)的數(shù)據(jù)處理流程。如圖 4.2 所示。 圖 4.2 數(shù)據(jù)流程圖 數(shù)據(jù)庫中包含 2 個表，即員工基本信息表 empinfo，包括的數(shù)據(jù)項有員工 姓名、性別、身份證號碼、生日、籍貫、民族、家庭住址、聯(lián)系電話

26、，首簽合 同時間、試用期、簽訂合同時間，合同年限等。 用戶基本信息表 admin，包括的數(shù)據(jù)項有用戶名、密碼。 下面詳細介紹本系統(tǒng)主要的實體以及主要實體之間的關系。 （1）員工勞動合同信息實體 e-r 圖，如圖 4.3 所示。 圖 4.3 員工合同信息實體 e-r 圖 （2）管理員實體 e-r 圖，如圖 4.4 所示。 圖 4.4 管理員實體 e-r 圖 4.4.2 數(shù)據(jù)庫邏輯結構設計 我們需要將上面的數(shù)據(jù)庫概念結構轉化為數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模 型，也就是數(shù)據(jù)庫的邏輯結構。 在上面的實體與實體之間關系的基礎上，我們就可以在數(shù)據(jù)庫中設計表， 本系統(tǒng)中主要的數(shù)據(jù)庫表如下圖所示。 （1）員工勞

27、動合同基本信息表，該表用來存放所有員工合同基本信息。如 表 4.1 所示。 表 4.1 員工合同基本信息表 （2）管理員信息表，該表用來存放本系統(tǒng)管理員的信息。如表 4.2 所示。 表 4.2 管理員信息表 4.54.5 所需實用技術所需實用技術 所選開發(fā)工具的基本編程方法： 1. 基本的后臺數(shù)據(jù)庫管理方法。例如創(chuàng)建數(shù)據(jù)庫、創(chuàng)建表、創(chuàng)建查詢、 返回數(shù)據(jù)庫等 2. 常用sql語句的使用。 3. ado數(shù)據(jù)庫訪問技術。 第第 5 5 章章 系統(tǒng)界面設計與實現(xiàn)系統(tǒng)界面設計與實現(xiàn) 5.15.1 界面設計原則界面設計原則 程序通過用戶界面與用戶實現(xiàn)交互。用戶界面不僅需要從視覺上看起來美 觀，而且要求方便

28、用戶的操作。通常一個用戶界面是由若干個對象組成的, windows 應用程序的用戶界面一般都是由窗體、控件等對象構成的，各個對象 之間的聯(lián)系完全取決于操作者所做的操作。也就是說，程序的運行并沒有固定 的順序，這種工作模式，稱為事件驅動方式。 5.25.2 用戶管理的界面設計用戶管理的界面設計 5.2.1 登錄及注冊的界面設計 當系統(tǒng)運行時，首先打開登錄窗體，只有通過登錄才能進入系統(tǒng)。登錄成 功后，將顯示系統(tǒng)主界面。登錄窗體的名稱為 login，它的界面布局如圖 5.1 所示。 圖 5.1 登錄界面 員工合同管理系統(tǒng)登錄主要代碼如下： private sub login_click(byval

29、sender as system.object, byval e as system.eventargs) handles login.click if me.textbox1.text = or me.textbox2.text = then msgbox(請輸入用戶名和密碼) end if dim conn as new data.sqlclient.sqlconnection conn.connectionstring = server=.;database=employeedb;integrated security=true; dim cmd as new data.sqlclien

30、t.sqlcommand cmd.commandtext = select * from admin where userid= + me.textbox1.text.trim() + and password = + me.textbox2.text.trim() + cmd.connection = conn conn.open() dim dr as data.sqlclient.sqldatareader dr = cmd.executereader() try if dr.read() then me.textbox2.text.trim() then msgbox(登錄成功！) m

31、ain.show() i = 1 end if dr.close() conn.close() catch ex as exception msgbox(ex.message) end try if i = 0 then msgbox(輸入錯誤,請重新輸入或注冊) me.textbox1.text = me.textbox2.text = me.textbox1.focus() end if end sub 當管理員運行該程序時，系統(tǒng)判斷是否輸入了用戶名和密碼，如果沒有輸 入，輸錯或沒有輸入，要求用戶輸入或者注冊。注冊界面的名稱是 register, 它的界面布局如圖 5.2 所示。 圖 5.

32、2 注冊界面 5.2.2 修改密碼的界面設計 修改密碼界面可以重新設定用戶登錄的密碼。窗體的名稱為 p_edit，如圖 5.3 所示。 圖 5.3 修改密碼界面 5.35.3 主界面的界面設計主界面的界面設計 主界面中一級菜單分別為員工基本信息管理，用戶管理。一級菜單用戶管 理的字菜單分別為用戶注冊，修改密碼。窗體的名稱為 main，如圖 5.4 所示。 圖 5.4 主界面 5.3.1 員工基本信息界面 員工基本信息模塊包含新增，刪除，修改，詳細信息，導出 excel，刷新 等功能。其中包含員工基本信息以及重要的合同信息，并包含基本查詢模塊， 組合查詢模塊，以及按照首簽提前十日或續(xù)簽提前三十日

33、提醒的提醒模塊。使 用 datagridview 來顯示員工基本信息，窗體的名稱為 look，如圖 5.5 所示。 圖 5.5 員工基本信息界面 員工基本信息界面主要代碼如下： private sub look_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load call dgv() 把表填充 dim i as integer with me.datagridview1 .rowsdefaultcellstyle.backcolor = color.beige .alterna

34、tingrowsdefaultcellstyle.backcolor = color.lightcyan .allowusertoaddrows = false .currentcell = nothing .topleftheadercell.value = 行號 .rowheaderswidth = 50 for i = 1 to .rowcount .rows(i - 1).headercell.value = i.tostring next end with end sub private sub dgv()將datagridview填充數(shù)據(jù)的填充函數(shù) dim dgvds as new

35、 dataset dim da as sqldataadapter dim strdgv as string call dbopen() strdgv = select emp_id as 合同編號,emp_name as 姓名,emp_sex as 性別,emp_birthday as 出生日期, strdgv = strdgv database=employeedb;integrated security=true; public connection as sqlclient.sqlconnection public function dbopen() as boolean 打開數(shù)據(jù)庫

36、try connection = new sqlclient.sqlconnection connection.connectionstring = conn connection.open() return true catch ex as exception msgbox(ex.tostring) return false end try end function public function dbclose() as boolean 關閉數(shù)據(jù)庫 try connection = new sqlclient.sqlconnection connection.connectionstrin

37、g = conn connection.close() return true catch ex as exception msgbox(ex.tostring) return false end try end function end module private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.click 修改用戶信息或新增用戶 if update_id = 1 then call dbopen() dim str_update as

38、 string str_update = update empinfo set emp_name= & trim(textbox1.text) & ,emp_sex= & trim(combobox2.text) & , str_update = str_update & emp_birthday= & datevalue(dt2).toshortdatestring & ,emp_htime= & trim(textbox2.text) & , str_update = str_update & emp_comedate= & datevalue(dt1).toshortdatestring

39、 & ,emp_grade= & trim(combobox3.text) & , str_update = str_update & emp_folk= & trim(textbox7.text) & ,emp_np= & trim(textbox6.text) & ,emp_yn= & trim(combobox4.text) & , str_update = str_update & emp_did= & trim(textbox9.text) & ,emp_probation= & trim(textbox4.text) & , str_update = str_update & em

40、p_rpraddr= & trim(textbox10.text) & ,emp_phone= & trim(textbox15.text) & ,emp_dqdate= & str1 & , str_update = str_update & emp_e_mail= & trim(textbox17.text) & ,emp_famliy_addr= & trim(textbox18.text) & ,emp_signdate= & dt3 & , str_update = str_update & emp_yglx= & trim(combobox1.text) & ,emp_remark

41、= & trim(textbox20.text) & str_update = str_update & where emp_id= & trim(textbox3.text) & dim cmd as new sqlcommand(str_update, connection) cmd.executenonquery() call dbclose() msgbox(修改個人基本信息成功!, , 提示) call text_readonly_true() toolbar1.enabled = true ds.clear() else call dbopen() dim str_insert_e

42、mpinfo as string str_insert_empinfo = insert into empinfo(emp_id,emp_name,emp_sex,emp_birthday,emp_htime, str_insert_empinfo = str_insert_empinfo & emp_comedate,emp_folk,emp_np, str_insert_empinfo = str_insert_empinfo & emp_did,emp_rpraddr,emp_phone,emp_dqdate, str_insert_empinfo = str_insert_empinf

43、o & emp_e_mail,emp_famliy_addr,emp_yglx,emp_probation,emp_grade,emp_yn,emp_signdate,emp_remark) values ( & trim(textbox3.text) & , str_insert_empinfo = str_insert_empinfo & & trim(textbox1.text) & , & trim(combobox2.text) & , & dt2 & , & trim(textbox2.text) & , str_insert_empinfo = str_insert_empinf

44、o & & dt1 & , & trim(textbox7.text) & , str_insert_empinfo = str_insert_empinfo & & trim(textbox6.text) & , & trim(textbox9.text) & , str_insert_empinfo = str_insert_empinfo & & trim(textbox10.text) & , str_insert_empinfo = str_insert_empinfo & & trim(textbox15.text) & , & str1 & , str_insert_empinf

45、o = str_insert_empinfo & & trim(textbox17.text) & , & trim(textbox18.text) & , str_insert_empinfo = str_insert_empinfo & & combobox1.text & , & trim(textbox4.text) & , & trim(combobox3.text) & , & trim(combobox4.text) & , & dt3 & , & trim(textbox20.text) & ) dim cmd as new sqlcommand(str_insert_empi

46、nfo, connection) cmd.executenonquery() msgbox(添加個人基本信息成功!, , 提示) call dbclose() call text_readonly_true() toolbar1.enabled = true ds.clear() end if private sub button8_click(byval sender as system.object, byval e as system.eventargs) handles button8.click 組合查詢 dim sql as string dim dgvds as new data

47、set dim da as sqldataadapter dim strtime as string = me.datetimepicker1.value.toshortdatestring sql = select emp_id as 合同編號,emp_name as 姓名,emp_sex as 性別,emp_birthday as 出生日期, emp_comedate as 首簽日期,emp_yglx as 用工類型,emp_probation as 試用期,emp_grade as 考核成績, emp_yn as 是否續(xù)簽,emp_signdate as 簽訂合同日期,emp_htime

48、 as 合同年限, emp_folk as 民族,emp_np as 籍貫,emp_did as 身份證號碼,emp_rpraddr as 現(xiàn)在戶口所在地,emp_phone as 聯(lián)系電話,emp_e_mail as 郵箱, emp_famliy_addr as 家庭住址,emp_remark as 備注from empinfo where 1 = 1 if me.combobox1.text.trim() then sql += and emp_yglx = & trim(combobox1.text) & end if if (datetimepicker1.checked = true

49、) then sql += and emp_signdate = & datevalue(datetimepicker1.value.date.tostring).toshortdatestring & end if if (datetimepicker2.checked = true) then sql += and emp_comedate= & datevalue(datetimepicker2.value.date.tostring).toshortdatestring & end if if me.textbox1.text.trim() then sql += and emp_ht

50、ime = & trim(textbox1.text) & end if da = new sqldataadapter(sql, connection) da.fill(dgvds, empinfo) datagridview1.datasource = dgvds.tables(empinfo) datagridview1.currentcell = nothing dim i as integer for i = 1 to datagridview1.rowcount datagridview1.rows(i - 1).headercell.value = i.tostring next

51、 ta = dgvds.tables(empinfo) call dbclose() if datagridview1.rowcount = 0 then msgbox(對不起,沒有查詢到該數(shù)據(jù)!, , 提示) end if end sub private sub modify_click(byval sender as system.object, byval e as system.eventargs) handles modify.click 用戶修改密碼 if trim(textbox1.text) = trim(login.textbox2.text) then if textbox

52、2.text and textbox3.text then if trim(textbox2.text) = trim(textbox3.text) then call dbopen() dim sqlstr as string = update admin set password= & trim(textbox2.text) & where userid= & login.textbox1.text.trim() & dim cmd as new sqlclient.sqlcommand(sqlstr, connection) cmd.executenonquery() msgbox(密碼

53、修改成功!, msgboxstyle.information, 提示) userpwd = trim(textbox2.text) call dbclose() me.close() else msgbox(二次密碼輸入不一樣!, msgboxstyle.information, 提示) end if else msgbox(新密碼和確定新密碼不能為空!, msgboxstyle.information, 提示) end if else msgbox(原密碼輸入不正確!, msgboxstyle.information, 提示) end if end sub private sub btsav

54、e_click(byval sender as system.object, byval e as system.eventargs) handles btsave.click 用戶信息錄入與修改 if update_id = 1 then call dbopen() dim str_update as string str_update = update empinfo set emp_name= & trim(textbox1.text) & ,emp_sex= & trim(combobox2.text) & , str_update = str_update & emp_birthda

55、y= & datevalue(dt2).toshortdatestring & ,emp_htime= & trim(textbox2.text) & , str_update = str_update & emp_comedate= & datevalue(dt1).toshortdatestring & ,emp_grade= & trim(combobox3.text) & , str_update = str_update & emp_folk= & trim(textbox7.text) & ,emp_np= & trim(textbox6.text) & ,emp_yn= & trim(combobox4.text) & , str_update = str_update & emp_did= & trim(textbox9.text) & ,emp_probation= & trim(textbox4.text) & , str_update = str_update & emp_rpraddr= & trim(textbox10.text) & ,emp_phone= & trim(textbox15.text) & ,emp_dqdate= &