【正文】 mbo控件的功能與DataList控件完全相同，只不過 DataCombo控件是一個(gè)組合框。這 時(shí)就要借助于 DaatGrid控件。這個(gè) DataGrid控件實(shí)際上是一個(gè)固定的列集合，每一列的行數(shù)都是不確定的。這會(huì)使枯燥的數(shù)據(jù)變得更加生動(dòng)直觀，增加了程序的實(shí)用價(jià)值。 SQL 語(yǔ)言在 VB 中的應(yīng)用 為實(shí)現(xiàn)使用 VB 程序調(diào)用 SQL 語(yǔ)言訪問 Access 數(shù)據(jù)庫(kù)多個(gè)記錄的目的，我們利用 SQL提供的函數(shù)。 假定“ Orders”是數(shù)據(jù)庫(kù)文件中地一張表格，則 x=Dsum(“[Feight]”,”O(jiān)rder”.”[ship country]=?UK?”) SQL訪問多個(gè)記錄地方法 在進(jìn)信息查詢和統(tǒng)計(jì)地過程中， 我們往往需要從記錄集中根據(jù)待定的條件提取其中的一部分記錄信息。 （ 1）建立一個(gè)新的查詢 set mydb=Open Database(“c:\DIR1\”) （打開數(shù)據(jù)庫(kù)文件 c:\DIR1\） set myquery= QueryDef(“monthquery”)(創(chuàng)建查詢名為 monthquery的查詢 ) =”select*from OPNRPT where mid $(year,7,2)=?”amp?！?? ” (利用查詢的 SQL屬性，建立查詢依據(jù)，即查詢的條件。需要說明的兩點(diǎn)是：① 使用前先定義 Dim mydb AS Database及 myquery AS querydef.② 查詢 ”monthquery”沒有使用 Data控件，也就不直接顯示信息。 計(jì)算機(jī)通過增加了條件的 monthquery查詢組成了新的記錄集。 通過這一個(gè)方法定義 的記錄集可以使用 move和 Find方法逐條記錄的進(jìn)行操作。在 Access中，用戶不需要編寫復(fù)雜的程序就可以建立一個(gè)完整的數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)，是一個(gè)典型的開放式數(shù)據(jù)庫(kù)系統(tǒng) ，它可以和 Windows下的其他應(yīng)用程序共享數(shù)據(jù)庫(kù)資源。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。另外， Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。 Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開發(fā)的最通用的數(shù)據(jù)庫(kù)之一。 第四章 貨物進(jìn)出庫(kù)管理系統(tǒng)設(shè)計(jì)分析 . 開發(fā)現(xiàn)狀 . 自己開發(fā)的現(xiàn)狀 到目前為止通過我大量的搜集資料已經(jīng)基本了解設(shè)計(jì)這套系統(tǒng)所需要的模塊以及各個(gè)模塊的功能是什么。 邏輯設(shè)計(jì)方案 1 弄清這個(gè)系統(tǒng)的流程是什么。 怎么樣解決方案 通過總體設(shè)計(jì)來規(guī)劃整個(gè)系統(tǒng)的結(jié)構(gòu)和流程 需求分析 本套應(yīng)用程序名稱為“貨物進(jìn)出庫(kù)管理系統(tǒng)”，主要用于倉(cāng)庫(kù)貨物信息的管理，系統(tǒng)包括倉(cāng)庫(kù)管理、入庫(kù)、出庫(kù)、一些統(tǒng)計(jì)查詢和報(bào)表等幾部分組成。 對(duì)于一個(gè)倉(cāng)庫(kù)來說，最大的功能就是存儲(chǔ)貨物，所以倉(cāng)庫(kù)管理就是對(duì)貨物信息，倉(cāng) 庫(kù)信息，短線貨物及超儲(chǔ)貨物的管理，用戶可以根據(jù)實(shí)際情況對(duì)各種貨物信息進(jìn)行分類管理，包括添加，刪除更新數(shù)據(jù)庫(kù)等。 有了貨物的入庫(kù)，自然也就有貨物的出庫(kù)，這部分提供的功能與入庫(kù)操作流程差不多，有所區(qū)別的只是對(duì)一些出庫(kù)貨物的管理，也很方便數(shù)據(jù)的輸入。本系統(tǒng)實(shí)現(xiàn)對(duì)貨物信息的管理和總體的統(tǒng)計(jì)等，倉(cāng)庫(kù)信息，供貨單位和經(jīng)辦人員信息的查看及維護(hù)。 報(bào)表是一個(gè)數(shù)據(jù)庫(kù)中最重要的功能之一，有了報(bào)表才能清楚地知道貨物的出入庫(kù)情況，在數(shù)據(jù)報(bào)表功能中包括出庫(kù)報(bào)表，倉(cāng)庫(kù)報(bào)表及經(jīng)辦人員報(bào)表等一些基本信息的打印，方便簡(jiǎn)潔。 ● 系統(tǒng)特色： ，即時(shí)對(duì)系統(tǒng)數(shù)據(jù)進(jìn)行安全 設(shè)置與保護(hù)。 ，采用先進(jìn)的數(shù)據(jù)庫(kù)訪問方式，數(shù)據(jù)更安全，性能更穩(wěn)定。 。易懂易會(huì)。 系統(tǒng)模塊圖 貨物進(jìn)出庫(kù) 倉(cāng)庫(kù)管理 入庫(kù)管理 出庫(kù)管理 盤存管理 綜合管理 附項(xiàng)分類 歷史數(shù)據(jù)管理 打印、查詢 系統(tǒng) 貨品信息管理 貨品倉(cāng)庫(kù)管理 短線貨品管理 超儲(chǔ)貨品管理 出庫(kù)登記管理 貨品出庫(kù)年度統(tǒng)計(jì) 收貨單位年度收貨金額統(tǒng)計(jì) 盤存錄入 貨品出入庫(kù)期間匯總表 倉(cāng)庫(kù)信息管理 供貨單位管理 收貨單位管理 經(jīng)辦人員管理 基本模塊與功能： 包括用戶管理，密碼管理，關(guān)閉系統(tǒng)，以及數(shù)據(jù)的備份與恢復(fù)，可以根據(jù)需要對(duì)整個(gè)數(shù)據(jù)庫(kù)進(jìn)行備份，以確保數(shù)據(jù)的安全性。 數(shù)據(jù)流程圖 密碼錯(cuò)誤 登陸貨物進(jìn)出庫(kù)管理系統(tǒng) 驗(yàn)證用戶信息 系統(tǒng)主窗體 倉(cāng)庫(kù)管理 入庫(kù)管理 出庫(kù)管理 盤存管理 綜合管理 附項(xiàng)分類 歷史數(shù)據(jù)管理 打印、查詢 系統(tǒng) 匯總計(jì)算 貨物 信息管理數(shù)據(jù)流程圖： 貨品登記 基本信息錄入 貨品基本信息管理 貨品調(diào)配匯總 出庫(kù)貨品信息管理 入庫(kù)貨品信息管理 貨品其他信息管理 圖 4－ 2 貨品信息管理數(shù)據(jù)流程圖 數(shù)據(jù)庫(kù)設(shè)計(jì) 本貨物進(jìn)出庫(kù)管理系統(tǒng)是應(yīng)用在單機(jī)系統(tǒng)上的，所以只需建立起一個(gè)數(shù)據(jù)庫(kù)，在此數(shù)據(jù)庫(kù)基礎(chǔ)上建立起表格，現(xiàn)將部分?jǐn)?shù)據(jù)結(jié)構(gòu)表描述如下： 貨物 信息表 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 貨物編碼 文本 5 貨物名稱 文本 10 類別 文本 8 型號(hào) 文本 4 單位 文本 2 倉(cāng)庫(kù)編碼 文本 5 存放倉(cāng)庫(kù) 文本 12 入庫(kù)計(jì)劃單價(jià) 貨幣 出庫(kù)計(jì)劃單價(jià) 貨幣 原始倉(cāng)庫(kù) 數(shù)字 長(zhǎng)整型 默認(rèn)貨位 文本 5 警戒底線倉(cāng)庫(kù) 數(shù)字 長(zhǎng)整型 警戒高線倉(cāng)庫(kù) 數(shù)字 長(zhǎng)整型 入庫(kù)登記表 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 入庫(kù)日期 日期 /時(shí)間 入庫(kù)單號(hào) 文本 10 貨物編碼 文本 5 數(shù)量 數(shù)字 長(zhǎng)整型 進(jìn)貨價(jià) 貨幣 總額 貨幣 已付貨款 貨幣 供貨單位編碼 文本 5 供貨單位 文本 20 經(jīng)辦人編碼 文本 5 經(jīng)辦人 文本 8 增值稅率 數(shù)字 單精度型 備注 備注 出庫(kù)登記表 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 表 1 貨品信息表 表 2 入庫(kù)登記表 出庫(kù)日期 日期 /時(shí)間 出庫(kù)單號(hào) 文本 10 貨物編碼 文本 5 貨物名稱 文本 10 數(shù)量 數(shù)字 長(zhǎng)整型 單價(jià) 貨幣 出貨價(jià) 貨幣 總額 貨幣 已收獲款 貨幣 收貨單位編碼 文本 5 收貨單位 文本 20 經(jīng)辦人編碼 文本 5 經(jīng)辦人 文本 8 增值稅率 數(shù)字 單精度型 備注 備注 倉(cāng)庫(kù)信息表 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 倉(cāng)庫(kù)編號(hào) 文本 5 倉(cāng)庫(kù)名稱 文本 12 貨物編號(hào) 文本 2 存貨種類 文本 2 存貨價(jià)值 貨幣 供貨單位信息表（收貨單位表） 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 單位編號(hào) 文本 5 單位名稱 文本 50 單位地址 文本 50 電話 文本 15 聯(lián)系人 文本 8 經(jīng)辦人 員表 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 編號(hào) 文本 5 姓名 文本 8 家庭住址 文本 50 辦公電話 文本 15 家庭電話 文本 15 表 3 貨品出庫(kù)表 表 4 倉(cāng)庫(kù)信息表 表 5 供貨單位信息表 表 6 經(jīng)辦人員表 用戶表 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 UserID 文本 10 userPWD 文本 6 另外，我們還建立了幾張查詢表，用以存放部分用于計(jì)算的統(tǒng)計(jì)信息，以便查詢。 入庫(kù)登記 _n 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 貨物名稱 文本 10 入庫(kù)日期 日期 /時(shí)間 年度數(shù)量 數(shù)字 長(zhǎng)整型 入庫(kù)登記 _w 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 供貨單位 文本 50 入庫(kù)日期 日期 /時(shí)間 年度供貨總額 數(shù)字 長(zhǎng)整型 倉(cāng)庫(kù)匯總 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 貨物編碼 文本 5 入庫(kù)日期 日期 /時(shí)間 貨物名稱 文本 10 數(shù)量（入庫(kù)） 數(shù)字 長(zhǎng)整型 進(jìn)貨價(jià) 貨幣 數(shù)量（出庫(kù)） 數(shù)字 長(zhǎng)整型 倉(cāng)庫(kù)數(shù)量 數(shù)字 長(zhǎng)整型 出庫(kù)登記 _h 表 7 用戶表 表 8 入庫(kù)登記 _n 表 9 入庫(kù)登記 _w 表 10 倉(cāng)庫(kù)匯總表 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 貨物名稱 文本 10 出庫(kù)日期 日期 /時(shí)間 年度數(shù)量 數(shù)字 長(zhǎng)整型 出庫(kù)登記 _d 字段名 數(shù)據(jù)類型 字段長(zhǎng)度 是否為空 收貨單位 文本 50 出庫(kù)日期 日期 /時(shí)間 年度金額總額 數(shù)字 長(zhǎng)整型 第五章 應(yīng)用程序設(shè)計(jì) 程序結(jié)構(gòu) 本應(yīng)用程序由 33 個(gè)窗體組成，主要的分別是：主窗體，歡迎界面，登陸窗體，入庫(kù)窗體，出庫(kù)窗體，倉(cāng)庫(kù)匯總，打印及查詢等窗體組成。需要哪個(gè)功能的時(shí)候就點(diǎn)哪個(gè)菜單 ，相對(duì)應(yīng)的窗體會(huì)自動(dòng)彈出。保存用戶名 39。創(chuàng)建連接 Set rs = New 39。Data Source=E:\倉(cāng)庫(kù)管理\ strArray = Split(sql) strConnection 39。返回記錄集 iflag = 1 Else sql 39。 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。調(diào)入數(shù)據(jù)恢復(fù) Load main_sjhf End Sub Private Sub b1_Click() frm貨物信息 .Show End Sub Private Sub b12_Click() sql = select * from 貨物信息 order by 貨物編碼 (sql) End Sub Private Sub b2_Click() frm貨物倉(cāng)庫(kù) .Show 圖 5－ 1 主窗體界面 End Sub Private Sub B3_Click() frm超儲(chǔ)貨物 .Show End Sub Private Sub b4_Click() frm短線貨物 .Show End Sub Private Sub c1_Click() frm入庫(kù)登記 .Show End Sub Private Sub c2_Click() frm貨物入庫(kù)年度統(tǒng)計(jì) .Show End Sub Private Sub c3_Click() frm供貨單位供貨分類金額統(tǒng)計(jì) .Show End Su