數(shù)據(jù)庫(kù)課程設(shè)計(jì)---職工工資管理系統(tǒng)

1、<p>　　學(xué)生課程設(shè)計(jì)（論文）</p><p>　　題 目： 職工工資管理系統(tǒng) </p><p>　　2012年 12 月 19 日</p><p><b>　　課程設(shè)計(jì)任務(wù)書</b></p><p>　　注：任務(wù)書由指導(dǎo)教師填寫。</p><p

2、>　題　目職工工資管理系統(tǒng)開發(fā)</p><p>　1、課程設(shè)計(jì)的目的使學(xué)生掌握數(shù)據(jù)庫(kù)的基本概念，結(jié)合實(shí)際的操作和設(shè)計(jì)，鞏固課堂教學(xué)內(nèi)容；使學(xué)生掌握數(shù)據(jù)庫(kù)系統(tǒng)的基本概念、原理和技術(shù)，將理論與實(shí)際相結(jié)合，應(yīng)用現(xiàn)有的數(shù)據(jù)建模工具和數(shù)據(jù)庫(kù)管理系統(tǒng)軟件，規(guī)范、科學(xué)地完成一個(gè)小型數(shù)據(jù)庫(kù)的設(shè)計(jì)與實(shí)現(xiàn)；把理論課與實(shí)驗(yàn)課所學(xué)內(nèi)容做一綜合，并在此基礎(chǔ)上強(qiáng)化學(xué)生的實(shí)踐意識(shí)、提高其實(shí)際動(dòng)手能力。</p><p&

3、gt;　2、課程設(shè)計(jì)的內(nèi)容和要求（包括原始數(shù)據(jù)、技術(shù)要求、工作要求等）某單位員工分為管理員、財(cái)務(wù)員、技術(shù)員和銷售員等。該單位下設(shè)經(jīng)理室、財(cái)務(wù)科、技術(shù)科和銷售科4個(gè)科室。工資由基本工資、福利補(bǔ)貼和獎(jiǎng)勵(lì)工資構(gòu)成，失業(yè)保險(xiǎn)和住房公積金在工資中扣除。每個(gè)員工的基本資料有姓名、性別、年齡、單位和職業(yè)（如經(jīng)理、工程師等）。工資按月發(fā)放，1）職工的基本信息管理：錄入、修改與刪除職工信息。2）職工的基本工資管理：錄入、修改與刪除職工工資信息3）職工的工

4、資計(jì)算：計(jì)算每個(gè)人的實(shí)際發(fā)放工資。實(shí)際發(fā)放的工資金額為工資減去扣除。4）工資的查詢：按職工所在的部門、職工名及職工編號(hào)等條件查詢每個(gè)職工的工資5）工資的統(tǒng)計(jì)：按科室、職業(yè)分類統(tǒng)計(jì)人數(shù)和工資金額。</p><p>　3、主要參考文獻(xiàn)[1]張莉 《SQL SEVER數(shù)據(jù)庫(kù)原理及應(yīng)用 》[2]薩師煊 王珊著.《數(shù)據(jù)庫(kù)系統(tǒng)概論》第三版.高等教育出版社[3] 施伯樂(lè) 丁寶康 汪衛(wèi).《數(shù)據(jù)庫(kù)系統(tǒng)教程》 高等教育出版社20

5、03年第2版[4]莊成三等.《數(shù)據(jù)庫(kù)系統(tǒng)原理及其應(yīng)用》.電子工業(yè)出版社</p><p>　4、課程設(shè)計(jì)工作進(jìn)度計(jì)劃第1天 ：選題、完成需求分析第2天 ：數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)第3天：數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)及物理實(shí)現(xiàn)第4天：應(yīng)用程序開發(fā)第5天： 程序調(diào)試分析和結(jié)果、編寫課程設(shè)計(jì)報(bào)告</p><p>　指導(dǎo)教師（簽字）日期年 月 日</p><p>　教研室意見(jiàn)：年

