1、數(shù)據(jù)庫課程設(shè)計(jì)報(bào)告題目：工資管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)班級(jí)： 教師： 學(xué)號(hào)： 姓名： 安徽新華學(xué)院年 月課程設(shè)計(jì)任務(wù)書姓 名 學(xué) 號(hào) 班 級(jí) 課程名稱軟件工程導(dǎo)論課程性質(zhì)專業(yè)基礎(chǔ)課設(shè)計(jì)時(shí)間2017年 5月 20 日 2017年 06 月 12 日設(shè)計(jì)名稱工資管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)項(xiàng)目組成員姓名學(xué)號(hào)在本項(xiàng)目中的分工 代碼實(shí)現(xiàn) 文檔編寫設(shè)計(jì)要求使用傳統(tǒng)軟件工程方法對(duì)工資管理系統(tǒng)進(jìn)行分析和設(shè)計(jì)，本程序是建立在Windows操作系統(tǒng)上，以VB為開發(fā)軟件的應(yīng)用程序，主要功能包括：人事信息的錄入，修改，刪除和查詢操作：工資的核算查詢；用戶信息的管理等。計(jì)劃與進(jìn)度9日20日至9月30日學(xué)習(xí)項(xiàng)目開發(fā)的背景目標(biāo)10日1日至

2、10月7日可行性研究10日8日至10月13日系統(tǒng)分析（包括需求分析，數(shù)據(jù)流圖，數(shù)據(jù)字典等）10日14日至10月24日系統(tǒng)設(shè)計(jì)（包括功能設(shè)計(jì)，數(shù)據(jù)庫設(shè)計(jì)及數(shù)據(jù)庫的實(shí)現(xiàn)）10月25日至11月2日系統(tǒng)實(shí)現(xiàn)11月3日至11月12日軟件測(cè)試及資料整理指導(dǎo)教師意見目錄內(nèi)容概要第一章 引 言1.1 項(xiàng)目開發(fā)背景1.2 項(xiàng)目開發(fā)的目標(biāo)及意義1.3 系統(tǒng)的開發(fā)方法第二章 可行性研究2.1 系統(tǒng)流程圖2.2 完成新系統(tǒng)的可行性第三章 系統(tǒng)分析3.1 系統(tǒng)的設(shè)計(jì)思想3.2 需求分析3.3 系統(tǒng)的運(yùn)行環(huán)境和開發(fā)平臺(tái)3.4 數(shù)據(jù)流圖3.5 數(shù)據(jù)字典第四章 系統(tǒng)設(shè)計(jì) 4.1 功能模塊設(shè)計(jì) 4.2 系統(tǒng)總體功能模塊 4.3

3、 數(shù)據(jù)庫設(shè)計(jì)4.4 數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn)第五章 工資管理系統(tǒng)功能實(shí)現(xiàn) 5.1 開發(fā)環(huán)境簡介 5.2 系統(tǒng)界面的設(shè)計(jì) 5.3 員工基本信息管理功能設(shè)計(jì) 5.4 工資管理功能設(shè)計(jì)第六章 軟件測(cè)試第七章 用戶操作手冊(cè) 第八章 總結(jié)8.1 參考文獻(xiàn)8.2 設(shè)計(jì)體會(huì)與建議內(nèi)容摘要工資管理系統(tǒng)是使用Visual Basic 6.0開發(fā)的一個(gè)數(shù)據(jù)庫管理系統(tǒng)。在此主要講述了使用SQL Server 2000和Visual Basic 6.0完成工資管理系統(tǒng)基本功能的過程。開發(fā)這個(gè)系統(tǒng)的步驟主要有系統(tǒng)分析、系統(tǒng)設(shè)計(jì)、系統(tǒng)實(shí)現(xiàn)和系統(tǒng)維護(hù)。在系統(tǒng)的設(shè)計(jì)中，詳細(xì)的展現(xiàn)了系統(tǒng)的各個(gè)模塊、所需的數(shù)據(jù)庫表及表字段菜單的設(shè)計(jì)等。

