【正文】 中不可或缺的一部分。 管理信息系統(tǒng)是一個(gè)人機(jī)系統(tǒng)也是一個(gè)一體化集成系統(tǒng)。 數(shù)據(jù)庫(kù)技術(shù)產(chǎn)生于 60 年代， 30多年來(lái)數(shù)據(jù)庫(kù)技術(shù)得到了迅速發(fā)展，并已形成較為完整的理論體系。 二、元數(shù)據(jù) 數(shù)據(jù)庫(kù)是自描述的， 也 就 是 它自身包含了它的結(jié)構(gòu)的描述，這種結(jié)構(gòu)的 描述稱(chēng)作元數(shù)據(jù)。 索引對(duì)排序和查找是有幫助的， 但是有 代價(jià) 的 。 DBMS總是基于某種數(shù)據(jù)模型，根據(jù)數(shù)據(jù)模型的不同， DBMS可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷?。它典型地包含產(chǎn)生表、窗體、查詢(xún)和報(bào)表的工具。計(jì)算機(jī)進(jìn)行信息管理與信息管理系統(tǒng)的開(kāi)發(fā)密切相關(guān)的，系統(tǒng)的開(kāi)發(fā)是系統(tǒng)管理的前提。 此類(lèi)管理軟件將會(huì)向帶條碼貨物 進(jìn)出庫(kù)管理系統(tǒng)方向發(fā)展，伴隨這著管理信息化、網(wǎng)絡(luò)化的發(fā)展，采用條碼技術(shù)進(jìn)行倉(cāng)庫(kù)管理，將是一個(gè)必然的發(fā)展趨勢(shì)，也是要迫切解決的現(xiàn)實(shí)問(wèn)題。條碼技術(shù)在儲(chǔ)存管理中的應(yīng)用，可進(jìn)一步完善系統(tǒng)各倉(cāng)庫(kù)之間及各倉(cāng)庫(kù)與作業(yè)主管部門(mén)之間的信息共享和交換功能，最終達(dá)到對(duì)產(chǎn)品的全程跟蹤管理。關(guān)系型數(shù)據(jù)庫(kù)要盡量按 照 關(guān)系規(guī)范化要求進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)，為 了 使效率 提 高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來(lái)決定。 SQL 語(yǔ)句通常用于完成一些數(shù)據(jù)庫(kù)的操作任務(wù)，比 如在數(shù)據(jù)庫(kù)中更新數(shù)據(jù)，或者從數(shù)據(jù)庫(kù)中檢索數(shù)據(jù)。主要用到的數(shù)據(jù)操作語(yǔ)言主要是： SELECT:用于數(shù)據(jù)檢索； INSERT:用于增加數(shù)據(jù)到數(shù)據(jù)庫(kù)； UPDATE:用于從數(shù)據(jù)庫(kù)中修改現(xiàn)存的數(shù)據(jù)； DELETE:用于從數(shù)據(jù)庫(kù)中刪除數(shù)據(jù)。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫(xiě)一段代碼告訴計(jì)算機(jī)在事件發(fā)生以后應(yīng)該做什么工作就可以了。 下面將分別對(duì)這些控件的主要功能及使用方法進(jìn)行介紹。因?yàn)槌绦騿T無(wú)需編寫(xiě)任何代碼，就可以在這些控件中顯示當(dāng)前記錄的數(shù) 據(jù)。 DataCombo控件的功能與DataList控件完全相同，只不過(guò) DataCombo控件是一個(gè)組合框。 SQL 語(yǔ)言在 VB 中的應(yīng)用 為實(shí)現(xiàn)使用 VB 程序調(diào)用 SQL 語(yǔ)言訪(fǎng)問(wèn) Access 數(shù)據(jù)庫(kù)多個(gè)記錄的目的，我們利用 SQL提供的函數(shù)。需要說(shuō)明的兩點(diǎn)是：① 使用前先定義 Dim mydb AS Database及 myquery AS querydef.② 查詢(xún) ”monthquery”沒(méi)有使用 Data控件，也就不直接顯示信息。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 邏輯設(shè)計(jì)方案 1 弄清這個(gè)系統(tǒng)的流程是什么。本系統(tǒng)實(shí)現(xiàn)對(duì)貨物信息的管理和總體的統(tǒng)計(jì)等，倉(cāng)庫(kù)信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。 。 入庫(kù)登記 _n 字段名 數(shù)據(jù)類(lèi)型 字段長(zhǎng)度 是否為空 貨物名稱(chēng) 文本 10 入庫(kù)日期 日期 /時(shí)間 年度數(shù)量 數(shù)字 長(zhǎng)整型 入庫(kù)登記 _w 字段名 數(shù)據(jù)類(lèi)型 字段長(zhǎng)度 是否為空 供貨單位 文本 50 入庫(kù)日期 日期 /時(shí)間 年度供貨總額 數(shù)字 長(zhǎng)整型 倉(cāng)庫(kù)匯總 字段名 數(shù)據(jù)類(lèi)型 字段長(zhǎng)度 是否為空 貨物編碼 文本 5 入庫(kù)日期 日期 /時(shí)間 貨物名稱(chēng) 文本 10 數(shù)量（入庫(kù)） 數(shù)字 長(zhǎng)整型 進(jìn)貨價(jià) 貨幣 數(shù)量（出庫(kù)） 數(shù)字 長(zhǎng)整型 倉(cāng)庫(kù)數(shù)量 數(shù)字 長(zhǎng)整型 出庫(kù)登記 _h 表 7 用戶(hù)表 表 8 入庫(kù)登記 _n 表 9 入庫(kù)登記 _w 表 10 倉(cāng)庫(kù)匯總 表 字段名 數(shù)據(jù)類(lèi)型 字段長(zhǎng)度 是否為空 貨物名稱(chēng) 文本 10 出庫(kù)日期 日期 /時(shí)間 年度數(shù)量 數(shù)字 長(zhǎng)整型 出庫(kù)登記 _d 字段名 數(shù)據(jù)類(lèi)型 字段長(zhǎng)度 是否為空 收貨單位 文本 50 出庫(kù)日期 日期 /時(shí)間 年度金額總額 數(shù)字 長(zhǎng)整型 第五章 應(yīng)用程序設(shè)計(jì) 程序結(jié)構(gòu) 本應(yīng)用程序由 33 個(gè)窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫(kù)窗體，出庫(kù)窗體，倉(cāng)庫(kù)匯總，打印及查詢(xún)等窗體組成。Data Source=E:\倉(cāng)庫(kù)管理\ strArray = Split(sql) strConnection 39。 amp。調(diào)入出庫(kù)登記 d1_Click Case Is = kchz 39。39。39。39。39。39。39。39。39。39。39。39。39。 39。 39。判斷是否輸入新密碼 MsgBox 請(qǐng)輸入新密碼！ , 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 ●貨物入庫(kù)登記模塊的實(shí)現(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。下列動(dòng)作發(fā)生時(shí)該事件被調(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。驗(yàn)證代碼置于 此處 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 ● 添加用戶(hù)模塊的實(shí)現(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。保存用戶(hù)名 39。 系統(tǒng)模塊圖 貨物進(jìn)出庫(kù) 倉(cāng)庫(kù)管理 入庫(kù)管理 出庫(kù)管理 盤(pán)存管理 綜合管理 附項(xiàng)分類(lèi) 歷史數(shù)據(jù)管理 打印、查詢(xún) 系統(tǒng) 貨品信息管理 貨品倉(cāng)庫(kù)管理 短線(xiàn)貨品管理 超儲(chǔ)貨品管理 出庫(kù)登記管理 貨品出庫(kù)年度統(tǒng)計(jì) 收貨單位年度收貨金額統(tǒng)計(jì) 盤(pán)存錄入 貨品出入庫(kù)期間匯總表 倉(cāng)庫(kù)信息管理 供貨單位管理 收貨單位管理 經(jīng)辦人員管理 基本模塊與功能： 包括用戶(hù)管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對(duì)整個(gè)數(shù)據(jù)庫(kù)進(jìn)行備份，以確保數(shù)據(jù)的安全性。 ● 系統(tǒng)特色： ，即時(shí)對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行安全 設(shè)置與保護(hù)。 對(duì)于一個(gè)倉(cāng)庫(kù)來(lái)說(shuō)，最大的功能就是存儲(chǔ)貨物，所以倉(cāng)庫(kù)管理就是對(duì)貨物信息，倉(cāng) 庫(kù)信息，短線(xiàn)