【文章內容簡介】 ck，保存?zhèn)}庫的信息，結構如表 。 表 倉庫信息表的結構 列名 數據類型 長度 允許空 說明 倉庫編號 char 6 Not null 主鍵 倉庫名稱 char 40 Not null 備注 char 255 Null （ 7）進貨單信息表 inh，保存進貨的信息，結構如表 。 表 進貨單信息表的結構 列名 數據類型 長 度 允許空 說明 南昌航空大學學士學位論文 17進貨日期 Datetime 8 Not null 業(yè)務員 char 20 Not null 進貨單號 char 8 Not null 主鍵 供應商編號 char 8 Not null 外鍵 倉庫編號 char 6 Not null 外鍵 商品編號 numeric 9 Not null 外鍵 顏色 char 10 Null 數量 numeric 9 Not null 單價 numeric 9 Not null 折扣 numeric 5 Not null 總金 額 numeric 9 Not null 即時付款 Char 2 Null 是否記帳 Char 2 Null 備注 char 100 Null （ 8）銷售單信息表 outh，保存銷售的信息，結構如表 所示。 表 銷售單信息表的結構 列名 數據類型 長度 允許空 說明 銷售日期 Datetime 8 Not null 業(yè)務員 char 20 Not null 銷售單號 char 8 Not null 主鍵 客戶編號 char 8 Not null 外鍵 倉庫編號 char 6 Not null 外鍵 商品編號 numeric 9 Not null 外鍵 顏色 char 10 Null 數量 numeric 9 Not null 單價 numeric 9 Not null 折扣 numeric 5 Not null 總金額 numeric 9 Not null 即時付款 Char 2 Null 是否記帳 Char 2 Null 南昌航空大學學士學位論文 18備注 char 100 Null （ 9）庫存單信息表 kucun，保存庫存的信息，結構如表 所示。 表 庫存信息表的結構 列名 數據類型 長度 允許空 說明 更新日期 Datetime 8 Not null 業(yè)務員 Char 20 Not null 入庫單號 Char 8 Not null 主鍵 供應商編號 Char 8 Not null 外鍵 倉庫編號 Char 6 Not null 外鍵 商品編號 Numeric 9 Not null 外鍵 顏色 Char 10 Null 數量 Numeric 9 Not null 單價 Numeric 9 Not null 折扣 Numeric 5 Not null 總金額 Numeric 9 Not null 備注 Char 100 Null （ 10）出庫單信息表 xsdh，保存出庫單的信息，結構如表 所示。 表 出庫單信息表的結構 列名 數據類型 長度 允許空 說明 提貨日期 Datetime 8 Not null 業(yè)務員 Char 20 Not null 提貨單號 Char 8 Not null 主鍵 客戶編號 Char 8 Not null 外鍵 倉庫編號 Char 10 Not null 外鍵 商品編號 Char 30 Not null 外鍵 顏色 Char 10 Null 數量 Numeric 9 Not null 單價 Numeric 9 Not null 折扣 Numeric 5 Not null 總金額 Numeric 9 Not null 南昌航空大學學士學位論文 19備注 Char 100 Null 本系統制作的三張報表都是涉及到多表的連接， 因此 在制作報表前先將多表連接，制作成視圖，以方便在數據環(huán)境設計器中調用 。 1．庫存視圖 庫存視圖所使用的 SQL 語句： SELECT AS ck_mc, AS wz_mc, , , , , FROM INNER JOIN ON = INNER JOIN ON = 生成的視圖如 圖 ： 圖 庫存視圖 2．進貨視圖 進貨視圖說使用的 SQL 語句： SELECT , AS ck_mc, , .業(yè)務員 , , , , , AS wz_mc FROM INNER JOIN ON = INNER JOIN ON = INNER JOIN ON = 生成的視圖如圖 ： 南昌航空大學學士學位論文 20 圖 進貨視圖 3．銷售視圖 銷售視圖所使用的 SQL 語 句： SELECT , , , 編號 , , , , .顏色 , , , , , , , , FROM INNER JOIN ON = 生成的視圖如圖 ： 圖 銷售視圖 南昌航空大學學士學位論文 21第 五 章 系統總體設計 經過上述分析，繪制出 系統業(yè)務 流 程 圖 ， 如圖 圖 服裝進銷存系統業(yè)務流程 圖 主界面是系統的 主要操作平臺，因此，系統的所有功能基本上都能從這個界面上點開 。 由于在設計時考慮到界面的美觀與風格 的 統一，將其他界面都設置成在該平臺下打開。具體操作非常簡單，只需要在除主界面以外的其他所有 form 的 屬性下設置MDIChild 為 true 即可。 主界面的 設計是否友好關系到該系統的第一印象和實用價值的最初體現。因此本系 統采用了完全 Windows 風格的界面設計方法，即 在主菜單下設有便捷的工具條，把用戶經常操作的菜單 項 在工 具條上體現，這樣用戶就可以快捷的找到所要操作的按鈕。 同時還在界面下方設置了狀態(tài)欄，狀態(tài)欄顯示了系統時間和當前狀態(tài)。如圖 所示為本系 統的主界面。 南昌航空大學學士學位論文 22 圖 服裝進銷存主界面 進貨 信 息 查詢 本系統設置了四個查詢項目，分別是進貨信息查詢、銷售信息查 詢、庫存信息查詢和出庫信息查詢。這些查詢的設計風格和代碼設計比較相似，所以就以進貨信息查詢的按業(yè)務員查詢方法為例 來說明本系統查詢模塊的設計。 進貨信息查詢的程序流程圖如圖 所示。進貨信息查詢主要連接的表單是 inh表（進貨信息表）。由負責進貨的業(yè)務員打開進貨單輸入界面，進行輸入。然后這些信息可供業(yè)務員或公司管理人員對全程的進貨情況進行查詢，同時也可以選擇該公司某一個時間段的進貨信息進 行查詢。只須選擇了“按時間”查詢的復選框后，在年、月、日的選項框中選擇用戶所要查詢的起始時間和終止時間，點擊確定按鈕后，即可在另一個窗體下得到查詢結果。系統在設計時設定可供選擇的時間都是進貨表單上記載的時間。也就是說，用戶決不可能查詢到沒有進貨的年份或還未發(fā)生的年份的進貨記錄。同時，本系統采用了三種查詢索引，即：按供應商查詢、按物資、倉庫查詢和按（經辦的）業(yè)務員姓名查詢。業(yè)務員點開如圖 所示的進貨菜單界面。 南昌航空大學學士學位論文 23 圖 進貨信息查詢程序流程圖 圖 進貨菜單界面 選擇 “按業(yè)務員查詢”選項，查 業(yè)務員名稱為“羅安” ， 會得到如圖 ； 南昌航空大學學士學位論文 24 圖 進貨信息查詢 設置 界面 查詢業(yè)務員名為羅安的記錄 所使用的 SQL 語句是： txtsql = select distinct 業(yè)務員 名稱 from inh inner join dm_ywy on 務員編號 = Set mrc = ExecuteSQL(txtsql, MsgText) 同時也可以在查詢業(yè)務員名為羅安的記錄總設置 中限制查詢的時間段，所使用的查詢語句是： sQSql = select , , , ,dm_gf.名稱 , , , , , , ,inh.單價 , , , , , ,inh.備注 from inh inner join dm_gf on = inner join dm_ck on = inner join dm_wz on = where = 39。 amp。 Trim(Combo1(0)) amp。 39。 If = vbChecked Then dBeginDate = Format(CDate(cboYear(0) amp。 amp。 cboMonth(0) amp。 amp。 cboDay(0)), yyyymmdd) dEndDate = Format(CDate(cboYear(1) amp。 amp。 cboMonth(1) amp。 amp。 cboDay(1)), yyyymmdd) sQSql = sQSql amp。 and = 39。 amp。 dBeginDate amp。 39。 sQSql = sQSql amp。 and = 39。 amp。 dEndDate amp。 39。 End If If Trim(sQSql) = Then MsgBox 請設置查詢條件！ , vbOKOnly + vbExclamation, 警告 Exit Sub 南昌航空大學學士學位論文 25Else = sQSql 0 End If 點擊“確定”后，在另一個界面將出現查詢結果。 查詢結果采用 一個叫“ MSFlexGrid”的控件來顯示 。 MSFlexGrid 是一個功能非常強大的控件。雖然，在 VB 中可以做為表格使用的控件有很多種，例如： DataGrid、DBGrid、 還有 上述提到的 MSFlexGrid 和更加高級的 MSHFlexGrid。（ 簡單地說 ,MSFlexGrid 和 MSHFlexGrid 之間的區(qū)別，主要是后者支持 ADO 層次 的 顯示。因為在該系統中并未使用 ADO，所以只需選擇使用 MSFlexGrid 即可。） MSFlexGrid 與DataGrid、 DBGrid 相比，具有更齊全的功能。其中，較突出的表現是它不僅可以加載文本數據，還可以加載圖片等多媒體數據。 文本和圖片可以同時或者單獨放在 MSFlexGrid 的任何一個單元格中。 首先要在 VB中加載 Microsoft FlexGrid ， 在常用工具條下點擊右鍵，選擇“部件”，然后鉤選 “ Microsoft Flexgrid Control ” ，則在工具條上就會出現該控件。MSFlexGrid 控件 不僅 可以顯 示網格數據 ， 也可以對其進行操作。它提供了高度靈活的網格排序、合并和格式設置功能 。 如果將它綁定到一個 Data 控件上，那么 MSFlexGrid 顯示的將是只讀的數據。 Row 和 Col 屬性指定了當前的 MSFlexGrid 單元格。 可以在代碼中改變當前單元格，用戶可以在運行時使用鼠標或者箭頭鍵改變它。 Text 屬性提供了當前單元格內容的 信息。如果單元格中的文本過長，無法全部顯示在單元格的一行中，而且 WordWrap 屬性被設置為 True，那么文本將回繞到同一單元格的下一行。如果需要顯示被回繞的文本 ，需要增加單元的列寬（ ColWidth 屬性）或行高（ RowHeight 屬性）。 使用 Col 和 Row 屬性可以分別確定 MSFlexGrid中列與行的個數 。 因此 ， 使用 MSFlexGrid通常還要對它的行