1、-. z.軟件工程課程設計報告題目：工資管理系統(tǒng)設計與實現(xiàn)班級：教師：*： 大學計算機科學與技術學院年 月課程設計任務書姓 名學 號班 級課程名稱軟件工程導論課程性質專業(yè)基礎課設計時間2009 年 9月 20 日 2009年 11 月 12 日設計名稱工資管理系統(tǒng)設計與實現(xiàn)項目組成員*在本項目中的分工代碼實現(xiàn)文檔編寫設計要求使用傳統(tǒng)軟件工程方法對工資管理系統(tǒng)進行分析和設計，本程序是建立在Windows操作系統(tǒng)上，以VB為開發(fā)軟件的應用程序，主要功能包括：人事信息的錄入，修改，刪除和查詢操作：工資的核算查詢；用戶信息的管理等。計劃與進度9日20日至9月30日學習項目開發(fā)的背景目標10日1日至10

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

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

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

5、企業(yè)或是事業(yè)單位來說開發(fā)一套工資管理系統(tǒng)是很必要的。雖然企業(yè)事業(yè)單位的管理已經(jīng)進入信息化管理，但對于不同的單位所需要的功能是不一樣的，這樣通用的軟件使用效率不高，還會造成人力，財力的浪費，這樣就不能滿足所有單位和部門的需求。所以必須做好客戶的需求分析工作，設計符合用戶要求的系統(tǒng)。 系統(tǒng)開發(fā)的目標及意義企業(yè)和事業(yè)單位工資管理系統(tǒng)唯有采用自動化，高效率，人性化的管理，才能滿足服務員工的需求。工資管理系統(tǒng)的主要目標在于加強服務而不在于精簡人力。所以系統(tǒng)要能提供更自動化的服務，期望以最快的速度將人事工資信息做最適當?shù)倪\用。主要目標有：以自動化、系統(tǒng)化、高效管理代替分散重復操作；提高單位效益和現(xiàn)代化信息

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

7、錄入人事信息管理部門錄入員工出勤工資核算工資管理基本工資出勤信息基本信息工資報表圖2.1 系統(tǒng)流程圖2.2 完成新系統(tǒng)的可行性 工資管理系統(tǒng)吸取通用系統(tǒng)的優(yōu)點的基礎上，根據(jù)具體企業(yè)單位所要求的功能進行設計。添加業(yè)務管理模塊，在業(yè)務管理模塊中添加管理員工的業(yè)務檔案，當用戶的業(yè)務工種等發(fā)生變化時只需修改業(yè)務檔案表記錄即可。通用型工資管理的技術比較成熟，所以可以學習技術并添加一些企業(yè)需要的功能，這樣就能完成此系統(tǒng)以滿足客戶的需求。 系統(tǒng)分析3.1 系統(tǒng)的設計思想工資管理系統(tǒng)是企業(yè)和事業(yè)單位常見的計算機信息管理系統(tǒng)。它的主要任務是對各種工資信息進行日常的管理，如工資信息的輸入、查詢、修改、增加、刪除，

8、迅速準確地完成各種工資信息的統(tǒng)計計算和匯總，快速打印出報表。在建立與實現(xiàn)工資管理系統(tǒng)時，應進行功能劃分，能夠由數(shù)據(jù)庫管理系統(tǒng)完成的功能應盡可能由數(shù)據(jù)庫管理系統(tǒng)完成，這樣才能夠充分發(fā)揮數(shù)據(jù)庫管理系統(tǒng)高效、完全、可靠、便捷的性能，減少編程人員的工作量。3.2 需求分析工資管理系統(tǒng)是針對企事業(yè)單位的大量業(yè)務處理工作用計算機進行全面現(xiàn)代化管理主要包括信息輸入功能，信息修改刪除功能，信息的查詢以及工資的計算管理等。1.信息輸入功能1）輸入職工的基本信息。包括：Eno(員工編號)、Ename（員工）、Epart(所屬部門)、Eduty(職務)、Ese*（性別）、Eedu(學歷)、Eaddr(住址)、Ebi

