【導(dǎo)讀】庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。理，包括進貨管理，銷售管理，庫存管理和員工管理四個方面。對各類信息的瀏覽、查詢、添加、刪除、修改等功能。存查詢和進貨管理三者之間的聯(lián)系，每一個表的修改都將聯(lián)動的影響其它的表，當完成銷售或進貨操作時系統(tǒng)會自動地完成相對應(yīng)信息的修改。來設(shè)計數(shù)據(jù)庫，它有著最為靈活的數(shù)據(jù)庫結(jié)構(gòu)，對數(shù)據(jù)庫應(yīng)用有著良好的支持。論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的過程。地說明了系統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(shù)和解決方案。

　　

【正文】 _goods, n, adOpenStatic, adLockOptimistic 39。 打開庫存表 (商品編號 ) = . . . . . . (銷貨價 ) = Val() MsgBox 退貨成功 , vbOKOnly + vbExclamation, 39。 關(guān)閉庫存表 Else numgoods = (數(shù)量 ) (數(shù)量 ) = Val() + numgoods MsgBox 退貨成功 , vbOKOnly + vbExclamation, End If 進貨、銷貨統(tǒng)計管理單元設(shè)計 1．進貨統(tǒng)計菜單 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 26 圖 進貨統(tǒng)計菜單下有 4 個子菜單，分別是今日進貨統(tǒng)計、本月進貨統(tǒng)計、本季度進貨統(tǒng)計、今年進貨統(tǒng)計。由于他們的界面非常相似，本程序中使用了一個 SSTab 控件以選項卡的形式在一個窗體中實現(xiàn)以上 4 個子菜單。這樣做使窗體顯得更加美觀。為項目添加了必要的控件之后，開始進行界面設(shè)計。先在窗體上添加一個 SSTab 控件，單擊鼠標右鍵在快捷菜單中選擇 ” 屬性 ” 命令。將其選項卡的數(shù)目定為 4 個，標題分別為：今日進貨、本月進貨、本季度進貨、本年度進貨。由于每個選項卡的界面都一樣，現(xiàn)以 ” 今日進貨 ” 選項卡為例，加入兩個 datagrid 控件，兩個 Adodc 控件，一個 Label 控件，一個 textbox 控件和 8個 mand 控件。其中兩個 Adodc 的數(shù)據(jù)源連接都是才用的相對路徑與sellsystem 的 buy 表連接的，兩個 Adodc 連接的 SQL 語句分別如下： select * from buy select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進貨總金額 from buy group by 生產(chǎn)廠商。 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 27 其日進貨實現(xiàn)代碼如下： strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進貨總金額 from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 and 進貨日 = amp。 intd amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 進貨總金額 from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 and 進貨日 = amp。 intd amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進貨總金額 ) 2．銷貨統(tǒng)計菜單超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 28 圖 菜單 銷售統(tǒng)計菜單下有 4個子菜單，分別是今日銷貨、本月銷貨、本季度銷貨、今年銷貨。由于它們的界面非常相似，本程序中使用一個 SSTab 控件以選項卡形式在一個窗體中實現(xiàn) 4 個子菜單。其界面設(shè)計和窗體說明與進貨統(tǒng)計大同小異，也一樣一個選項卡為例進行說明，現(xiàn)以 ” 今日銷貨 ” 為例：加入兩個datagrid 控件，兩個 Adodc 控件，一個 Label 控件，一個 textbox 控件和 8個mand 控件。其中兩個 Adodc 的數(shù)據(jù)源連接都是采用的相對路徑與 sell 表連接的，兩個 Adodc 連接的 SQL 語句分別如下： select * from sell select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商銷貨總金額 from sell group by 生產(chǎn)廠商。 其日銷售代碼實現(xiàn)如下： strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商銷售總金額 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 29 from sell where 銷售年 = amp。 inty amp。 and 銷售月 = amp。 intm amp。 and 銷售日= amp。 intd amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 銷售總金額 from sell where 銷售年 = amp。 inty amp。 and 銷售月 = amp。 intm amp。 and 銷售日 = amp。 intd amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額 ) End Sub 查看數(shù)據(jù)表單元設(shè)計 1．查看進貨表 圖 其界面的設(shè)計比較簡單，只是一個 datagrid 控件，一個 Adodc 控件（已隱藏）和四個 Command 控件。本窗體的主要設(shè)計在于其四個命令按紐在進貨表為空時不可用。 其實現(xiàn)代碼如下： 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 30 strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進貨總金額 from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 and 進貨日= amp。 intd amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 進貨總金額 from buy where 進貨年 = amp。 inty amp。 and 進貨月 = amp。 intm amp。 and 進貨日 = amp。 intd amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進貨總金額 ) 2．商品倉庫存表 用戶可以根據(jù)自己需要按商品名稱或生產(chǎn)廠商分別進行查找，也可以 點擊顯示全部現(xiàn)存商品可以看到如下界面： 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 31 圖 本窗體的主要設(shè)計目的是設(shè)置一個查詢商品庫存表的條件 。具體操作為：為查詢現(xiàn)存商品表設(shè)立了一個簡單的查詢條件，一個是直接顯示現(xiàn)存的全部商品表，一個是按條件對現(xiàn)存商品進行查詢，用戶可以根據(jù)自己需要按商品名稱或生產(chǎn)廠商分別進行查找。該窗體的實現(xiàn)是要在窗體集的變量中設(shè)置一個記錄集 rs_goods，用來控制 goods 表，然后將記錄集在打開窗體時的 select 語句設(shè)為與本窗體的 text1 和 text2 有關(guān)的 SQL 語句。然后讓現(xiàn)存商品表顯示出來。 其實現(xiàn)代碼如下： If = And = Then MsgBox 請輸入查詢條件！ , vbOKOnly + vbInformation, Exit Sub End If 39。定義連接庫存表條件時的 SQL 條件句 If = And Then strgoods = select * from goods where 生產(chǎn)廠商 =39。 amp。 amp。 39。 End If If And = Then 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 32 strgoods = select * from goods where 商品名稱 =39。 amp。 amp。 39。 End If If And Then strgoods = select * from goods where 商品名稱 =39。 amp。 amp。 39。and 生產(chǎn)廠商 =39。 amp。 amp。 39。 End strgoods, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 庫存商品中不存在此種商品！ , vbOKOnly + vbInformation, = = Exit Sub Else = strgoods 3． 管理員工表 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 33 圖 本窗體的制作目的在于方便對管理員用戶的管理， 本節(jié)前面曾經(jīng)提過系統(tǒng)初始化的功能，但其初始化并不能對員工表進行操作，當管理員登陸本系統(tǒng)時，可以訪問此窗體，對用戶表進行維護。但不能對管理員進行刪除操作，此操作已被本人屏蔽。 添加按鈕的實現(xiàn)代碼如下： strempl = select * from employee where 員工編號 =39。 amp。 amp。 39。 strempl, n, adOpenKeyset, adLockOptimistic If = True Then (員工編號 ) = . . . . . . (員工地址 ) = Else MsgBox 該 用 戶 編 號 已 存 在 , 請 重 新 輸 入 !, vbOKOnly + 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 34 vbInformation, 注意 Exit Sub End If MsgBox 添加用戶成功 !, vbOKOnly + vbInformation, 刪除按鈕的實現(xiàn)代碼如下： 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。 amp。 39。 strempl, n, adOpenKeyset, adLockOptimistic If = True Then MsgBox 該用戶編號不存在，請重新輸入！ , vbOKOnly + vbInformation, Exit Sub Else 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 35 系統(tǒng)管理單元設(shè)計 1．更換用戶功能 在一個超市可能會存在員工交接班的現(xiàn)象，為了方便用戶交接班的操作順利進行，在系統(tǒng)管理模塊中做了一個更換用戶子菜單，該子菜單便順利的實現(xiàn)了此功能，而且它也方便了管理員的登陸管理。 2．修改密碼 圖 為了方便用戶使用，在本模塊中還設(shè)置了一個修改密碼窗體，該窗體主要包括一個用戶名輸入、一個原密碼輸入和兩個新密碼輸入。此窗體實現(xiàn)的功能是顯而易見的，方便了用戶的操作，增加了系統(tǒng)使用的安全性。具體做法是：先要求用戶將四個必填項填寫完整，然后對兩個新密碼 進行相同判斷，如果相同，則將記錄集 rs_employee 打開，對用戶名和原密碼進行核對，如果相同，就將老密碼替換為新密碼。 其實現(xiàn)代碼如下： Private Sub Command1_Click() If = Then 超市管理信息系統(tǒng)設(shè)計與實現(xiàn) 36 MsgBox 請?zhí)顚懹脩裘?, vbOKOnly + vbInformation, 注意 Exit Sub . . . . . . End If If Then MsgBox 兩次輸入的密碼不同，請重新輸入！ , vbOKOnly + vbInformation, = = Exit Sub End If stremployee = select * from employee where 員工姓名 =39。 amp。 amp。 39。 stremployee, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 用戶