【正文】 stremployee, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 用戶。 amp。 其實現代碼如下： Private Sub Command1_Click() If = Then 超市管理信息系統設計與實現 36 MsgBox 請?zhí)顚懹脩裘?, vbOKOnly + vbInformation, 注意 Exit Sub . . . . . . End If If Then MsgBox 兩次輸入的密碼不同，請重新輸入！ , vbOKOnly + vbInformation, = = Exit Sub End If stremployee = select * from employee where 員工姓名 =39。此窗體實現的功能是顯而易見的，方便了用戶的操作，增加了系統使用的安全性。 strempl, n, adOpenKeyset, adLockOptimistic If = True Then MsgBox 該用戶編號不存在，請重新輸入！ , vbOKOnly + vbInformation, Exit Sub Else 超市管理信息系統設計與實現 35 系統管理單元設計 1．更換用戶功能 在一個超市可能會存在員工交接班的現象，為了方便用戶交接班的操作順利進行，在系統管理模塊中做了一個更換用戶子菜單，該子菜單便順利的實現了此功能，而且它也方便了管理員的登陸管理。 amp。 strempl, n, adOpenKeyset, adLockOptimistic If = True Then (員工編號 ) = . . . . . . (員工地址 ) = Else MsgBox 該 用 戶 編 號 已 存 在 , 請 重 新 輸 入 !, vbOKOnly + 超市管理信息系統設計與實現 34 vbInformation, 注意 Exit Sub End If MsgBox 添加用戶成功 !, vbOKOnly + vbInformation, 刪除按鈕的實現代碼如下： Private Sub Command7_Click() If = Then MsgBox 請輸入要刪除的用戶編號！ , vbOKOnly + vbInformation, Exit Sub End If If = 0001 Then MsgBox 不能刪除管理員帳戶 , vbOKOnly + vbInformation, 注意 = Exit Sub End If If MsgBox(真的要刪除該用戶？ , vbYesNo + vbQuestion, ) = vbNo Then Exit Sub End If strempl = select * from employee where 員工編號 =39。 amp。 添加按鈕的實現代碼如下： strempl = select * from employee where 員工編號 =39。 End strgoods, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 庫存商品中不存在此種商品！ , vbOKOnly + vbInformation, = = Exit Sub Else = strgoods 3． 管理員工表 超市管理信息系統設計與實現 33 圖 本窗體的制作目的在于方便對管理員用戶的管理， 本節(jié)前面曾經提過系統初始化的功能，但其初始化并不能對員工表進行操作，當管理員登陸本系統時，可以訪問此窗體，對用戶表進行維護。 amp。and 生產廠商 =39。 amp。 End If If And Then strgoods = select * from goods where 商品名稱 =39。 amp。 End If If And = Then 超市管理信息系統設計與實現 32 strgoods = select * from goods where 商品名稱 =39。 amp。定義連接庫存表條件時的 SQL 條件句 If = And Then strgoods = select * from goods where 生產廠商 =39。然后讓現存商品表顯示出來。具體操作為：為查詢現存商品表設立了一個簡單的查詢條件，一個是直接顯示現存的全部商品表，一個是按條件對現存商品進行查詢，用戶可以根據自己需要按商品名稱或生產廠商分別進行查找。 intd amp。 intm amp。 inty amp。 intd amp。 intm amp。 inty amp。本窗體的主要設計在于其四個命令按紐在進貨表為空時不可用。 intd amp。 intm amp。 inty amp。 intd amp。 intm amp。 inty amp。其中兩個 Adodc 的數據源連接都是采用的相對路徑與 sell 表連接的，兩個 Adodc 連接的 SQL 語句分別如下： select * from sell select 生產廠商 ,sum(總金額 ) as 各廠商銷貨總金額 from sell group by 生產廠商。由于它們的界面非常相似，本程序中使用一個 SSTab 控件以選項卡形式在一個窗體中實現 4 個子菜單。 intd amp。 intm amp。 inty amp。 intd amp。 intm amp。 inty amp。其中兩個 Adodc 的數據源連接都是才用的相對路徑與sellsystem 的 buy 表連接的，兩個 Adodc 連接的 SQL 語句分別如下： select * from buy select 生產廠商 ,sum(總金額 ) as 各廠商進貨總金額 from buy group by 生產廠商。將其選項卡的數目定為 4 個，標題分別為：今日進貨、本月進貨、本季度進貨、本年度進貨。為項目添加了必要的控件之后，開始進行界面設計。由于他們的界面非常相似，本程序中使用了一個 SSTab 控件以選項卡的形式在一個窗體中實現以上 4 個子菜單。 打開庫存表 (商品編號 ) = . . . . . . (銷貨價 ) = Val() MsgBox 退貨成功 , vbOKOnly + vbExclamation, 39。 39。 amp。退貨成功后，該退貨信息先添加到退貨表，然后將其退貨數量從相應的 sell 表中減掉，并添加到 goods 表中。其具體實現過程是：先在窗體集中定義 三個記錄集： rs_sell， rs_goods， rs_retreat 用來控制三個數據表： sell 表、goods 和 retreat 表。 str_goods, n, adOpenStatic, adLockOptimistic numgoods = (數量 ) (數量 ) = numgoods Val() MsgBox 銷售成功！ , vbOKOnly + vbExclamation, 注意 End Sub 3．退貨窗體 圖 超市管理信息系統設計與實現 25 本窗體的功能是實現商品退貨功能，當人為判斷某商品可以退貨時即可將該商品退貨。 amp。 str_goods, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 對不起，此商品型號已無貨！請選擇其他型！ , vbOKOnly + vbInformation, 注意 Exit Sub 超市管理信息系統設計與實現 24 End If If = Then MsgBox 請?zhí)顚戜N貨數量！ , vbOKOnly + vbInformation, 注意 Exit Sub End If = Val() * Val() str_goods = select * from goods where 商品編號 =39。 amp。 銷售按鈕代碼實現如下： str_goods = select * from goods where 商品編號 =39。而銷售日期和業(yè)務員編號已經是程序默認給出的系統時間和登陸員工的編號 。 具體實現過程為：先在窗體集中定義兩個記錄集：rs_sell， rs_goods，用來控制兩個數據表： sell 表和 goods 表。 sql, n, adOpenStatic, adLockOptimistic If = True Then str_goods = select * from goods str_goods, n, adOpenStatic, adLockOptimistic (商品編號 ) = . . . . . . (銷貨價 ) = Val() MsgBox 商品入庫成功 , vbOKOnly + vbExclamation, Else numgoods = (數量 ) (數量 ) = Val() + numgoods MsgBox 商品入庫成功 , vbOKOnly + vbExclamation, End If 2．銷貨登記窗體 超市管理信息系統設計與實現 23 圖 本窗體主要功能是對商品進行銷售，首先對員工輸入的銷貨信息進行完整條件的判斷，條件符合后進行銷售。 amp。 str_buy, n, adOpenStatic, adLockOptimistic If = True Then (進貨編號 ) = . . . . . . (總金額 ) = Val() MsgBox 此進貨編號已存在，請重添！ , vbOKOnly + vbInformation, 注意 sql = select * from goods where 商品編號 = 39。 amp。 添加商品 與廠商 的實現代碼如下 ： str_buy = select * from buy where 進貨編號 =39。如果是新的進貨商，可以將它的信息添加到進貨商表。為方便用戶操作，程序特在商品編號的文本框： text2 的 Change 事件中做了一個判斷，即如果該商品編號存在的話直接顯示該商品的其他屬性。在添加到 goods 表時，程序會先判斷該商品編號是否已經存在，如果存在則直超市管理信息系統設計與實現 22 接將該添加信息的數量加到 goods 表中相應的記錄上。在用戶點擊添加商品中的添加入庫操作之前，程序先會檢查是否有用戶是否有個別屬性為空，并做出提示。如果是新的進貨廠商，可以在此入庫登記。如果是普通用戶登陸，則直接超市管理信息系統設計與實現 21 進入主窗體，其授予的權限只有交易管理和系統管理，也就是說員工只能負責對商品進行入庫登記、銷貨登記和退貨登記，另外在一個員工對本系統使用的整個期間內，進貨登記、銷貨登記和退貨登記三個窗體中的顯示的業(yè)務員編號都由系統自動給出的該員工的員工編號。其權限為：銷貨統計、進貨統計、查看數據表和系統管理。 stremployee, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 用戶名或密碼錯誤，請從新輸入！ ,