【正文】 . . 小型商店進(jìn)銷(xiāo)存管理系統(tǒng)的設(shè)計(jì)與開(kāi)發(fā) 張成珍 （ 甘肅農(nóng)業(yè)大學(xué)信息科學(xué)技術(shù)學(xué)院信息管理與信息系統(tǒng)，甘肅蘭州， 730070） 摘要： 本文在分析小型商店進(jìn)銷(xiāo)存人工系統(tǒng)業(yè)務(wù)流程的基礎(chǔ)上，提出了小型商店管理系統(tǒng)用戶(hù)需求和功能需求，并且以 Visual Basic 和 SQL 為前、后臺(tái)開(kāi)發(fā)工具，采用三層體系架構(gòu)開(kāi)發(fā)了小型商店進(jìn)銷(xiāo)存管理系統(tǒng)。系統(tǒng)使用后用戶(hù)可以實(shí)時(shí)和準(zhǔn)確的控制店內(nèi)的銷(xiāo)售和庫(kù)存情況，有效地加速商品的周轉(zhuǎn)率，減輕勞動(dòng)強(qiáng)度從而提高服務(wù)質(zhì)量。 . . 開(kāi)發(fā)背景 小型商店是我國(guó)零售業(yè)的一種重要形態(tài)，為國(guó)民經(jīng)濟(jì)的發(fā)展發(fā)揮了重要的作用。 系統(tǒng)目標(biāo) 系統(tǒng)目標(biāo)是系統(tǒng)開(kāi)發(fā)的依據(jù)及歸宿，在總體系統(tǒng)分析基礎(chǔ)上從商店的經(jīng)營(yíng)目標(biāo)出發(fā)，確定的系統(tǒng)的目標(biāo)如下： 1）界面設(shè)計(jì)簡(jiǎn)潔，友好，美觀(guān)，操作簡(jiǎn)單，快捷方便。 5）對(duì)用戶(hù)輸入的數(shù)據(jù)，系統(tǒng)進(jìn)行嚴(yán)格的數(shù)據(jù)檢驗(yàn)，盡可能排出人為的錯(cuò)誤。數(shù)據(jù)存儲(chǔ)層接到業(yè)務(wù)層的通知后，對(duì)數(shù)據(jù)進(jìn)行操作并把結(jié)果返回給業(yè)務(wù)層。選擇【文件】 → 【新建工程】菜單命令，打開(kāi)“新建工程”對(duì)話(huà)框。比如一個(gè)商品管理系統(tǒng)中，將商品類(lèi)型單獨(dú)作為一個(gè)實(shí)體，將其抽象為一個(gè)類(lèi)，在其中封裝了對(duì)商品類(lèi)型的相關(guān)操作；商品又是一個(gè)單獨(dú)的實(shí)體，也可以將其抽象為一個(gè)類(lèi)，在其中封裝商品的相關(guān) 操作。 使用 ADO 操縱數(shù)據(jù)庫(kù) ADO 即 Active date objects ,實(shí)際是一種提供訪(fǎng)問(wèn)各種數(shù)據(jù)類(lèi)型的連接機(jī)制，是Microsoft 提供并建議在 Visual studio 環(huán)境中使用的數(shù)據(jù)訪(fǎng)問(wèn)接口。 2）如果需要，開(kāi)始一個(gè)事務(wù)（ Transaction），不過(guò)要與結(jié)束事務(wù)對(duì)應(yīng)。 7)如果使用數(shù)據(jù)集對(duì)象 Recordest 對(duì)數(shù)據(jù)庫(kù)進(jìn)行了增刪改的操作，最后必須更新數(shù)據(jù)源。 技術(shù)可行性 商品進(jìn)銷(xiāo)存管理系統(tǒng)采用 Visual Basic 作為前臺(tái)開(kāi)發(fā)工具，使用 SQLServer2020 作為后臺(tái)數(shù)據(jù)庫(kù)開(kāi)發(fā)工具。商品銷(xiāo)售管理人員積極支持該系 統(tǒng)開(kāi)發(fā)，使新系統(tǒng)能夠充分的發(fā)揮作用；系統(tǒng)操作簡(jiǎn)單，易于理解，操作者經(jīng)過(guò)短時(shí)間的培訓(xùn)就可以使用小商品銷(xiāo)售管理系統(tǒng)。供貨商信息管理：包括供貨商信息的新建、修改和刪除等。分類(lèi)查看：可以根據(jù)商品類(lèi)型來(lái)查看某種商品的進(jìn)貨情況。 3)銷(xiāo)售管理 商品銷(xiāo)售信息管理：商品銷(xiāo)售信息包括商品銷(xiāo)售數(shù)量、單價(jià)、統(tǒng)計(jì)日期等。銷(xiāo)售分析：列出當(dāng)前銷(xiāo)售量最多的前幾項(xiàng)商品和銷(xiāo)售量最少的前幾項(xiàng)商品。更新庫(kù)存：報(bào)損信息的變動(dòng)同樣直接關(guān)系到庫(kù)存的變化。 可維護(hù)性：因?yàn)橄到y(tǒng)采用的是三層架構(gòu)體系的設(shè)計(jì)，因此業(yè)務(wù)規(guī)則、合法性校驗(yàn)存在于中間層，所以業(yè)務(wù)規(guī)則發(fā)生改變時(shí)，只需更改中間層服務(wù)器上的某個(gè)組件（如某個(gè) DLL文件），而客戶(hù)端應(yīng)用程序不需要做任何處理，有些時(shí)候，甚至不必修改中間層組件，只需修改數(shù)據(jù)庫(kù)中某個(gè)存儲(chǔ)過(guò)程就可 以了。 易操作性：保證設(shè)計(jì)的系統(tǒng)能夠簡(jiǎn)潔、美觀(guān)、功能齊全、易于理解和操作，事務(wù)處理更加靈活，可以在數(shù)據(jù)庫(kù)端、組件層管理器中進(jìn)行事務(wù)處理。 2)用戶(hù)管理系統(tǒng)主要功能是管理客戶(hù)信息，包括客戶(hù)編碼、客戶(hù)名稱(chēng)、聯(lián)系電話(huà)等。第二個(gè)功能是商品庫(kù)存管理，其主要功能包括商品入庫(kù)和出庫(kù)信息的盤(pán)點(diǎn)等。在進(jìn)銷(xiāo)存招進(jìn)新員工時(shí)，對(duì)其進(jìn)行基本信息的存儲(chǔ)，對(duì)員工信息進(jìn)行基本的了解。 4)進(jìn)貨管理模塊：該模塊主要是實(shí)現(xiàn)進(jìn)行入庫(kù)信息查詢(xún)、添加功能。銷(xiāo)售信息查詢(xún)：根據(jù)商品銷(xiāo)售情況，按需要對(duì)銷(xiāo)售情況進(jìn)行查詢(xún)。其中還包括銷(xiāo)售數(shù)量和銷(xiāo)售日期。 修改商品信息：主要功能是修改商品的報(bào)損信息。 根據(jù)對(duì)數(shù)據(jù)流圖和數(shù)據(jù)字典的分析，我們可以確定該應(yīng)用中的實(shí)體，屬性和實(shí)體之間的關(guān)系，并畫(huà)出如下所示的 ER 圖。內(nèi)模式是對(duì)數(shù)據(jù)的物理結(jié)構(gòu)和存儲(chǔ)方式的描述 [4]。 商品進(jìn)銷(xiāo)存系統(tǒng)一共涉及到 7 個(gè)信息實(shí)體，為每個(gè)實(shí)體創(chuàng)建 系統(tǒng)用戶(hù)表 如 表 所示。) IS NULL CREATE TABLE tmpTable(tmpField int) 創(chuàng)建臨時(shí)表 ELSE SupplierID gxcid 4 0 供貨商品號(hào)，遞增，主鍵 Suppliername gxccaption 100 0 供貨商名稱(chēng) Contact gxcremark 1000 1 聯(lián)系方式 Introduct gxcremark 1000 1 簡(jiǎn)要介紹 Remark gxcremark 1000 1 備注 . . TRUNCATE TABLE tmpTable 清空臨時(shí)表 /*在數(shù)據(jù)庫(kù)表中檢索符合條件的記錄數(shù)并存儲(chǔ)在臨時(shí)表中 */ SELECT strSQL = 39。 + strTableName + 39。 + CONVERT(varchar(50),intFieldValue) SELECT strSQl = 39。 設(shè)置工程屬性 在“工程資源管理器”中選中剛才新建的工程，選擇【工程】 —— 【工程 1 屬性】菜單命令，打開(kāi)“工程屬性”對(duì)話(huà)框，對(duì)工程的一些關(guān)鍵屬性做如下設(shè)置： 工程類(lèi)型： ActiveX DLL 啟動(dòng)對(duì)象： Sub Main 工程名稱(chēng)： BuySaleStorageCOM . . 將文件保存在與 BuySaleStorage 同級(jí)的 BuySaleStorageCOM 文件夾中。 在界面端引用業(yè)務(wù)邏輯組件 在“工程資源管理器”中選擇工程 BuySaleStorage，選擇【工程】 —— 【引用】菜單命令，打開(kāi)“引用”對(duì)話(huà)框，在可用的引用列表中選 BuySaleStorageCOM，至此，在BuySaleStorage 應(yīng)用程序中可以使用 BuySaleStorageCOM 中的全部可用資源。 添加公共模塊 新建一個(gè)模塊，并命名為 mdlPublic。下面看看它是如何實(shí)現(xiàn)的。 編寫(xiě)的函數(shù)見(jiàn)附件的例程 在連接到字符串中使用到的參數(shù)，包括服務(wù)器地址、數(shù)據(jù)庫(kù)名、登錄用戶(hù)和明碼等，必須與創(chuàng)建數(shù)據(jù)庫(kù)的時(shí)候進(jìn)行的配置一樣。 2）商品類(lèi)型管理模塊 商品類(lèi)型管理模塊包括操作 clsGoodsType 和集合類(lèi) clsGoodsType，實(shí)現(xiàn)功能有添加、更新、刪除、查詢(xún)商品和其他與商品類(lèi)型信息集合有關(guān) 的操作。 組合條件查詢(xún)進(jìn)貨信息 功能：按照多條件的不同組合查詢(xún)進(jìn)貨信息 參數(shù)設(shè)計(jì)： Long 類(lèi)型的進(jìn)貨編號(hào)、 String 類(lèi)型的商品名稱(chēng)、 Date 類(lèi)型的進(jìn)貨起始和終止日期。 編寫(xiě)的函數(shù)見(jiàn)附件的例程 統(tǒng)計(jì)進(jìn)貨信息 功能：統(tǒng)計(jì)各種商品的進(jìn)貨次數(shù)、進(jìn)貨總量、平均進(jìn)貨價(jià)格和進(jìn)貨總金額數(shù)等。 主界面的設(shè)計(jì) 在創(chuàng)建用戶(hù)界面端應(yīng)用程序的時(shí)候，已經(jīng)把開(kāi)發(fā)環(huán)境自動(dòng)生成的默認(rèn)窗體重命名為firmMain 并將它作為系統(tǒng)的主界面。 用戶(hù)登錄界面的設(shè)計(jì) 登錄界面主要是用來(lái)給用戶(hù)填寫(xiě)登錄信息，并提交登錄請(qǐng)求。 編寫(xiě)的函數(shù)見(jiàn)附件的例程 樹(shù)形視圖界面處理模塊 為樹(shù)形視圖添加名稱(chēng)為 mdlTreeView 的標(biāo)準(zhǔn)模塊，它實(shí)現(xiàn)以下功能： 動(dòng)態(tài)添加所有商品類(lèi)型 ； 添加商品類(lèi)型到樹(shù)形視圖 ； 從樹(shù)形視圖刪除商品類(lèi)型 ； 更新樹(shù)形視圖上的商品類(lèi)型 ； 獲取樹(shù)形視圖中節(jié)點(diǎn)的商品類(lèi)型 ID。 在這個(gè)部分中，需要對(duì)用戶(hù)的類(lèi)型存入一個(gè)全局變量，予以判斷其所具有的系統(tǒng)使用權(quán)限，例如，用戶(hù)類(lèi)型為 DBA，則該用戶(hù)擁有系統(tǒng)的一切權(quán)力，可以對(duì)每一部分進(jìn)行添加、刪除、查找、統(tǒng)計(jì)等操作；而其他用戶(hù)類(lèi)型都依據(jù)其類(lèi)型的屬性，可以使用的部分也會(huì)相應(yīng)減少，. . 而只能使用一部分 與其類(lèi)型相匹配的功能。 商品添加程序流程圖如圖 所示 。 查詢(xún)程序流程圖如圖 所示。這樣當(dāng)一個(gè)函數(shù)有多處語(yǔ)法錯(cuò)誤時(shí)，執(zhí)行到這個(gè)函數(shù)遇到第一個(gè)函數(shù)就停下來(lái)了，修改之后繼續(xù)調(diào)試。 分階段調(diào)試 作為三層結(jié)構(gòu)的應(yīng)用程序，本系統(tǒng)使用了 ActiveX DLL 工程來(lái)開(kāi)發(fā)業(yè)務(wù)邏輯組件。但編寫(xiě)完一類(lèi)或者類(lèi)內(nèi)的方法，只要他能單獨(dú)使用，就應(yīng)該創(chuàng)建 EXE 工程來(lái)對(duì)它調(diào)試。系統(tǒng)具有很好的安全性、可維護(hù)性、可重用性和易操作. . 性。值此論文完稿之際，我謹(jǐn)向李老師表示我最衷心的感謝和深深地敬意。連接 Sql Server 的連接字符串設(shè)置 ServerName = (LOCAL) DBName = BuySaleStorage UserName = sa strPassword = 39。User ID= amp。 DBName amp。 。MsgBox , vbInformation . . End Function 例程 Query 的方法實(shí)現(xiàn) Public Function Query(Optional lngID As Long = 1, Optional GoodsName As String = , _ Optional BeginningDate As Date = 1/1/1900, Optional EndingDate As Date = 1/1/1900) As clsBuys 39。要生成的集合索引 Dim strSQL As String 39。 ( amp。 amp。 amp。 amp。 ) 39。為單個(gè)對(duì)象的屬性賦值 With obj .ID = rs(BuyID).Value .GoodsID = rs(GoodsID).Value .GoodsName = Trim(rs(GoodsName).Value) .UnitName = Trim(rs(UnitName).Value) .UnitPrice = rs(UnitPrice).Value .Amount = rs(Amount).Value . . .TotalPrice = rs(TotalPrice).Value .Deliverer = Trim(rs(Deliverer).Value) .Transactor = Trim(rs(Transactor).Value) .RegistrarID = rs(RegistrarID).Value .RegistrarName = GetValueByID(UserInfo, UserID, .RegistrarID, TrueName) .RegDate = rs(RegDate).Value .TypeID = rs(TypeID).Value .TypeName = GetValueByID(GoodsType, TypeID, .TypeID, TypeName) .SupplierID = rs(SupplierID).Value .SupplierName = GetValueByID(Supplier, SupplierID, .SupplierID, SupplierName) .Remark = Trim(rs(Remark).Value) End With 39。函數(shù)返回值 Set Query = Me End Function 例程 Statistic 方法的實(shí)現(xiàn) 39。要生成的集合索引 Dim strSQL As String 39。執(zhí)行查詢(xún)并返回查詢(xún)結(jié)果 Set rs = (strSQL) For index = 1 To Set obj = New clsBuy . . 39。釋放對(duì)象 Set obj = Nothing Next index 39。登錄結(jié)果（ gxcLoginResult 枚舉類(lèi)型） 39。密碼錯(cuò)誤 ElseIf Result = WrongPassword Then MsgBox 密碼錯(cuò)誤！ , vbInformation txt(1).SetFocus . . ElseIf Result = DBError Then MsgBox 數(shù)據(jù)庫(kù)連接錯(cuò)誤！ , vbExclamation End If End Sub