【正文】 只有實(shí)踐真正動(dòng)手做了才會(huì)真正了解，在不斷的學(xué)習(xí)和實(shí)踐中體會(huì)到更多的經(jīng)驗(yàn)。做什么事都是一樣的，具體體現(xiàn)在了這次的數(shù)據(jù)庫課程設(shè)計(jì)上來，讓我學(xué)到了很多東西。我的程序大多數(shù)是我自己寫的，但是自己的知識(shí)和水平都十分有限，所以會(huì)經(jīng)常去查看書或者在網(wǎng)上尋找資料，通過看書、看資料，我改進(jìn)了自己的不足，也學(xué)會(huì)的很多新的作程序方法，都是十分有用的。有很多時(shí)間我是花在了調(diào)試程序方面，一部分是在找錯(cuò)誤，還有就是怎么用最簡(jiǎn)練的代碼實(shí)現(xiàn)當(dāng)前的作用?，F(xiàn)在終于是完成了，我的設(shè)計(jì)體會(huì)如下：小心謹(jǐn)慎是關(guān)鍵，因?yàn)樽龀绦蜿P(guān)鍵就是寫代碼，每一個(gè)字母都要很小心輸入，若是不小心錯(cuò)了一個(gè)，就會(huì)帶來龐大的“查錯(cuò)工程”，不過從我檢查錯(cuò)誤當(dāng)中也學(xué)會(huì)了一些檢查的方法，比如設(shè)置中斷點(diǎn)，可以觀查每一個(gè)變量的當(dāng)前值，很有效的?！?+ _ ”use encryption for data=false?！?+ _ ”use procedure for prepare=1。Initial Catalog=工資。Integrated Security=SSPI。d:39。d:39。Differential Backup Of 工資39。工資 backup dif39。d:39。Full Backup Of pubs39。工資 backup all39。d:39。“ End Sub 數(shù)據(jù)備份及恢復(fù)：數(shù)據(jù)備份及恢復(fù) 設(shè)計(jì)過程：用戶可以將數(shù)據(jù)庫進(jìn)行完全備份和差異備份，并且在操作不當(dāng)時(shí)可以進(jìn)行恢復(fù)。 Text1 amp。 and =39。 Text2 amp。 “ End Sub Private Sub Text2_Change（ = ”select ,姓名,月份,基本工資,津貼+獎(jiǎng)金+扣保險(xiǎn)+扣考勤+扣其他 as 獎(jiǎng)懲總額,基本工資+津貼+獎(jiǎng)金+扣保險(xiǎn)+扣考勤+扣其他 as 實(shí)發(fā)工資 from 員工信息表 a,工資標(biāo)準(zhǔn) b,其他工資標(biāo)準(zhǔn) c where = and = and 姓名 like 39。 Text1 amp。and =39。 Text2 amp。 ”.xls“, , ”提示窗口“ End If End If End Sub Private Sub Command2_Click(Unload Me End Sub Private Sub Form_Load(End Sub Private Sub Text1_Change( = ”select ,姓名,月份,基本工資,津貼+獎(jiǎng)金+扣保險(xiǎn)+扣考勤+扣其他 as 獎(jiǎng)懲總額,基本工資+津貼+獎(jiǎng)金+扣保險(xiǎn)+扣考勤+扣其他 as 實(shí)發(fā)工資 from 員工信息表 a,工資標(biāo)準(zhǔn) b,其他工資標(biāo)準(zhǔn) c where = and = and 姓名 like 39。 ”.xls“ MsgBox ”Excel文件保存成功，位置：d:“ amp。創(chuàng)建工作表 If 0 Then For i = 0 To = c (r + 1, c + 1 = (c Next c Loop Dim myval As Long Dim mystr As String myval = MsgBox(”是否保存該Excel表?“, vbYesNo, ”提示窗口“If myval = vbYes Then mystr = InputBox(”請(qǐng)輸入文件名稱“, ”輸入窗口“ If Len(mystr = 0 Then MsgBox ”系統(tǒng)不允許文件名稱為空！“, , ”提示窗口“ Exit Sub End If ”d:“ amp。創(chuàng)建excel應(yīng)用程序,打開excel Set newbook = 39?！? End Sub工資查詢：工資查詢?cè)O(shè)計(jì)過程：通過在姓名欄和月份欄輸入信息，可以快速查找所需查詢?nèi)说墓べY情況；并將查詢結(jié)果生成execl表，方便用戶打印及攜帶。 Text1 amp。設(shè)計(jì)代碼：Private Sub Command1_Click(Unload Me End SubPrivate Sub Command2_Click( End SubPrivate Sub Text1_Change（ = ” select * from 其他工資標(biāo)準(zhǔn) where 月份=39。設(shè)計(jì)代碼：Private Sub Command4_Click(Unload Me End Sub 成員管理成員管理設(shè)計(jì)過程：用于檔案的登記，此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進(jìn)行了連接，可以直接進(jìn)行添加，刪除，修改等。想要打開的主窗體 MsgBox ”登錄成功!“, 64, ”提示“ Unload Me ElseMsgBox ”口令不對(duì),請(qǐng)重新輸入!“, 16, ”提示“ End If End Sub主控界面主控界面設(shè)計(jì)過程：所有功能都在菜單中打開來實(shí)現(xiàn)，在最下面添加了工具欄，來顯示時(shí)間，操作員，狀態(tài)等信息。 ”39?！?amp。 ”39。“ amp。MsgBox , vbInformation, “系統(tǒng)提示” 39。Set Conn = Nothing 39。MyErr: 39。這是連接SQL數(shù)據(jù)庫的語句 ConnStr = adUseClient Trim$(SQL, Conn, adOpenDynamic, adLockOptimistic Set Selectsql = rs 39。Initial Catalog=工資。Integrated Security=SSPI。 Dim ConnStr As StringDim Conn As Dim rs As Set rs = New Set Conn = New 39。五、試驗(yàn)過程本系統(tǒng)的數(shù)據(jù)庫是SQL數(shù)據(jù)庫。5 報(bào)表打印功能。3 工資的計(jì)算、修改功能。三、課程設(shè)計(jì)要求： ；，不得以任何理由在其他地點(diǎn)進(jìn)行；3．每個(gè)人需按照選題規(guī)則確定好自己的題目（注意不是多人完成一題，每人獨(dú)立完成一題），不得以任何理由選擇其他的題目，當(dāng)然在完成自己的題目之后根據(jù)個(gè)人興趣可以繼續(xù)選做其他的題目；4．課程設(shè)計(jì)完成后嚴(yán)格按照?qǐng)?bào)告格式撰寫課程設(shè)計(jì)報(bào)告，并于結(jié)束后的第三天上交到學(xué)習(xí)委員統(tǒng)一交給老師；5．課程設(shè)計(jì)的成績(jī)由兩部分組成：程序檢查成績(jī)（40％，每個(gè)功能占程序分的20%）＋報(bào)告檢查成績(jī)（40％）＋平時(shí)考核（20%）四、試驗(yàn)要求 員工基本信息的管理功能。 ygList(i).suidianfei amp。 ygList(i).gerensui amp。 ygList(i).jingtie amp。 ygList(i).jibengz amp。 ygList(i).ygnamg amp。 “水電費(fèi)” amp。 “所得稅” amp。 “津貼” amp。 “工資” amp。Close 1MsgBox “添加員工成功！”, vbOKOnly + vbInformation, “成功”jlNum = 0 If Len(Trim(filedir)) 0 ThenOpen filedir For Input As 1Do While Not EOF(1)Line Input 1, aIf Len(Trim(a)) 0 ThenjlNum = jlNum + 1End IfLoopClose 1ReDim Preserve ygList(jlNum)As YuanGongjlNum = 0Open filedir For Input As 1Do While Not EOF(1)jlNum = jlNum + 1Input 1, ygList(jlNum).ygnamgInput 1, ygList(jlNum).jibengzInput 1, ygList(jlNum).jingtieNextClose 1MsgBox “刪除員工成功！”, vbOKOnly + vbInformation, “成功”jlNum = 0 If Len(Trim(filedir)) 0 ThenOpen filedir For Input As 1Do While Not EOF(1)Line Input 1, aIf Len(Trim(a)) 0 ThenjlNum = jlNum + 1End IfLoopClose 1ReDim ygList(jlNum)As YuanGongjlNum = 0Open filedir For Input As 1Do While Not EOF(1)jlNum = jlNum + 1Input 1, ygList(jlNum).ygnamgInput 1, ygList(jlNum).jibengzInput 1, ygList(jlNum).jingtieInput 1, ygList(jlNum).gerensuiInput 1, ygList(jlNum).suidianfeiLoopClose 1loadData = True = False = False = True = True End If = “姓名” amp。 errorCount amp。圖23更改操作員選擇用戶名，輸入該用戶的密碼，實(shí)現(xiàn)以所選擇的用戶身份登錄。圖22修改密碼輸入登錄用戶的原始密碼，兩次輸入相同的心密碼，單擊【確定】按鈕，實(shí)現(xiàn)密碼修改。在圖21中的某一操作員，單擊【刪除】工具按鈕，以實(shí)現(xiàn)刪除操作員信息。圖21操作員管理在圖21中輸入用戶名和密碼，選擇權(quán)限，單擊【增加】工具按鈕，以實(shí)現(xiàn)增加操作員信息?！鞠到y(tǒng)管理】?【數(shù)據(jù)備份】菜單選項(xiàng)，打開如圖20所示的界面。圖18增加部門選擇圖17中的某一部門，單擊【修改】工具按鈕，打開如圖19所示的界面，以實(shí)現(xiàn)修改部門信息。五、系統(tǒng)管理菜單【系統(tǒng)管理】?【部門管理】菜單選項(xiàng)，打開如圖17所示的界面。【工資管理】?【考勤津貼】菜單選項(xiàng)，打開如圖16所示的界面。四、工資管