4、在系統(tǒng)的實(shí)現(xiàn)中，給出了實(shí)現(xiàn)表單中相應(yīng)的功能控件的事件、代碼及菜單實(shí)現(xiàn)的方法。本系統(tǒng)具有數(shù)據(jù)輸入，數(shù)據(jù)存儲(chǔ)，信息計(jì)算修改刪除等功能，本系統(tǒng)也提供了友好的人際對(duì)話界面。第一章 引 言1.1 項(xiàng)目開發(fā)背景 眾所周知當(dāng)今時(shí)代的世界經(jīng)濟(jì)正從工業(yè)經(jīng)濟(jì)向知識(shí)經(jīng)濟(jì)轉(zhuǎn)變，而知識(shí)經(jīng)濟(jì)的兩個(gè)重要特征就是信息化合全球化。要實(shí)現(xiàn)信息化和全球化就必須依靠完善的網(wǎng)絡(luò)和數(shù)據(jù)庫機(jī)制。處于現(xiàn)在這樣一個(gè)飛速發(fā)展的信息時(shí)代，在各行各業(yè)中都離不開信息處理，這正是計(jì)算機(jī)被廣泛應(yīng)用于管理信息系統(tǒng)的環(huán)境，使用計(jì)算機(jī)進(jìn)行信息控制不僅提高了工作效率，而且大大的提高了其安全性。尤其是對(duì)于復(fù)雜的信息管理，計(jì)算機(jī)能夠充分發(fā)揮其優(yōu)越性。計(jì)算機(jī)進(jìn)行信息管

5、理與信息管理系統(tǒng)的開發(fā)密切相關(guān)，系統(tǒng)的開發(fā)時(shí)系統(tǒng)管理的前提。因此，對(duì)于企業(yè)或是事業(yè)單位來說開發(fā)一套工資管理系統(tǒng)是很必要的。雖然企業(yè)事業(yè)單位的管理已經(jīng)進(jìn)入信息化管理，但對(duì)于不同的單位所需要的功能是不一樣的，這樣通用的軟件使用效率不高，還會(huì)造成人力，財(cái)力的浪費(fèi)，這樣就不能滿足所有單位和部門的需求。所以必須做好客戶的需求分析工作，設(shè)計(jì)符合用戶要求的系統(tǒng)。1.2 系統(tǒng)開發(fā)的目標(biāo)及意義企業(yè)和事業(yè)單位工資管理系統(tǒng)唯有采用自動(dòng)化，高效率，人性化的管理，才能滿足服務(wù)員工的需求。工資管理系統(tǒng)的主要目標(biāo)在于加強(qiáng)服務(wù)而不在于精簡人力。所以系統(tǒng)要能提供更自動(dòng)化的服務(wù)，期望以最快的速度將人事工資信息做最適當(dāng)?shù)倪\(yùn)用。主要

6、目標(biāo)有：以自動(dòng)化、系統(tǒng)化、高效管理代替分散重復(fù)操作；提高單位效益和現(xiàn)代化信息管理水平；提高員工的自律性，促進(jìn)員工人才的成長和流動(dòng)；減輕人事工資管理員的負(fù)擔(dān)，節(jié)省人力物力的開支等。引進(jìn)以計(jì)算機(jī)信息管理技術(shù)和網(wǎng)絡(luò)通訊技術(shù)，是加快人事工資管理信息服務(wù)進(jìn)程的重要手段。新的管理系統(tǒng)的使用會(huì)給人事管理體系發(fā)生變化。這促進(jìn)了工資數(shù)據(jù)管理方式和理念的轉(zhuǎn)變，提高了企業(yè)單位的現(xiàn)代化和信息化水平，為企業(yè)帶來更多的效益。1.3 系統(tǒng)的開發(fā)方法本系統(tǒng)采用Visual Basic 6.0可視化開發(fā)工具開發(fā)，采用ADO對(duì)象數(shù)據(jù)技術(shù)來提高系統(tǒng)的安全性和穩(wěn)定性。工資管理系統(tǒng)可為企業(yè)和事業(yè)單位使用，屬于C/S結(jié)構(gòu)的數(shù)據(jù)庫系統(tǒng)，固

