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