【正文】 bYesNo, 退出系統(tǒng) ) 成都理工大學(xué)畢業(yè)論文 24 If i = vbYes Then End End If End Select End Sub Private Sub s11_Click(Index As Integer) Select Case Index Case 0 Unload Me Load Formchaxun End Select End Sub Private Sub Timer1_Timer() = Now End Sub 創(chuàng)建修 改信息窗體（ ） 在 visual basic中新建一個(gè) form，保存為 。 從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性 。 如圖 315： 圖 315 修改信息窗體 當(dāng)用戶(hù)需要修改某個(gè)設(shè)備的信息時(shí)，只需 將修改后設(shè)備的詳細(xì)信息填上，然后電擊“修改”即可。 其流程圖如下： 成都理工大學(xué)畢業(yè)論文 25 圖 316 信息修改流程圖 創(chuàng)建刪除信息窗體（ ） 在 visual basic 中新建一個(gè) form，保存為 。從 工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項(xiàng)屬性 。 如圖 317： 圖 317 刪除信息窗體 將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下： Dim xinxi As New Dim rstxinxi As New Private Sub Command3_Click() 輸入修改后信息 和數(shù)據(jù)庫(kù)信息對(duì)比，看設(shè)備是否存在 顯示設(shè)備詳細(xì)信息 end 修改 yes no 成都理工大學(xué)畢業(yè)論文 26 = False = False = = = = = = = = = = = = End Sub Private Sub Form_Load() 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 End Sub Private Sub Command1_Click() 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)輸入儀器編號(hào) , vbOKOnly, 警告 Else (yiqibianhao = 39。 + + 39。) If Then MsgBox 此儀器編號(hào)不存在，請(qǐng)重新輸入！ , vbOKOnly, 警告 成都理工大學(xué)畢業(yè)論文 27 = Else = (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)輸入儀器名稱(chēng) , vbOKOnly, 警告 Else (yiqimingcheng = 39。 + + 39。) If Then MsgBox 此儀器名稱(chēng)不存在，請(qǐng)重新輸入！ , vbOKOnly, 警告 = Else = (yiqibianhao) = (fenleihao) = (yiqimingcheng) 成都理工大學(xué)畢業(yè)論文 28 = (xinghao) = (guige) = (danjia) = (changjia) = (gouzhiriqi) = (xianzhuang) = (lingyongren) = (jingshouren) = (rukushijian) = End If End If End If End If End Sub Private 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 If End Sub Private Sub a11_Click(Index As Integer) 成都理工大學(xué)畢業(yè)論文 29 Select Case Index Case 0 Unload Me Load Formtianjia Case 2 Unload Me Load Formxiugai Case 3 Unload Me Load Formshanchu End Select End Sub Private 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 Select End Sub Private Sub s11_Click(Index As Integer) Select Case Index Case 0 Unload Me Load Formchaxun End Select End Sub Private Sub Timer1_Timer() = Now End Sub 成都理工大學(xué)畢業(yè)論文 30 創(chuàng)建報(bào)表窗體 在 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支持軟件的用戶(hù)也可以使用“實(shí)驗(yàn)室設(shè)備管理系統(tǒng)”，故用 Wise Installation 版（專(zhuān)業(yè)級(jí)）安裝程序制作軟件，將所 設(shè)計(jì)的軟件，以及軟件運(yùn)行所需要的支持軟件進(jìn)行打包，做成安裝包。這個(gè)安裝包在 pc機(jī)上直接安裝后就可以正常運(yùn)行使用。 使用 Wise Installation 版（專(zhuān)業(yè)級(jí)）安裝程序制作軟件，操作簡(jiǎn)單明了。本系統(tǒng)所使用的是漢化后的軟件，根據(jù)提示進(jìn)行一步步操作，將所有軟件依次打包，最終生成可獨(dú)立安裝運(yùn)行及卸載的應(yīng)用文件包。 成都理工大學(xué)畢業(yè)論文 31 第 4 章 .倉(cāng)庫(kù)設(shè)備數(shù)據(jù)庫(kù)管理系統(tǒng)使用說(shuō)明 系統(tǒng) :此功能可以添加此系統(tǒng)的用戶(hù)，首先在用戶(hù)欄輸入要添加的用戶(hù)的用戶(hù)名，然后輸入用戶(hù)的密碼，然后再次輸入相同的密 碼，兩次輸入的密碼必須相同。點(diǎn)擊“確定”就會(huì)提示添加用戶(hù)成功。 ：此功能可以修改此系統(tǒng)用戶(hù)的登錄密碼，首先選擇要修改的用戶(hù)名，輸入原始密碼，然后再次輸入新密碼，點(diǎn)擊“確定”就會(huì)提示修改密碼成功，則該用戶(hù)下次登錄此系統(tǒng)時(shí)就要輸入修改后的新密碼。 ：此功能可以刪除此系統(tǒng)的用戶(hù)，首先選擇要?jiǎng)h除的用戶(hù)名，然后在密碼輸入框里輸入選中用戶(hù)的密碼，點(diǎn)擊“確定”就會(huì)提示刪除用戶(hù)成功。 ：退出本系統(tǒng)。 信息查詢(xún) 此功能可以根據(jù)用戶(hù)需求查找用戶(hù)需要的資料。 此功能有兩個(gè)選項(xiàng) :一是根據(jù)儀器 編號(hào)查詢(xún) ,首先選擇儀器編號(hào)單選框 ,在文本框里面輸入要