7、定后臺(tái)數(shù)據(jù)庫采用SQL Server 2000。第二章 可行性研究2.1 系統(tǒng)流程圖 員工錄入人事信息管理部門錄入員工出勤工資核算工資管理基本工資出勤信息基本信息工資報(bào)表圖2.1 系統(tǒng)流程圖 2.2 完成新系統(tǒng)的可行性 工資管理系統(tǒng)吸取通用系統(tǒng)的優(yōu)點(diǎn)的基礎(chǔ)上，根據(jù)具體企業(yè)單位所要求的功能進(jìn)行設(shè)計(jì)。添加業(yè)務(wù)管理模塊，在業(yè)務(wù)管理模塊中添加管理員工的業(yè)務(wù)檔案，當(dāng)用戶的業(yè)務(wù)工種等發(fā)生變化時(shí)只需修改業(yè)務(wù)檔案表記錄即可。通用型工資管理的技術(shù)比較成熟，所以可以學(xué)習(xí)技術(shù)并添加一些企業(yè)需要的功能，這樣就能完成此系統(tǒng)以滿足客戶的需求。第三章 系統(tǒng)分析3.1 系統(tǒng)的設(shè)計(jì)思想工資管理系統(tǒng)是企業(yè)和事業(yè)單位常見的計(jì)算機(jī)信

8、息管理系統(tǒng)。它的主要任務(wù)是對(duì)各種工資信息進(jìn)行日常的管理，如工資信息的輸入、查詢、修改、增加、刪除，迅速準(zhǔn)確地完成各種工資信息的統(tǒng)計(jì)計(jì)算和匯總，快速打印出報(bào)表。在建立與實(shí)現(xiàn)工資管理系統(tǒng)時(shí)，應(yīng)進(jìn)行功能劃分，能夠由數(shù)據(jù)庫管理系統(tǒng)完成的功能應(yīng)盡可能由數(shù)據(jù)庫管理系統(tǒng)完成，這樣才能夠充分發(fā)揮數(shù)據(jù)庫管理系統(tǒng)高效、完全、可靠、便捷的性能，減少編程人員的工作量。3.2 需求分析工資管理系統(tǒng)是針對(duì)企事業(yè)單位的大量業(yè)務(wù)處理工作用計(jì)算機(jī)進(jìn)行全面現(xiàn)代化管理主要包括信息輸入功能，信息修改刪除功能，信息的查詢以及工資的計(jì)算管理等。1.信息輸入功能1）輸入職工的基本信息。包括：Eno(員工編號(hào))、Ename（員工姓名）、Ep

9、art(所屬部門)、Eduty(職務(wù))、Esex（性別）、Eedu(學(xué)歷)、Eaddr(住址)、Ebir(出生年月)、Etel(電話號(hào)碼)等。2）輸入工資的信息。包括：（基本工資）、（崗位工資）、（住房補(bǔ)貼）、（津貼）、(工會(huì)會(huì)費(fèi))、(水電費(fèi))、（住房公積金）、（養(yǎng)老保險(xiǎn)）、（獎(jiǎng)懲）。3）輸入員工的部門信息。包括：Bno（部門編號(hào)）、Bname（部門名稱）、Bzg（部門總管）、Bmount(部門人數(shù))等。2.數(shù)據(jù)修改和刪除功能1）修改和刪除員工的基本信息。當(dāng)單位人員的信息發(fā)生變化，如職稱的改變，工作部門變動(dòng)，或調(diào)離本單位等，系統(tǒng)應(yīng)能修改員工的信息或?qū)⑵鋸膯T工信息表中刪除。2）修改和刪除員工的工

10、資信息。員工升職加薪、工資普調(diào)是企業(yè)中常見的事情，這就需要系統(tǒng)能方便對(duì)員工工資進(jìn)行個(gè)別及批量的修改；如員工調(diào)離本單位，就應(yīng)當(dāng)從員工信息表中刪除這個(gè)員工信息，將其工資信息表中相應(yīng)的數(shù)據(jù)刪除。3）修改和刪除部門信息。當(dāng)撤消一個(gè)部門時(shí)，文學(xué)藝術(shù)在能從部門信息表中將其刪除。而當(dāng)一個(gè)部門的名稱發(fā)生改變時(shí)，系統(tǒng)中所有該項(xiàng)部門的名稱應(yīng)一致的改變。3.查詢和統(tǒng)計(jì)功能1）能夠查詢指定員工的基本信息。2）能夠查詢指定某個(gè)部門或全部部門的基本信息。3）查詢某個(gè)員工的工資信息。4）統(tǒng)計(jì)、匯總指定年份企業(yè)各部門或某個(gè)部門每個(gè)月或全年工資總額，匯總各部門的人數(shù)或本單位的總?cè)藬?shù)。5）工資表月工資記錄的生成功能。生成當(dāng)月所有

