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

2、計劃與進度9日20日至9月30日學習項目開發的背景目標10日1日至10月7日可行性研究10日8日至10月13日系統分析（包括需求分析，數據流圖，數據字典等）10日14日至10月24日系統設計（包括功能設計，數據庫設計及數據庫的實現）10月25日至11月2日系統實現11月3日至11月12日軟件測試及資料整理指導教師意見目錄(ml)內容(nirng)概要第一章 引 言項目開發(kif)背景項目開發的目標及意義系統的開發方法 可行性研究2.1 系統流程圖2.2 完成新系統的可行性第三章 系統分析3.1 系統的設計思想3.2 需求分析3.3 系統的運行環境和開發平臺3.4 數據流圖3.5 數據字典第四

3、章 系統設計 4.1 功能模塊設計 4.2 系統總體功能模塊 4.3 數據庫設計4.4 數據庫結構的實現第五章 工資管理系統功能實現 5.1 開發環境簡介 5.2 系統界面的設計 5.3 員工基本信息管理功能設計 5.4 工資管理功能設計 軟件測試 用戶操作手冊 總結8.1 參考文獻8.2 設計體會與建議內容摘要工資管理系統是使用Visual Basic 6.0開發的一個數據庫管理系統。在此主要講述了使用SQL Server 2000和Visual Basic 6.0完成工資管理系統基本功能的過程。開發這個系統的步驟主要有系統分析、系統設計、系統實現和系統維護。在系統的設計中，詳細的展現了系統

4、的各個模塊、所需的數據庫表及表字段菜單的設計等。在系統的實現中，給出了實現表單中相應的功能控件的事件、代碼及菜單實現的方法。本系統具有數據輸入，數據存儲，信息計算修改刪除等功能，本系統也提供了友好(yuho)的人際對話界面。 引 言 項目開發(kif)背景 眾所周知當今(dngjn)時代的世界經濟正從工業經濟向知識經濟轉變，而知識經濟的兩個重要特征就是信息化合全球化。要實現信息化和全球化就必須依靠完善的網絡和數據庫機制。處于現在這樣一個飛速發展的信息時代，在各行各業中都離不開信息處理，這正是計算機被廣泛應用于管理信息系統的環境，使用計算機進行信息控制不僅提高了工作效率，而且大大的提高了其安全性

5、。尤其是對于復雜的信息管理，計算機能夠充分發揮其優越性。計算機進行信息管理與信息管理系統的開發密切相關，系統的開發時系統管理的前提。因此，對于企業或是事業單位來說開發一套工資管理系統是很必要的。雖然企業事業單位的管理已經進入信息化管理，但對于不同的單位所需要的功能是不一樣的，這樣通用的軟件使用效率不高，還會造成人力，財力的浪費，這樣就不能滿足所有單位和部門的需求。所以必須做好客戶的需求分析工作，設計符合用戶要求的系統。 系統開發的目標及意義企業和事業單位工資管理系統唯有采用自動化，高效率，人性化的管理，才能滿足服務員工的需求。工資管理系統的主要目標在于加強服務而不在于精簡人力。所以系統要能提供

6、更自動化的服務，期望以最快的速度將人事工資信息做最適當的運用。主要目標有：以自動化、系統化、高效管理代替分散重復操作；提高單位效益和現代化信息管理水平；提高員工的自律性，促進員工人才的成長和流動；減輕人事工資管理員的負擔，節省人力物力的開支等。引進以計算機信息管理技術和網絡通訊技術，是加快人事工資管理信息服務進程的重要手段。新的管理系統的使用會給人事管理體系發生變化。這促進了工資數據管理方式和理念的轉變，提高了企業單位的現代化和信息化水平，為企業帶來更多的效益。 系統的開發方法本系統采用Visual Basic 6.0可視化開發工具開發，采用ADO對象數據技術來提高系統的安全性和穩定性。工資管

