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