11、員工或某個(gè)部門的工資記錄，同時(shí)能進(jìn)行員工工資的計(jì)算，即計(jì)算應(yīng)發(fā)金額、應(yīng)扣金額及實(shí)發(fā)金額。3.3 系統(tǒng)的運(yùn)行環(huán)境和開發(fā)平臺(tái)本系統(tǒng)使用Visual Basic進(jìn)行軟件開發(fā)，SQL Server 2000進(jìn)行數(shù)據(jù)庫開發(fā)。VB是微軟公司開發(fā)的最為流行的軟件之一，也是社會(huì)上使用較多的開發(fā)工具之一。VB是一個(gè)完全可視化，面向?qū)ο蟮拈_發(fā)工具，因此此系統(tǒng)具有兼容性較好，安全性強(qiáng)，通用性好等優(yōu)點(diǎn)。3.4 數(shù)據(jù)流圖在對(duì)企業(yè)和事業(yè)單位工資管理過程進(jìn)行分析后，根據(jù)系統(tǒng)功能的描述，得到工資管理系統(tǒng)的數(shù)據(jù)流圖如下：1. 頂層數(shù)據(jù)流圖與0層數(shù)據(jù)流圖圖3.1 頂層數(shù)據(jù)流圖圖3.2 0層數(shù)據(jù)流圖2.人事管理模塊、工資管理模塊查

12、詢模塊分層數(shù)據(jù)流圖 部門表1.1查詢部門及員工信息1.2工資錄入員工編號(hào) 員工與考勤數(shù)據(jù)工資數(shù)據(jù)考勤表 工資表圖3.3 員工信息查詢與錄入考勤表2.2計(jì)算工資2.1查詢考勤內(nèi)容員工名稱考勤數(shù)據(jù)工資信息工資表圖3.4 工資核算 備份員工名3.2數(shù)據(jù)備份3.1查詢工資數(shù)據(jù)備份工資表備份數(shù)據(jù)工資表工資備份表圖3.5 工資備份工資表考勤表4.2查詢處理4.1要求加工員工信息查詢要求查詢規(guī)則查詢結(jié)果員工表圖3.6 員工信息查詢35 數(shù)據(jù)字典數(shù)據(jù)字典是系統(tǒng)中各類數(shù)據(jù)描述的集合簡要說明工資管理系統(tǒng)的數(shù)據(jù)字典。1).名字：職工編號(hào)，部門編號(hào)別名：職工號(hào)，部門號(hào)描述：職工號(hào)唯一地標(biāo)識(shí)數(shù)據(jù)庫中職工信息相關(guān)表中的一

13、個(gè)特定員工的關(guān)鍵域；部門號(hào)唯一地標(biāo)識(shí)部門信息表中的一個(gè)特定部門的關(guān)鍵域位置：員工信息表 考勤表 工資表2).名字：職工信息報(bào)表 別名：職工信息 描述：用戶指定條件下的員工基本信息情況查詢結(jié)果的信息表 定義：職工信息表=職工號(hào)+職工姓名+性別+出生年月+職務(wù)+學(xué)歷+電話號(hào)碼+住址+所屬部門+身份證號(hào) 位置：輸出到打印機(jī)3).名字：考勤信息報(bào)表 別名：考勤信息 描述：用戶指定條件下的員工考勤信息查詢結(jié)果的信息表 定義：員工考勤信息查詢報(bào)表=考勤編號(hào)+員工號(hào)+員工姓名+加班天數(shù)+出差天數(shù)+曠工天數(shù)+遲到次數(shù)+考勤日期 位置：輸出到打印機(jī)4).名字：工資報(bào)表 別名：工資信息 描述：記錄工資的組成部分以

