【正文】 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中新建一個 form，保存為 。 從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項屬性 。 如圖 315： 圖 315 修改信息窗體 當(dāng)用戶需要修改某個設(shè)備的信息時，只需 將修改后設(shè)備的詳細(xì)信息填上，然后電擊“修改”即可。 其流程圖如下： 成都理工大學(xué)畢業(yè)論文 25 圖 316 信息修改流程圖 創(chuàng)建刪除信息窗體（ ） 在 visual basic 中新建一個 form，保存為 。從 工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項屬性 。 如圖 317： 圖 317 刪除信息窗體 將窗體及其各控件的屬性設(shè)置完畢后，根據(jù)需要為窗體及控件添加事件處理函數(shù)，程序如下： Dim xinxi As New Dim rstxinxi As New Private Sub Command3_Click() 輸入修改后信息 和數(shù)據(jù)庫信息對比，看設(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:\倉庫管理系統(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:\倉庫管理系統(tǒng) \。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic If = Then MsgBox 請輸入儀器編號 , vbOKOnly, 警告 Else (yiqibianhao = 39。 + + 39。) If Then MsgBox 此儀器編號不存在，請重新輸入！ , 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:\倉庫管理系統(tǒng) \。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic If = Then MsgBox 請輸入儀器名稱 , vbOKOnly, 警告 Else (yiqimingcheng = 39。 + + 39。) If Then MsgBox 此儀器名稱不存在，請重新輸入！ , 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 請選擇一條記錄！ , vbOKOnly + vbExclamation, 信息提示 Else Set xinxi = New = adUseClient Provider=。User ID=admin。Data Source=F:\倉庫管理系統(tǒng) \。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic (yiqibianhao = 39。 + + 39。) If (vbYes = MsgBox(您確定要刪除該紀(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(你確定要退出倉庫管理系統(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)建報表窗體 在 visual basic 中新建一個 form，保存為 。從工具箱中選擇相應(yīng)控件將其添加到窗體中，根據(jù)需要設(shè)置其各項屬性。如圖 318： 圖 318 報表信息窗體 創(chuàng)建應(yīng)用文件包 由于“倉庫設(shè)備管理系統(tǒng)”運行需要 Visual Basic 和 microsoft SQLSever 等軟件的支持，為了使得沒有安裝 vb和 microsoft SQLSever支持軟件的用戶也可以使用“實驗室設(shè)備管理系統(tǒng)”，故用 Wise Installation 版（專業(yè)級）安裝程序制作軟件，將所 設(shè)計的軟件，以及軟件運行所需要的支持軟件進(jìn)行打包，做成安裝包。這個安裝包在 pc機上直接安裝后就可以正常運行使用。 使用 Wise Installation 版（專業(yè)級）安裝程序制作軟件，操作簡單明了。本系統(tǒng)所使用的是漢化后的軟件，根據(jù)提示進(jìn)行一步步操作，將所有軟件依次打包，最終生成可獨立安裝運行及卸載的應(yīng)用文件包。 成都理工大學(xué)畢業(yè)論文 31 第 4 章 .倉庫設(shè)備數(shù)據(jù)庫管理系統(tǒng)使用說明 系統(tǒng) :此功能可以添加此系統(tǒng)的用戶，首先在用戶欄輸入要添加的用戶的用戶名，然后輸入用戶的密碼，然后再次輸入相同的密 碼，兩次輸入的密碼必須相同。點擊“確定”就會提示添加用戶成功。 ：此功能可以修改此系統(tǒng)用戶的登錄密碼，首先選擇要修改的用戶名，輸入原始密碼，然后再次輸入新密碼，點擊“確定”就會提示修改密碼成功，則該用戶下次登錄此系統(tǒng)時就要輸入修改后的新密碼。 ：此功能可以刪除此系統(tǒng)的用戶，首先選擇要刪除的用戶名，然后在密碼輸入框里輸入選中用戶的密碼，點擊“確定”就會提示刪除用戶成功。 ：退出本系統(tǒng)。 信息查詢 此功能可以根據(jù)用戶需求查找用戶需要的資料。 此功能有兩個選項 :一是根據(jù)儀器 編號查詢 ,首先選擇儀器編號單選框 ,在文本框里面輸入要