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