9、r(出生年月)、Etel()等。2）輸入工資的信息。包括：（基本工資）、（崗位工資）、（住房補貼）、（津貼）、(工會會費)、(水電費)、（住房公積金）、（養(yǎng)老保險）、（獎懲）。3）輸入員工的部門信息。包括：Bno（部門編號）、Bname（部門名稱）、Bzg（部門總管）、Bmount(部門人數(shù))等。2.數(shù)據(jù)修改和刪除功能1）修改和刪除員工的基本信息。當單位人員的信息發(fā)生變化，如職稱的改變，工作部門變動，或調離本單位等，系統(tǒng)應能修改員工的信息或將其從員工信息表中刪除。2）修改和刪除員工的工資信息。員工升職加薪、工資普調是企業(yè)中常見的事情，這就需要系統(tǒng)能方便對員工工資進行個別及批量的修改；如員工調離

10、本單位，就應當從員工信息表中刪除這個員工信息，將其工資信息表中相應的數(shù)據(jù)刪除。3）修改和刪除部門信息。當撤消一個部門時，文學藝術在能從部門信息表中將其刪除。而當一個部門的名稱發(fā)生改變時，系統(tǒng)中所有該項部門的名稱應一致的改變。3.查詢和統(tǒng)計功能1）能夠查詢指定員工的基本信息。2）能夠查詢指定*個部門或全部部門的基本信息。3）查詢*個員工的工資信息。4）統(tǒng)計、匯總指定年份企業(yè)各部門或*個部門每個月或全年工資總額，匯總各部門的人數(shù)或本單位的總人數(shù)。5）工資表月工資記錄的生成功能。生成當月所有員工或*個部門的工資記錄，同時能進行員工工資的計算，即計算應發(fā)金額、應扣金額及實發(fā)金額。3.3 系統(tǒng)的運行環(huán)境

11、和開發(fā)平臺本系統(tǒng)使用Visual Basic進行軟件開發(fā)，SQL Server 2000進行數(shù)據(jù)庫開發(fā)。VB是微軟公司開發(fā)的最為流行的軟件之一，也是社會上使用較多的開發(fā)工具之一。VB是一個完全可視化，面向對象的開發(fā)工具，因此此系統(tǒng)具有兼容性較好，安全性強，通用性好等優(yōu)點。3.4 數(shù)據(jù)流圖在對企業(yè)和事業(yè)單位工資管理過程進行分析后，根據(jù)系統(tǒng)功能的描述，得到工資管理系統(tǒng)的數(shù)據(jù)流圖如下：1. 頂層數(shù)據(jù)流圖與0層數(shù)據(jù)流圖圖3.1 頂層數(shù)據(jù)流圖圖3.2 0層數(shù)據(jù)流圖2.人事管理模塊、工資管理模塊查詢模塊分層數(shù)據(jù)流圖 部門表1.1查詢部門及員工信息1.2工資錄入員工編號 員工與考勤數(shù)據(jù)工資數(shù)據(jù)考勤表 工資表

12、圖3.3 員工信息查詢與錄入考勤表2.2計算工資2.1查詢考勤內容員工名稱考勤數(shù)據(jù)工資信息工資表圖3.4 工資核算 備份員工名3.2數(shù)據(jù)備份3.1查詢工資數(shù)據(jù)備份工資表備份數(shù)據(jù)工資表工資備份表圖3.5 工資備份工資表考勤表4.2查詢處理4.1要求加工員工信息查詢要求查詢規(guī)則查詢結果員工表圖3.6 員工信息查詢35 數(shù)據(jù)字典數(shù)據(jù)字典是系統(tǒng)中各類數(shù)據(jù)描述的集合簡要說明工資管理系統(tǒng)的數(shù)據(jù)字典。1).名字：職工編號，部門編號別名：職工號，部門號描述：職工號唯一地標識數(shù)據(jù)庫中職工信息相關表中的一個特定員工的關鍵域；部門號唯一地標識部門信息表中的一個特定部門的關鍵域位置：員工信息表 考勤表 工資表2).名