14、及員工的工資情況的信息 定義：工資信息報(bào)表=職務(wù)+基本工資+每日工資+加班系數(shù)+出差天數(shù)+曠工標(biāo)準(zhǔn)+遲到標(biāo)準(zhǔn)+獎(jiǎng)金位置：輸出到打印機(jī) 第四章 系統(tǒng)設(shè)計(jì)4.1 系統(tǒng)功能設(shè)計(jì) 軟件所實(shí)現(xiàn)的功能強(qiáng)弱是衡量一個(gè)軟件最根本的標(biāo)準(zhǔn)。經(jīng)過系統(tǒng)的可行性研究，需求分析后，得出中小型企業(yè)的工資信息管理系統(tǒng)的功能分層圖如下：工資管理系統(tǒng)2.1添加人事信息2.2修改人事信息2.4查詢?nèi)耸滦畔?.1設(shè)置工資3.3查詢職務(wù)基本工資3.2計(jì)算工資2.0人事管理功能3.0工資管理功能1.0系統(tǒng)登錄4.0系統(tǒng)管理功能4.1管理用戶2.3刪除人事信息4.1.1添加用戶4.1.2修改用戶密碼 圖4.1 工資管理系統(tǒng)層次圖4.2 系

15、統(tǒng)總體功能模塊此工資管理系統(tǒng)分為五個(gè)模塊，具體如下： 1.人事基本信息管理模塊：員工信息錄入修改刪除及查詢。 2.部門管理模塊。3.考勤管理模塊。 4.工資計(jì)算及管理模塊。4.3 數(shù)據(jù)庫設(shè)計(jì)4.3.1概念結(jié)構(gòu)設(shè)計(jì)1. 根據(jù)如上的信息可得到實(shí)體之間的關(guān)系E-R圖如下：圖4.2 E-R圖2.概念結(jié)構(gòu)模型 圖4.3 概念模型CDM4.3.2 邏輯結(jié)構(gòu)設(shè)計(jì)將E-R圖轉(zhuǎn)換成如下關(guān)系模式： 員工表（員工號(hào)，員工名，職務(wù)，部門號(hào)，性別，出生年月，學(xué)歷，電話，住址，身份證號(hào)） 部門表（部門號(hào)，部門名，部門總管，部門人數(shù)，）考勤表（考勤編號(hào)，員工號(hào)，遲到次數(shù)，曠工次數(shù)，出差天數(shù)，加班次數(shù)，考勤日期）工資表（職務(wù)

16、，員工號(hào)，基本工資，獎(jiǎng)金，出差標(biāo)準(zhǔn)，加班標(biāo)準(zhǔn)，遲到系數(shù)，曠工次數(shù)）依據(jù)上面的關(guān)系模式，設(shè)計(jì)數(shù)據(jù)表如下：1. 用戶表 ：用于進(jìn)入系統(tǒng)的權(quán)限設(shè)置等。 表1 用戶信息表Users列名數(shù)據(jù)類型長度屬性描述userIDchar5主鍵用戶編號(hào)usernamevarchar10不允許空用戶名passwordvarchar15不允許空密碼markvarchar20備注 2.職工表：職工的基本信息。表2 職工信息表Employee列名數(shù)據(jù)類型長度屬性描述Enochar6主鍵職工編號(hào)Enamevarchar15不允許為空職工姓名Esexvarchar10性別EbirthDatetime出生年月Edutyvarch

17、ar20外鍵職務(wù)Eeduvarchar20學(xué)歷Etelvarchar15電話號(hào)碼Eaddrvarchar20住址Bnovarchar20外鍵部門編號(hào)IDidentifyvarchar20身份證號(hào) 3.部門表：部門基本信息。 表3 部門信息表Department列名數(shù)據(jù)類型長度屬性描述Bnochar5主鍵部門號(hào)Bnamevarchar10不允許空部門名Bzgvarchar10部門總管Bmountint4部門人數(shù)4.工資表：工資的基本組成信息。表4 工資設(shè)置表WageConfig列名數(shù)據(jù)類型長度屬性描述DutyVarchar20主鍵職務(wù)BaseWageMoney8基本工資DayWageMoney8