7、理系統可為企業和事業單位使用，屬于C/S結構的數據庫系統，固定后臺數據庫采用SQL Server 2000。 可行性研究2.1 系統(xtng)流程圖 員工錄入人事信息管理部門錄入員工出勤工資核算工資管理基本工資出勤信息基本信息工資報表圖2.1 系統(xtng)流程圖 2.2 完成(wn chng)新系統的可行性 工資管理系統吸取通用系統的優點的基礎上，根據具體企業單位所要求的功能進行設計。添加業務管理模塊，在業務管理模塊中添加管理員工的業務檔案，當用戶的業務工種等發生變化時只需修改業務檔案表記錄即可。通用型工資管理的技術比較成熟，所以可以學習技術并添加一些企業需要的功能，這樣就能完成此系統以

8、滿足客戶的需求。 系統分析3.1 系統的設計(shj)思想工資(gngz)管理系統是企業和事業單位常見的計算機信息管理系統。它的主要任務是對各種( zhn)工資信息進行日常的管理，如工資信息的輸入、查詢、修改、增加、刪除，迅速準確地完成各種工資信息的統計計算和匯總，快速打印出報表。在建立與實現工資管理系統時，應進行功能劃分，能夠由數據庫管理系統完成的功能應盡可能由數據庫管理系統完成，這樣才能夠充分發揮數據庫管理系統高效、完全、可靠、便捷的性能，減少編程人員的工作量。3.2 需求分析工資管理系統是針對企事業單位的大量業務處理工作用計算機進行全面現代化管理主要包括信息輸入功能，信息修改刪除功能，信

9、息的查詢以及工資的計算管理等。1.信息輸入功能1）輸入職工的基本信息。包括：Eno(員工編號)、Ename（員工姓名）、Epart(所屬部門)、Eduty(職務)、Esex（性別）、Eedu(學歷)、Eaddr(住址)、Ebir(出生年月)、Etel(電話號碼)等。2）輸入工資的信息。包括：（基本工資）、（崗位工資）、（住房補貼）、（津貼）、(工會會費)、(水電費)、（住房公積金）、（養老保險）、（獎懲）。3）輸入員工的部門信息。包括：Bno（部門編號）、Bname（部門名稱）、Bzg（部門總管）、Bmount(部門人數)等。2.數據修改和刪除功能1）修改和刪除員工的基本信息。當單位人員的信息

10、發生變化，如職稱的改變，工作部門變動，或調離本單位等，系統應能修改員工的信息或將其從員工信息表中刪除。2）修改和刪除員工的工資信息。員工升職加薪、工資普調是企業中常見的事情，這就需要系統能方便對員工工資進行個別及批量的修改；如員工調離本單位，就應當從員工信息表中刪除這個員工信息，將其工資信息表中相應的數據刪除。3）修改和刪除部門信息。當撤消一個部門時，文學藝術在能從部門信息表中將其刪除。而當一個部門的名稱發生改變時，系統中所有該項部門的名稱應一致的改變。3.查詢和統計功能1）能夠查詢指定員工的基本信息。2）能夠查詢指定某個部門或全部部門的基本信息。3）查詢某個員工的工資信息。4）統計、匯總指定

11、年份企業各部門(bmn)或某個部門每個月或全年工資總額，匯總各部門的人數或本單位的總人數。5）工資表月工資記錄的生成功能(gngnng)。生成當月所有員工或某個部門的工資記錄，同時能進行員工工資的計算，即計算應發金額、應扣金額及實發金額。3.3 系統的運行(ynxng)環境和開發平臺本系統使用Visual Basic進行軟件開發，SQL Server 2000進行數據庫開發。VB是微軟公司開發的最為流行的軟件之一，也是社會上使用較多的開發工具之一。VB是一個完全可視化，面向對象的開發工具，因此此系統具有兼容性較好，安全性強，通用性好等優點。3.4 數據流圖在對企業和事業單位工資管理過程進行分析

