【正文】 ..........18 創(chuàng)建倉庫管理系統(tǒng)主窗體 （ ） .................................18 創(chuàng)建 查詢信息窗體 （ ） .........................................19 創(chuàng)建添加信息窗體 （ ） .......................................20 創(chuàng)建修改信息窗體 （ ） .........................................24 創(chuàng)建刪除信息窗體 （ ） .......................................25 創(chuàng)建報表窗體 .....................................................................................30 創(chuàng)建應用文件包 ...........................................................................................30 第 4章 .倉庫設備數(shù)據(jù)庫管理系統(tǒng)使用說明 ..............................................................31 系統(tǒng) ...............................................................................................................31 信息查詢 .......................................................................................................31 信息管理 .......................................................................................................31 結論 ..............................................................................................................................32 致 謝 ...........................................................................................................................33 參考文獻 ......................................................................................................................34 成都理工大學畢業(yè)論文 1 第 1 章 緒論 數(shù)據(jù)庫系統(tǒng)發(fā)展概況 數(shù)據(jù)庫是六十年代末期開始發(fā)展起來的一門新技術，是管理信息資源的先進工具。這一階段實現(xiàn)了計算機的全面信息管理。數(shù)據(jù)必須按一定的格式存放，因為它不僅需 要存放，而且還要便于查找。 包括：數(shù)據(jù)庫初始數(shù)據(jù)的輸入、轉(zhuǎn)換功能，數(shù)據(jù)庫的轉(zhuǎn)儲、恢復功能，數(shù)據(jù)庫的重新組織功能和性能監(jiān)視、分析功能等，這些功能通常是由一些實用程序完成的，它是數(shù)據(jù)庫管理系統(tǒng)的一個重要組成部分。 (2)支持 DBMS 運行的操作系統(tǒng)。數(shù)據(jù)庫軟件為數(shù)據(jù)的定義、存儲、查詢和修改提供支持，而數(shù)據(jù)庫應用軟件是對數(shù)據(jù)庫中的數(shù)據(jù)進行處理和加工的軟件，它面向特定應用，如基于數(shù)據(jù)庫的各種管理軟件、 管理信息系統(tǒng) (MIS)、決策支持系統(tǒng)（ DSS）和辦公自動化 (OA)等都屬于數(shù)據(jù)庫應用軟件。 倉庫設備數(shù)據(jù)庫是倉庫設備所涉及的數(shù)據(jù)的提取和綜合，它不僅反映數(shù)據(jù)本身，而且反映數(shù)據(jù)之間的聯(lián)系，也是事物之間的聯(lián)系的反映。本系統(tǒng)采用桌面數(shù)據(jù)庫方式，利用學校現(xiàn)有軟硬件資源，運行于 PC 機的windows98/2021/xp 下，具有對硬件要求低、容易操作、開發(fā)成本低等特點。 SQLSever 數(shù)據(jù)庫是目前應用十分廣泛的桌面型關系數(shù)據(jù)庫，它主要應用于各種中小型的管理信息系統(tǒng)中，雖然它無法支 持較大數(shù)據(jù)量，不支持數(shù)據(jù)庫的高級特性（并發(fā)訪問、事務處理等），但是它快速、小巧、靈活，經(jīng)常被小型信息管理系統(tǒng)作為后臺數(shù)據(jù)庫。報表和圖表的數(shù)據(jù)來自查詢和統(tǒng)計，是定制的。在對本系統(tǒng)應用環(huán)境和需求進行收集和分析后所形成的抽象的系統(tǒng)概貌圖如圖 31。 本系統(tǒng)共有兩個數(shù)據(jù)庫，一個是儀器性能指標數(shù)據(jù)庫，另一個是用戶標識和鑒定數(shù)據(jù)庫。 創(chuàng)建 設備 數(shù)據(jù)庫 本系統(tǒng)的儀器數(shù)據(jù)庫是用 Microsoft SQLSever 創(chuàng)建的。用戶標識和鑒定是系統(tǒng)提供的最外層的安全保護措施，其方法是 由系統(tǒng)提供一定的方式讓用戶標識自己的名字或身份，每次用戶要進入系統(tǒng)時，系統(tǒng)對用戶身份進行核實，通過鑒定后才提供系統(tǒng)使用權。如果用戶 3 次輸入密碼不正確，將退出程序。 39。代碼如下： 成都理工大學畢業(yè)論文 14 Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密碼輸入不正確！ , vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus Text1(1).Text = Else txtSQL = select * from user_Info where user_ID = 39。代碼如下： Private Sub cmdCancel_Click( ) Unload Me End Sub 成都理工大學畢業(yè)論文 17 刪除用戶 進入系統(tǒng)后，選擇菜單“系統(tǒng) 刪除用戶”，就可以刪除用戶，出現(xiàn)刪除用戶的窗體： 圖 310 刪除用戶窗口 在這個窗體中放置了二個文本框，用來輸入用戶名和密 碼，二個按鈕用來確定是否修改密碼，三個標簽用來標示文本框的內(nèi)容。從工具箱中選擇相應控件將其添加到窗體中，根據(jù)需 要設置其各項屬性。Data Source=F:\倉庫管理系統(tǒng) \。 如圖 315： 圖 315 修改信息窗體 當用戶需要修改某個設備的信息時，只需 將修改后設備的詳細信息填上，然后電擊“修改”即可。Data Source=F:\倉庫管理系統(tǒng) \。) If Then MsgBox 此儀器名稱不存在，請重新輸入！ , vbOKOnly, 警告 = Else = (yiqibianhao) = (fenleihao) = (yiqimingcheng) 成都理工大學畢業(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=。這個安裝包在 pc機上直接安裝后就可以正常運行使用。 ：此功能可以刪除此系統(tǒng)的用。從工具箱中選擇相應控件將其添加到窗體中，根據(jù)需要設置其各項屬性。Persist Security Info=False Set rstxinxi = New Set = xinxi select * from yiqixinxi, xinxi, adOpenStatic, adLockOptimistic If = Then MsgBox 請輸入儀器名稱 , vbOKOnly, 警告 Else (yiqimingcheng = 39。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=。) If (yiqibianhao) = Trim() Then MsgBox 此儀器編號已經(jīng)存在！ , vbOKOnly + vbExclamation, 警告 = Else (yiqibianhao) = Trim() (fenleihao) = Trim() (xinghao) = Trim() (yiqimingcheng) = Trim() (guige) = Trim() (danjia) = Trim() (changjia) = Trim() (gouzhiriqi) = Trim() (xianzhuang) = Trim() (lingyongren) = Trim() (jingshouren) = Trim() (rukushijian) = Trim() MsgBox 添加信息成功 , vbOKOnly + vbExclamation, 信息提示 Call Command1_Click End If End Sub Private Sub Command3_Click() Call Command1_Click 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) ) 成都理工大學畢業(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