18、每日工資QvertinmeJobFloat8加班系數(shù)EvectionStandardMoney出差標(biāo)準(zhǔn)AbsenStandardMoney8曠工標(biāo)準(zhǔn)LateStandardMoney8遲到標(biāo)準(zhǔn)Bonusmoney8獎(jiǎng)金5.考勤表：記錄員工的到職情況。 表5 考勤統(tǒng)計(jì)表CheckStat列名數(shù)據(jù)類型長度屬性描述CheckIDInt主鍵考勤編號(hào)EnoChar6外鍵員工號(hào)Enamechar15不允許空員工姓名OvertimeDayVarchar加班天數(shù)EvectionDaySmallint出差天數(shù)AbsentDaySmallint曠工天數(shù)LateDaySmallint遲到次數(shù)CheckDatesma

19、lldatetime考勤日期 6.工資表：記錄保存計(jì)算出來的工資。 表6 工資表Wage列名數(shù)據(jù)類型長度屬性描述WageIDint主鍵編號(hào)EmployeeIDchar6不允許空員工編號(hào)EmployeeNamevarchar15不允許空員工姓名WageNamedatetime不允許空工作日期BaseWagemoney不允許空基本工資OvertimeWagemoney不允許空加班工資EvectionWagemoney不允許空出差補(bǔ)助AbsentWagemoney不允許空曠工減薪LateWagemoney不允許空遲到減薪EtcWagemoney不允許空其他補(bǔ)助BonusWagemoney不允許空獎(jiǎng)金

20、TotalWagemoney不允許空總工資4.3.3 物理結(jié)構(gòu)模型圖4.4 物理結(jié)構(gòu)模型PDM4.4 數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn)1、數(shù)據(jù)庫的創(chuàng)建 T-SQL語句：Create database 工資管理on(name=Wages_data,filename=E:MSSQLDataWages_data.mdf, size=10mb,maxsize=100mb,filegrowth=5%)log on ( name=Wages_log, filename=E:MSSQLDataWages_log.ldf, size=5mb, maxsize=30mb, filegrowth=2mb )2、數(shù)據(jù)表的創(chuàng)建（可同

21、時(shí)在創(chuàng)建時(shí)定義相關(guān)的約束） T-SQL語句： 1) Users表：Create table Users( UID int not null defaultPrimary Key,Uname char(8) not null default, UPassword char( 16) default,URight char(20) default,) 2)Employee表：create table Employee( EmployeeID char(8) not null defaultPrimary Key, EmployeeName char(8) not null default, Sex

22、 char(2) default, Birthday smalldatetime default, Education char(8) default, Duty char(20) not null References WageConfig(Duty) ON UPDATE CASCADE ON DELETE CASCADE, DepartmentID char(20) not null, IdentityID char(20) not null, Telephone char(15) not null, Address char(40) not null, Remark varchar(10

23、0) default )3)WageConfig表：Create table WageConfig( Duty char(20) not null defaultPrimary Key, BaseWage money not null, DayWage money not null, OvertimeJob float(8) not null, EvectionStandard money not null, AbsentStandard money not null, LateStandard money not null, EtcStandard money not null, Bonus

24、 money not null)4）CheckStat表：create table CheckStat( CheckID int IDENTITY(1,1) Primary Key, EmployeeID char(8) not null References Employee(EmployeeID) ON UPDATE CASCADE ON DELETE CASCADE, EmployeeName varchar(15) default, Overtimeday smallint default, Evectionday smallint default, Absentday smallin

25、t default, Lateday smallint default, CheckDate smalldatetime default )5）Wage表：create table Wage( WageID int IDENTITY(1,1) Primary Key, EmployeeID char(8) not null References Employee(EmployeeID) ON UPDATE CASCADE ON DELETE CASCADE, EmployeeName varchar(15) default, WageDate smalldatetime default, Ba

26、seWage money default 0, OvertimeWage money default 0, EvectionWage money default 0, AbsentWage money default 0, LateWage money default 0, EtcWage money default 0, BonusWage money default 0, TotalWage money default 0, )6)DepartmentID表：Create table DepartmentID(DepartmentID int not null defaultPrimary

27、 Key,Departmentname char(16) not null default, Departmentmanage char( 8) default,Departmentnumber int default,)3. 向表中插入基本信息1）插入用戶基本信息insert into Usersselect01,1,1,系統(tǒng)管理員union select 02,yy,1234,人事管理union select 03,ll,1234,工資管理union select 04,lxj,1234,人事管理union select 05,ws,1234,工資管理union select 06,mq,