12、后，根據系統功能的描述，得到工資管理系統的數據流圖如下：1. 頂層數據流圖與0層數據流圖圖3.1 頂層數據流圖圖3.2 0層數據流圖2.人事管理模塊(m kui)、工資管理模塊查詢模塊分層數據流圖 部門(bmn)表1.1查詢部門及員工信息1.2工資錄入員工(yungng)編號 員工與考勤數據工資數據考勤表 工資表圖3.3 員工信息查詢與錄入考勤表2.2計算工資2.1查詢考勤內容員工名稱考勤數據工資信息工資表圖3.4 工資(gngz)核算 備份(bi fn)員工名3.2數據備份3.1查詢工資數據備份(bi fn)工資表備份數據工資表工資備份表圖3.5 工資備份工資表考勤表4.2查詢處理4.1要求

13、加工員工信息查詢要求查詢規則查詢結果員工表圖3.6 員工信息查詢35 數據字典數據字典是系統中各類數據描述的集合簡要說明工資管理系統的數據字典。1).名字：職工編號，部門編號別名：職工號，部門號描述：職工號唯一地標識數據庫中職工信息相關表中的一個特定員工的關鍵域；部門號唯一地標識部門信息表中的一個特定部門的關鍵域定義：職工號=6字符6位置：員工信息表 考勤表 工資表2).名字：職工(zhgng)信息報表 別名(bimng)：職工信息 描述：用戶指定條件下的員工基本信息情況(qngkung)查詢結果的信息表 定義：職工信息表=職工號+職工姓名+性別+出生年月+職務+學歷+電話號碼+住址+所屬部門

14、+身份證號 位置：輸出到打印機3).名字：考勤信息報表 別名：考勤信息 描述：用戶指定條件下的員工考勤信息查詢結果的信息表 定義：員工考勤信息查詢報表=考勤編號+員工號+員工姓名+加班天數+出差天數+曠工天數+遲到次數+考勤日期 位置：輸出到打印機4).名字：工資報表 別名：工資信息 描述：記錄工資的組成部分以及員工的工資情況的信息 定義：工資信息報表=職務+基本工資+每日工資+加班系數+出差天數+曠工標準+遲到標準+獎金位置：輸出到打印機 系統設計4.1 系統功能設計 軟件所實現的功能強弱是衡量一個軟件最根本的標準。經過系統的可行性研究，需求分析后，得出中小型企業的工資信息管理系統的功能分層

15、圖如下：工資管理系統2.1添加人事信息2.2修改人事信息2.4查詢人事信息3.1設置工資3.3查詢職務基本工資3.2計算工資2.0人事管理功能3.0工資管理功能1.0系統登錄4.0系統管理功能4.1管理用戶2.3刪除人事信息4.1.1添加用戶4.1.2修改用戶密碼 圖4.1 工資(gngz)管理系統層次圖4.2 系統(xtng)總體功能模塊此工資管理系統分為五個模塊(m kui)，具體如下： 1.人事基本信息管理模塊：員工信息錄入修改刪除及查詢。 2.部門管理模塊。3.考勤管理模塊。 4.工資計算及管理模塊。4.3 數據庫設計4.3.1概念結構設計根據如上的信息可得到實體之間的關系E-R圖如下

16、：圖4.2 E-R圖2.概念(ginin)結構模型 圖4.3 概念模型CDM4.3.2 邏輯(lu j)結構設計將E-R圖轉換成如下(rxi)關系模式： 員工(yungng)表（員工號，員工名，職務，部門號，性別，出生年月，學歷，電話，住址，身份證號） 部門表（部門號，部門名，部門總管，部門人數，）考勤表（考勤編號，員工號，遲到次數，曠工次數，出差天數，加班次數，考勤日期）工資表（職務，員工號，基本工資，獎金，出差標準，加班標準，遲到系數，曠工次數）依據上面的關系模式，設計數據表如下：用戶表 ：用于進入系統(xtng)的權限設置等。 表1 用戶(yngh)信息表Users列名數據類型長度屬性描