13、字：職工信息報表 別名：職工信息 描述：用戶指定條件下的員工基本信息情況查詢結果的信息表 定義：職工信息表=職工號+職工+性別+出生年月+職務+學歷+住址+所屬部門+號 位置：輸出到打印機3).名字：考勤信息報表 別名：考勤信息 描述：用戶指定條件下的員工考勤信息查詢結果的信息表 定義：員工考勤信息查詢報表=考勤編號+員工號+員工+加班天數(shù)+出差天數(shù)+曠工天數(shù)+遲到次數(shù)+考勤日期 位置：輸出到打印機4).名字：工資報表 別名：工資信息 描述：記錄工資的組成部分以及員工的工資情況的信息 定義：工資信息報表=職務+基本工資+每日工資+加班系數(shù)+出差天數(shù)+曠工標準+遲到標準+獎金位置：輸出到打印機

14、系統(tǒng)設計4.1 系統(tǒng)功能設計 軟件所實現(xiàn)的功能強弱是衡量一個軟件最根本的標準。經(jīng)過系統(tǒng)的可行性研究，需求分析后，得出中小型企業(yè)的工資信息管理系統(tǒng)的功能分層圖如下：工資管理系統(tǒng)2.1添加人事信息2.2修改人事信息2.4查詢人事信息3.1設置工資3.3查詢職務基本工資3.2計算工資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 系統(tǒng)總體功能模塊此工資管理系統(tǒng)分為五個模塊，具體如下： 1.人事基本信息管理模塊：員工信息錄入修改刪除及查詢。 2.部門管理模塊。3.考勤管理模

15、塊。 4.工資計算及管理模塊。4.3 數(shù)據(jù)庫設計4.3.1概念結構設計根據(jù)如上的信息可得到實體之間的關系E-R圖如下：圖4.2 E-R圖2.概念結構模型圖4.3 概念模型CDM4.3.2 邏輯結構設計將E-R圖轉換成如下關系模式： 員工表（員工號，員工名，職務，部門號，性別，出生年月，學歷，住址，號） 部門表（部門號，部門名，部門總管，部門人數(shù)，）考勤表（考勤編號，員工號，遲到次數(shù)，曠工次數(shù)，出差天數(shù)，加班次數(shù)，考勤日期）工資表（職務，員工號，基本工資，獎金，出差標準，加班標準，遲到系數(shù)，曠工次數(shù)）依據(jù)上面的關系模式，設計數(shù)據(jù)表如下：用戶表 ：用于進入系統(tǒng)的權限設置等。 表1 用戶信息表Use

16、rs列名數(shù)據(jù)類型長度屬性描述userIDchar5主鍵用戶編號usernamevarchar10不允許空用戶名passwordvarchar15不允許空密碼markvarchar20備注2.職工表：職工的基本信息。表2 職工信息表Employee列名數(shù)據(jù)類型長度屬性描述Enochar6主鍵職工編號Enamevarchar15不允許為空職工Ese*varchar10性別EbirthDatetime出生年月Edutyvarchar20外鍵職務Eeduvarchar20學歷Etelvarchar15Eaddrvarchar20住址Bnovarchar20外鍵部門編號IDidentifyvarchar

17、20號3.部門表：部門基本信息。 表3 部門信息表Department列名數(shù)據(jù)類型長度屬性描述Bnochar5主鍵部門號Bnamevarchar10不允許空部門名Bzgvarchar10部門總管Bmountint4部門人數(shù)4.工資表：工資的基本組成信息。表4 工資設置表WageConfig列名數(shù)據(jù)類型長度屬性描述DutyVarchar20主鍵職務BaseWageMoney8基本工資DayWageMoney8每日工資QvertinmeJobFloat8加班系數(shù)EvectionStandardMoney出差標準AbsenStandardMoney8曠工標準LateStandardMoney8遲到標