28、1234,系統(tǒng)管理員2）插入職工基本信息insert into Employee(EmployeeID,EmployeeName,Sex,Birthday,Education,Duty,DepartmentID,IdentityID,Telephone,Address,Remark)select0101,時(shí)妍妍,女,1988-08-15,總管,策劃部,淮安,union select 0401,梁麗,女,1989-01-08,總管,財(cái)務(wù)部,淮安,union select 0301,潘娟,女,1988-01-25,工人,生產(chǎn)部,徐州,union select 0402,許潔,女,1990-01-2

29、7,工人,財(cái)務(wù)部,河南,union select 0501,王濤,1987-10-13,工人,銷售部,福建,union select 0201,徐杰,1984-07-09,研究生,技術(shù)人員,研發(fā)部,無錫,union select 0701,張凱,1985-04-12,總管,后勤部,浙江,union select 0601,李璐,女,1986-05-16,大專,總管,宣傳部,蘇州,union select 0302,石磊,1985-02-07,工人,生產(chǎn)部,揚(yáng)州,union select 0303,吳華,1986-06-24,工人,生產(chǎn)部,山東,union select 0304,唐建青,198

30、9-11-10,總管,生產(chǎn)部,揚(yáng)州,union select 0502,李云,女,1988-03-17,工人,銷售部,8,鎮(zhèn)江,union select 0202,王兆坤,1986-04-30,總管,研發(fā)部,無錫,union select 0305,梁玉沖,1990-09-04,工人,生產(chǎn)部,無錫,union select 0503,金壇,1989-12-15,總管,銷售部,上海,union select 0403,夏平,1986-01-13,大專,工人,財(cái)務(wù)部,四川,union select 0602,邵建波,1984-03-17,工人,宣傳部,徐州,union select 0603,李書

31、生,1987-11-22,工人,宣傳部,南通,union select 0102,陸林,1980-08-21,博士,工人,策劃部,河北,union select 0702,黃婷,女,1981-05-16,工人,后勤部,安徽,union select 0203,周宇,1982-07-19,研究生,技術(shù)人員,研發(fā)部,浙江,union select 0703,李曉梅,女,1982-04-03,工人,后勤部,宿遷,第五章 工資管理系統(tǒng)功能實(shí)現(xiàn)5.1 開發(fā)環(huán)境簡介 Visual Basic是一個(gè)可視化、面向?qū)ο蟮?、采用事件?qū)動(dòng)的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)語言，它具有強(qiáng)大的數(shù)據(jù)庫操作功能，提供了數(shù)據(jù)管理器（Dat

32、a Manager）、數(shù)據(jù)控件（data Control）以及ADO(Activex數(shù)據(jù)對(duì)象)等工具，利用它能夠建立多種類型的數(shù)據(jù)庫并可以管理維護(hù)和使用這些數(shù)據(jù)。5.2 系統(tǒng)界面的設(shè)計(jì) 圖5.1 系統(tǒng)界面系統(tǒng)主界面主要有系統(tǒng)菜單和運(yùn)行界面。給界面提供了系統(tǒng)設(shè)置，人事管理，工資管理和幫助等功能，下面又分多個(gè)子功能。5.3 員工基本信息管理功能設(shè)計(jì)（代碼）添加操作：Dim EmployeeID, Employeename, Sex, birthday, Education, Duty, DepartmentName, IdentityID, Telephone, Address As String

33、EmployeeID = Text1.TextEmployeename = Text2.TextEducation = Text3.TextDuty = Text8.TextDepartmentName = Text4.TextSex = Combo1.TextIdentityID = Text5.TextTelephone = Text6.TextAddress = Text7.TextIf Trim(EmployeeID) = Or Trim(Employeename) = Or Trim(DepartmentName) = Then MsgBox 員工基本信息不能為空,請(qǐng)?zhí)顚懀?Exit

34、 SubEnd IfmyCon.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工資管理;Data Source=HP-PC;myRs.Open select * from Employee where EmployeeID= & Trim(Text1.Text) & and Employeename= & Trim(Text2.Text) & , myConIf myRs.EOF = False Then MsgBox 該員工已經(jīng)存在，請(qǐng)重新輸入！ my