17、述userIDchar5主鍵用戶編號usernamevarchar10不允許空用戶名passwordvarchar15不允許空密碼markvarchar20備注 2.職工(zhgng)表：職工的基本信息。表2 職工信息表Employee列名數據類型長度屬性描述Enochar6主鍵職工編號Enamevarchar15不允許為空職工姓名Esexvarchar10性別EbirthDatetime出生年月Edutyvarchar20外鍵職務Eeduvarchar20學歷Etelvarchar15電話號碼Eaddrvarchar20住址Bnovarchar20外鍵部門編號IDidentifyvarcha

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

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

20、mployeeIDchar6不允許空員工編號EmployeeNamevarchar15不允許空員工姓名WageNamedatetime不允許空工作日期BaseWagemoney不允許空基本工資OvertimeWagemoney不允許空加班工資EvectionWagemoney不允許空出差補助AbsentWagemoney不允許空曠工減薪LateWagemoney不允許空遲到減薪EtcWagemoney不允許空其他補助BonusWagemoney不允許空獎金TotalWagemoney不允許空總工資4.3.3 物理(wl)結構模型圖4.4 物理結構(jigu)模型PDM數據庫結構(jigu)的實

21、現1、數據庫的創建 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、數據表的創建（可同時在創建時定義相關(xinggun)的約束） T-SQL語句(yj)： 1) Users表：Create table

22、 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 char(2) default, Birthday smalldatetime defa

23、ult, 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(100) default )3)WageConfig表：Create table WageCo

24、nfig( 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 money not null)4）CheckStat表：create table Che

25、ckStat( 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 smallint default, Lateday smallint default, CheckDat

26、e 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, BaseWage money default 0, OvertimeWage money de

27、fault 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 Key,Departmentname char(16) not null default

28、, Departmentmanage char( 8) default,Departmentnumber int default,)向表中插入(ch r)基本信息1）插入用戶基本(jbn)信息insert into Usersselect01,1,1,系統(xtng)管理員union select 02,yy,1234,人事管理union select 03,ll,1234,工資管理union select 04,lxj,1234,人事管理union select 05,ws,1234,工資管理union select 06,mq,1234,系統管理員2）插入(ch r)職工基本信息inser

29、t into Employee(EmployeeID,EmployeeName,Sex,Birthday,Education,Duty,DepartmentID,IdentityID,Telephone,Address,Remark)select0101,時妍妍(yn yn),女,1988-08-15,總管(zn un),策劃部淮安,union select 0401,梁麗,女,1989-01-08,總管,財務部淮安,union select 0301,潘娟,女,1988-01-25,工人,生產部徐州,union s

30、elect 0402,許潔,女,1990-01-27,工人,財務部河南,union select 0501,王濤,1987-10-13,工人,銷售部福建,union select 0201,徐杰,1984-07-09,研究生,技術人員,研發部無錫,union select 0701,張凱,1985-04-12,總管,后勤部浙江,union select 0601,李璐,女,1986-05-16,大專,總管,宣傳部蘇州,union select 0302,石磊,198

31、5-02-07,工人,生產部揚州,union select 0303,吳華,1986-06-24,工人,生產部山東,union select 0304,唐建青,1989-11-10,總管,生產部揚州,union select 0502,李云,女,1988-03-17,工人,銷售部,158621100008,鎮江,union select 0202,王兆坤,1986-04-30,總管,研發部無錫,union select 0305,梁玉沖,1990-09-04,工人,生產部,158621100

32、10,無錫,union select 0503,金壇,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 070