18、準Bonusmoney8獎金5.考勤表：記錄員工的到職情況。 表5 考勤統(tǒng)計表CheckStat列名數(shù)據(jù)類型長度屬性描述CheckIDInt主鍵考勤編號EnoChar6外鍵員工號Enamechar15不允許空員工OvertimeDayVarchar加班天數(shù)EvectionDaySmallint出差天數(shù)AbsentDaySmallint曠工天數(shù)LateDaySmallint遲到次數(shù)CheckDatesmalldatetime考勤日期 6.工資表：記錄保存計算出來的工資。 表6 工資表Wage列名數(shù)據(jù)類型長度屬性描述WageIDint主鍵編號EmployeeIDchar6不允許空員工編號Emplo

19、yeeNamevarchar15不允許空員工WageNamedatetime不允許空工作日期BaseWagemoney不允許空基本工資OvertimeWagemoney不允許空加班工資EvectionWagemoney不允許空出差補助AbsentWagemoney不允許空曠工減薪LateWagemoney不允許空遲到減薪EtcWagemoney不允許空其他補助BonusWagemoney不允許空獎金TotalWagemoney不允許空總工資4.3.3 物理結構模型圖4.4 物理結構模型PDM數(shù)據(jù)庫結構的實現(xiàn)1、數(shù)據(jù)庫的創(chuàng)建 T-SQL語句：Create database 工資管理on(name

20、=Wages_data,filename=E:MSSQLDataWages_data.mdf, size=10mb,ma*size=100mb,filegrowth=5%)log on ( name=Wages_log, filename=E:MSSQLDataWages_log.ldf, size=5mb, ma*size=30mb, filegrowth=2mb )2、數(shù)據(jù)表的創(chuàng)建（可同時在創(chuàng)建時定義相關的約束） T-SQL語句： 1) Users表：Create table Users(UID int not null defaultPrimary Key,Uname char(8) n

21、ot 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, Se* char(2) default, Birthday smalldatetime default, Education char(8) default,Duty char(20) not null Refer

22、ences 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(100) default )3)WageConfig表：Create table WageConfig( Duty char(20) not null defaultPrimary Key, BaseWage mon

23、ey 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 money not null)4）CheckStat表：create table CheckStat(CheckID int IDENTITY(1,1) Primary Key,EmployeeID char(

24、8) not null References Employee(EmployeeID) ON UPDATE CASCADE ON DELETE CASCADE,EmployeeName varchar(15) default, Overtimeday smallint default, Evectionday smallint default, Absentday smallint default,Lateday smallint default,CheckDate smalldatetime default )5）Wage表：create table Wage( WageID int IDE

25、NTITY(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, BaseWage money default 0,OvertimeWage money default 0,EvectionWage money default 0, AbsentWage money default 0, Lat

26、eWage 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 Key,Departmentname char(16) not null default, Departmentmanage char( 8) default,Departmentnumber int default,)向表中插

27、入基本信息1）插入用戶基本信息insert into Usersselect01,1,1,系統(tǒng)管理員union select 02,yy,1234,人事管理union select 03,ll,1234,工資管理union select 04,l*j,1234,人事管理union select 05,ws,1234,工資管理union select 06,mq,1234,系統(tǒng)管理員2）插入職工基本信息insert into Employee(EmployeeID,EmployeeName,Se*,Birthday,Education,Duty,DepartmentID,IdentityID,T

28、elephone,Address,Remark)select0101,時妍妍,女,1988-08-15,總管,策劃部,union select 0401,梁麗,女,1989-01-08,總管,財務部,union select 0301,娟,女,1988-01-25,工人,生產(chǎn)部,union select 0402,許潔,女,1990-01-27,工人,財務部,union select 0501,王濤,1987-10-13,工人,銷售部,union select 0201,徐杰,1984-07-09,研究生,技術人員,研發(fā)部,union select 0701,凱,1985-04-12,總管,后

29、勤部,union select 0601,璐,女,1986-05-16,大專,總管,宣傳部,union select 0302,石磊,1985-02-07,工人,生產(chǎn)部,union select 0303,吳華,1986-06-24,工人,生產(chǎn)部,union select 0304,唐建青,1989-11-10,總管,生產(chǎn)部,union select 0502,云,女,1988-03-17,工人,銷售部,8,union select 0202,王兆坤,1986-04-30,總管,研發(fā)部,union select 0305,梁玉沖,1990-09-04,工人,生產(chǎn)部,union select 0

30、503,金壇,1989-12-15,總管,銷售部,union select 0403,夏平,1986-01-13,大專,工人,財務部,union select 0602,邵建波,1984-03-17,工人,宣傳部,union select 0603,書生,1987-11-22,工人,宣傳部,union select 0102,陸林,1980-08-21,博士,工人,策劃部,union select 0702,黃婷,女,1981-05-16,工人,后勤部,union select 0203,周宇,1982-07-19,研究生,技術人員,研發(fā)部,union select 0703,曉梅,女,198

31、2-04-03,工人,后勤部,宿遷, 工資管理系統(tǒng)功能實現(xiàn)5.1 開發(fā)環(huán)境簡介 Visual Basic是一個可視化、面向對象的、采用事件驅動的結構化高級程序設計語言，它具有強大的數(shù)據(jù)庫操作功能，提供了數(shù)據(jù)管理器（Data Manager）、數(shù)據(jù)控件（data Control）以及ADO(Active*數(shù)據(jù)對象)等工具，利用它能夠建立多種類型的數(shù)據(jù)庫并可以管理維護和使用這些數(shù)據(jù)。系統(tǒng)界面的設計圖5.1 系統(tǒng)界面系統(tǒng)主界面主要有系統(tǒng)菜單和運行界面。給界面提供了系統(tǒng)設置，人事管理，工資管理和幫助等功能，下面又分多個子功能。5.3 員工基本信息管理功能設計（代碼）添加操作：Dim EmployeeI

32、D, Employeename, Se*, birthday, Education, Duty, DepartmentName, IdentityID, Telephone, Address As StringEmployeeID = Te*t1.Te*tEmployeename = Te*t2.Te*tEducation = Te*t3.Te*tDuty = Te*t8.Te*tDepartmentName = Te*t4.Te*tSe* = bo1.Te*tIdentityID = Te*t5.Te*tTelephone = Te*t6.Te*tAddress = Te*t7.Te*tIf

33、 Trim(EmployeeID) = Or Trim(Employeename) = Or Trim(DepartmentName) = Then MsgBo* 員工基本信息不能為空,請?zhí)顚懀?E*it 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(Te*t1.T

34、e*t) & and Employeename= & Trim(Te*t2.Te*t) & , myConIf myRs.EOF = False Then MsgBo* 該員工已經(jīng)存在，請重新輸入！ myRs.Close myCon.Close Te*t1.SetFocusE*it SubEnd IfmyRs.ClosemyRs.Open employee, myCon, 3, 2myRs.AddNew myRs.Fields(EmployeeID) = Te*t1.Te*t myRs.Fields(Employeename) = Te*t2.Te*t myRs.Fields(Educatio

35、n) = Te*t3.Te*t myRs.Fields(Duty) = Te*t8.Te*t myRs.Fields(DepartmentName) = Te*t4.Te*t myRs.Fields(Se*) = bo1.Te*t myRs.Fields(IdentityID) = Te*t5.Te*t myRs.Fields(birthday) = DTPicker1.Value myRs.Fields(Telephone) = Te*t6.Te*t myRs.Fields(Address) = Te*t7.Te*tmyRs.UpdatemyRs.ClosemyCon.CloseMsgBo*