35、Rs.Close myCon.Close Text1.SetFocusExit SubEnd IfmyRs.ClosemyRs.Open employee, myCon, 3, 2myRs.AddNew myRs.Fields(EmployeeID) = Text1.Text myRs.Fields(Employeename) = Text2.Text myRs.Fields(Education) = Text3.Text myRs.Fields(Duty) = Text8.Text myRs.Fields(DepartmentName) = Text4.Text myRs.Fields(Se

36、x) = Combo1.Text myRs.Fields(IdentityID) = Text5.Text myRs.Fields(birthday) = DTPicker1.Value myRs.Fields(Telephone) = Text6.Text myRs.Fields(Address) = Text7.TextmyRs.UpdatemyRs.ClosemyCon.CloseMsgBox 添加成功!Adodc1.RecordSource = select * from employee jbxx.Adodc1.Refreshjbxx.DataGrid1.Refresh Text1.

37、Text = Text2.Text = Text3.Text = Text4.Text = Combo1.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = 修改操作：Dim EmployeeID, Employeename, Sex, birthday, Education, Duty, Department, IdentityID, Telephone, Address As StringDim n As IntegerEmployeeID = Text1.TextEmployeename = Text2.TextEduca

38、tion = Text3.TextDuty = Text8.TextDepartmentName = Text4.TextSex = Combo1.TextIdentityID = Text5.TextTelephone = Text6.TextAddress = Text7.TextIf Trim(EmployeeID) = Or Trim(Employeename) = Then MsgBox 請(qǐng)?zhí)顚懸獎(jiǎng)h除員工的基本信息！ Exit SubEnd IfIf myCon.State = 1 ThenmyCon.CloseEnd IfmyCon.Open Provider=SQLOLEDB.1

39、;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工資管理;Data Source=HP-PC;myRs.Open select * from employee where EmployeeID= & Text1.Text & , myCon, 3, 2n = MsgBox(您確定要?jiǎng)h除嗎？, vbYesNo, 提示)If n = 6 ThenmyRs.DeletemyRs.ClosemyCon.CloseEnd IfAdodc1.RecordSource = select * from employee

40、 jbxx.Adodc1.Refreshjbxx.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Combo1.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = 刪除操作：Dim EmployeeID, Employeename, Sex, birthday, Education, DepartmentName, IdentityID, Telephone, Address As StringEmployeeID = Text1.Text

41、Employeename = Text2.TextEducation = Text3.TextDuty = Text8.TextDepartmentName = Text4.TextSex = Combo1.TextIdentityID = Text5.TextTelephone = Text6.TextAddress = Text7.TextIf Trim(EmployeeID) = Or Trim(Employeename) = Then MsgBox 請(qǐng)?zhí)顚懸薷牡膬?nèi)容！, vbYesNo, 提示 Text2.Text = Exit SubEnd If myCon.Open Provid

42、er=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工資管理;Data Source=HP-PC;myRs.Open select * from employee where EmployeeID= & Text1.Text & , myCon, 3, 2 myRs!Employeename = Text2.Text myRs.UpdatemyRs.ClosemyCon.CloseMsgBox 您確定要修改嗎？, vbYesNo, 提示jbxx.Adodc1.Refreshjbxx

43、.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Combo1.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = 5.4 工資管理功能設(shè)計(jì)員工信息查詢：Option ExplicitPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdQuery_Click() Dim sql As String 按編號(hào)查詢 If chkNumber.Value = True Then If

44、 cboNumber.Text = Then MsgBox 請(qǐng)選擇員工編號(hào)！, vbExclamation cboNumber.SetFocus Exit Sub ElseIf IsNumeric(cboNumber.Text) = False Then MsgBox 員工編號(hào)是數(shù)字量！, vbExclamation cboNumber.SetFocus Exit Sub Else sql = select * from Wage where EmployeeID= & _ cboNumber.Text & Adodc1.RecordSource = sql Adodc1.Refresh End If End If 按姓名查詢 If chkName.Value = True Then If cboName.Text = Then MsgBox 請(qǐng)選擇員工姓名！, vbExclamation cboName.SetFocus Exit Sub Else sql = se