【正文】 39。統(tǒng)計(jì)各種商品的進(jìn)貨次數(shù)和進(jìn)貨總價(jià)格，返回一個(gè)集合類(lèi) Public Function Statistic() As clsBuys On Error Resume Next Dim rs As Recordset 39。添加單個(gè)對(duì)象到集合中 obj 39。清空當(dāng)前集合 39。 EndingDate amp。 BeginningDate amp。 GoodsName amp。 lngID End If If GoodsName = Or BeginningDate = 1/1/1900 Or EndingDate = 1/1/1900 Then strSQL = strSQL amp。SQL 字符串 39。參數(shù)說(shuō)明： lngID 為進(jìn)貨編號(hào)， GoodsName 為商品名稱(chēng)， BeginningDate 和 EndingDate為進(jìn)貨時(shí)間范圍 On Error Resume Next Dim rs As Recordset 39。pwd= amp。 _ 。 UserName amp。連接到 SQL Server 數(shù)據(jù)庫(kù) With g_Conn .CursorLocation = adUseClient .CommandTimeout = 100 .ConnectionString = Provider=。 最后，再次對(duì)關(guān)心、幫助我的老師和同學(xué)們表示衷心地感謝！ . . 附錄 ： 例程 Connecttodatebase 的實(shí)現(xiàn) 39。但系統(tǒng)還存在如下不足： 1）沒(méi)能實(shí)現(xiàn)用戶(hù)管理模塊中管理員和普通用戶(hù)的權(quán)限問(wèn)題； 2）系統(tǒng)不能聯(lián)合統(tǒng)計(jì)并分析，并且打印數(shù)據(jù)供用戶(hù)更好的分析市場(chǎng)和管理商店； 3)用戶(hù)界面設(shè)計(jì)不夠美觀等。調(diào)試通過(guò)后，對(duì)編寫(xiě)相似的類(lèi)或類(lèi)內(nèi)的方法有很強(qiáng)的參考作用。ActiveX DLL 工程是無(wú)法進(jìn)行單獨(dú)調(diào)試的，必 須與 EXE 工程聯(lián)合調(diào)試。如果在有錯(cuò)誤就會(huì)再次停下來(lái)了，直到全部語(yǔ)法都修改完畢，這樣就大大的降低了調(diào)試的 效率。 圖 查詢(xún) 程序流程 圖 輸入查詢(xún)信息 否 是 是否存在該信息數(shù)據(jù) 否 是 提示沒(méi)有 輸出該信息 所要查詢(xún) 的信息 確認(rèn)信息 關(guān)閉窗體 是否為倉(cāng)庫(kù)原有商品 是 否 提示：需要在保存后退出 是否保存？ 否 是 保存成功 否 是 Rollback Commit 關(guān)閉窗體 . . 強(qiáng)制變量聲明 Visual Basic 允許變量不經(jīng)過(guò)聲明即可使用，但如果不使用強(qiáng)制變量聲明，那么開(kāi)發(fā)人員因?yàn)殄e(cuò)誤的錄入而產(chǎn)生的表達(dá)式就會(huì)被當(dāng)做一個(gè) 新的變量被使用，這將給程序的運(yùn)行帶來(lái)顯示或者潛在的錯(cuò)誤，從而給調(diào)試帶來(lái)不小的難度 [9]。 用戶(hù)名是否輸入 否 是 密碼是否輸入 否 是 查找管理員表中對(duì)應(yīng)密碼的用戶(hù) 否 存 在 ？ 是 打開(kāi)主窗體 檢查輸入次數(shù) 3 關(guān)閉窗體 兩次輸入的密碼是否一致 否 是 原密碼是否正確 否 是 對(duì)數(shù)據(jù)庫(kù)中的相應(yīng)字段進(jìn)行更新 提示已更新并提交更新 關(guān)閉窗體 檢查輸入次數(shù) 3 . . 圖 商品添加 程序流程圖 商品查詢(xún) 在執(zhí)行查詢(xún)操作之前通常要先在單行文本框中輸入被查詢(xún)的條件，在單行文本框失去聚焦時(shí)將查詢(xún)條件傳遞給查詢(xún)按鈕的單擊事件中，然后過(guò)濾語(yǔ)句依據(jù)此過(guò)濾條件過(guò)濾得出相應(yīng)的數(shù)據(jù)，并顯示在其他數(shù)據(jù)窗體控件中。 圖 登錄界面程序流程圖 2)密碼修改程序設(shè)計(jì) 密碼修改程序設(shè)計(jì)流程圖如圖 所示 在用戶(hù)更改密碼時(shí)，系統(tǒng)首先判斷輸入的兩次舊密碼是否一致，若一致，則判斷原密碼是否正確，如果原密碼正確，則對(duì)數(shù)據(jù)庫(kù)中的相應(yīng)字段進(jìn)行更新。 程序流程設(shè)計(jì) 程序過(guò)程設(shè)計(jì)主要是在借助過(guò)程設(shè)計(jì)工具的情況下，對(duì)程序的具體實(shí)現(xiàn)過(guò)程進(jìn)行設(shè)計(jì)。設(shè)計(jì)界面如圖 所示。按照表 所示 對(duì)主界面控件進(jìn)行布局。 返回值： clsBuys 類(lèi)型，一個(gè) clsBuy 的集合。 返回值： clsBuys 類(lèi)型，一個(gè) clsBuy 的集合。 3）商品管理模塊 商品管理模塊包括操作類(lèi) clsGoods 和集合類(lèi) clsGoodses，實(shí)現(xiàn)的功能有添加、更新、刪除、查詢(xún)和其他與商品信息集合類(lèi)有關(guān)的操作。 其他模塊的開(kāi)發(fā) 1） 供貨商管理模塊 供貨商管理模塊包括操作類(lèi) clsSupplier 和集合類(lèi) clsSuppliers，實(shí)現(xiàn)的功 能有添加、更新、刪除、查詢(xún)和其他與供貨商信息有關(guān)的操作。 Connecttodatebase 函數(shù) —— 與數(shù)據(jù)庫(kù)建立連接 功能：連接到 SQL 數(shù)據(jù)庫(kù)。本模塊的主要功能包括 ActiveX DLL 的啟動(dòng)程序 Sub Main()過(guò)程，與數(shù)據(jù)庫(kù)建立連接及過(guò)濾字符串單引號(hào)等。 開(kāi)發(fā)組件 對(duì)象操作類(lèi)加集合類(lèi)的設(shè)計(jì)思想 在本組件中，每個(gè)模塊的設(shè)計(jì)都是由這個(gè)模塊的對(duì)象操作類(lèi)加對(duì)應(yīng)的集合類(lèi)來(lái)實(shí)現(xiàn)的。 將組合文件保存在與 BuySaleStorage 同級(jí)的文件夾中，取 ,其他去默認(rèn)值。INSERT tmpTable 39。] WHERE [39。SELECT COUNT([39。 表 系統(tǒng)用戶(hù)表 名稱(chēng) 基本類(lèi)型 長(zhǎng)度 允許 NUL值 默認(rèn)值 使 用 gacaption varchar 100 0 實(shí)體名稱(chēng) gxcid int 4 0 實(shí)體編號(hào) gxcmoney samallmon 4 0 進(jìn)貨、銷(xiāo)售金額 gxcremark vachar 1000 1 dbo. 備注 gxcturnname vachar 10 0 真實(shí)姓名 列名 數(shù)據(jù)類(lèi)型 長(zhǎng)度 允許空 默認(rèn)值 說(shuō) 明 userid Gxcid 4 0 用戶(hù)編號(hào)，遞增，主鍵 Username gxccaption 100 0 用戶(hù)賬號(hào)名 Password gxccaption 100 0 密碼 Turename gxcturename 10 0 真實(shí)姓名 lastlogintime datetame 8 1 Gatdate() 上次登錄時(shí)間 usertype bit 1 0 用戶(hù)類(lèi)型 1：管理員 2： . . 表 供貨商信息表 數(shù)據(jù)庫(kù)程序設(shè)計(jì) 添加 ExistByID 存儲(chǔ)過(guò)程 功能：查看某個(gè)數(shù)據(jù)表中，是否存在某個(gè)整型字段等于某個(gè)值得記錄。 數(shù)據(jù)庫(kù)表的設(shè)計(jì) 數(shù)據(jù)庫(kù)邏輯結(jié)構(gòu)設(shè)計(jì)，即把前兩個(gè)階段的成果轉(zhuǎn)化為某種數(shù)據(jù)庫(kù)系統(tǒng)所支持的數(shù)據(jù)模型。 圖 商品實(shí)體圖 圖 用戶(hù)實(shí)體圖 圖 供貨商關(guān)系圖 用戶(hù) 用戶(hù)名 密 碼 真實(shí)姓名 用戶(hù)類(lèi)型 商品 供貨商 商品類(lèi)型 單價(jià) 商品介紹 單 位 備 注 商 品 名稱(chēng) 供 貨 商 簡(jiǎn)要介紹 備注 聯(lián)系方式 供貨商名稱(chēng) . . 圖 庫(kù)存關(guān)系 圖 進(jìn)貨關(guān)系圖 圖 銷(xiāo)售關(guān)系圖 圖 統(tǒng)計(jì)關(guān)系圖 庫(kù)存 商品類(lèi)型 單價(jià) 入庫(kù)數(shù)量 入庫(kù)日期 商品名稱(chēng) 商品編號(hào) 進(jìn)貨 數(shù)量 單價(jià) 送貨員 商品名稱(chēng) 備注 辦理員 銷(xiāo)售 數(shù)量 備注 銷(xiāo)售單價(jià) 商品名稱(chēng) 統(tǒng)計(jì) 銷(xiāo)售 報(bào)損 進(jìn)貨 . . 數(shù)據(jù)庫(kù)的設(shè)計(jì) 數(shù)據(jù)庫(kù)一般分為三級(jí)模式：外模式、概念模式和內(nèi)模式。 7)統(tǒng)計(jì)模塊：本模塊主要是對(duì)商品的庫(kù)存、進(jìn)貨、銷(xiāo)售和報(bào)損數(shù)量進(jìn)行統(tǒng)計(jì)，用以分析計(jì)算，能更好的管理商品。 6)報(bào)損管理模塊：本模塊的主 要功能是商品報(bào)損信息的查詢(xún)和更新。在該查詢(xún)模塊中可以按照商品的編號(hào)、銷(xiāo)售日期等多種方式進(jìn)行商品銷(xiāo)售信息查詢(xún)。 入庫(kù)信息查詢(xún)：該模塊為進(jìn)銷(xiāo)存提供整個(gè)進(jìn)銷(xiāo)存的入庫(kù)情況查詢(xún)，也可以進(jìn)行入庫(kù)信息的明細(xì)查詢(xún)，并以入庫(kù)報(bào)表形式打印出來(lái)。當(dāng)員工和管理員信息發(fā)生變化，或者是員工離職，換崗對(duì)相關(guān)信息發(fā)生變化時(shí)，利實(shí)現(xiàn)目 標(biāo)用此子模塊對(duì)其進(jìn)行信息變更。 4)商品銷(xiāo)售管理系統(tǒng)也包括兩個(gè)功能：第一個(gè)功能是銷(xiāo)售管理，包括銷(xiāo)售的商品的類(lèi)型、數(shù)量、登記、添加等信息；第二個(gè)功能是營(yíng)銷(xiāo)分析，主要是對(duì)商品類(lèi)別、銷(xiāo)售狀況及季節(jié)性商品銷(xiāo)售狀況進(jìn)行分析。用戶(hù)可以根據(jù)需要進(jìn)行查詢(xún)操作，管理人員可以根據(jù)需要進(jìn)行增加、修改、刪除、查詢(xún)等操作。 系統(tǒng)設(shè)計(jì)思想 本商品進(jìn)銷(xiāo)存系統(tǒng)以商品管理為核心，設(shè) 計(jì)目的是可以實(shí)現(xiàn)商品信息的動(dòng)態(tài)變化，完成進(jìn)貨、銷(xiāo)售、庫(kù)存一體化的管理。 可重用性：服務(wù)器端使用三層體系結(jié)構(gòu)，將業(yè)務(wù)邏輯從表示層中抽出，使頁(yè)面，業(yè)務(wù)邏輯和數(shù)據(jù)開(kāi)發(fā)相互獨(dú)立，并行的進(jìn)行，這樣可以大大減少開(kāi)發(fā)時(shí)間。報(bào)損分析：列出當(dāng)前報(bào)損量最多的前幾項(xiàng)商品和報(bào)損量最少的前幾項(xiàng)商品。 4)報(bào)損管理 商品報(bào)損信息管理：商品報(bào)損信息包括商品報(bào)損數(shù)量、報(bào)損原因等。商品銷(xiāo)售管理功能完成銷(xiāo)售信息登記、修改和刪除等。更新庫(kù)存：進(jìn)貨信息的變動(dòng)直接關(guān)系到庫(kù)存的變化。管理員信息 管理：系統(tǒng)管理員的添加、刪除和修改密碼等 。 系統(tǒng)需求概述 系統(tǒng)功能分析 為了使系統(tǒng)的功能更加的齊全和完善，所以從以下幾個(gè)方面分析了系統(tǒng)需要的一些基本功能，為后面的設(shè)計(jì)提供了一定的參照。這兩個(gè)開(kāi)發(fā)工具是比較熟悉的， VB 能夠通過(guò) ActiveX DLL 組建快速的搭建三層體系結(jié)構(gòu)下的數(shù)據(jù)庫(kù)管理系統(tǒng)，也能夠訪問(wèn)遠(yuǎn)程存儲(chǔ)過(guò)程和用戶(hù)自定義函數(shù)，改善應(yīng)用 程序的性能