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

　　

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