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

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

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

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

文檔簡介

1、　　課程設(shè)計報告　　課程設(shè)計題目：工資管理系統(tǒng)　　工資管理系統(tǒng)　　一、實驗題目：　　員工基本信息的管理功能。<

2、p>　　單位員工變動、獎懲情況的管理功能。　　工資的計算、修改功能。　　查詢統(tǒng)計功能。　　報表打印功能。　　具有數(shù)據(jù)備份和數(shù)據(jù)恢復功能。<b&

3、gt;　　設(shè)計要求：　　在提供員工詳細的工資資料的同時，盡量使系統(tǒng)能具一定的安全性和通用性。 　　編程　　1、主窗口的設(shè)計　　MDIForm1.Hide</p&

4、gt;　　Form9.Show　　End Sub　　Private Sub MDIForm_Load()　　End Sub　　Private Sub ss_Click()&l

5、t;/p>　　MDIForm1.Hide　　Form4.Show　　End Sub　　Private Sub SSS_Click()　　MDIForm1.Hide

6、　Form2.Show　　End Sub　　Private Sub aa_Click()　　MDIForm1.Hide　　Form3.Show　　End Sub</b&

7、gt;　　Private Sub SSSS_Click()　　MDIForm1.Hide　　Form5.Show　　End Sub　　Private Sub SSSSS_Click()<

8、/p>　　MDIForm1.Hide　　Form6.Show　　End Sub　　Private Sub SSSSSS_Click()　　MDIForm1.Hide

9、　　Form7.Show　　End Sub　　Private Sub SSSSSSS_Click()　　MDIForm1.Hide　　Form8.Show　　End Sub&

10、lt;/b>　　2、登入窗口設(shè)計　　Option Explicit　　Private Function Selectsql(SQL As String) As ADODB.Recordset '返回ADODB.Recordset對象<

11、;p>　　Dim ConnStr As String　　Dim Conn As ADODB.Connection　　Dim rs As ADODB.Recordset　　Set rs = New ADODB.Recordset　　Set Conn = New ADO

12、DB.Connection　　'On Error GoTo MyErr:　　ConnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=teacher;Data Source=LENOVO-PC&q

13、uot; '這是連接SQL數(shù)據(jù)庫的語句　　Conn.Open ConnStr　　rs.CursorLocation = adUseClient　　rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic<p&

14、gt;　　Set Selectsql = rs　　'Exit Function　　'MyErr:　　'Set rs = Nothing　　'Set Conn = Nothing '釋放相關(guān)的系統(tǒng)

15、資源　　'MsgBox Err.Description, vbInformation, "系統(tǒng)提示" '顯示出錯信息　　End Function　　Private Sub Command1_Click()　　Dim SQL As Str

16、ing　　Dim rs As ADODB.Recordset　　If Text1.Text = "" Then　　MsgBox "請輸入口令!", 16　　Text1.SetFocus<

17、;b>　　Exit Sub　　End If　　SQL = "SELECT * FROM 系統(tǒng)用戶表結(jié)構(gòu) WHERE 用戶名 ='" & Text1.Text & "' AND 口令 ='" & Text2

18、.Text & "' and 身份='" & Combo1.Text & "'" ' objcn, adOpenStatic, adLockOptimistic　　Set rs = Selectsql(SQL)　　If rs.RecordCount >

19、0 Then　　MDIForm1.Show '想要打開的主窗體　　MsgBox "登錄成功!", 64, "提示"　　Unload Me　　Else</b

20、>　　MsgBox "口令不對,請重新輸入!", 16, "提示"　　Text1.SetFocus　　End If　　End Sub

21、;　　Private Sub Form_Load()　　Form1.Left = (Screen.Width - Form1.Width) / 2　　Form1.Top = (Screen.Height - Form1.Height) / 2　　3、員工基本信息管理設(shè)計

22、　　Private Sub Command7_Click()　　'Text1.Text = ""　　'Text2.Text = ""　　'Text3.Text = ""

23、　　'Text4.Text = ""　　'Text5.Text = ""　　'Combo1.ListIndex = 4　　'Combo2.ListIndex = 4　　Command5.Enabled

