【正文】 Sub cygl2_Click( End SubPrivate Sub cyxx_Click( End SubPrivate Sub Form_Load( = Time End SubPrivate Sub gzcx_Click( End SubPrivate Sub Image1_Click(End SubPrivate Sub jcqk_Click( End SubPrivate Sub rexiugai_Click( End SubPrivate Sub rescbb_Click(MsgBox ”請(qǐng)先查詢，再點(diǎn)擊生成報(bào)表按鈕“, , ”提示窗口“ End SubPrivate Sub sjbf_Click( End SubPrivate Sub sjhf_Click( End SubPrivate Sub tjcy_Click( End Sub成員管理 成員瀏覽成員瀏覽 設(shè)計(jì)過(guò)程：用控件可以實(shí)現(xiàn)檔案的瀏覽，在此窗體用戶可以瀏覽員工信息，此窗體與數(shù)據(jù)輪中的員工信息表進(jìn)行連接。設(shè)計(jì)代碼：Private Sub Command4_Click(Unload Me End Sub 成員管理成員管理設(shè)計(jì)過(guò)程：用于檔案的登記，此窗體和檔案瀏覽窗體中的數(shù)據(jù)表進(jìn)行了連接，可以直接進(jìn)行添加，刪除，修改等。設(shè)計(jì)代碼：Private Sub Command1_Click( End Sub Private Sub Command2_Click( End Sub Private Sub Command3_Click( End SubPrivate Sub Command4_Click(Dim strb(As Byte Open For Binary As 1 f1 = LOF(1 ReDim strb(f1 Get 1, , strb (”員工頭像“.AppendChunk strb Close 1 = LoadPicture( End Sub Private Sub Form_Load(End Sub 獎(jiǎng)懲信息：?jiǎn)T工獎(jiǎng)懲情況設(shè)計(jì)過(guò)程：用戶可以查找各月份的扣除以及獎(jiǎng)勵(lì)狀況。設(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。“ amp。 Text1 amp。 ”39?！? End Sub工資查詢：工資查詢?cè)O(shè)計(jì)過(guò)程：通過(guò)在姓名欄和月份欄輸入信息，可以快速查找所需查詢?nèi)说墓べY情況；并將查詢結(jié)果生成execl表，方便用戶打印及攜帶。設(shè)計(jì)代碼：Private Sub Command1_Click(Dim i As Integer, r As Integer, c As Integer Dim newxls As Dim newbook As Dim newsheet As Set newxls = CreateObject(”“ 39。創(chuàng)建excel應(yīng)用程序,打開(kāi)excel Set newbook = 39。創(chuàng)建工作簿 Set newsheet = (1 39。創(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。 mystr amp。 ”.xls“ MsgBox ”Excel文件保存成功，位置：d:“ amp。 mystr 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。“ amp。 Text2 amp。 ”%39。and =39。“ amp。 Text1 amp。 ”39。 “ 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。“ amp。 Text2 amp。 ”%39。 and =39?！?amp。 Text1 amp。 ”39?！? End Sub 數(shù)據(jù)備份及恢復(fù)：數(shù)據(jù)備份及恢復(fù) 設(shè)計(jì)過(guò)程：用戶可以將數(shù)據(jù)庫(kù)進(jìn)行完全備份和差異備份，并且在操作不當(dāng)時(shí)可以進(jìn)行恢復(fù)。設(shè)計(jì)代碼：Public Cn As Private Sub Command1_Click( ”backup database 工資 to disk=39。d:39。 with name=39。工資 backup all39。,description=39。Full Backup Of pubs39?！?MsgBox ”數(shù)據(jù)完全備份已經(jīng)完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command2_Click( ”backup database 工資 to disk=39。d:39。 with differential ,noinit,name=39。工資 backup dif39。,description=39。Differential Backup Of 工資39?！癕sgBox ”數(shù)據(jù)差異備份已經(jīng)完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command3_Click( ”restore database 工資 from disk=39。d:39。 with FILE=1“ MsgBox ”數(shù)據(jù)恢復(fù)已經(jīng)完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Command4_Click( ”restore database 工資 from disk=39。d:39。 with FILE=1“ MsgBox ”數(shù)據(jù)恢復(fù)已經(jīng)完成“, vbOKOnly + vbInformation, ”提醒“ End Sub Private Sub Form_Load(Set Cn = New strcon = ”Provider=。Integrated Security=SSPI。Persist Security Info=true。Initial Catalog=工資。Data Source=(local?！?+ _ ”use procedure for prepare=1。auto translate=true?！?+ _ ”use encryption for data=false。tag with column collation when possible=false“ = strcon On Error Resume Next If 0 Then For i = 0 To If ( =2147467259 Then MsgBox ”網(wǎng)絡(luò)不通或服務(wù)器未開(kāi)，請(qǐng)確認(rèn)后再試“, vbOKOnly + vbInformation, ”提醒 Unload MeExit Sub Exit For End If Next i End If End Sub設(shè)計(jì)體會(huì)在數(shù)據(jù)庫(kù)課程開(kāi)課之前我就下決心要學(xué)好這一門課，因?yàn)檫@是我的專業(yè)課，我一開(kāi)始就謹(jǐn)慎小心，爭(zhēng)取每一個(gè)細(xì)節(jié)都做得很好。現(xiàn)在終于是完成了，我的設(shè)計(jì)體會(huì)如下：小心謹(jǐn)慎是關(guān)鍵，因?yàn)樽龀绦蜿P(guān)鍵就是寫代碼，每一個(gè)字母都要很小心輸入，若是不小心錯(cuò)了一個(gè)，就會(huì)帶來(lái)龐大的“查錯(cuò)工程”，不過(guò)從我檢查錯(cuò)誤當(dāng)中也學(xué)會(huì)了一些檢查的方法，比如設(shè)置中斷點(diǎn)，可以觀查每一個(gè)變量的當(dāng)前值，很有效的。小心是一個(gè)方面，另一個(gè)是怎么樣讓程序最人性化，并且保持較簡(jiǎn)潔的程序代碼，通俗說(shuō)就是事半功倍。有很多時(shí)間我是花在了調(diào)試程序方面，一部分是在找錯(cuò)誤，還有就是怎么用最簡(jiǎn)練的代碼實(shí)現(xiàn)當(dāng)前的作用。其中絕大多數(shù)都是自己寫的代碼，只有在自己不會(huì)的時(shí)候才借鑒了指導(dǎo)老師發(fā)下來(lái)的那個(gè)示例作品的代碼。我的程序大多數(shù)是我自己寫的，但是自己的知識(shí)和水平都十分有限，所以會(huì)經(jīng)常去查看書(shū)或者在網(wǎng)上尋找資料，通過(guò)看書(shū)、看資料，我改進(jìn)了自己的不足，也學(xué)會(huì)的很多新的作程序方法，都是十分有用的。在一個(gè)體會(huì)就是做程序要有對(duì)全局和面的分析能力，老師告訴我好多設(shè)計(jì)中不曾想到的東西，比如數(shù)據(jù)表建立的不完美，用戶權(quán)限應(yīng)該分開(kāi)等。做什么事都是一樣的，具體體現(xiàn)在了這次的數(shù)據(jù)庫(kù)課程設(shè)計(jì)上來(lái)，讓我學(xué)到了很多東西。就像要完成一個(gè)很大的工作，要先從小的部分做起，不能急于求成，細(xì)心謹(jǐn)慎才是關(guān)鍵，堅(jiān)持不懈，最后再把這些小的窗體在連接起來(lái)，就構(gòu)成了一個(gè)整體。只有實(shí)踐真正動(dòng)手做了才會(huì)真正了解，在不斷的學(xué)習(xí)和實(shí)踐中體會(huì)到更多的經(jīng)驗(yàn)。