數(shù)據(jù)庫課程設計報告---企業(yè)工資管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時間：2024-03-01 格式：doc 頁數(shù)：17 大小：644.91KB 人氣指數(shù)：12 舉報 版權(quán)申訴

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

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進行舉報或認領(lǐng)

文檔簡介

1、　　需求分析　　隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復雜。隨著我國國民經(jīng)濟建設的蓬勃發(fā)展和具有中國特色的社會主義市場經(jīng)濟體制的迅速完善，各個行業(yè)都在積極使用現(xiàn)代化的手段，不斷改善服務質(zhì)量，提高工作效率，這些都在很大程度上給企業(yè)提出越來越嚴峻的挑戰(zhàn)，對企業(yè)體系無論是在行政職能、企業(yè)管理水平以及優(yōu)質(zhì)服務上都提出更高的要求。建設一

2、個科學高效的信息管理系統(tǒng)是解決這一問題的必由之路。企業(yè)內(nèi)部財務管理是該企業(yè)運用現(xiàn)代化技術(shù)創(chuàng)造更多更高的經(jīng)濟效益的主要因素之一。工資管理作為企業(yè)內(nèi)部的一種財務管理也是如此，由于企業(yè)職工人數(shù)較多，每一位職工的具體實際情況也不盡相同，各項工資條款的發(fā)放，如果沒有一個完整的管理系統(tǒng)對企業(yè)和員工的工作都帶來許多的不便?；谝陨显?，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動化。

3、　　二、程序的主要功能　　1、創(chuàng)建功能：　　添加一個職員的基本信息，包括員工編號，姓名，基本工資。　　2、刪除功能：　　能夠?qū)σ粋€職員的工資

4、信息進行刪除按員工編號進行刪除。　　3、添加功能：　　能夠添加新員工的信息。　　4、插入功能：　　能夠插入員工的基本信息，包括員工編號，姓名等。<b

5、>　　5、修改功能：　　輸入要修改的員工編號后可以對員工的基本信息進行修改。　　6、查找功能：　　可以通過員工編號或者員工姓名進行查找。　　三、程序運行平臺</p&

6、gt;　　SQL Server 2005 簡介：　　SQL Server 2005 是一個全面的數(shù)據(jù)庫平臺，使用集成的商業(yè)智能 (BI) 工具提供了企業(yè)級的數(shù)據(jù)管理。SQL Server 2005 數(shù)據(jù)庫引擎為關(guān)系型數(shù)據(jù)和結(jié)構(gòu)化數(shù)據(jù)提供了更安全可靠的存儲功能，使您可以構(gòu)建和管理用于業(yè)務的高可用和高性能的數(shù)據(jù)應用程序。<b&g

7、t;　　VB6.0簡介：　　Visual Basic（VB）是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標準來說，VB都是世界上使用人數(shù)最多的語言——不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建Ac

8、tiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應用程序。　　系統(tǒng)總框架圖　　系統(tǒng)各功能模塊設置　　1.用戶管理模塊：　　用戶登錄時有權(quán)限的設定

9、。查看或者修改系統(tǒng)只有總經(jīng)理或者副經(jīng)理才有權(quán)限，而個人用戶只能查看關(guān)于個人信息、工資等內(nèi)容，無權(quán)修改其它信息。　　圖5.1用戶管理模塊　　查看信息模塊：　　該模塊主要是為了方便管理員查看數(shù)據(jù)庫中的各項信息。一個好的系統(tǒng)需要強大的后臺數(shù)據(jù)庫做支持。當管理員對某個信息進行修改、增

10、加、刪除等操作時，數(shù)據(jù)庫中的信息必須同時得到更新，這樣才能保證系統(tǒng)的正常運行。　　“查看員工信息表”就是查看所有員工的信息，包括姓名，性別，部門等信息。　　“查看員工工資表”就是查看每個員工的月工資。　　圖5.2查看信息模塊　　3.員工信息修改模塊：