24、 = True　　Command6.Enabled = True '在保存新記錄之前禁用下述控件　　Command1.Enabled = True　　Command2.Enabled = True&l

25、t;p>　　Command3.Enabled = True　　Command4.Enabled = True　　End Sub　　'Private Sub Command8_Click()　　'Dim mno A

26、s String　　' mno = InputBox("請輸入員工編號", "查找窗")　　' Adodc1.Recordset.Find "員工編號=" & mno & "", , , 1　　'

27、; If Adodc1.Recordset.EOF Then MsgBox "無此員工編號", , "提示"　　'　　'End Sub　　Private Sub Command5_C

28、lick()　　Command1.Enabled = False　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False　　Ado

29、dc1.Recordset.AddNew　　End Sub　　Private Sub Command8_Click()　　Form2.Hide　　MDIForm1.Show

30、　End Sub　　Private Sub Command9_Click()　　Command1.Enabled = False　　Command2.Enabled = False　　Command3.Enabled = False

31、　　Command4.Enabled = False　　Adodc1.Recordset("姓名") = Text1.Text　　Adodc1.Recordset("編號") = Text2.Text　　Adodc1.Recordset("部

32、門") = Text3.Text　　Adodc1.Recordset("有住房") = Text4.Text　　Adodc1.Recordset("專家") = Text5.Text　　Adodc1.Recordset("生日") = Text

33、6.Text　　Adodc1.Recordset("工作時間") = Text7.Text　　Adodc1.Recordset("職稱") = Combo1.Text　　Adodc1.Recordset("職務(wù)") = Combo2.Text</p

34、>　　Adodc1.Recordset.Update　　MsgBox ("修改成功")　　End Sub　　Private Sub Command6_Click()　　Command1.

35、Enabled = False　　Command2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False　　If MsgBox("確定刪除當前記錄？", vbQuesti

36、on + vbYesNo, "刪除？") = vbYes Then　　Adodc1.Recordset.Delete　　Adodc1.Recordset.MoveNext　　If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast</p

37、>　　End If　　End Sub　　Private Sub Command10_Click()　　Command1.Enabled = False　　Command

38、2.Enabled = False　　Command3.Enabled = False　　Command4.Enabled = False　　Dim strb() As Byte　　CommonDialog1.ShowOpen

39、Open CommonDialog1.FileName For Binary As #1　　'f1 = LOF(1)　　'ReDim strb(f1)　　Get #1, , strb　　Adodc1.Recordset.Fields("照片&qu

40、ot;).AppendChunk strb　　Close #1　　Image1.Picture = LoadPicture(CommonDialog1.FileName)　　End Sub　　Pr

41、ivate Sub Command1_Click()　　Adodc1.Recordset.MoveFirst　　End Sub　　Private Sub Command2_Click()　　Adodc1.Recordset.MoveP

42、revious　　End Sub　　Private Sub Command3_Click()　　Adodc1.Recordset.MoveNext　　End Sub<

43、p>　　Private Sub Command4_Click()　　Adodc1.Recordset.MoveLast　　End Sub　　4、用戶信息管理設(shè)計　　Private Sub Command1_Click()<

44、/p>　　Command5.Enabled = False　　Command6.Enabled = False　　Command7.Enabled = False　　Command8.Enabled = False　　Adodc1.Record

45、set("用戶名") = Text1.Text　　Adodc1.Recordset("口令") = Text2.Text　　Adodc1.Recordset("身份") = Text3.Text　　Adodc1.Recordset.Update</

46、p>　　MsgBox ("修改成功")　　End Sub　　Private Sub Command2_Click()　　Command5.Enabled = False　　Command

47、6.Enabled = False　　Command7.Enabled = False　　Command8.Enabled = False　　Adodc1.Recordset.AddNew　　End Sub&l

48、t;p>　　Private Sub Command3_Click()　　Command5.Enabled = False　　Command6.Enabled = False　　Command7.Enabled = False　　Command8.Enabled =