6、 月 日</p><p>　學(xué)生（簽字）： 接受任務(wù)時(shí)間：2012 年 12 月11 日</p><p><b>　　摘 要</b></p><p>　　對(duì)企業(yè)而言，人力資源是企業(yè)最寶貴的資源，也是企業(yè)的“生命線” 。而工資 管理又是人力資源管理的重中之重。實(shí)行電子化的工資管理，可以讓人力資源管理人員從繁 重瑣碎的案頭工作解脫出來(lái)

7、，去完成更重要的工作。本文介紹畢業(yè)設(shè)計(jì)課題的選題背景和意 義，相關(guān)的研究和開發(fā)的比較和綜述，研究開發(fā)的過(guò)程，以及設(shè)計(jì)思路和實(shí)現(xiàn)細(xì)節(jié)的考慮， 最后給出了作者在畢業(yè)設(shè)計(jì)過(guò)程的體會(huì)。</p><p>　　關(guān)鍵詞 管理信息系統(tǒng)，數(shù)據(jù)庫(kù)，工資管理，數(shù)據(jù)</p><p><b>　　系統(tǒng)總體設(shè)計(jì)</b></p><p><b>　　總體設(shè)計(jì)：&

8、lt;/b></p><p>　　設(shè)計(jì)一個(gè)登錄界面，使該系統(tǒng)具有一定的安全性和通用性，對(duì)應(yīng)的，在數(shù)據(jù)庫(kù)里建立一個(gè)登錄界面表。</p><p>　　在數(shù)據(jù)庫(kù)內(nèi)設(shè)計(jì)三個(gè)信息表，分別是員工情況表，員工部門表，工資表。</p><p>　　在 VB 界面內(nèi)設(shè)計(jì)窗體，并書寫代碼，使其與數(shù)據(jù)庫(kù)連接起來(lái)，并具有相應(yīng)功能。</p><p><b&

9、gt;　　數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>　　使用SQL語(yǔ)句創(chuàng)建數(shù)據(jù)庫(kù)，表，及所要添加的相應(yīng)數(shù)據(jù)：</p><p><b>　　創(chuàng)建數(shù)據(jù)庫(kù)</b></p><p><b>　　語(yǔ)句如下：</b></p><p>　　create database 工資管理系統(tǒng)</p>

10、<p><b>　　創(chuàng)建員工情況表</b></p><p><b>　　語(yǔ)句如下： </b></p><p>　　create table 員工情況表員工編號(hào) char10 NOT NULL</p><p>　　姓名 varchar50性別 char10</p><p>　　出生年月 da

11、tetime</p><p>　　部門編號(hào) char10 NOT NULL</p><p>　　向員工情況表添加數(shù)據(jù)：</p><p>　　insert into 員工情況表，員工編號(hào)，姓名，性別，出生年月，部門編號(hào)values01張三，男11/23/1991，a</p><p>　　insert into 員工情況表，員工編號(hào)，姓名，性別，

12、出生年月，部門編號(hào)values02李四，男5/23/1994，b</p><p>　　insert into 員工情況表，員工編號(hào)，姓名，性別，出生年月，部門編號(hào)values03王五，男8/28/1992，c</p><p>　　insert into 員工情況表，員工編號(hào)，姓名，性別，出生年月，部門編號(hào)values04小紅，女9/07/1992，d</p><p>

13、;　　insert into 員工情況表，員工編號(hào)，姓名，性別，出生年月，部門編號(hào)values05小明，男10/01/1992，e</p><p><b>　　添加數(shù)據(jù)完畢</b></p><p><b>　　2.3創(chuàng)建工資表</b></p><p><b>　　語(yǔ)句如下：</b></p>

14、<p>　　create table 工資表員工編號(hào) char10 NOT NULL</p><p>　　基本工資 char10 NOT NULL</p><p>　　獎(jiǎng)金 char10扣除 char10</p><p>　　向工資表內(nèi)添加數(shù)據(jù)：</p><p>　　insert into 工資表，員工編號(hào)，基本工資，獎(jiǎng)金扣除v