11、　　該模塊主要用于員工信息的及時更新。包括對員工信息的修改，增加與刪除。當有新員工加入或者有員工離職時，都要對該員工信息進行增加和刪除。　　“員工信息修改”就是對某個員工的某些信息進行修改，保持最新狀態(tài)。　　“員工信息增加”就是增加某個新員工的信息，以確保數(shù)據(jù)庫的完整性。　　“員工信息刪除”就

12、是刪除某個已經(jīng)離職員工的信息，確保數(shù)據(jù)庫中沒有占用空間的多余信息。　　圖5.3員工信息修改模塊　　工資查詢模塊：　　該模塊負責工資的查詢。按職工號查詢，則判斷職工號是否出錯，出錯則顯示出錯信息。由于時間有限，在數(shù)據(jù)庫中只有11和12月兩個月的

13、工資，所以只能查詢這兩個月的，若超出這兩個月則會有出錯提示。　　圖5.4工資查詢模塊　　系統(tǒng)維護模塊：　　系統(tǒng)在使用的過程中，由于使用不善，避免不了會出現(xiàn)一些問題。從而導致系統(tǒng)數(shù)據(jù)丟失，損壞，對企業(yè)是很不利的。因此，在日常的使用過程中，我們需要對系統(tǒng)進行維護，以保證即使出錯也

14、不會有問題。　　圖5.5系統(tǒng)維護模塊　　數(shù)據(jù)庫的設計　　本系統(tǒng)的數(shù)據(jù)庫是SQL數(shù)據(jù)庫，在SQL環(huán)境下創(chuàng)建數(shù)據(jù)庫工資.mdb文件。該數(shù)據(jù)庫包括員工信息表、工資標準表、用戶表用于紀錄員工的基本信息數(shù)據(jù)庫表結(jié)構(gòu)如下所示：

15、　員工信息表　　工資標準表　　用戶表　　實體E-R圖：　　部門屬于&

16、lt;p>　　員工具有工資結(jié)構(gòu)　　崗位級別具有　　工資條具有　　測試分析結(jié)果　　登錄界面：</b&

17、gt;　　主程序界面：　　工資查詢界面：　　4.成員管理界面：　　數(shù)據(jù)管理界面：

18、;　　存在的缺點與不足　　由于知識淺薄，經(jīng)驗不足及閱歷頗淺，因此，在該系統(tǒng)的設計方面還有很多不足，比如功能過少，界面不醒目等問題。缺點是在在數(shù)據(jù)管理界面中沒有實現(xiàn)了數(shù)據(jù)的還原，我會在下一階段的學習過程中，根據(jù)具體要求不斷的修改、完善，爭取使系統(tǒng)慢慢趨于完美。　　程序源代碼<

19、/p>　　1.登錄窗口　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()<p&

20、gt;　　Dim SQL As String　　If Text1.Text = "" Then　　MsgBox "請輸入口令!", 16　　Text1.SetFocus　　Exit Sub<

21、;/p>　　End If　　If Combo1.Text = "" Then　　MsgBox "請選擇登錄用戶!", 16　　Combo1.SetFocus<b

22、>　　Exit Sub　　End If　　SQL = "SELECT * FROM 用戶表 WHERE 用戶名='" & Combo1.Text & "' AND 口令='" & Text1.Text &

23、amp; "' "　　rs.Open SQL, conn, 1, 3　　If rs.RecordCount > 0 Then　　MsgBox "登錄成功!", 64, "提示"

24、rs.Close　　zhchx.Show '想要打開的主窗體　　delu.Hide　　Else　　MsgBox "口令不對,請重新輸入!",

25、 16, "提示"　　rs.Close　　Text1.SetFocus　　End If　　End Sub<p

26、>　　Private Sub Command2_Click()　　Unload Me　　End Sub　　Private Sub Form_Load()　　conn.ConnectionSt

27、ring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=gongzi"　　conn.Open　　End Sub</p

28、>　　主程序　　Private Sub Command1_Click()　　gzchx.Show　　Unload Me　　End Sub</b&

29、gt;　　Private Sub Command2_Click()　　cygl.Show　　Unload Me　　End Sub<

30、;p>　　Private Sub Command3_Click()　　sjcx.Show　　Unload Me　　End Sub　　Private Su