49、False　　If MsgBox("確定刪除當前記錄？", vbQuestion + vbYesNo, "刪除？") = vbYes Then　　Adodc1.Recordset.Delete　　Adodc1.Recordset.MoveNext&l

50、t;p>　　If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast　　End If　　End Sub　　Private Sub Command4_Click()

51、;　　Form4.Hide　　MDIForm1.Show　　End Sub　　Private Sub Command5_Click()　　Adodc1.Recordset.MoveFirst

52、　　End Sub　　Private Sub Command6_Click()　　Adodc1.Recordset.MovePrevious　　End Sub　　Private

53、 Sub Command7_Click()　　Adodc1.Recordset.MoveNext　　End Sub　　Private Sub Command8_Click()　　Adodc1.Recordset.MoveLast<

54、;/p>　　End Sub　　Private Sub Command9_Click()　　Command5.Enabled = True　　Command6.Enabled = True　　Command7

55、.Enabled = True　　Command8.Enabled = True　　End Sub　　5、工資合算表設(shè)計　　Form3.Hide　　MDI

56、Form1.Show　　End Sub 　　Private Sub Command1_Click()　　Dim mno As String　　mno = InputBox("請輸入員工編號", "查找窗&

57、quot;)　　Adodc1.Recordset.Find "編號='" & mno & "'", , , 1　　Text1 = Text21.Text　　Text3 = Text22.Text　　I

58、f Adodc1.Recordset.EOF Then MsgBox "無此員工編號", , "提示"　　Adodc4.Recordset.Find "編號='" & mno & "'", , , 1　　If Adodc4.Recordset.

59、EOF Then MsgBox "無此員工編號", , "提示"　　Dim M As String　　M = Text1　　Text2.DataField = M　　Adodc3.Records

60、et(M) = Text2.Text　　Dim p As String　　p = Text3　　Text4.DataField = p　　Adodc2.Recordset(p) = Text2.Text<

61、p>　　Text15.Text = Val(Text9) + Val(Text10) + Val(Text11) + Val(Text12) + Val(Text13) + Val(Text14)　　Text16.Text = Val(Text2) + Val(Text4) + Val(Text5) + Val(Text6) + Val(Text7) + Val(Text8)</p&

62、gt;　　Text25.Text = Val(Text16) - Val(Text15)　　End Sub　　6、恢復與備份設(shè)計　　Public Function fBackupDatabase_a(ByVal sB

63、ackUpfileName$ _　　, ByVal sDataBaseName$ _　　, Optional ByVal sIsAddBackup As Boolean = False _　　) As String　　Private Sub Command1_Click(

64、)　　Dim iDb As ADODB.Connection　　Dim iConcStr$, iSql$, iReturn$　　On Error GoTo lbErr　　'創(chuàng)建對象

65、Set iDb = New ADODB.Connection　　'連接數(shù)據(jù)庫服務(wù)器　　iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=teache

66、r;Data Source=LENOVO-PC"　　iDb.Open iConcStr　　'生成數(shù)據(jù)庫備份語句　　iSql = "backup database [" & sDataBaseName & "]" & vbCrLf &

67、amp; _　　"to disk='" & sBackUpfileName & "'" & vbCrLf & _　　"with description='" & "zj-backup at:" & Dat

68、e & "(" & Time & ")'" & vbCrLf & _　　IIf(sIsAddBackup, "", ",init")　　iDb.Execute iSql　　GoTo lb

69、Exit　　lbErr:　　iReturn = Error　　lbExit:　　fBackupDatabase_a = iReturn

70、　End Sub　　Public Function fRestoreDatabase_a(ByVal sBackUpfileName$ _　　, ByVal sDataBaseName$ _　　, Optional ByVal sDataBasePath$ = "" _&l

71、t;/p>　　, Optional ByVal sBackupNumber& = 1 _　　, Optional ByVal sReplaceExist As Boolean = False _　　) As String　　Private Sub Command2_Click(

72、)　　Dim iDb As ADODB.Connection, iRe As ADODB.Recordset　　Dim iConcStr$, iSql$, iReturn$, iI&　　On Error GoTo lbErr　　'連接數(shù)據(jù)