15、alues 01，4000，300，100</p><p>　　insert into 工資表，員工編號(hào)，基本工資，獎(jiǎng)金扣除values 02，2300，200，50</p><p>　　insert into 工資表，員工編號(hào)，基本工資，獎(jiǎng)金扣除values 03，2500，150，100</p><p>　　insert into 工資表，員工編號(hào)，基本工資，獎(jiǎng)

16、金扣除values 04，3000，220，150</p><p>　　insert into 工資表，員工編號(hào)，基本工資，獎(jiǎng)金扣除values 05，2000，100，0</p><p><b>　　添加數(shù)據(jù)完畢</b></p><p>　　2.4創(chuàng)建員工部門表</p><p><b>　　語(yǔ)句如下：<

17、/b></p><p>　　create table 員工部門表（</p><p>　　員工編號(hào) char10 NOT NULL</p><p>　　部門編號(hào) char10 NOT NULL</p><p>　　部門名 varchar50NOT NULL</p><p>　　負(fù)責(zé)人 varchar50NOT NU

18、LL</p><p>　　向員工部門表內(nèi)添加數(shù)據(jù)：</p><p>　　insert into 員工部門表，員工編號(hào)，部門編號(hào)，部門名，負(fù)責(zé)人values 01，a，辦公室，張強(qiáng)</p><p>　　insert into 員工部門表，員工編號(hào)，部門編號(hào)，部門名，負(fù)責(zé)人values 02，b，一車間，王強(qiáng)</p><p>　　insert i

19、nto 員工部門表，員工編號(hào)，部門編號(hào)，部門名，負(fù)責(zé)人values 03，c，銷售部，夏雨</p><p>　　insert into 員工部門表，員工編號(hào)，部門編號(hào)，部門名，負(fù)責(zé)人values 04，d，設(shè)計(jì)部，露露</p><p>　　insert into 員工部門表，員工編號(hào)，部門編號(hào)，部門名，負(fù)責(zé)人values 05，e，管理部，劉偉</p><p>&l

20、t;b>　　添加數(shù)據(jù)完畢</b></p><p>　　2.5 創(chuàng)建系統(tǒng)登錄表</p><p><b>　　語(yǔ)句如下：</b></p><p>　　Create table 系統(tǒng)登錄（</p><p>　　用戶名 char10 not null </p><p>　　密碼

21、char10 not null </p><p>　　身份 varchar50 not null</p><p>　　向系統(tǒng)登錄表內(nèi)添加數(shù)據(jù)：</p><p>　　Insert into 系統(tǒng)登錄 ‘123’,‘23’,”管理員” </p><p>　　Insert into 系統(tǒng)登錄 ‘122’,‘01’,”普通用戶”</p>

22、;<p>　　添加數(shù)據(jù)完畢數(shù)據(jù)庫(kù)創(chuàng)建完畢！</p><p><b>　　詳細(xì)設(shè)計(jì)</b></p><p>　　3.1 VB 登錄界面的設(shè)計(jì)</p><p><b>　　圖像如下：</b></p><p>　　設(shè)置身份為管理員，成功登錄相應(yīng)代碼為：</p><p&

23、gt;　　Set Conn New ADODB.Connection On Error GoTo MyErr: ConnStr ProviderSQLOLEDB.1IntegratedSecuritySSPIPersist </p><p>　　Security InfoFalseInitial Catalog工資管理系統(tǒng)Data SourceXGJYJ2OKZYWHIWB </p><p&g

24、t;　　這是連接 SQL數(shù)據(jù)庫(kù)的語(yǔ)句Conn.Open ConnStr rs.CursorLocation adUseClient </p><p>　　rs.Open TrimSQL Conn adOpenDynamic adLockOptimistic Set Selectsql rs Exit FunctionMyErr: Set rs Nothing Set Conn Nothing 釋放相關(guān)的系統(tǒng)資源

25、MsgBox Err.Description vbInformation 系統(tǒng)提示 顯示出錯(cuò)信息</p><p>　　End FunctionPrivate Sub Command1_Click Dim SQL As String Dim rs As ADODB.Recordset </p><p>　　If Text1.Text </p><p>　　Then M