31、b Command4_Click()　　delu.Show　　Unload Me　　End Sub　　工資查詢</

32、p>　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()　　If rs.State = 1 Then<

33、;b>　　rs.Close　　End If　　If Text1.Text = "" Or Text2.Text = "" Then　　MsgBox "編號,姓名均不能為空,請重新輸入!",

34、16, "提示"　　Text1.SetFocus　　Exit Sub　　Else　　SQL = "SELECT * FROM 工資表 WHERE 員工編號='

35、" & Text1.Text & "' AND 月份='" & Text2.Text & "' "　　rs.Open SQL, conn, 1, 1　　If rs.RecordCount > 0 Then

36、;　　DataGrid1.AllowAddNew = False　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False　　Set DataGrid1.DataSource = rs

37、Exit Sub　　Else　　MsgBox "輸入有誤,請重新輸入!", 16, "提示"　　rs.Close　　E

38、nd If　　End If　　End Sub　　Private Sub Command2_Click()　　conn.Close　　z

39、hchx.Show　　Unload Me　　End Sub　　Private Sub Command3_Click()　　If rs.State = 1 Then<p

40、>　　rs.Close　　End If　　If Text1.Text = "" Or Text2.Text = "" Then　　MsgBox "編號,月份均不能為空,請重新輸入!&

41、quot;, 16, "提示"　　Text1.SetFocus　　Else　　SQL = "SELECT * FROM 工資表 "　　rs.Open SQL, conn, 1, 3</p&

42、gt;　　Do Until rs.EOF　　If Text1.Text = rs("員工編號") And Text2.Text = rs("月份") Then　　rs.MoveNext　　DataGrid1.AllowAddNew = False<

43、;/p>　　DataGrid1.AllowDelete = False　　DataGrid1.AllowUpdate = False　　Set DataGrid1.DataSource = rs　　Exit Sub<p

44、>　　Else　　rs.MoveNext　　End If　　Loop　　End If<

45、;p>　　End Sub　　Private Sub Form_Load()　　conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalo

46、g=gongzi"　　conn.Open　　End Sub　　成員管理　　Dim conn As New ADODB.Connection</

47、p>　　Dim rs As New ADODB.Recordset　　Private Sub Command1_Click()　　If rs.State = 1 Then　　rs.Close

48、;　　End If　　SQL = "SELECT 職務 FROM 員工信息表 where 員工編號= '" & delu.Combo1.Text & "'"　　rs.Open SQL, conn, 1, 3　　If rs(

49、"職務") <> "總經(jīng)理" And rs("職務") <> "副經(jīng)理" Then　　MsgBox "您沒有此權(quán)限", 64, "信息提示"　　rs.Close</p&

50、gt;　　Else　　rs.Close　　conn.Close　　cyxg.Show　　Unload Me</b

51、>　　End If　　End Sub　　Private Sub Command2_Click()　　conn.Close　　zhchx.Show&l

52、t;/p>　　Unload Me　　End Sub　　Private Sub Command3_Click()　　If rs.State = 1 Then<b&g

53、t;　　rs.Close　　End If　　If Text1.Text = "" Then　　MsgBox "編號不能為空,請重新輸入!", 16, "提示"<p&g

54、t;　　Text1.SetFocus　　End If　　SQL = "SELECT * FROM 員工信息表 where 員工編號= '" & Text1.Text & "'"　　rs.Open SQL,

55、 conn, 1, 3　　If rs.RecordCount <= 0 Then　　MsgBox "該成員不存在,請重新輸入!", 16, "提示"　　Text1.SetFocus　　Else</b&g

56、t;　　Text2.Text = rs("姓名")　　Text3.Text = rs("性別")　　Text4.Text = rs("職務")　　rs.Close</p

57、>　　End If　　End Sub　　Private Sub Form_Load()　　conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated

58、 Security=SSPI;Persist Security Info=False;Initial Catalog=gongzi"　　conn.Open　　End Sub　　成員修改<

59、;/p>　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Dim rs1 As New ADODB.Recordset　　Dim rs2 As New ADODB.Recordset

