【正文】 中不可或缺的一部分。 管理信息系統(tǒng)是一個人機系統(tǒng)也是一個一體化集成系統(tǒng)。 數(shù)據(jù)庫技術(shù)產(chǎn)生于 60 年代， 30多年來數(shù)據(jù)庫技術(shù)得到了迅速發(fā)展，并已形成較為完整的理論體系。 二、元數(shù)據(jù) 數(shù)據(jù)庫是自描述的， 也 就 是 它自身包含了它的結(jié)構(gòu)的描述，這種結(jié)構(gòu)的 描述稱作元數(shù)據(jù)。 索引對排序和查找是有幫助的， 但是有 代價 的 。 DBMS總是基于某種數(shù)據(jù)模型，根據(jù)數(shù)據(jù)模型的不同， DBMS可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?。它典型地包含產(chǎn)生表、窗體、查詢和報表的工具。計算機進(jìn)行信息管理與信息管理系統(tǒng)的開發(fā)密切相關(guān)的，系統(tǒng)的開發(fā)是系統(tǒng)管理的前提。 此類管理軟件將會向帶條碼貨物 進(jìn)出庫管理系統(tǒng)方向發(fā)展，伴隨這著管理信息化、網(wǎng)絡(luò)化的發(fā)展，采用條碼技術(shù)進(jìn)行倉庫管理，將是一個必然的發(fā)展趨勢，也是要迫切解決的現(xiàn)實問題。條碼技術(shù)在儲存管理中的應(yīng)用，可進(jìn)一步完善系統(tǒng)各倉庫之間及各倉庫與作業(yè)主管部門之間的信息共享和交換功能，最終達(dá)到對產(chǎn)品的全程跟蹤管理。關(guān)系型數(shù)據(jù)庫要盡量按 照 關(guān)系規(guī)范化要求進(jìn)行數(shù)據(jù)庫設(shè)計，為 了 使效率 提 高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來決定。 SQL 語句通常用于完成一些數(shù)據(jù)庫的操作任務(wù)，比 如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)。主要用到的數(shù)據(jù)操作語言主要是： SELECT:用于數(shù)據(jù)檢索； INSERT:用于增加數(shù)據(jù)到數(shù)據(jù)庫； UPDATE:用于從數(shù)據(jù)庫中修改現(xiàn)存的數(shù)據(jù)； DELETE:用于從數(shù)據(jù)庫中刪除數(shù)據(jù)。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計算機在事件發(fā)生以后應(yīng)該做什么工作就可以了。 下面將分別對這些控件的主要功能及使用方法進(jìn)行介紹。因為程序員無需編寫任何代碼，就可以在這些控件中顯示當(dāng)前記錄的數(shù) 據(jù)。 DataCombo控件的功能與DataList控件完全相同，只不過 DataCombo控件是一個組合框。 SQL 語言在 VB 中的應(yīng)用 為實現(xiàn)使用 VB 程序調(diào)用 SQL 語言訪問 Access 數(shù)據(jù)庫多個記錄的目的，我們利用 SQL提供的函數(shù)。需要說明的兩點是：① 使用前先定義 Dim mydb AS Database及 myquery AS querydef.② 查詢 ”monthquery”沒有使用 Data控件，也就不直接顯示信息。 Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 邏輯設(shè)計方案 1 弄清這個系統(tǒng)的流程是什么。本系統(tǒng)實現(xiàn)對貨物信息的管理和總體的統(tǒng)計等，倉庫信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。 。 入庫登記 _n 字段名 數(shù)據(jù)類型 字段長度 是否為空 貨物名稱 文本 10 入庫日期 日期 /時間 年度數(shù)量 數(shù)字 長整型 入庫登記 _w 字段名 數(shù)據(jù)類型 字段長度 是否為空 供貨單位 文本 50 入庫日期 日期 /時間 年度供貨總額 數(shù)字 長整型 倉庫匯總 字段名 數(shù)據(jù)類型 字段長度 是否為空 貨物編碼 文本 5 入庫日期 日期 /時間 貨物名稱 文本 10 數(shù)量（入庫） 數(shù)字 長整型 進(jìn)貨價 貨幣 數(shù)量（出庫） 數(shù)字 長整型 倉庫數(shù)量 數(shù)字 長整型 出庫登記 _h 表 7 用戶表 表 8 入庫登記 _n 表 9 入庫登記 _w 表 10 倉庫匯總 表 字段名 數(shù)據(jù)類型 字段長度 是否為空 貨物名稱 文本 10 出庫日期 日期 /時間 年度數(shù)量 數(shù)字 長整型 出庫登記 _d 字段名 數(shù)據(jù)類型 字段長度 是否為空 收貨單位 文本 50 出庫日期 日期 /時間 年度金額總額 數(shù)字 長整型 第五章 應(yīng)用程序設(shè)計 程序結(jié)構(gòu) 本應(yīng)用程序由 33 個窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體，倉庫匯總，打印及查詢等窗體組成。Data Source=E:\倉庫管理\ strArray = Split(sql) strConnection 39。 amp。調(diào)入出庫登記 d1_Click Case Is = kchz 39。39。39。39。39。39。39。39。39。39。39。39。39。 39。 39。判斷是否輸入新密碼 MsgBox 請輸入新密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() Trim() Then 39。 gUserName amp。顯示信息內(nèi)容 = 1 While Not = + 1 ( 1, 0) = rs(0) ( 1, 1) = rs(1) ( 1, 2) = rs(2) ( 1, 3) = rs(3) ( 1, 4) = rs(4) ( 1, 5) = rs(5) ( 1, 6) = rs(6) ( 1, 7) = rs(7) ( 1, 8) = rs(8) ( 1, 9) = rs(9) ( 1, 10) = rs(10) ( 1, 11) = rs(11) ( 1, 12) = rs(12) Wend End If End Sub ●貨物入庫登記模塊的實現(xiàn) Private Sub Form_Unload(Cancel As Integer) = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。下列動作發(fā)生時該事件被調(diào)用 Dim bCancel As Boolean Select Case adReason Case adRsnAddNew Case adRsnClose Case adRsnDelete Case adRsnFirstChange Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr Exit Sub AddErr: MsgBox End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr With .Delete .MoveNext If .EOF Then .MoveLast End With Exit Sub DeleteErr: MsgBox End Sub Private Sub cmdRefresh_Click() 39。驗證代碼置于 此處 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。 Description End Sub Private Sub datPrimaryRS_MoveComplete(ByVal adReason As , ByVal pError As , adStatus As , ByVal pRecordset As ) 39。 具體代碼如下： Option Explicit Private Sub Command1_Click() End Sub Private Sub Form_Load() Dim sql As String sql = select * from 貨物信息 order by 貨物編碼 createList (sql) End Sub Public Sub createList(sql As String) Dim rs As New 圖 5－ 2 貨物信息界面 Dim i As Integer Dim rsGird As MSFlexGrid 39。 NewPWD amp。 39。判斷密碼是否 為空 MsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = ConfirmPWD = Else 39。 Else MsgBox 密碼不正確 , , 登陸信息 End If End If End Sub ● 添加用戶模塊的實現(xiàn) Option Explicit Private Sub Command1_Click() Dim sql As String Dim rs As If Trim() = Then 39。39。39。39。39。39。39。39。39。39。39。39。Data Source=。 amp。 iflag = 2 Resume TransactSQL_Exit End Function ●主窗體的程序代碼 Private Sub a1_Click() End Sub Private Sub a2_Click() Dim fAdd As New frmAddUser 0 End Sub Private Sub a3_Click() Dim fChangePWD As New frmChangePWD End Sub Private Sub a4_Click() End Sub Private Sub a5_Click() 39。保存用戶名 39。 系統(tǒng)模塊圖 貨物進(jìn)出庫 倉庫管理 入庫管理 出庫管理 盤存管理 綜合管理 附項分類 歷史數(shù)據(jù)管理 打印、查詢 系統(tǒng) 貨品信息管理 貨品倉庫管理 短線貨品管理 超儲貨品管理 出庫登記管理 貨品出庫年度統(tǒng)計 收貨單位年度收貨金額統(tǒng)計 盤存錄入 貨品出入庫期間匯總表 倉庫信息管理 供貨單位管理 收貨單位管理 經(jīng)辦人員管理 基本模塊與功能： 包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對整個數(shù)據(jù)庫進(jìn)行備份，以確保數(shù)據(jù)的安全性。 ● 系統(tǒng)特色： ，即時對系統(tǒng)數(shù)據(jù)進(jìn)行安全 設(shè)置與保護(hù)。 對于一個倉庫來說，最大的功能就是存儲貨物，所以倉庫管理就是對貨物信息，倉 庫信息，短線