26、sgBox 請(qǐng)輸入口令 16 Text1.SetFocus Exit Sub </p><p>　　End If SQL SELECT FROM 系統(tǒng)登錄 WHERE 用戶名Text1.Text AND 密碼Text2.Text and 身份Combo1.Text objcn adOpenStatic adLockOptimistic Set rs SelectsqlSQL </p><p&g

27、t;　　If rs.RecordCount 0 </p><p>　　Then Form2.Show 想要打開的主窗體 MsgBox 恭喜兄弟登錄成功 64 </p><p>　　提示 Unload Me Else MsgBox 口令不對(duì)請(qǐng)重新輸入 16 </p><p>　　提示Text1.Text Text2.Text Combo1.Text Text1.Set

28、Focus </p><p><b>　　End If</b></p><p>　　End SubPrivate Sub Form_LoadEnd SubPrivate Sub Text2_Change Text2.PasswordChar End Sub</p><p>　　將出現(xiàn)此界面，表示成功登錄</p><p>

29、<b>　　基本功能界面</b></p><p><b>　　員工信息管理模塊</b></p><p><b>　　代碼如下：</b></p><p>　　Private Sub Command1_ClickForm2.HideForm3.ShowEnd Sub</p><p>

30、;　　員工信息表將實(shí)現(xiàn)以下功能：</p><p>　　1） 員工基本信息的展覽</p><p>　　2） 員工基本信息的添加、刪除、修改</p><p>　　3） 增加了一個(gè) adodc1 控件，通過(guò)改變各控件的屬性，達(dá)到 VB 與 數(shù)據(jù)庫(kù)連接的目的，具體操作見(jiàn) VB 書最后一章。</p><p>　　4） 設(shè)計(jì)了一個(gè) datagrid 控件

31、，使所以信息以表的信息清楚的展 示，如果基本信息有什么變動(dòng)，那可以在控件里得到結(jié)果。</p><p><b>　　該界面的代碼如下：</b></p><p>　　Private Sub Command1_ClickAdodc1.Recordset.AddNewEnd SubPrivate Sub Command2_ClickForm2.ShowUnload MeEnd

32、 SubPrivate Sub Command3_ClickAdodc1.Recordset員工編號(hào)Text1.TextAdodc1.Recordset姓名Text5.TextAdodc1.Recordset性別Text4.TextAdodc1.Recordset出生年月Text3.TextAdodc1.Recordset部門編號(hào)Text2.TextForm4.Adodc1.Recordset員工編號(hào)Text1.TextForm5.Ad

33、odc1.Recordset員工編號(hào)Text1.TextForm6. Adodc1.Recordset員工編號(hào)Text1. TextForm4. Adodc1.Recordset部門編號(hào)Text2. TextAdodc1. Recordset .UpdateMsgBox 修改成功</p><p>　　End SubPrivate Sub Command4_ClickIf MsgBox確定刪除當(dāng)前記錄？ vbQue

34、stion vbYesNo 刪除？ vbYes ThenAdodc1. Recordset . DeleteAdodc1. Recordset .MoveNextIf </p><p>　　Adodc1. Recordset .EOF </p><p><b>　　Then </b></p><p>　　Adodc1. Recordset .M

35、oveLastEnd IfEnd Sub4 </p><p><b>　　員工變動(dòng)管理模塊</b></p><p><b>　　代碼如下：</b></p><p>　　Private Sub Command2_ClickForm2.HideForm4.ShowEnd Sub</p><p>　　單位

36、員工變動(dòng)管理界面將實(shí)現(xiàn)以下功能：</p><p>　　1） 員工部門表的展覽</p><p>　　2） 員工部門表的添加、刪除、修改，解決了員工工作變動(dòng)的問(wèn)題。</p><p>　　3） 增加了一個(gè) adodc1 控件，通過(guò)改變各控件的屬性，達(dá)到 VB 與 數(shù)據(jù)庫(kù)連接的目的，具體操作見(jiàn) VB 書最后一章。</p><p>　　4） 設(shè)計(jì)了一個(gè)

