【文章內容簡介】 數量和總金額。結構如圖 42： 圖 42 銷售視圖 超市管理系統(tǒng) 的設計和實現 14 11. 視圖 v_stock v_stock 的作用是對每種商品統(tǒng)計庫存總數。結構如圖 43 所示： 圖 43 庫存視圖 12. 視圖 Report3 Report3 的作用是統(tǒng)計商品入庫和銷售的流水記錄。代碼 如下： SELECT StoreinId, ProId, ProPrice, ProNum, ClientId, EmpName FROM storein UNION SELECT SaleId, ProId, ProPrice, ProNum, (ProPrice * ProNum) AS SumPrices, EmpName FROM sale 功能模塊設計及實現 設計工程框架 首先創(chuàng)建一個名為 Supermarket 的新工程，并保存生成 文 件。設主窗體為 。 1. 添加模塊 根據分析創(chuàng)建以下幾個模塊： 1) Const 用來管理工程中的常量； 2) DbFunc 用來管理工程中與數據庫操作相關的聲明、變量和函數； 3) GeneralFunc 用來管理工程中一些通用的自定義函數； 4) Variable 用來管理工程中的全局變量。 超市管理系統(tǒng) 的設計和實現 15 （ 1） Const 模塊代碼： 39。數據庫訪問常量 Public Const SQL_C_CHAR As Long = 1 Public Const SQL_COLUMN_LABEL As Long = 18 Public Const SQL_DROP As Long = 1 Public Const SQL_DRROR As Long = 1 Public Const SQL_NO_DATA_FOUND As Long = 100 Public Const SQL_SUCCESS As Long = 0 Public Const SQL_SUCCESS_WITH_INFO As Long = 1 Public Const SQL_ATTR_MAX_LENGTH As Long = 100 39。數據源信息常量 Public Const DATABASE As String = Supermarket Public Const DSN As String = Supermarket 39。一次執(zhí)行 connect 操作可以訪問數據庫的次數 Public Const CONNECT_LOOP_MAX = 10 （ 2） Variable 模塊代碼： 39。保存執(zhí)行 SQL 語句的字符串 Public SqlStmt As String 39。服務器名稱 Public SCHOOL As String 39。讀取表中列值的變量 Public ColVal As String 39?？蛻裘Q數組 Public Arr_Client() As String 39。商品類目數組 Public Arr_ProType() As String 39。商品名稱數組 Public Arr_Product() As String 39。倉庫名稱數組 Public Arr_Stock() As String 39。庫存商品編號和商品數量數組 Public Arr_SupermarketProId() As Long Public Arr_SupermarketProNum() As Integer 39。類 模塊對象 Public Myuser As New user 39。用戶對象 Public Curuser As New user 39。當前用戶對象 Public MyMember As New Member 39。會員對象 Public MyPro As New Product 39。商品對象 Public MyProType As New ProType 39。商品類別對象 Public MyStorein As New Storein 39。入庫對象 Public MySale As New Sale 39。銷售 對象 Public Mystock As New stock 39。庫存商品對象 Public MyClt As New Client 39。供應商對象 超市管理系統(tǒng) 的設計和實現 16 2. 添加類模塊 根據 VB 功能模塊的劃分原則，將為每一個表創(chuàng)建一個類模塊，將對此表的所有數據庫操作封裝在類中。 1. Client 類（如表 49所示） 表 49 Client 類的成員函數 函數名 具體說明 Init 初始化成員變量 Delete 刪除指定客戶記錄。參數 TmpId 表示要刪除的供應商編號 GetId 根據指定的客戶名稱，返回供應商的編號。參數 TmpName 表示指定的供應商名稱。 GetInfo 讀取指定的供應商記錄。參數 TmpId 表示要讀取的供應商編號。 GetName 根據指定的供應商編號讀取供應商名稱。參數 TmpId 表示指定的供應商編號。 In_DB 判斷指定的供應商是否已經在數據庫中。參數 TmpClientName 表示指定的供應商名稱。 Insert 插入新的供應商記錄 Update 修改指定的供應商記錄。參數 TmpId 表示要修改的供應商編號。 其中 Init 函數的代碼如下： Public Sub Init() ClientId = 1 ClientName = ClientType = 1 Contact = Address = Postcode = Phone = Fax = Describe = End Sub 2. Member 類（如表 410所示） 表 410 Member 類的成員函數 函數名 具體說明 Init 初始化成員變量 Delete 刪除指定會員記錄。參數 TmpId 表示要刪除的會員編號 GetId 根據指定的會員名字，返回會員的 編號。參數 TmpName 表示指定的會員名字。 GetInfo 讀取指定的會員記錄。參數 TmpId 表示要讀取的會員編號。 GetName 根據指定的會員編號讀取會員名稱。參數 TmpId 表示指定的會員編號。 Insert 插入新的會員記錄 Update 修改指定的會員記錄。參數 TmpId 表示要修改的會員編號。 超市管理系統(tǒng) 的設計和實現 17 3. Product 類（如表 411 所示） 表 411 Product 類的成員函數 函數名 具體說明 Init 初始化成員變量 Delete 刪除指定商品記錄。參數 TmpId 表示要刪除的商 品編號 GetId 根據指定的商品，返回商品的編號。參數 TmpName 表示指定的商品名稱。 GetInfo 讀取指定的商品記錄。參數 TmpId 表示要讀取的商品編號。 GetName 根據指定的商品編號讀取商品名稱。 In_DB 判斷指定的商品名稱是否已經在數據庫中。參數 TmpClientName 表示指定的商品名稱。 Insert 插入新的商品記錄 Load_by_Upper 根據指定的商品類目，讀取所屬的商品名稱。參數 TmpTypeId 表示指定商品類目的編號。 HaveType 判斷指定的商 品類目中是否包含商品。參數 TmpTypeId 表示指定的商品類目編號。如果返回 True,則表示指定的商品類目下存在商品；否則表示不存在商品。此函數將在刪除商品類目數據之前調用，如果返回 True，則不能刪除指定的數據。 Update 修改指定的商品記錄。參數 TmpId 表示要修改的商品編號。 其中 Insert 過程的代碼如下： Public Sub Insert() 39。連接數據庫 DB_Connect 39。設置 Insert 語句 SqlStmt = INSERT INTO Product (ProName, ProStyle, _ + TypeId, ProUnit, ProPrice, ProLow, ProHigh) _ + Values(39。 + Trim(ProName) + 39。,39。 + Trim(ProStyle) _ + 39。, + Trim(Str(TypeId)) + ,39。 + Trim(ProUnit) + 39。, _ + Trim(ProPrice) + , + Trim(ProLow) + , + Trim(ProHigh) + ) 39。執(zhí)行 SQL 語句 OdbcExt (SqlStmt) Rc = SQLFreeStmt(Hstmt, SQL_DROP) 39。斷開與數據庫的連接 DB_Disconnect End Sub 超市管理系統(tǒng) 的設計和實現 18 4. ProType 類（如表 412 所示） 表 412 ProType 類的成員函數 函數名 具體說明 Init 初始化成員變量 Delete 刪除指定商品類目記錄。參數 TmpId 表示記錄編號 GetId 根據指定的商品類目名稱，返回商品類目編號。參數 TmpName 表示指定的商品類目名稱。 GetInfo 讀取指定的商品類目記錄。參數 TmpId 表示要讀取的商品類目編號。 GetName 根據指定的商品類目編號讀取商品類目名稱。參數 TmpId 表示指定的商品類目編號。 HaveSon 判斷指定的商品類目中是否存在下級商品類目。參數 TmpUpperId 表示指定的商品類目編號。如果返回 True，則表示存在下級目錄；否則表示沒有下級目錄。此函數在刪除商品類目前調用，如果返回True，則不能刪除指定數據。 In_DB 判斷指定的商品類目名稱是否已經在數據庫中。參數 TypeName 表示指定的商品 類目名稱。 Insert 插入新的商品類目記錄 Load_by_Upper 根據指定的商品類目，讀取下一級商品類目。參數 UpperId 表示指定商品類目的編號。 Update 修改指定的商品類目記錄。參數 TmpId 表示要修改的商品類目編號。 其中 HaveSon 函數的代碼如下 ： Public Function HaveSon(ByVal TmpUpperId As Long) As Boolean 39。連接數據庫 DB_Connect 39。設置 SQL 語句，讀取指定的產品類目編號 SqlStmt = SELECT TypeId FROM ProType WHERE UpperId= _ + Trim(Str(TmpUpperId)) 39。執(zhí)行 SQL 語句 OdbcExt (SqlStmt) 39。如果結果集中有數據，則返回 True；否則返回 False If SQLFetch(Hstmt) = SQL_NO_DATA_FOUND Then HaveSon = False Else HaveSon = True End If Rc = SQLFreeStmt(Hstmt, SQL_DROP) 39。斷開與數據庫的連接 DB_Disconnect End Function 超市管理系統(tǒng) 的設計和實現