【正文】 超市管理系統(tǒng) 的設計和實現 32 圖 414 商品基本信息管理窗體 銷售操作管理模塊 1. 設計入庫操作管理模塊 創(chuàng)建新窗體 FrmStoreinEdit，設置屬性，得到如圖 415 所示窗體： 圖 415 編輯入庫清單窗體 超市管理系統(tǒng) 的設計和實現 33 分析窗體 FrmStoreinEdit 中的公共變量： 1. 變量 OriId 表示當前編輯的入庫信息編號； 2. 變量 OriClt 表示當前編輯的供應商名稱； 3. 變量 OriType1 和 OriType2 分別表示當前編輯的商品類型； 4. 變量 OriPro 表示當前編輯的商品名稱； 創(chuàng)建新窗體 FrmStoreinMan，設置屬性，得到如圖 416 所示窗體： 在此窗體中，可以根據用戶的需要，選擇日期，在顯示欄中則顯示所對應的當天的所有入庫信息。 在此窗 體中，根據用戶選擇的商品類目顯示商品的基本信息。 圖 413 編輯商品信息窗體 窗體 FrmProEdit 的代碼參照 理解。 Load_Type1 過程 Load_Type1（）過程的功能是把所有一級類目的名稱讀取并顯示在左側的列表框中，其代碼如下： Private Sub Load_Type1() 超市管理系統(tǒng) 的設計和實現 31 (0) i = 0 Do While Arr_ProType(i) Arr_ProType(i) i = i + 1 Loop If 0 Then = 0 End If End Sub 2） 設計商品信息管理模塊 編輯商品管理信息的窗體可以用來添加和修改商品信息。 1） 設計商品類目管理模塊 （ 1） 編輯商品的類目信息的窗體可以用來添加和修改商品類目信息。如果當前用戶為 Admin，則打開用戶管理窗體 If Format(, ) = admin Then 1 Else 39。確認刪除 If MsgBox(是否刪除當前用戶 , vbYesNo, 請確認 ) = vbYes Then () DataList1_Click MsgBox 成功刪除 End If End Sub 另外還需要在主界面中添加以下代碼，當用戶單擊“用戶管理”時，系統(tǒng)會根據不同的用戶決定打開“用戶管理”窗口，還是打開“用戶編輯”窗口。讀取用戶數據 () lblUserName = lblEmpName = If Format(, ) = admin Then 超市管理系統(tǒng) 的設計和實現 29 lblUserType = 系統(tǒng)管理員 Else lblUserType = 普通用戶 End If End Sub 程序將當前選擇用戶的信息讀取到 MyUser 對象中。 圖 49 用戶管理系統(tǒng)窗體 當用戶為 Admin 時為系統(tǒng)操作員，其他用戶都為普通用戶。 超市管理系統(tǒng) 的設計和實現 28 2） 設計用戶管理窗體 創(chuàng)建名為 FrmUserMan 的新窗體，設置各屬性后，得到如圖 49 的布局。如果輸入的數據完全滿足條件，則保存到數據庫中。 圖 48 編輯用戶信息窗體 當用戶單擊“確定”按鈕時，將觸發(fā) Cmd_OK_Click 事件，對應代碼如下： Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 請輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If 超市管理系統(tǒng) 的設計和實現 27 If txtPass txtPass2 Then MsgBox 密碼和確認密碼不相同，請重新確認 = 0 = Len(txtPass2) Exit Sub End If If txtEname = Then MsgBox 請輸入員工姓名 Exit Sub End If With Myuser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(MakeStr(txtUserName)) = True Then MsgBox 用戶名已經存在，請重新輸入 = 0 = Len(txtUserName) Exit Sub End If End If .EmpName = MakeStr(txtEname) .UserName = MakeStr(txtUserName) .Pwd = MakeStr(txtPass) If Modify = False Then .Insert MsgBox 添加完成 Else .Update (OriUser) MsgBox 修改完成 39。 1） 設計編輯用戶信息的窗體 編輯用戶信息的窗體可以用來添加和修改用戶信息。確認刪除 If MsgBox(是否刪除當前行 ?, vbYesNo, 確認 ) = vbYes Then (TmpId) MsgBox 刪除成功 Refresh_Clt 超市管理系統(tǒng) 的設計和實現 26 If p 1 0 Then p 1 End If End If End Sub 用戶管理模塊設計 根據用戶類型的不同，用戶管理模塊的功能也不相同。判斷入庫單中是否包含此客戶的信息 If (TmpId) = True Then MsgBox 客戶出現在入庫單中，不能刪除 Exit Sub End If 39。記錄當前的位置 p = 39。刷新數據源，把新的內容反映到界面上 End Sub b) Cmb_Del_Click 過程 Private Sub Cmd_Del_Click() Dim TmpId As Long 39。 a) Refresh_Clt 過程 Refresh_Clt（）過程的功能是為 Adodc 1 控件設置數據源，從而決定在 DateGrid1控件中顯示的數據內容，代碼如下： Private Sub Refresh_Clt() 39。當Modify=True 時，表示修改已有的數據；當 Modify=False 時，表示插入新的數據；變量OriId 表示當前編輯的供應商編號；變量 OriName 表示當前編輯的供應商名稱。 圖 45 窗體 FrmCltEdit 的界面 下面分析窗體 FrmCltEdit 中的公共變量： 窗體 FrmCltEdit 中有 3 個公共變量。 1） 設計客戶信息編輯窗體 編輯供應商信息的窗體可以用來添加和修改供應商信息。登錄過程 需完成以下任務： 1. 根據用戶名和密碼判斷是否可以進入系統(tǒng)； 2. 根據用戶類型決定用戶擁有的權限。當用戶單擊 mn_exit 按鈕時，將執(zhí)行 mn_exit_Click()過程，退出系統(tǒng)。 系統(tǒng) 主界面設計 1. 按表 417 設計主窗體的屬性： 表 417 主窗體屬性表 窗體屬性 設置值 具體說明 名稱 FrmMain 設置窗體名稱 BroderStyle 1 Fixed Single 設置窗體的邊框屬性 Caption 超市管理系統(tǒng) 窗體的標題條文本 MaxButton False 取消最大化按鈕 MinButton True 激活最小化按鈕 Pictrue Image\ 設置窗體背景 StartUpPosition 2 屏幕中心 設置窗體彈出時，位置在屏幕中心。斷開與數據庫的連接 DB_Disconnect End Function 3. 創(chuàng)建數據源 為了能夠在程序中訪問到數據庫 Supermarket，需要在 ODBC 中創(chuàng)建一個名為Supermarket 的數據源。執(zhí)行 SQL 語句 OdbcExt (SqlStmt) 39。 _ + Trim(TmpUser) + 39。連接數據庫 DB_Connect 39。參數 TmpUser 表示要修改的用戶名。 In_DB 判斷指定的用戶名是否已經在數據庫中。 GetInfo 讀取指定的用戶記錄。 Insert 插入新的入庫記錄 8. User 類（如表 416 所示） 表 416 User 類的成員函數 函數名 具體說明 Init 初始化成員變量 Delete 刪除指定用戶記錄。參數 TmpCltId 表示指定的供應商編號 HavePro 判斷指定的商品數據是否出現在入庫記錄中。 UpdateDiff 修改指定的商品庫存數量，把當前的商品數量增加 ProNum， ProNum 可以為負。 Update 修改指定的商品庫 存記錄。 Insert 插入新的商品庫存記錄 LoadPro 將指定的商品信息讀取到數組 Arr_StoreProNum()中。參數 TmpProId 表示指定的商品編號 In_DB 判斷指定的商品庫存信息是否已經在數據庫中。參數 TmpProId 表示商品編號。參數 TmpId 表示要讀取的商品庫 存編號。參數 TmpProId 表示指定的商品編號， TmpProPrice 表示商品的價格。 6. stock 類（如表 414 所示） 表 414 stock 類的成員函數 函數名 具體說明 Init 初始化成員變量 DeleteZero 刪除數量為 0的商品庫存記錄。將得到的新編號作為函數的返回值 GetNewId = i End Function 此函數的功能是生成新的銷售編號，在 Insert()過程中將調用此函數。如果編號是不連續(xù)的，則用新編號來填充 GetNewId = i Rc = SQLFreeStmt(Hstmt, SQL_DROP) DB_Disconnect Exit Function End If Loop Rc =