37、 datagrid 控件，使所以信息以表的信息清楚的展 示，如果基本信息有什么變動(dòng)，那可以在控件里得到結(jié)果。</p><p>　　單位員工變動(dòng)管理界面代碼如下：</p><p>　　Private Sub Command1_ClickAdodc1.Recordset.AddNewEnd SubPrivate Sub Command2_ClickIf MsgBox確定刪除當(dāng)前記錄？ <

38、/p><p>　　vbQuestion vbYesNo 刪除？ vbYes </p><p>　　ThenAdodc1. Recordset . DeleteAdodc1. Recordset .MoveNextIf Adodc1.Recordset.EOF </p><p><b>　　Then</b></p><p>　

39、　Adodc1. Recordset .MoveLastEnd IfEnd SubPrivate Sub Command3_ClickAdodc1.Recordset員工編號(hào) </p><p>　　Text1. TextAdodc1.Recordset部門編號(hào)</p><p>　　Text2. TextAdodc1.Recordset部門名</p><p>　　Te

40、xt3. TextAdodc1.Recordset負(fù)責(zé)人</p><p>　　Text4. TextForm3. Adodc1.Recordset員工編號(hào)</p><p>　　Text1. TextForm3. Adodc1.Recordset部門編號(hào)</p><p>　　Text2. TextAdodc1. Recordset .UpdateMsgBox 修改成功

41、</p><p><b>　　End </b></p><p>　　SubPrivate Sub Command4_ClickForm2.ShowUnload MeEnd Sub</p><p><b>　　獎(jiǎng)懲情況管理模塊</b></p><p>　　界面，相應(yīng)代碼如下：</p>&

42、lt;p>　　Private Sub Command3_ClickForm2. HideForm5.ShowEnd Sub</p><p>　　獎(jiǎng)懲情況管理界面將實(shí)現(xiàn)以下功能：</p><p><b>　　1） 工資表的展覽</b></p><p>　　2） 工資表的添加、刪除、修改，解決了員工獎(jiǎng)懲情況的問(wèn)題。</p>&l

43、t;p>　　3） 增加了一個(gè) adodc1 控件，通過(guò)改變各控件的屬性，達(dá)到 VB 與 數(shù)據(jù)庫(kù)連接的目的，具體操作見(jiàn) VB 書最后一章。</p><p>　　4） 設(shè)計(jì)了一個(gè) datagrid 控件，使所以信息以表的信息清楚的展 示，如果基本信息有什么變動(dòng)，那可以在控件里得到結(jié)果。</p><p><b>　　該界面代碼如下：</b></p>&l

44、t;p>　　Private Sub Command1_ ClickAdodc1. Recordset .AddNewEnd SubPrivate Sub Command2_ClickIf MsgBox確定刪除當(dāng)前記錄？ </p><p>　　vbQuestion vbYesNo 刪除？ vbYes </p><p>　　ThenAdodc1. Recordset . DeleteAd

45、odc1. Recordset.MoveNextIf</p><p>　　Adodc1. Recordset .EOF </p><p><b>　　Then</b></p><p>　　Adodc1. Recordset .MoveLastEnd </p><p><b>　　IfEnd </b>

46、</p><p>　　SubPrivate Sub Command3_ ClickAdodc1.Recordset員工編號(hào)</p><p>　　Text1. TextAdodc1.Recordset獎(jiǎng)金</p><p>　　StrText2. TextAdodc1.Recordset扣除</p><p>　　StrText3. TextFor

47、m6. Adodc1.Recordset員工編號(hào)</p><p>　　Text1. TextForm6. Adodc1.Recordset獎(jiǎng)金</p><p>　　Text2. TextForm6. Adodc1.Recordset扣除</p><p>　　Text3. TextAdodc1. Recordset .UpdateMsgBox 修改成功</p&g

