【正文】 )以商品編號為關鍵字查詢商品名稱 。 Private Sub txtPrdId_TextChanged(ByVal sender As , ByVal e As ) Handles If Trim() Then = (Trim()) End If End Sub 調用 SCMApp工程中的 Sal類 (Sal類主要對應銷售單功能模塊中的業(yè)務處理邏輯 。取消按扭將取消此次操作，不進行數據存儲。 輸入項、輸出項 ： 本模塊的數據輸入項主要為 商品 的銷售清單，其中包括單據編號、商品 編號 、 商品名稱 、 價格 、數量、 銷售時間、經手人等與商品相關的信息 。 商品銷售：主要功能是對 所銷售的情況進行登記，記錄該商品的 編號 、銷售數量、 價格 、 銷售時間 、 經手人 等與商品相關的信息。 在此可以對員工的信息進行增加、刪除和修改。 新員工錄入 ： 在 超市 新進員工時，對其進行基本信息的存儲，對員工進行基本的了解 員工信息維護 ： 當員工信息發(fā)生變化，或者是員工離職，換崗對相關信息發(fā)生變化時，利用此子模塊對其進行信息變更。 超市管理系統 39 在此對幾個主要的模塊做詳細的設計分析。 測試要點：本模塊有如下幾個測試要點，按下確定按鈕時，是否能正確讀取存儲用戶名和密碼的數據表；如果用戶名和密碼正確，是否能進入系統主窗體；當輸入用戶名或密碼錯誤時，是否能彈出信息框，給用戶提示。 超市管理系統 38 程序邏輯：系統登陸流程圖如圖 所示： 圖 ：系統登陸流程圖 接口：本模塊為頂級模塊，按確定按鈕時，如果輸入的用戶名和密碼正確，將調用系統主窗體模塊，進入系統主窗體。 其報錯信息 如圖 所示： 輸入項、輸出項：輸入項為 用戶名和密碼。在登陸模塊中，對系統的嘗試登陸次數進行了限制，禁止用戶無終止的進行系統登陸嘗試，在本系統中，當用戶對系統的三次登陸失敗后，系統將自動禁止登陸，退出登陸模塊。 Re, 超市管理系統 37 ) Return False End If End Function 人機界面設計 系統 用戶 登陸模塊 功能：本模塊的主要功能是對用戶身份進行驗證，只有系統的合法用戶才能進入系統。 39。 amp。 KeyCol amp。 TabName amp。 在此 主要分析 SCMApp 類中 DeleteByKey 方法的定義： Public Function DeleteByKey(ByVal TabName As String, ByVal KeyCol As String, ByVal KeyVal As String) As Boolean 39。 公用業(yè)務處理部分中，記錄的增加、刪除、修改和特殊字符串的替換定義為SCMApp 類，報表打印定義為 SCMPrint 類。pwd=123 開發(fā)基本業(yè)務處理類庫 基本業(yè)務處理大致包括兩部分：公用業(yè)務處理部分和各個模塊業(yè)務處理部分。database=ScmSys。 Imports Imports (2)因為整個系統都是對數據庫 ScmSys的操作，所以定義一個公共靜態(tài)變量，用于存儲 ScmSys數據庫的連接信息。為了簡化操作，將這兩種操作定義為 SCMDB 類的兩個不同超市管理系統 36 的方法 。 spEdtDam的腳本代碼 CREATE procedure spEdtDam /* 此存儲用于修改報損單時候更新報損單 ，并對商品列表中對應商品的庫存數量進行更新 */ damlistid int , /*需要更新的報損單編號 */ prdid int , /*更新后的各個字段值 */ damdat smalldatetime , damemp varchar (10) , damqua smallint , dammemo varchar (100) as declare prdid int /*報損單中原始報損商品的編號 */ declare damqua int /*原始商品報損數量需要更新 */ declare prdqua int /*原始商品庫存數量需要更新 */ declare newprdqua int /*新商品庫存數量需要更新 */ 超市管理系統 35 select prdid=prdid from damlist where damlistid=damlistid select damqua = damqua from damlist where damlistid=damlistid select prdqua = prdqua from productlist where prdid=prdid select newprdqua = prdqua from productlist where prdid=prdid update damlist set prdid=prdid,damdat = damdat ,damemp=damemp ,damqua = damqua, dammemo = dammemo where damlistid = damlistid update productlist set prdqua=prdqua + damqua where prdid=prdid update productlist set prdqua=prdqua damqua where prdid = prdid return GO ★報損單的刪除操作對應的存儲過程 spDelDam 的腳本代碼如下。 spDelSal的腳本代碼 CREATE procedure spDelSal /*此存儲用于刪除銷售單時候更新銷售單，并 對商品列表中對應商品的庫存數量進行更新 */ sallistid int /*需要更新的銷售單編號 */ as declare prdid int /* 銷售單中銷售商品的編號 */ declare salqua int /*銷售單中銷售商品的數量，這個數量還需要去相應商品的表中對庫存數量進行更新 */ declare prdqua int /*保存庫存數量 */ select prdid=prdid from saleproduct where sallistid=sallistid select salqua=salqua from saleproduct where sallistid=sallistid select prdqua=prdqua from productlist where prdid=prdid delete from saleproduct where sallistid = sallistid update productlist set prdqua = prdqua + salqua where prdid =prdid 超市管理系統 34 return GO ★ 報損單的增加操作對應的存儲過程 spAddDam 的腳本代碼如下。 spAddSal的腳本代碼 CREATE procedure spAddSal /*此存儲過程用于增加銷售單，并對商品列表中對應商品的庫存數量進行更新 */ prdid int , saldat smalldatetime , salemp varchar (10) , salqua smallint , salprc smallmoney , salmemo varchar(100) as declare prdqua int /*原始商品庫存數量需要更新 */ select prdqua=prdqua from productlist where prdid=prdid insert into saleproduct (prdid,saldat,salemp ,salqua,salprc,salmemo) values ( prdid ,saldat ,salemp,salqua,salprc,salmemo) update productlist set prdqua =prdqua salqua where prdid=prdid return GO ★銷售單的修改操作對應的存儲過程 spEdtSal 的腳本代碼如下。 spEdtPur的腳本代碼 CREATE PROCEDURE spEdtPur /*此存儲過程用于修改采購單時候更新采購單，并對商品列表中對應商品庫存數量進行更新 */ purlistid int , /*需要更新的采購單編號 */ prdid int , supid int , purdat smalldatetime , puremp varchar (10), purqua smallint , purprc smallmoney , purmemo varchar (100) as 超市管理系統 31 declare prdid int /*采購單中原始采購商品的編號 */ declare purqua int /*原始商品 原始商品庫存數量需要更新 */ declare prdqua int /*原始商品庫存數量需要更新 */ declare newprdqua int /*新商品庫 存數量需要更新 */ select prdid=prdid from purchaseproduct where purlistid=purlistid select purqua=purqua from purchaseproduct where purlistid=purlistid select prdqua=prdqua from productlist where prdid=prdid /*select newprdqua=prdqua from productlist where prdid=prdid */ update purchaseproduct set prdid=prdid , supid=supid,purdat=purdat ,puremp = puremp , purqua = purqua , purprc =purprc,purmemo=purmemo where purlistid=purlistid update productlist set prdqua=prdqua purqua where prdid= prdid update productlist set prdqua=prdqua + purqua where prdid=prdid return GO ★采購單的刪除操作對應的存儲過程 spDelPur 的腳本代碼如下。 超市管理系統 30 ★采購單的增加操作對應的存儲過程 spAddPur 的腳本 代碼如下。這樣，當需要執(zhí)行這些功能的時候，只要調用相應的存儲過程并傳入相應的參數，數據庫服務器端會自動按照編譯好的 SQL 語言執(zhí)行這些操作。存儲過程中可以包括數據庫服務器所能理解的任何SQL 語言。 表 供應 商 信息表 列名 名稱 數據類型 長度 允許為空 備注 SupID 供應商編號 int 4 N 主鍵、自動生成 SupName 供應商 名稱 varchar 20 N SupFax 供應商傳真 varchar 20 Y SupTel 供應商電話 varchar 20 Y SuoAdr 供應商地址 varchar 30 Y 表 為 員工 信息表。 表 商品采購信息表 列名 名稱 數據類型 長度 允許為空 備注 PurListID 采購單編號 Int 4 N 主鍵、自動生成 PrdID 商品編號 Int 4 N SupID 供應商編號 Int 4 N PurDat 采購日期 Smallint 4 Y PurEmp 采購經手人 varchar 10 Y PurQua 采購數量 Smallint 2 N PurPrc 采購價格 Smallmoney 4 N PurMemo 采購說明 varchar 100 Y 表 為商品銷售信息表。 表 商品報損信息表 列名 名稱 數據類型 長度 允許為空 備注 DamListID 報損單編號 Int 4 N 主鍵 、自動生成 PrdID 商品編號 Int 4 N 超市管理系統 28 DamDat 報損日期 smalldatetir 4 Y DamEmp 報損 經手人 varchar 10 Y DamQua 報損 數量 Smallint 2 N DamMemo 報損說明 varchar 100 Y 表 為商品信息表。 數據庫邏輯結構 設計 通過概念和邏輯設計做出本系統的數據庫表，在此，對 其中 部分 主要的數據庫表做