36、 添加成功!Adodc1.RecordSource = select * from employee *.Adodc1.Refresh*.DataGrid1.RefreshTe*t1.Te*t = Te*t2.Te*t = Te*t3.Te*t = Te*t4.Te*t = bo1.Te*t = Te*t5.Te*t = Te*t6.Te*t = Te*t7.Te*t = Te*t8.Te*t = 修改操作：Dim EmployeeID, Employeename, Se*, birthday, Education, Duty, Department, IdentityID, Telephon

37、e, Address As StringDim n As IntegerEmployeeID = Te*t1.Te*tEmployeename = Te*t2.Te*tEducation = Te*t3.Te*tDuty = Te*t8.Te*tDepartmentName = Te*t4.Te*tSe* = bo1.Te*tIdentityID = Te*t5.Te*tTelephone = Te*t6.Te*tAddress = Te*t7.Te*tIf Trim(EmployeeID) = Or Trim(Employeename) = Then MsgBo* 請?zhí)顚懸獎h除員工的基本信息

38、！ E*it SubEnd IfIf myCon.State = 1 ThenmyCon.CloseEnd 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= & Te*t1.Te*t & , myCon, 3, 2n = MsgBo*(您確定要刪除嗎？, vbYesNo, 提示)If n = 6

39、ThenmyRs.DeletemyRs.ClosemyCon.CloseEnd IfAdodc1.RecordSource = select * from employee *.Adodc1.Refresh*.DataGrid1.RefreshTe*t1.Te*t = Te*t2.Te*t = Te*t3.Te*t = Te*t4.Te*t = bo1.Te*t = Te*t5.Te*t = Te*t6.Te*t = Te*t7.Te*t = Te*t8.Te*t = 刪除操作：Dim EmployeeID, Employeename, Se*, birthday, Education, De

