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

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：docx 頁數(shù)：26 大?。?53.73KB 人氣指數(shù)：12 舉報 版權申訴

已閱讀1頁，還剩25頁未讀，繼續(xù)免費閱讀

版權說明：本文檔由用戶提供并上傳，收益歸屬內容提供方，若內容存在侵權，請進行舉報或認領

文檔簡介

1、　　學生課程設計（論文）　　題目：職工工資管理系統(tǒng) 　　2012年 12 月 19 日　　課程設計任務書　　注：任務書由指導教師填寫。<p

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

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

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

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

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

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

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

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

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

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

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

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

14、　　create table 工資表員工編號 char10 NOT NULL　　基本工資 char10 NOT NULL　　獎金 char10扣除 char10　　向工資表內添加數(shù)據(jù)：　　insert into 工資表，員工編號，基本工資，獎金扣除v

15、alues 01，4000，300，100　　insert into 工資表，員工編號，基本工資，獎金扣除values 02，2300，200，50　　insert into 工資表，員工編號，基本工資，獎金扣除values 03，2500，150，100　　insert into 工資表，員工編號，基本工資，獎

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

17、/b>　　create table 員工部門表（　　員工編號 char10 NOT NULL　　部門編號 char10 NOT NULL　　部門名 varchar50NOT NULL　　負責人 varchar50NOT NU

18、LL　　向員工部門表內添加數(shù)據(jù)：　　insert into 員工部門表，員工編號，部門編號，部門名，負責人values 01，a，辦公室，張強　　insert into 員工部門表，員工編號，部門編號，部門名，負責人values 02，b，一車間，王強　　insert i

19、nto 員工部門表，員工編號，部門編號，部門名，負責人values 03，c，銷售部，夏雨　　insert into 員工部門表，員工編號，部門編號，部門名，負責人values 04，d，設計部，露露　　insert into 員工部門表，員工編號，部門編號，部門名，負責人values 05，e，管理部，劉偉&l

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

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

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

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

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

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

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

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

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

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

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

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

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

33、odc1.Recordset員工編號Text1.TextForm6. Adodc1.Recordset員工編號Text1. TextForm4. Adodc1.Recordset部門編號Text2. TextAdodc1. Recordset .UpdateMsgBox 修改成功　　End SubPrivate Sub Command4_ClickIf MsgBox確定刪除當前記錄？ vbQue

34、stion vbYesNo 刪除？ vbYes ThenAdodc1. Recordset . DeleteAdodc1. Recordset .MoveNextIf 　　Adodc1. Recordset .EOF 　　Then 　　Adodc1. Recordset .M

35、oveLastEnd IfEnd Sub4 　　員工變動管理模塊　　代碼如下：　　Private Sub Command2_ClickForm2.HideForm4.ShowEnd Sub　　單位

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

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

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

39、　Adodc1. Recordset .MoveLastEnd IfEnd SubPrivate Sub Command3_ClickAdodc1.Recordset員工編號 　　Text1. TextAdodc1.Recordset部門編號　　Text2. TextAdodc1.Recordset部門名　　Te

40、xt3. TextAdodc1.Recordset負責人　　Text4. TextForm3. Adodc1.Recordset員工編號　　Text1. TextForm3. Adodc1.Recordset部門編號　　Text2. TextAdodc1. Recordset .UpdateMsgBox 修改成功

41、　　End 　　SubPrivate Sub Command4_ClickForm2.ShowUnload MeEnd Sub　　獎懲情況管理模塊　　界面，相應代碼如下：&

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

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

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

45、odc1. Recordset.MoveNextIf　　Adodc1. Recordset .EOF 　　Then　　Adodc1. Recordset .MoveLastEnd 　　IfEnd

46、　　SubPrivate Sub Command3_ ClickAdodc1.Recordset員工編號　　Text1. TextAdodc1.Recordset獎金　　StrText2. TextAdodc1.Recordset扣除　　StrText3. TextFor

47、m6. Adodc1.Recordset員工編號　　Text1. TextForm6. Adodc1.Recordset獎金　　Text2. TextForm6. Adodc1.Recordset扣除　　Text3. TextAdodc1. Recordset .UpdateMsgBox 修改成功</p&g

48、t;　　End 　　SubPrivate Sub Command4_ ClickForm2.ShowUnload MeEnd Sub6　　工資管理模塊　　相應代碼如下：</

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

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

51、vate Sub Command1_ ClickAdodc1. Recordset .AddNewEnd SubPrivate Sub Command2_ClickIf MsgBox確定刪除當前記錄？ 　　vbQuestion vbYesNo 刪除？ vbYes 　　ThenAdodc1. Recordset . DeleteAdodc1. Record

52、set .MoveNextIf 　　Adodc1. Recordset .EOF 　　Then　　Adodc1. Recordset .MoveLastEnd 　　IfEnd

53、　　SubPrivate Sub Command3_ClickMsgBox 修改成功　　Adodc1.Recordset員工編號　　Text1. TextAdodc1.Recordset基本工資　　Text2. TextAdodc1.Recordset獎金 <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>　　查詢功能模塊　　相應代碼如下：　　Private Sub Command5_ ClickForm2. HideForm8.ShowEnd Sub　　查詢界面將實現(xiàn)以下功能：

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

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

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

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

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

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

62、公室’”　　‘”& DataList1.BoundText&” ‘ “　　Adode1.Refresh　　End Sub　　統(tǒng)計功能模塊&

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

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

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

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

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

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

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

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

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

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

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

眾賞文庫> 全部分類> 畢業(yè)設計

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內容里面會有圖紙預覽，若沒有圖紙預覽就沒有圖紙。
4. 未經權益所有人同意不得將文件中的內容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲空間，僅對用戶上傳內容的表現(xiàn)方式做保護處理，對用戶上傳分享的文檔內容本身不做任何修改或編輯，并不能對任何下載內容負責。
6. 下載文件中如有侵權或不適當內容，請與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

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

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載