48、t;<p><b>　　End </b></p><p>　　SubPrivate Sub Command4_ ClickForm2.ShowUnload MeEnd Sub6</p><p><b>　　工資管理模塊</b></p><p><b>　　相應(yīng)代碼如下：</b></

49、p><p>　　Private Sub Command4_ ClickForm2. HideForm6.ShowEnd Sub</p><p>　　單位員工變動(dòng)管理界面將實(shí)現(xiàn)以下功能：</p><p>　　1）員工工資表的展覽</p><p>　　2）員工工資表的總工資計(jì)算功能，解決了員工工作變動(dòng)的問(wèn)題。</p><p>

50、　　3）增加了一個(gè) adodc1 控件，通過(guò)改變各控件的屬性，達(dá)到 VB 與數(shù)據(jù)庫(kù)連接的目的，具體操作見(jiàn) VB 書最后一章。</p><p>　　4）設(shè)計(jì)了一個(gè) datagrid 控件，使所以信息以表的信息清楚的展示，如果基本信息有什么變動(dòng)，那可以在控件里得到結(jié)果</p><p><b>　　該界面代碼如下：</b></p><p>　　Pri

51、vate Sub Command1_ ClickAdodc1. Recordset .AddNewEnd SubPrivate Sub Command2_ClickIf MsgBox確定刪除當(dāng)前記錄？ </p><p>　　vbQuestion vbYesNo 刪除？ vbYes </p><p>　　ThenAdodc1. Recordset . DeleteAdodc1. Record

52、set .MoveNextIf </p><p>　　Adodc1. Recordset .EOF </p><p><b>　　Then</b></p><p>　　Adodc1. Recordset .MoveLastEnd </p><p><b>　　IfEnd </b></p>

53、<p>　　SubPrivate Sub Command3_ClickMsgBox 修改成功</p><p>　　Adodc1.Recordset員工編號(hào)</p><p>　　Text1. TextAdodc1.Recordset基本工資</p><p>　　Text2. TextAdodc1.Recordset獎(jiǎng)金 </p><p

54、>　　StrText3. TextAdodc1.Recordset扣除StrText4. TextAdodc1. Recordset .UpdateEnd SubPrivate Sub Command4_ ClickForm2.ShowUnload MeEnd SubPrivate Sub Form_ LoadText5.Text ValText2.Text ValText3.Text ValText4.TextEnd Sub&l

55、t;/p><p><b>　　查詢功能模塊</b></p><p><b>　　相應(yīng)代碼如下：</b></p><p>　　Private Sub Command5_ ClickForm2. HideForm8.ShowEnd Sub</p><p>　　查詢界面將實(shí)現(xiàn)以下功能：</p>

56、<p>　　1）將員工所在部門分類</p><p>　　2）將員工按分類進(jìn)行統(tǒng)計(jì)，相應(yīng)顯示</p><p>　　3）增加了兩個(gè) adodc 控件，通過(guò)改變各控件的屬性，達(dá)到 VB 與數(shù)據(jù)庫(kù)連接的目的，具體操作見(jiàn) VB 書最后一章。</p><p>　　4）設(shè)計(jì)了一個(gè) datagrid 控件，使所以信息以表的信息清楚的展示，如果基本信息有什么變動(dòng)，那可以在控

57、件里得到結(jié)果。5）增加了一個(gè) datalist 控件，達(dá)到分類的效果。</p><p><b>　　該界面代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Form2.Show</p><p><b>　　Unload Me</b&g

58、t;</p><p><b>　　End Sub</b></p><p>　　Private Sub DataList1_Click()</p><p>　　Adode1.Recordsource=”select * from 員工部門表 where 部門名=’”&DataList1.BoundText &” ’ ”</p

59、><p>　　Adode1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　‘Dim mpath$, mlink&</p><p>　　‘mpath = App.Path<

60、;/p><p>　　‘If Right(mpath, 1)<> ”\”Then mpath =mpath+”\”</p><p>　　‘mlink=”provider=microsoft1.jet.oledb.4.0;”</p><p>　　‘mlink=mlink+”data source=”+mpath+”工資管理系統(tǒng)”.mdb”</p>