60、　　Private Sub Command1_Click()　　conn.Close　　cygl.Show　　Unload Me　　End Sub</

61、b>　　Private Sub Command2_Click()　　If rs.State = 1 Then　　rs.Close　　End If

62、If Text1.Text = "" Then　　MsgBox "編號不能為空,請重新輸入!", 16, "提示"　　Text1.SetFocus　　End If　　SQL

63、= "SELECT * FROM 員工信息表 where 員工編號= '" & Text1.Text & "' AND 姓名='" & Text2.Text & "' AND 性別='" & Combo1.Text & "' AND 職務='" &

64、; Text4.Text & "' "　　rs.Open SQL, conn, 1, 3　　If rs.RecordCount <= 0 Then　　MsgBox "所刪信息有誤,請重新輸入!", 16, "提示"

65、;　　Text1.SetFocus　　Else　　rs.Delete　　SQL2 = "SELECT * FROM 工資表 where 員工編號= '" & Text1.Text

66、& "'"　　rs2.Open SQL2, conn, 1, 3　　If rs2.RecordCount > 0 Then　　rs2.Delete　　rs2.Close

67、　　Else　　rs2.Close　　End If　　SQL1 = "SELECT * FROM 用戶表 where 用戶名= '" & Text

68、1.Text & "'"　　rs1.Open SQL1, conn, 1, 3　　If rs1.RecordCount > 0 Then　　rs1.Delete　　rs1.Close</

69、p>　　Else　　rs1.Close　　End If　　SQL2 = "SELECT * FROM 工資表 where 員工編號= '" &a

70、mp; Text1.Text & "'"　　rs2.Open SQL2, conn, 1, 3　　If rs2.RecordCount > 0 Then　　rs2.Delete　　rs2.Close</b&

71、gt;　　Else　　rs2.Close　　End If　　MsgBox "刪除成功", 64, "信息提示"<

72、/p>　　End If　　rs.Close　　End Sub　　Private Sub Command3_Click()　　If

73、rs.State = 1 Then　　rs.Close　　End If　　If Text1.Text = "" Then　　MsgBox "編號不能為空,請重新輸入!

74、", 16, "提示"　　Text1.SetFocus　　End If　　SQL = "SELECT * FROM 員工信息表 where 員工編號= '" & Text1.Text & "&

75、#39;"　　rs.Open SQL, conn, 1, 3　　If rs.RecordCount <= 0 Then　　MsgBox "該成員不存在,請重新輸入!", 16, "提示"　　Text1.SetFocu

76、s　　Else　　rs("姓名") = Text2.Text　　rs("性別") = Combo1.Text　　rs("職務") = Text4.Text

77、　　rs.Update　　MsgBox "修改成功", 64, "信息提示"　　rs.Close　　End If&

78、lt;p>　　End Sub　　Private Sub Command4_Click()　　If rs.State = 1 Then　　rs.Close　　End If&l

79、t;/b>　　If Text1.Text = "" Then　　MsgBox "編號不能為空,請重新輸入!", 16, "提示"　　Text1.SetFocus　　End If</b

80、>　　SQL = "SELECT * FROM 員工信息表 where 員工編號= '" & Text1.Text & "'"　　rs.Open SQL, conn, 1, 3　　If rs.RecordCount > 0 The

81、n　　MsgBox "該成員已存在,請重新輸入!", 16, "提示"　　Text1.SetFocus　　Else　　rs.AddNew

82、　　rs("員工編號") = Text1.Text　　rs("姓名") = Text2.Text　　rs("性別") = Combo1.Text　　rs("職務") = Text4.Text

83、　　rs.Update　　rs.Close　　SQL = "SELECT * FROM 工資表 where 員工編號= '" & Text1.Text & "'"&

84、lt;p>　　rs.Open SQL, conn, 1, 3　　rs.AddNew　　rs("員工編號") = Text1.Text　　rs("月份") = Trim("11")<

85、p>　　rs.Update　　rs.Close　　SQL = "SELECT * FROM 用戶表 where 用戶名= '" & Text1.Text & "'"<p&g

