【正文】 管理系統(tǒng)進(jìn)行作業(yè) ，不光 可 以大大 提高效率， 同時(shí)也 降低作業(yè)強(qiáng)度， 還 提高 了 產(chǎn)品收發(fā)作業(yè)準(zhǔn)確率，進(jìn)而實(shí)現(xiàn)倉庫管理的全面自動化。條碼技術(shù)在儲存管理中的應(yīng)用，可進(jìn)一步完善系統(tǒng)各倉庫之間及各倉庫與作業(yè) 主管部門之間的信息共享和交換功能，最終達(dá)到對產(chǎn)品的全程跟蹤管理 。信息管理系統(tǒng)所涉及的數(shù)據(jù)庫設(shè)計(jì)分五個(gè)步驟：數(shù)據(jù)庫需求分析、概念設(shè)計(jì)、邏輯設(shè)計(jì)、物理設(shè)計(jì)與加載測試。關(guān)系型數(shù)據(jù)庫要盡量按 照 關(guān)系規(guī)范化要求進(jìn)行數(shù)據(jù)庫設(shè)計(jì)，為 了 使效率 提 高，規(guī)范化程度應(yīng)根據(jù)應(yīng)用環(huán)境和條件來決定。 （ 5） 數(shù)據(jù)字典設(shè)計(jì)：用數(shù)據(jù)字典描述數(shù)據(jù)庫的設(shè)計(jì)，便于維護(hù)和修改。 SQL語句通常用于完成一些數(shù)據(jù)庫的操作任務(wù)， 比如在數(shù)據(jù)庫中更新數(shù)據(jù)，或者從數(shù)據(jù)庫中檢索數(shù)據(jù)。 SQL語言一次處理一個(gè)記錄，對數(shù)據(jù)提供自動導(dǎo)航，它允許用戶在高層的 數(shù)據(jù)結(jié)構(gòu)上工作，而 不對 單個(gè)記錄進(jìn)行操作，可操作記錄集，所有 SQL 語句接受集合作為輸入，返回集合作為輸出。主要用到的數(shù)據(jù)操作語言主要是： SELECT:用于數(shù)據(jù)檢索； INSERT:用于增加數(shù)據(jù)到數(shù)據(jù)庫； UPDATE:用于從數(shù)據(jù)庫中修改現(xiàn)存的數(shù)據(jù)； DELETE:用于從數(shù)據(jù)庫中刪除數(shù)據(jù)。系統(tǒng)引進(jìn)了窗體和控件的機(jī)制，用于設(shè)計(jì)應(yīng)用程序界面。程序員不必?fù)?dān)心如何判斷事件是否已發(fā)生，只需要編寫一段代碼告訴計(jì)算機(jī)在事件發(fā)生以后應(yīng)該做什么工作就可以了。 利用 VB 的事件驅(qū)動性特點(diǎn)，只需在窗體或控件上的代碼窗口中添加少量的代碼，便可達(dá)到告訴當(dāng)在相應(yīng)的窗體或控件上發(fā)生某一事件時(shí)，它們在事件發(fā)生后應(yīng)該做什么工作的目的。 下面將分別對這些控件的主要功能及使用方法進(jìn)行介紹。許多其他的數(shù)據(jù)庫操作控件都需要 Data控件或類似的數(shù)據(jù)源控件（比如 ADO Data控件）。因?yàn)槌绦騿T無需編寫任何代碼，就可以在這些控件中顯示當(dāng)前記錄的 數(shù)據(jù)。內(nèi)部的 Picture、 Label、 TextBox、CheckBox、 Image、 OLE、 ListBox 和 ComboBox 控件也是數(shù)據(jù)覺察的，能和由 Data 控件管理的Recordset對象的某個(gè)字段相連接。 DataCombo 控件的功能與 DataList控件完全相同，只不過 DataCombo控件是一個(gè)組合框。這個(gè) DataGrid控件實(shí)際上是一個(gè)固定的列集合，每一列的行數(shù)都是不確定的。 SQL 語言在 VB 中的應(yīng)用 為實(shí)現(xiàn)使用 VB程序調(diào)用 SQL語言訪問 Access數(shù)據(jù)庫多個(gè)記錄的目的，我們利用 SQL提供的函數(shù)。 （ 1）建立一個(gè)新的查詢 set mydb=Open Database(“c:\DIR1\”) （打開數(shù)據(jù)庫文件 c:\DIR1\） set myquery= QueryDef(“monthquery”)(創(chuàng)建查詢名為 monthquery的查詢 ) =”select*from OPNRPT where mid $(year,7,2)=?”amp。需要說明的兩點(diǎn)是： ① 使用前先定義 Dim mydb AS Database及 myquery AS querydef.② 查詢 ”monthquery”沒有使用 Data控件，也就不直接顯示信息。 通過這一個(gè)方法定 義的記錄集可以使用 move和 Find方法逐條記錄的進(jìn)行操作。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。 Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。 邏輯設(shè)計(jì)方案 1 弄清這個(gè)系統(tǒng)的流程是什么。 對于一個(gè)倉庫來說，最大的功能就是存儲 貨物 ，所以倉庫管理就是對 貨物 信息， 倉庫信息，短線 貨物 及超儲 貨物 的管理，用戶可以根據(jù)實(shí)際情況對各種 貨物 信息進(jìn)行分類管理，包括添加，刪除更新數(shù)據(jù)庫等。本系統(tǒng)實(shí)現(xiàn)對 貨物 信息的管理和總體的統(tǒng)計(jì)等，倉庫信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。 ● 系統(tǒng)特色： ，即時(shí)對系統(tǒng)數(shù)據(jù)進(jìn)行安 全設(shè)置與保護(hù)。 。 系統(tǒng)模塊圖 貨物進(jìn)出庫 倉庫管理 入庫管理 出庫管理 盤存管理 綜合管理 附項(xiàng)分類 歷史數(shù)據(jù)管理 打印、查詢 系統(tǒng) 貨品信息管理 貨品倉庫管理 短線貨品管理 超儲貨品管理 出庫登記管理 貨品出庫年度統(tǒng)計(jì) 收貨單位年度收貨金額統(tǒng)計(jì) 盤存錄入 貨品出入庫期間匯總表 倉庫信息管理 供貨單位管理 收貨單位管理 經(jīng)辦人員管理 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 13 基本模塊與功能： 包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對整個(gè)數(shù)據(jù)庫進(jìn)行備份，以確保數(shù)據(jù)的安全性。 入庫登記 _n 字段名 數(shù)據(jù)類型 字段長度 是否為空 貨物名稱 文本 10 入庫日期 日期 /時(shí)間 年度數(shù)量 數(shù)字 長整型 入庫登記 _w 字段名 數(shù)據(jù)類型 字段長度 是否為空 供貨單位 文本 50 入庫日期 日期 /時(shí)間 年度供貨總額 數(shù)字 長整型 倉庫 匯總 字段名 數(shù)據(jù)類型 字段長度 是否為空 貨物編碼 文本 5 入庫日期 日期 /時(shí)間 貨物名稱 文本 10 數(shù)量（入庫） 數(shù)字 長整型 進(jìn)貨價(jià) 貨幣 表 6 經(jīng)辦人員表 表 7 用戶表 表 8 入庫登記 _n 表 9 入庫登記 _w 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 18 數(shù)量（出庫） 數(shù)字 長整型 倉庫 數(shù)量 數(shù)字 長整型 出庫登記 _h 字段名 數(shù)據(jù)類型 字段長度 是否為空 貨物名稱 文本 10 出庫日期 日期 /時(shí)間 年度數(shù)量 數(shù)字 長整型 出庫登記 _d 字段名 數(shù)據(jù)類型 字段長度 是否為空 收貨單位 文本 50 出庫日期 日期 /時(shí)間 年度金額總額 數(shù)字 長整型 第五章 應(yīng)用程序設(shè)計(jì) 程序結(jié)構(gòu) 本應(yīng)用程序由 33 個(gè)窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫窗體，出庫窗體， 倉庫 匯總，打印及查詢等窗體組成。保存用戶名 表 10 倉庫 匯總表 表 11 出庫登記 _h 表 12 出庫登記 _d 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 19 39。Data Source=E:\ 倉庫 管理\ strArray = Split(sql) strConnection 39。 iflag = 2 Resume TransactSQL_Exit End Function ●主窗體的程序代碼 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 20 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。 amp。 amp。調(diào)入出庫登記 d1_Click Case Is = kchz 39。Data Source=。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。39。 Else MsgBox 密碼不正確 , , 登陸信息 End If End If End Sub 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 26 ● 添加用戶模塊的實(shí)現(xiàn) Option Explicit Private Sub Command1_Click() Dim sql As String Dim rs As If Trim() = Then 39。 39。判斷密碼是 否為空 MsgBox 密碼不能為空！ , vbOKOnly + vbExclamation, 警告 = ConfirmPWD = Else 39。 39。 39。判斷是否輸入新密碼 MsgBox 請輸入新密碼！ , vbOKOnly + vbExclamation, 警告 Exit Sub ElseIf Trim() Trim() Then 39。 NewPWD amp。 gUserName amp。 具體代碼如下： 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 Dim i As Integer Dim rsGird As MSFlexGrid 圖 5－ 2 貨 物 信息界面 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 30 39。顯示信息內(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) 購買設(shè)計(jì) ： 648888133 全套包括 :開題報(bào)告 ,論文 ,源程序 ,源代碼 ,答辯 PPT,萬余套設(shè)計(jì) ,歡迎咨詢選購 ,價(jià)格最低質(zhì)量最好 31 Wend End If End Sub ● 貨物 入庫登記模塊的實(shí)現(xiàn) Private Sub Form_Unload(Cancel As Int