40、partmentName, IdentityID, Telephone, Address As StringEmployeeID = Te*t1.Te*tEmployeename = Te*t2.Te*tEducation = Te*t3.Te*tDuty = Te*t8.Te*tDepartmentName = Te*t4.Te*tSe* = bo1.Te*tIdentityID = Te*t5.Te*tTelephone = Te*t6.Te*tAddress = Te*t7.Te*tIf Trim(EmployeeID) = Or Trim(Employeename) = Then Ms

41、gBo* 請?zhí)顚懸薷牡娜荩? vbYesNo, 提示 Te*t2.Te*t = E*it SubEnd If myCon.Open Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=工資管理;Data Source=HP-PC;myRs.Open select * from employee where EmployeeID= & Te*t1.Te*t & , myCon, 3, 2 myRs!Employeename = Te*t2.Te*t myRs.Updat

42、emyRs.ClosemyCon.CloseMsgBo* 您確定要修改嗎？, vbYesNo, 提示*.Adodc1.Refresh*.DataGrid1.RefreshTe*t1.Te*t = Te*t2.Te*t = Te*t3.Te*t = Te*t4.Te*t = bo1.Te*t = Te*t5.Te*t = Te*t6.Te*t = Te*t7.Te*t = Te*t8.Te*t = 5.4 工資管理功能設計員工信息查詢：Option E*plicitPrivate Sub cmdE*it_Click() Unload MeEnd SubPrivate Sub cmdQuery_C

43、lick() Dim sql As String 按編號查詢 If chkNumber.Value = True Then If cboNumber.Te*t = Then MsgBo* 請選擇員工編號！, vbE*clamation cboNumber.SetFocus E*it Sub ElseIf IsNumeric(cboNumber.Te*t) = False Then MsgBo* 員工編號是數(shù)字量！, vbE*clamation cboNumber.SetFocus E*it Sub Else sql = select * from Wage where EmployeeID= & _ cboNumber.Te*t & Adodc1.RecordSource = sql Adodc1.Refresh End If End If 按查詢 If chkName.Value = True Then If cboName.Te*t = Then MsgBo* 請選擇員工！, vbE*clamation cboName.SetFocus E*it Sub