86、t;　　rs.Open SQL, conn, 1, 3　　rs.AddNew　　rs("用戶名") = Text1.Text　　rs.Update　　rs.C

87、lose　　SQL = "SELECT * FROM 工資表 where 員工編號= '" & Text1.Text & "'"　　rs.Open SQL, conn, 1, 3　　rs.AddNew&l

88、t;/b>　　rs("員工編號") = Text1.Text　　rs("月份") = Trim("12")　　rs.Update　　rs.Close&

89、lt;/b>　　MsgBox "添加成功", 64, "信息提示"　　End If　　End Sub　　Private Sub Form_Load()

90、　　conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=gongzi"　　conn.Open<

91、;p>　　End Sub　　數(shù)據(jù)管理　　Dim conn As New ADODB.Connection　　Dim rs As New ADODB.Recordset　　Private Su

92、b Command1_Click()　　conn.Execute "backup database gongzi to disk='f:\sql課設\gongxi完全備份.bak' with FORMAT, name='Full Backup Of gongzi'"　　conn.Execute &quo

93、t;backup log gongzi to disk='f:\sql課設\gongxilog完全備份.bak' with norecovery, name='Full Backup Of gongzi'"　　MsgBox "數(shù)據(jù)完全備份已經(jīng)完成", vbOKOnly + vbInformation, "提醒"&l

94、t;/p>　　End Sub　　Private Sub Command2_Click()　　conn.Execute "restore database 工資 from disk='f:\sql課設\gongxi完全備份.bak' with NORECOVERY

95、"　　conn.Execute "restore log 工資1 from disk='f:\sql課設\gongxilog完全備份.bak' with NORECOVERY"　　MsgBox "完全恢復已經(jīng)完成", vbOKOnly + vbInformation, "提醒&q

96、uot;　　End Sub　　Private Sub Command3_Click()　　conn.Close　　zhchx.Show　　Unload Me

97、;　　End Sub　　Private Sub Command4_Click()　　conn.Execute "backup database gongzi to disk='f:\sql課設\gongxi差異備份.bak' WITH INIT&qu

98、ot;　　conn.Execute "backup log gongzi to disk='f:\sql課設\gonxilog差異備份.bak' WITH INIT"　　MsgBox "數(shù)據(jù)差異備份已經(jīng)完成", vbOKOnly + vbInformation, "提醒"<

99、/p>　　End Sub　　Private Sub Command5_Click()　　conn.Execute "restore database 工資2 from disk='f:\sql課設\gongxi差異備份.bak' with NORECOVERY&

100、quot;　　conn.Execute "restore log 工資21 from disk='f:\sql課設\gongxilog差異備份.bak' with NORECOVERY"　　MsgBox "差異恢復已經(jīng)完成", vbOKOnly + vbInformation, "提醒&

101、quot;　　End Sub　　Private Sub Form_Load()　　conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=

102、False;Initial Catalog=master"　　conn.Open　　End Sub　　總結(jié)　　在本系統(tǒng)開發(fā)的過程中，我全面實踐一個面

103、向數(shù)據(jù)庫的應用系統(tǒng)的開發(fā)過程，學習很多有關(guān)的知識。這樣的項目對我們學過的數(shù)據(jù)結(jié)構(gòu)，程序設計，數(shù)據(jù)庫等課程是一個綜合性很高的實踐。工資管理系統(tǒng)的目的和現(xiàn)實意義就是提高企業(yè)或公司的管理效率，避免一些在管理中由于人為因素而存在的一些諸多問題。工資管理系統(tǒng)還可以節(jié)省人力資源，不必浪費過多的人力資源在這種手工發(fā)放工資的模式之上。工資管理系統(tǒng)也可以為企業(yè)或公司節(jié)省生產(chǎn)成本，獲取更大的利潤，人力資源問題的減少必將為企業(yè)或公司節(jié)省一些不必要的生產(chǎn)成本，

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

溫馨提示

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

數(shù)據(jù)庫課程設計報告---企業(yè)工資管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

數(shù)據(jù)庫課程設計報告---企業(yè)工資管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評論

免費下載