73、庫服務(wù)器　　iConcStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=teacher;Data Source=LENOVO-PC"　　iDb.Open iConcStr&l

74、t;/p>　　'創(chuàng)建對象　　Set iDb = New ADODB.Connection　　Set iRe = New ADODB.Recordset　　'得到還原后的數(shù)據(jù)庫存放目錄,如果沒有指定,存放到SQL SERVER的DAT

75、A目錄　　If sDataBasePath = "" Then　　iSql = "select filename from master..sysfiles"　　iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly</p&g

76、t;　　iSql = iRe(0)　　iRe.Close　　sDataBasePath = Left(iSql, InStrRev(iSql, "\"))　　End If&

77、lt;p>　　'檢查數(shù)據(jù)庫是否存在　　If sReplaceExist = False Then　　iSql = "select 1 from master..sysdatabases where name='" & sDataBaseName & "'"</p

78、>　　iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly　　If iRe.EOF = False Then　　iReturn = "數(shù)據(jù)庫已經(jīng)存在!"　　iRe.Close</

79、p>　　GoTo lbExit　　End If　　iRe.Close　　End If　　'關(guān)閉用戶進程 , 防止其它用戶正

80、在使用數(shù)據(jù)庫, 導致數(shù)據(jù)恢復失敗　　iSql = "select spid from master..sysprocesses where dbid=db_id('" & sDataBaseName & "')"　　iRe.Open iSql, iDb, adOpenKeyset,

81、adLockReadOnly　　While iRe.EOF = False　　iSql = "kill " & iRe(0)　　iDb.Execute iSql　　iRe.MoveNext<b&g

82、t;　　Wend　　iRe.Close　　'獲取數(shù)據(jù)庫恢復信息　　iSql = "restore filelistonly from disk='" & sBackUpfileName & "&

83、#39;" & vbCrLf & _　　"with file=" & sBackupNumber　　iRe.Open iSql, iDb, adOpenKeyset, adLockReadOnly　　'生成數(shù)據(jù)庫恢復語句<

84、p>　　iSql = "restore database [" & sDataBaseName & "]" & vbCrLf & _　　"from disk='" & sBackUpfileName & "'" & vbCrLf &

85、 _　　"with file=" & sBackupNumber & vbCrLf　　With iRe　　While Not .EOF　　iReturn = iRe("PhysicalNa

86、me")　　iI = InStrRev(iReturn, ".")　　iReturn = IIf(iI = 0, "", Mid(iReturn, iI)) & "'"　　iSql = iSql & ",mov

87、e '" & iRe("LogicalName") & _　　"' to '" & sDataBasePath & sDataBaseName & iReturn & vbCrLf　　.MoveNext</b&

88、gt;　　Wend　　.Close　　End With　　iSql = iSql & IIf(sReplaceExist, ",replac

89、e", "")　　iDb.Execute iSql　　iReturn = ""　　GoTo lbExit　　lbErr:　　iReturn =

90、 Error　　lbExit:　　fRestoreDatabase_a = iReturn　　End Sub　　實驗心得<p&g

91、t;　　通過本次實驗我學會了知識是學不會的，只有在實踐中才能體現(xiàn)它的作用。當然，我說這樣的話不是絕對的否認。只是說，實踐與理論結(jié)合才夠完美。因為在此次課程設(shè)計當中，我不僅學會了用VB與數(shù)據(jù)庫結(jié)合，還學會了怎么樣用VB去調(diào)用數(shù)據(jù)庫。雖然是這樣，但還是不夠完美，或許是因為學到的知識尚淺，對數(shù)據(jù)庫的一些強大的功能還掌握的不夠到位。但我會努力，在今后的道路中，我會不斷摸索，不斷前進，不斷學習。致使理論與實踐結(jié)合。<

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

溫馨提示

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ù)庫工資管理系統(tǒng)課程設(shè)計報告

文檔簡介

溫馨提示

最新文檔

評論

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

文檔簡介

溫馨提示

最新文檔

評論

免費下載