33、2,黃婷,女,1981-05-16,工人,后勤部安徽,union select 0203,周宇,1982-07-19,研究生,技術人員,研發部浙江,union select 0703,李曉梅,女,1982-04-03,工人,后勤部宿遷, 工資(gngz)管理系統功能實現5.1 開發環境(hunjng)簡介 Visual Basic是一個可視化、面向對象的、采用事件驅動的結構化高級程序設計語言，它具有強大的數據庫操作功能，提供了數據管理器（Data Manager）、數據控件（data Control）以及ADO(Ac

34、tivex數據對象)等工具，利用它能夠建立多種類型的數據庫并可以管理維護和使用(shyng)這些數據。系統界面的設計 圖5.1 系統(xtng)界面系統主界面主要有系統菜單和運行(ynxng)界面。給界面提供了系統設置，人事管理，工資管理和幫助等功能，下面又分多個子功能。5.3 員工基本(jbn)信息管理功能設計（代碼）添加操作：Dim EmployeeID, Employeename, Sex, birthday, Education, Duty, DepartmentName, IdentityID, Telephone, Address As StringEmployeeID = Tex

35、t1.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 員工基本信息不能為空,請填寫！ Exit SubEnd IfmyCon.

36、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 該員工已經存在，請重新輸入！ myRs.Close myCon.C

37、lose 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(Sex) = Combo1.Text

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

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

40、on = Text3.TextDuty = Text8.TextDepartmentName = Text4.TextSex = Combo1.TextIdentityID = Text5.TextTelephone = Text6.TextAddress = Text7.TextIf Trim(EmployeeID) = Or Trim(Employeename) = Then MsgBox 請填寫要刪除(shnch)員工的基本信息！ Exit SubEnd IfIf myCon.State = 1 ThenmyCon.CloseEnd IfmyCon.Open Provider=SQLOL

41、EDB.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, 2n = MsgBox(您確定(qudng)要刪除嗎？, vbYesNo, 提示)If n = 6 ThenmyRs.DeletemyRs.ClosemyCon.CloseEnd IfAdodc1.RecordSource = select * f

42、rom employee jbxx.Adodc1.Refreshjbxx.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Combo1.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = 刪除(shnch)操作：Dim EmployeeID, Employeename, Sex, birthday, Education, DepartmentName, IdentityID, Telephone, Address As StringEmpl

43、oyeeID = Text1.TextEmployeename = Text2.TextEducation = Text3.TextDuty = Text8.TextDepartmentName = Text4.TextSex = Combo1.TextIdentityID = Text5.TextTelephone = Text6.TextAddress = Text7.TextIf Trim(EmployeeID) = Or Trim(Employeename) = Then MsgBox 請填寫要修改的內容(nirng)！, vbYesNo, 提示 Text2.Text = Exit S

44、ubEnd 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= & Text1.Text & , myCon, 3, 2 myRs!Employeename = Text2.Text myRs.UpdatemyRs.ClosemyCon.CloseMsgBox 您確定要修改(xigi)嗎？, vb

45、YesNo, 提示jbxx.Adodc1.Refreshjbxx.DataGrid1.RefreshText1.Text = Text2.Text = Text3.Text = Text4.Text = Combo1.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = 5.4 工資管理功能設計員工信息(xnx)查詢：Option ExplicitPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdQuery_Click() Dim sql As String 按編

46、號(bin ho)查詢 If chkNumber.Value = True Then If cboNumber.Text = Then MsgBox 請選擇員工編號！, vbExclamation cboNumber.SetFocus Exit Sub ElseIf IsNumeric(cboNumber.Text) = False Then MsgBox 員工編號是數字量！, vbExclamation cboNumber.SetFocus Exit Sub Else sql = select * from Wage where EmployeeID= & _ cboNumber.Text & Adodc1.RecordSource = sql Adodc1.Refresh End If End If 按姓名(xngmng)查詢 If chkName.Value = True Then If cboName.Text = Then MsgBox 請選擇(xunz)員工姓名！, vbExclamation cboName.SetFocus Exit Sub Else sql = select * from Wage where EmployeeName= & _ cboName.Text & Adodc1.RecordSource = sql Adodc1.Refre