【導(dǎo)讀】隨著人們的生活水平和消費(fèi)水平的提高,超市已成為我們生活中不可缺少的一部分。著經(jīng)濟(jì)文化水平的顯著提高，人們對(duì)生活質(zhì)量及工作環(huán)境的要求也越來(lái)越高。基礎(chǔ)的信息系統(tǒng)正處于蓬勃發(fā)展的時(shí)期。將計(jì)算機(jī)這一信息處理利器應(yīng)用于超市的日常管。市的管理問(wèn)題也就提上了日程。優(yōu)化超市的日常管理也就成為了一個(gè)大眾化的課題。也會(huì)為企業(yè)的飛速發(fā)展提供無(wú)限潛力?，F(xiàn)代化的重要標(biāo)志，它給企業(yè)管理來(lái)了明顯的經(jīng)濟(jì)效益和社會(huì)效益。高了超市工作人員的工作效率，大大減少了以往入出存流程繁瑣，雜亂，周期長(zhǎng)的弊端[2]。約不少管理開(kāi)支，增加企業(yè)收入。超市的管理的操作自動(dòng)化和信息的電子化，全面提高。信息化則是其中極其重要的部分。為了加快超市管理自

　　

【正文】 If = True Then MsgBox 請(qǐng)選擇記錄 Exit Sub End If 39。記錄當(dāng)前的位置 p = 39。讀取當(dāng)前記錄的客戶單位信息 TmpId = (0) 39。判斷入庫(kù)單中是否包含此客戶的信息 If (TmpId) = True Then MsgBox 客戶出現(xiàn)在入庫(kù)單中，不能刪除 Exit Sub End If 39。判斷庫(kù)存產(chǎn)品信息中是否包含此客戶的信息 If (TmpId) = True Then MsgBox 客戶出現(xiàn)在庫(kù)存產(chǎn)品信息中，不能刪除 Exit Sub End If 39。確認(rèn)刪除 If MsgBox(是否刪除當(dāng)前行 ?, vbYesNo, 確認(rèn) ) = vbYes Then (TmpId) MsgBox 刪除成功 Refresh_Clt 超市管理系統(tǒng) 的設(shè)計(jì)和實(shí)現(xiàn) 26 If p 1 0 Then p 1 End If End If End Sub 用戶管理模塊設(shè)計(jì) 根據(jù)用戶類型的不同，用戶管理模塊的功能也不相同?？梢园韵虑樾危? 1. Admin 用戶可以創(chuàng)建普通用戶，對(duì)普通用戶的用戶名和密碼進(jìn)行修改，刪除普通用戶； 2. Admin 用戶也可以修改自身的密碼； 3. 普通用戶只能修改自身的用戶名和密碼。 1） 設(shè)計(jì)編輯用戶信息的窗體 編輯用戶信息的窗體可以用來(lái)添加和修改用戶信息。創(chuàng)建一個(gè)名為 FrmUserEdit的窗體，設(shè)置好屬性后，得到如圖 48 所示的布局。 圖 48 編輯用戶信息窗體 當(dāng)用戶單擊“確定”按鈕時(shí)，將觸發(fā) Cmd_OK_Click 事件，對(duì)應(yīng)代碼如下： Private Sub Cmd_OK_Click() If Trim(txtUserName) = Then MsgBox 請(qǐng)輸入用戶名 Exit Sub End If If Len(txtPass) 6 Then MsgBox 密碼長(zhǎng)度不能小于 6 = 0 = Len(txtPass2) Exit Sub End If 超市管理系統(tǒng) 的設(shè)計(jì)和實(shí)現(xiàn) 27 If txtPass txtPass2 Then MsgBox 密碼和確認(rèn)密碼不相同，請(qǐng)重新確認(rèn) = 0 = Len(txtPass2) Exit Sub End If If txtEname = Then MsgBox 請(qǐng)輸入員工姓名 Exit Sub End If With Myuser If Modify = False Or OriUser Trim(txtUserName) Then If .In_DB(MakeStr(txtUserName)) = True Then MsgBox 用戶名已經(jīng)存在，請(qǐng)重新輸入 = 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。如果修改自身用戶名，則更新 CurUser 對(duì)象 If OriUser = And Trim(txtUserName) OriUser Then = Trim(txtUserName) () End If End If End With Unload Me End Sub 程序?qū)⑴袛嘤脩裘欠翊嬖?、密碼和確認(rèn)密碼是否相同、以及密碼長(zhǎng)度是否大于等于 6等。如果輸入的數(shù)據(jù)完全滿足條件，則保存到數(shù)據(jù)庫(kù)中。如果改變了當(dāng)前用戶名，則必須更新 CurUser 對(duì)象。 超市管理系統(tǒng) 的設(shè)計(jì)和實(shí)現(xiàn) 28 2） 設(shè)計(jì)用戶管理窗體 創(chuàng)建名為 FrmUserMan 的新窗體，設(shè)置各屬性后，得到如圖 49 的布局。只有當(dāng) 用戶是Admin 時(shí)，才打開(kāi)這個(gè)窗體。 圖 49 用戶管理系統(tǒng)窗體 當(dāng)用戶為 Admin 時(shí)為系統(tǒng)操作員，其他用戶都為普通用戶。如圖 410 所示： 圖 410 系統(tǒng)管理員用戶管理窗體 窗體 FrmUserMan 中的幾段代碼： a) DateList1_Click()函數(shù) 當(dāng)用戶單擊用戶名列時(shí)，觸發(fā) DateList1_Click 事件，代碼如下： Private Sub DataList1_Click() If = Then Exit Sub End If 39。讀取用戶數(shù)據(jù) () lblUserName = lblEmpName = If Format(, ) = admin Then 超市管理系統(tǒng) 的設(shè)計(jì)和實(shí)現(xiàn) 29 lblUserType = 系統(tǒng)管理員 Else lblUserType = 普通用戶 End If End Sub 程序?qū)?dāng)前選擇用戶的信息讀取到 MyUser 對(duì)象中。 b) Cmd_Del_Click 過(guò)程 Private Sub Cmd_Del_Click() If = Then MsgBox 請(qǐng)選擇要?jiǎng)h除的用戶 Exit Sub End If If = Admin Then MsgBox 此用戶不能刪除 Exit Sub End If 39。確認(rèn)刪除 If MsgBox(是否刪除當(dāng)前用戶 , vbYesNo, 請(qǐng)確認(rèn) ) = vbYes Then () DataList1_Click MsgBox 成功刪除 End If End Sub 另外還需要在主界面中添加以下代碼，當(dāng)用戶單擊“用戶管理”時(shí)，系統(tǒng)會(huì)根據(jù)不同的用戶決定打開(kāi)“用戶管理”窗口，還是打開(kāi)“用戶編輯”窗口。 Private Sub mn_user_Click() 39。如果當(dāng)前用戶為 Admin，則打開(kāi)用戶管理窗體 If Format(, ) = admin Then 1 Else 39。如果當(dāng)前用戶是普通用戶，則打開(kāi)用戶編輯窗體，編輯自己的用戶信息 With FrmUserEdit .OriUser = .txtUserName = .txtPass = .txtPass2 = .Modify = True .Show 1 End With End If End Sub 超市管理系統(tǒng) 的設(shè)計(jì)和實(shí)現(xiàn) 30 商品管理模塊設(shè)計(jì) 商品管理模塊可以實(shí)現(xiàn)以下功能： 1. 商品類目的添加、修改和刪除； 2. 商品信息的添加、修改和刪除。 1） 設(shè)計(jì)商品類目管理模塊 （ 1） 編輯商品的類目信息的窗體可以用來(lái)添加和修改商品類目信息。創(chuàng)建一個(gè)名為FrmProTypeEdit 的新窗體，設(shè)置屬性后得到編輯商品類目的窗體，如圖 411 所示： 圖 411 商品類目管理窗體 （ 2） 創(chuàng)建名為 FrmProTypeMan 的新窗體，設(shè)置屬性后得商品類目管理的 窗體，如圖412 所示： 圖 412 商品類目管理窗體 下面分析窗體 FrmProTypeMan 中的幾個(gè)過(guò)程代碼。 Load_Type1 過(guò)程 Load_Type1（）過(guò)程的功能是把所有一級(jí)類目的名稱讀取并顯示在左側(cè)的列表框中，其代碼如下： Private Sub Load_Type1() 超市管理系統(tǒng) 的設(shè)計(jì)和實(shí)現(xiàn) 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） 設(shè)計(jì)商品信息管理模塊 編輯商品管理信息的窗體可以用來(lái)添加和修改商品信息。 （ 1） 創(chuàng)建 FrmProEdit 窗體，設(shè)置屬性，得到如圖 413 所示的窗體。 圖 413 編輯商品信息窗體 窗體 FrmProEdit 的代碼參照 理解。 （ 2） 創(chuàng)建 FrmProMan 窗體，設(shè)置屬性，得到如圖 414 所示的窗體。 在此窗 體中，根據(jù)用戶選擇的商品類目顯示商品的基本信息。當(dāng)用戶選擇某一類商品時(shí)，則在顯示欄就顯示所選商品的基本信息，如商品一級(jí)類目選擇電器，二級(jí)類目選擇電視機(jī)，則顯示所有電視機(jī)的基本信息；當(dāng)用戶選擇全部時(shí)，顯示欄顯示所有商品的基本信息。 超市管理系統(tǒng) 的設(shè)計(jì)和實(shí)現(xiàn) 32 圖 414 商品基本信息管理窗體 銷售操作管理模塊 1. 設(shè)計(jì)入庫(kù)操作管理模塊 創(chuàng)建新窗體 FrmStoreinEdit，設(shè)置屬性，得到如圖 415 所示窗體： 圖 415 編輯入庫(kù)清單窗體 超市管理系統(tǒng) 的設(shè)計(jì)和實(shí)現(xiàn) 33 分析窗體 FrmStoreinEdit 中的公共變量： 1. 變量 OriId 表示當(dāng)前編輯的入庫(kù)信息編號(hào)； 2. 變量 OriClt 表示當(dāng)前編輯的供應(yīng)商名稱； 3. 變量 OriType1 和 OriType2 分別表示當(dāng)前編輯的商品類型； 4. 變量 OriPro 表示當(dāng)前編輯的商品名稱； 創(chuàng)建新窗體 FrmStoreinMan，設(shè)置屬性，得到如圖 416 所示窗體： 在此窗體中，可以根據(jù)用戶的需要，選擇日期，在顯示欄中則顯示所對(duì)應(yīng)的當(dāng)天的所有入庫(kù)信息。 圖 416 入庫(kù)管理窗體 2. 設(shè)計(jì)銷售操作管理模塊 創(chuàng)建新窗體 FrmSaleEdit，設(shè)置屬性，得到如圖 41