【正文】 結(jié)構(gòu)設(shè)計： 本系統(tǒng)在運行時，可以根據(jù)不同的使用需要， 選擇不同的功能模塊進入相當(dāng)?shù)南到y(tǒng)使用；同時，為了方便對系統(tǒng)的快速操作，本系統(tǒng)設(shè)計了幾個功能集成模塊，可以對一些數(shù)據(jù)進行統(tǒng)一的快速操作；并為了系統(tǒng)的安全考慮，本系統(tǒng)設(shè)立了密碼修改等功能。分別如下幾個圖所示： 儀器設(shè)備入庫： 使用與維護： 接受數(shù)據(jù) 采購管理 維修管理 信息查詢 退出系統(tǒng) 儀器設(shè)備采購 儀器設(shè)備名稱 設(shè)備編號 采購人 采購日期 生產(chǎn)廠家 生產(chǎn)日期 購入數(shù)量 金額 使用與維護 設(shè)備名稱 設(shè)備編號 維修次數(shù) 使用情況（良 /差） 維修費用 維修記錄 儀器設(shè)備配件： 本儀器設(shè)備管 理系統(tǒng)功能需求可以用二層的 IDEF0 圖來表示。 系統(tǒng)頂層 IDEF0圖 考慮到篇幅有限，其他 IDEF0 圖不再一一畫出。數(shù)據(jù)庫與程序的連接采用微軟數(shù)據(jù)訪問組件 ADO來實現(xiàn)。設(shè)計時一般先設(shè)計窗體背景和窗體標(biāo)題。狀態(tài)欄通過設(shè)計 statusbar 控件實現(xiàn)。在該工程中會自動創(chuàng)建一個窗體，默認名為form1. (2)將 form1 窗體設(shè)為作用中的窗體，然后選取 VB 菜單中工具菜單項下的菜單編輯器，接著會出現(xiàn)菜單編輯器對話框。 （ 4）單擊工程菜單下的部件選項，在彈出的列表中選中 [Microsoft windows mon control ]選項，然后單擊確定按鈕， imagelist 控件、 toolbar 控件、 statusbar 控件將被添加到工具箱中。 （ 6）添加如下程序代碼。 amp。 控件名 屬性 屬性值 text1 name 儀器設(shè)備名稱 text2 name 采購人 text3 name 出產(chǎn)廠家 text4 name 出廠日期 text5 name 金額 text6 name 采購日期 text7 name 采購數(shù)量 text8 name 儀器設(shè)備編號 Command1 name 保存到數(shù)據(jù)庫 Command2 name 退出 流程圖： 添加如下程序代碼： Dim rs As New Dim conn As Private Sub Command1_Click() N Y 開始 增加操作 是否繼續(xù) 退出 If = Then MsgBox 請輸入儀器設(shè)備名稱 , , 提示 Exit Sub End If If = Then MsgBox 請輸入儀器設(shè)備采購人 , , 提示 Exit Sub End If If = Then MsgBox 請輸入出產(chǎn)廠家 , , 提示 Exit Sub End If 39。MsgBox 請輸入出廠日期 39。Exit Sub 39。If = Then 39。 39。End If If = Then MsgBox 請輸入采購數(shù)量 , , 提示 Exit Sub End If If = Then MsgBox 請輸入儀器設(shè)備編號 , , 提示 Exit Sub End If select * from cginfo, conn, adOpenKeyset, adLockOptimistic rs(儀器設(shè)備的名稱 ) = rs(采購人 ) = rs(出產(chǎn)廠家 ) = rs(出廠日期 ) = rs(金額 ) = rs(采購日期 ) = rs(采購數(shù)量 ) = rs(儀器設(shè)備編號 ) = rs(儀器設(shè)備規(guī)格 ) = = = = 39。 = = = = MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫 !, , 提示 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = Date = Date Set conn = New Set rs = New Provider=。 Data Source=。 User Id=admin。 Password=。 儀器設(shè)備使用與維修登記如下： 控件名 屬性 屬性值 text1 name 儀器設(shè)備編號 text2 name 使用情況 text3 name 維修記錄 text4 name 維修日期 text5 name 維修費用 text6 name 儀器設(shè)備編號 bol rowsource 良 /差 Command1 name 保存到數(shù)據(jù)庫 Command2 name 退出 流程圖： 添加如下程序代碼： Dim rs As New Dim conn As Private Sub Command1_Click() If = Then N Y 開始 設(shè)備的使用與維修登記 是否繼續(xù) 退出 MsgBox 請輸入儀器設(shè)備編號 , , 提示 Exit Sub End If If = Then MsgBox 請選擇使用情況 , , 提示 Exit Sub End If If = Then MsgBox 請輸入維修記錄 ,若無記錄請輸入無 , , 提示 Exit Sub End If 39。MsgBox 請輸入維修日期 ,若無維修 ,請輸入無 39。Exit Sub 39。 = = = MsgBox 數(shù)據(jù)已經(jīng)成功保存到數(shù)據(jù)庫 !, , 提示 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() = Date Set conn = New Set rs = New Provider=。 Data Source=。 User Id=admin。 Password=。 倉庫儀器設(shè)備信息維護如下： 控件名 屬性 屬性值 datagrid endabled .f. adodc name mand1 name 檢索 mand2 name 退出 mand3 name 刪除當(dāng)前修改 mand4 name 保存當(dāng)前修改 流程圖： 新增代碼如下： Private Sub Command1_Click() If = Then MsgBox 請輸入儀器設(shè)備編號 Exit Sub End If = select * from cginfo where 儀器設(shè)備編號 = + End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() N Y 開始 查找 /修改 /刪除記錄 是否繼續(xù) 退出 Dim myval As String myval = MsgBox(是否確定刪除該記錄 , vbYesNo) If myval = vbYes Then End If End Sub Private Sub Command4_Click() Dim myval As String myval = MsgBox(是否保存已經(jīng)修改的記錄 , vbYesNo) If myval = vbYes Then End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) Then If Then = Left(, Len() 1) MsgBox (儀器設(shè)備編號輸入錯誤 ,該編 號僅為數(shù)字編號 ,請重新輸入 !!!) End If End Sub ④ 窗體 form8 在屬性欄 caption 里面輸入儀器設(shè)備使用維修信息維護，在窗體中放置 1個 datagrid 控件， 1 個 text 控件， 4 個 mand 控件 , 1 個 adodc ，并分別輸入相應(yīng)的屬性值 儀器設(shè)備使用維修信息維護： 控件名 屬性 屬性值 datagrid endabled .f. adodc name mand1 name 檢索 mand2 name 退出 mand3 name 刪除當(dāng)前修改 mand4 name 保存當(dāng)前修改 流程圖： 新增代碼如下： Private Sub Command1_Click() If = Then MsgBox 請輸入儀器設(shè)備編號 , , 提示 Exit Sub End If = select * from wxinfo where 儀器設(shè)備編號 = + End Sub Private Sub Command2_Click() Unload Me End Sub N Y 開始 使用維修信息維護 是否繼續(xù) 退出 Private Sub Command3_Click() Dim myval As String myval = MsgBox(是否確定刪除該記錄 , vbYesNo, 提示 ) If myval = vbYes Then End If End Sub Private Sub Command4_Click() Dim myval As String myval = MsgBox(是否保存已經(jīng)修改的記錄 , vbYesNo, 提示 ) If myval = vbYes Then End If End Sub Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) If ((KeyCode 57) Or (KeyCode 33 And KeyCode 48)) Then If Then = Left(, Len() 1) MsgBox 儀器設(shè)備編號輸入錯誤 ,該編號僅為數(shù)字編號 ,請重新輸入 !!!, , 提示 End If End Sub ⑤ 窗體 form9 在屬性欄 caption 里面輸入儀器設(shè)備信息查詢，在窗體中放置 3 個 datagrid控件， 1 個 text 控件， 2 個 mand 控件 , 3 個 adodc ， 1 個 bo1 并分別輸入相應(yīng)的屬性值 儀器設(shè)備信息查詢?nèi)缦拢? 控件名 屬性 屬性值 datagrid1 endabled .f. datagrid2 endabled .f. datagrid3 endabled .f. bo1 rowsource 儀器設(shè)備編號，儀器設(shè)備名稱，采購人，出產(chǎn)廠家，領(lǐng)取人，領(lǐng)取單位，使用情況，維修記錄 adodc1 adodc2 adodc3 mand1 name 檢索 mand2 name 退出 流程圖： 新增代碼如下 Private Sub Command1_Click() If ( = 儀器設(shè)備編號 ) Or ( = 儀器設(shè)備名稱 ) Or