61、;<p>　　‘Adode1.ConnectionString=mlink</p><p>　　‘Adpde1.CommandType=adcmdUnknown</p><p>　　‘DataList1.ListField=Adode1.RecordSource=”select * from 員工部門表”</p><p>　　‘where 部門名=’辦

62、公室’”</p><p>　　‘”& DataList1.BoundText&” ‘ “</p><p>　　Adode1.Refresh</p><p><b>　　End Sub</b></p><p><b>　　統(tǒng)計(jì)功能模塊</b></p><p>&

63、lt;b>　　代碼如下：</b></p><p>　　Private Sub Command7_Click()</p><p>　　Form2.Hide</p><p>　　Form7.Show</p><p><b>　　End Sub</b></p><p>　　統(tǒng)計(jì)功

64、能界面將實(shí)現(xiàn)以下功能：</p><p>　　將所有員工按性別、年齡、部門分類</p><p>　　對(duì)不同的分類進(jìn)行統(tǒng)計(jì)并查詢</p><p>　　增加了一個(gè)adode控件，通過(guò)改變各控件的屬性，達(dá)到VB與數(shù)據(jù)庫(kù)連接的目的。</p><p>　　設(shè)計(jì)了一個(gè)datagrid控件，使所有信息以表的信息清楚的展示。</p><p&

65、gt;　　增加了一個(gè)datalist控件，達(dá)到分類的效果。</p><p><b>　　該界面代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Adode1.RecordSource=”select year(出生年月) as 年齡, count(*) as 人數(shù) fro

66、m 員工情況表 group by year(出生年月)”</p><p>　　Adode1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Form2.Show</p><p&g

67、t;　　Unload Me</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Adode1.RecordSource=”select 部門名,count(*) as 人數(shù) from 員工部門表 group by 部門名”</p

68、><p>　　Adode1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Adode1.RecordSource=”select 性別, count(*) as 人數(shù)from 員工情況表 grou

69、p by 性別 ”</p><p>　　Adode1.Refresh</p><p><b>　　End Sub</b></p><p><b>　　數(shù)據(jù)庫(kù)備份功能模塊</b></p><p><b>　　代碼如下：</b></p><p>　　P

70、rivate Sub Command7.Click()</p><p>　　Form2.Hide</p><p>　　Form9.Show</p><p><b>　　End Sub</b></p><p>　　單擊備份恢復(fù)按鈕，將實(shí)現(xiàn)數(shù)據(jù)庫(kù)備份恢復(fù)功能，界面如下：</p><p><

71、;b>　　報(bào)表打印功能</b></p><p><b>　　代碼如下：</b></p><p>　　CommanDialog1.Action=5</p><p>　　Printer.Print DataGrid1.Text</p><p><b>　　End Sub</b>&l

72、t;/p><p><b>　　界面如下：</b></p><p><b>　　結(jié)論</b></p><p>　　在此次課程設(shè)計(jì)中，我對(duì)VB程序的操作和數(shù)據(jù)庫(kù)的各種操作有了更深入的理解，設(shè)計(jì)相關(guān)登錄界面更加注意系統(tǒng)安全性。在此次設(shè)計(jì)中我運(yùn)用了以往較為少接觸的空間來(lái)達(dá)到同級(jí)分類的效果，雖然在很多方面還比較粗糙，但我從實(shí)際動(dòng)手中學(xué)到

73、不少知識(shí)，只要自己認(rèn)真去做，就可以實(shí)現(xiàn)代碼功能。</p><p><b>　　參考文獻(xiàn)</b></p><p>　　[1]張莉 《SQL SEVER數(shù)據(jù)庫(kù)原理及應(yīng)用 》</p><p>　　[2]薩師煊 王珊著.《數(shù)據(jù)庫(kù)系統(tǒng)概論》第三版.高等教育出版社</p><p>　　[3]=施伯樂(lè) 丁寶康 汪衛(wèi).《數(shù)據(jù)庫(kù)系統(tǒng)教程