【正文】 = (yiqibianhao) = (fenleihao) = (yiqimingcheng) = (xinghao) = (guige) = (danjia) = (changjia) = (gouzhiriqi) = (xianzhuang) = (lingyongren) = (jingshouren) = (rukushijian) = End If End If Else If = True Then = False Set xinxi = New = adUseClient Provider=。User ID=admin。Data Source=F:\倉(cāng)庫(kù)管理系統(tǒng)\。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic If = Then MsgBox 請(qǐng)輸入儀器名稱, vbOKOnly, 警告 Else (yiqimingcheng = 39。 + + 39。) If Then MsgBox 此儀器名稱不存在，請(qǐng)重新輸入！, vbOKOnly, 警告 = Else = (yiqibianhao) = (fenleihao) = (yiqimingcheng) = (xinghao) = (guige) = (danjia) = (changjia) = (gouzhiriqi) = (xianzhuang) = (lingyongren) = (jingshouren) = (rukushijian) = End If End If End If End IfEnd SubPrivate Sub Command2_Click() If = Then MsgBox 請(qǐng)選擇一條記錄！, vbOKOnly + vbExclamation, 信息提示 Else Set xinxi = New = adUseClient Provider=。User ID=admin。Data Source=F:\倉(cāng)庫(kù)管理系統(tǒng)\。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic (yiqibianhao = 39。 + + 39。) If (vbYes = MsgBox(您確定要?jiǎng)h除該紀(jì)錄嗎？,這可能回導(dǎo)致數(shù)據(jù)的丟失, vbYesNo + vbQuestion, 信息提示)) Then Call Command3_Click MsgBox 刪除信息成功！, vbOKOnly + vbExclamation, 信息提示 End If End IfEnd SubPrivate Sub a11_Click(Index As Integer) Select Case Index Case 0 Unload Me Load Formtianjia Case 2 Unload Me Load Formxiugai Case 3 Unload Me Load Formshanchu End SelectEnd SubPrivate Sub f11_Click(Index As Integer) Select Case Index Case 0 Unload Me Load mainForm Case 2 Dim i As Byte Beep i = MsgBox(你確定要退出倉(cāng)庫(kù)管理系統(tǒng)嗎？, vbYesNo, 退出系統(tǒng)) If i = vbYes Then End End If End SelectEnd SubPrivate Sub s11_Click(Index As Integer) Select Case Index Case 0 Unload Me Load Formchaxun End SelectEnd SubPrivate Sub Timer1_Timer() = NowEnd Sub在visual basic中新建一個(gè)form。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性。如圖318：圖318 報(bào)表信息窗體 創(chuàng)建應(yīng)用文件包由于“倉(cāng)庫(kù)設(shè)備管理系統(tǒng)”運(yùn)行需要Visual Basic和microsoft SQLSever等軟件的支持，為了使得沒(méi)有安裝vb和microsoft SQLSever支持軟件的用戶也可以使用“實(shí)驗(yàn)室設(shè)備管理系統(tǒng)”，故用Wise Installation （專業(yè)級(jí)）安裝程序制作軟件，將所設(shè)計(jì)的軟件，以及軟件運(yùn)行所需要的支持軟件進(jìn)行打包，做成安裝包。這個(gè)安裝包在pc機(jī)上直接安裝后就可以正常運(yùn)行使用。使用Wise Installation （專業(yè)級(jí)）安裝程序制作軟件，操作簡(jiǎn)單明了。本系統(tǒng)所使用的是漢化后的軟件，根據(jù)提示進(jìn)行一步步操作，將所有軟件依次打包，最終生成可獨(dú)立安裝運(yùn)行及卸載的應(yīng)用文件包。 系統(tǒng):此功能可以添加此系統(tǒng)的用戶，首先在用戶欄輸入要添加的用戶的用戶名，然后輸入用戶的密碼，然后再次輸入相同的密碼，兩次輸入的密碼必須相同。點(diǎn)擊“確定”就會(huì)提示添加用戶成功。：此功能可以修改此系統(tǒng)用戶的登錄密碼，首先選擇要修改的用戶名，輸入原始密碼，然后再次輸入新密碼，點(diǎn)擊“確定”就會(huì)提示修改密碼成功，則該用戶下次登錄此系統(tǒng)時(shí)就要輸入修改后的新密碼。：此功能可以刪除此系統(tǒng)的用戶，首先選擇要?jiǎng)h除的用戶名，然后在密碼輸入框里輸入選中用戶的密碼，點(diǎn)擊“確定”就會(huì)提示刪除用戶成功。：退出本系統(tǒng)。 信息查詢此功能可以根據(jù)用戶需求查找用戶需要的資料。此功能有兩個(gè)選項(xiàng):一是根據(jù)儀器編號(hào)查詢,首先選擇儀器編號(hào)單選框,在文本框里面輸入要查找儀器的編號(hào),然后點(diǎn)擊“確定”即可找到要找的儀器的信息。二是根據(jù)儀器名稱查找,選擇儀器名稱單選框, 在文本框里面輸入要查找儀器的名稱,然后點(diǎn)擊“確定”即可找到要找的儀器的信息。 信息管理:此功能可以增加資料信息.在各文本框中輸入信息,然后點(diǎn)擊“確定”即可。如果加入信息的儀器編號(hào)已經(jīng)在數(shù)據(jù)庫(kù)中存在，則系統(tǒng)會(huì)提示信息編號(hào)已經(jīng)存在，則要另外選擇添加儀器的儀器編號(hào)。有些項(xiàng)目為必填項(xiàng)，如果為空，則系統(tǒng)會(huì)提示用戶輸入信息。:此功能可以修改資料信息。先找到所要修改的信息，然后直接在各個(gè)項(xiàng)目后面的文本框中修改相對(duì)應(yīng)的信息，修改完后點(diǎn)擊“修改”，系統(tǒng)則會(huì)提示修改成功。：此功能可以刪除數(shù)據(jù)庫(kù)中存在的信息。先找到所要修改的信息，然后點(diǎn)擊“刪除”按鈕，系統(tǒng)則會(huì)提示您是否要?jiǎng)h除信息，如果選擇確定，則系統(tǒng)會(huì)提示刪除信息成功，并且刪除選中的信息。如果選擇“取消”，則系統(tǒng)不會(huì)刪除信息。：此功能可以向管理員提交設(shè)備報(bào)表。先把需要填的信息填滿，然后點(diǎn)擊提交，便可向倉(cāng)庫(kù)管理員提交報(bào)表。結(jié)論1. 本系統(tǒng)運(yùn)行于PC機(jī)的windows98/2000/xp下，具有對(duì)硬件要求低、容易操作、開發(fā)成本低等特點(diǎn)；2．該系統(tǒng)應(yīng)該具備以下功能：不同的用戶對(duì)系統(tǒng)的使用擁有不同的權(quán)限。倉(cāng)庫(kù)管理員能對(duì)倉(cāng)庫(kù)進(jìn)行查詢，修改。企業(yè)采購(gòu)部能對(duì)倉(cāng)庫(kù)進(jìn)行查詢，從而確定采購(gòu)方案。企業(yè)員工能對(duì)倉(cāng)庫(kù)進(jìn)行查詢，并能向系統(tǒng)提交所需設(shè)備的報(bào)表。企業(yè)管理員能對(duì)倉(cāng)庫(kù)進(jìn)行查詢，修改。并能通過(guò)分析倉(cāng)庫(kù)信息做出相應(yīng)決策。 Basic 。完全面向?qū)ο罂梢暬幊?，其方法?jiǎn)便、直觀、快捷；，穩(wěn)定可靠、操作方便、用戶界面美觀、各項(xiàng)功能滿足設(shè)計(jì)任務(wù)書的要求。致 謝感謝導(dǎo)師吳小平老師的細(xì)心指導(dǎo)和不倦教誨，無(wú)論是論文的選題還是文章的結(jié)構(gòu)無(wú)不凝結(jié)著老師的心血。論文的順利完成離不開老師的支持和幫助。導(dǎo)師嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度讓我深深的敬佩和感動(dòng)。感謝母校對(duì)我的培養(yǎng)和所有授課老師對(duì)我的教育。感謝一直給我鼓勵(lì)和幫助的同學(xué)們，是他們給了我很多動(dòng)力和支持。再一次感謝我的導(dǎo)師吳小平老師！參考文獻(xiàn)[1].龔 波. SQL .[2].蘇 俊. .[3].何玉潔：.[4].劉 軍：[5].申莉莉：.[6].楊開英：. 2003.[7].馬 威： .[8].王 棟： Visual .[9].王興晶、伊立宏： Visual Basic .[10].卜玉坤：[11]．Stephen Walther. Unleashed[M]. [12].彭 琿、羅 強(qiáng)： Visual .[13]．周佩德編著. 數(shù)據(jù)庫(kù)原理及應(yīng)用[M]. .[14]．沈煒、楊世錫： Visual [15]．劉輝編著. 零基礎(chǔ)學(xué)SQL SERVER 2005[M]. [16]．Microsoft. 如何：響應(yīng) GridView 控件中的按鈕事件[EB/OL]. 2008