【正文】 , adOpenStatic, adLockOptimistic If = True Then MsgBox 對(duì)不起，此商品型號(hào)已無(wú)貨！請(qǐng)選擇其他型！ , vbOKOnly + vbInformation, 注意 Exit Sub 20 End If If = Then MsgBox 請(qǐng)?zhí)顚?xiě)銷(xiāo)貨數(shù)量！ , vbOKOnly + vbInformation, 注意 Exit Sub End If = Val() * Val() str_goods = select * from goods where 商品編號(hào) =39。 amp。 str_goods, n, adOpenStatic, adLockOptimistic numgoods = (數(shù)量 ) (數(shù)量 ) = numgoods Val() MsgBox 銷(xiāo)售成功！ , vbOKOnly + vbExclamation, 注意 End Sub 3．退貨窗體 圖 21 本窗體的功能是實(shí)現(xiàn)商品退貨功能，當(dāng)人為判斷某商品可以退貨時(shí)即可將該商品退貨。其具體實(shí)現(xiàn)過(guò)程是：先在窗體集中定義三個(gè)記錄集： rs_sell， rs_goods， rs_retreat 用來(lái)控制三個(gè)數(shù)據(jù)表： sell 表、goods 和 retreat 表。退貨成功后，該退貨信息先添加到退貨表，然后將其退貨數(shù)量從相應(yīng)的 sell 表中減掉，并添加到 goods 表中。 amp。 39。 打開(kāi)庫(kù)存表 (商品編號(hào) ) = . . . . . . (銷(xiāo)貨價(jià) ) = Val() MsgBox 退貨成功 , vbOKOnly + vbExclamation, 39。由于他們的界面非常相似，本程序中使用 了一個(gè) SSTab 控件以選項(xiàng)卡的形式在一個(gè)窗體中實(shí)現(xiàn)以上 4 個(gè)子菜單。為項(xiàng)目添加了必要的控件之后，開(kāi)始進(jìn)行界面設(shè)計(jì)。將其選項(xiàng)卡的數(shù)目定為 4 個(gè)，標(biāo)題分別為：今日進(jìn)貨、本月進(jìn)貨、本季度進(jìn)貨、本年度進(jìn)貨。其中兩個(gè) Adodc 的數(shù)據(jù)源連接都是才用的相 對(duì)路徑與sellsystem 的 buy 表連接的，兩個(gè) Adodc 連接的 SQL 語(yǔ)句分別如下： select * from buy select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進(jìn)貨總金額 from buy group by 生產(chǎn)廠商。 inty amp。 intm amp。 intd amp。 inty amp。 intm amp。 intd amp。由于它們的界面非常相似，本程序中使用一個(gè) SSTab 控件以選項(xiàng) 卡形式在一個(gè)窗體中實(shí)現(xiàn) 4 個(gè)子菜單。其中兩個(gè) Adodc 的數(shù)據(jù)源連接都是采用的相對(duì)路徑與 sell 表連接的，兩個(gè) Adodc 連接的 SQL 語(yǔ)句分別如下： select * from sell select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商銷(xiāo)貨總金額 from sell group by 生產(chǎn)廠商。 inty amp。 intm amp。 intd amp。 inty amp。 intm amp。 intd amp。本窗體的主要設(shè)計(jì)在于其四個(gè)命令按紐在進(jìn)貨表為空時(shí)不可用。 inty amp。 intm amp。 intd amp。 inty amp。 intm amp。 intd amp。具體操作為：為查詢(xún)現(xiàn)存商品表設(shè)立了一個(gè)簡(jiǎn)單的查詢(xún)條件，一個(gè)是直接顯示現(xiàn)存的全部商品表，一個(gè)是按條件對(duì)現(xiàn)存商品進(jìn)行查詢(xún)，用戶(hù)可以根據(jù)自己需要按商品名稱(chēng)或生產(chǎn)廠商分別進(jìn)行查找。然后讓現(xiàn)存商品表顯示出 來(lái)。定義連接庫(kù)存表?xiàng)l件時(shí)的 SQL條件句 If = And Then strgoods = select * from goods where 生產(chǎn)廠商 =39。 amp。 End If If And = Then 28 strgoods = select * from goods where 商品名稱(chēng) =39。 amp。 End If If And Then strgoods = select * from goods where 商品名稱(chēng) =39。 amp。and 生產(chǎn) 廠商 =39。 amp。 End strgoods, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 庫(kù)存商品中不存在此種商品！ , vbOKOnly + vbInformation, = = Exit Sub Else = strgoods 3． 管理員工表 29 圖 本窗體的制作目的在于方便對(duì)管理員用戶(hù)的管理， 本節(jié)前面曾經(jīng)提過(guò)系統(tǒng)初始化的功能，但其初始化并不能對(duì)員工表進(jìn)行操作，當(dāng)管理員登陸本系統(tǒng)時(shí)，可以 訪問(wèn)此窗體，對(duì)用戶(hù)表進(jìn)行維護(hù)。 添加按鈕的實(shí)現(xiàn)代碼如下： strempl = select * from employee where 員工編號(hào) =39。 amp。 strempl, n, adOpenKeyset, adLockOptimistic If = True Then (員工編號(hào) ) = . . . . . . (員工地址 ) = Else MsgBox 該 用 戶(hù) 編 號(hào) 已 存 在 , 請(qǐng) 重 新 輸 入 !, vbOKOnly + 30 vbInformation, 注意 Exit Sub End If MsgBox 添加用戶(hù)成功 !, vbOKOnly + vbInformation, 刪除按鈕的實(shí)現(xiàn)代碼如下： Private Sub Command7_Click() If = Then MsgBox 請(qǐng)輸入要?jiǎng)h除的用戶(hù)編號(hào)！ , vbOKOnly + vbInformation, Exit Sub End If If = 0001 Then MsgBox 不能刪除管理員帳戶(hù) , vbOKOnly + vbInformation, 注意 = Exit Sub End If If MsgBox(真的要?jiǎng)h除該用戶(hù)？ , vbYesNo + vbQuestion, ) = vbNo Then Exit Sub End If strempl = select * from employee where 員工編號(hào) =39。 amp。 strempl, n, adOpenKeyset, adLockOptimistic If = True Then MsgBox 該用戶(hù)編號(hào)不存在，請(qǐng)重新輸入！ , vbOKOnly + vbInformation, Exit Sub Else 31 系統(tǒng)管理單元設(shè)計(jì) 1．更換用戶(hù)功能 在一個(gè)超市可能會(huì)存在員工交接班的現(xiàn)象，為了方便用戶(hù)交接班的操作順利進(jìn)行，在系統(tǒng)管理模塊中做了一 個(gè)更換用戶(hù)子菜單，該子菜單便順利的實(shí)現(xiàn)了此功能，而且它也方便了管理員的登陸管理。此窗體實(shí)現(xiàn)的功能是顯而易見(jiàn)的，方便了用戶(hù)的操作，增加了系統(tǒng)使用的安全性。 其實(shí)現(xiàn)代碼如下： Private Sub Command1_Click() If = Then 32 MsgBox 請(qǐng)?zhí)顚?xiě)用戶(hù)名！ , vbOKOnly + vbInformation, 注意 Exit Sub . . . . . . End If If Then MsgBox 兩次輸入的密碼不同，請(qǐng)重新輸入！ , vbOKOnly + vbInformation, = = Exit Sub End If stremployee = select * from employee where 員工姓名 =39。 amp。 stremployee, n, adOpenStatic, adLockOptimistic If = True Then MsgBox 用戶(hù)名或原密碼有錯(cuò)誤！ , vbOKOnly + vbExclamation, = = Else (員工密碼 ) = MsgBox 修改密碼成功！ , vbOKOnly + vbInformation, Unload Me 本節(jié)總結(jié)：對(duì)于本超市管理信息系統(tǒng)功能的實(shí)現(xiàn)，重點(diǎn)和難點(diǎn)有以下幾處： 33 交易管理模塊：在本模塊中，對(duì)于商品的進(jìn)貨、銷(xiāo)貨和退貨操作時(shí)，都要注意其操作過(guò)程中商品數(shù)量及其它屬性的變化，本人在制做此模塊時(shí)，采用了指導(dǎo)教師提供給我的思想：進(jìn)貨登記時(shí)，將進(jìn)貨信息添加到進(jìn)貨表中。 銷(xiāo)貨登記時(shí)，先將商品的銷(xiāo)貨信息添加到銷(xiāo)貨表中，然后將商品庫(kù)存表中響應(yīng)的商品的數(shù)量做相對(duì)調(diào)整，保證商品數(shù)量的一致性。在本系統(tǒng)管理員登陸時(shí)，顯示給管理員的第一個(gè)界面：系統(tǒng)初始化也是本系統(tǒng)的又一大功能特色，其實(shí)現(xiàn)過(guò)程中要嚴(yán)格控制每一個(gè)記錄集對(duì)相應(yīng)數(shù)據(jù)表的打開(kāi)與關(guān)閉操作。選擇了Access 2021 作為后端開(kāi)發(fā)工具，開(kāi)發(fā)數(shù)據(jù)庫(kù)功能，并選擇了 Visual Basic 作為界面前臺(tái)開(kāi)發(fā)工具。 在本次的開(kāi)發(fā)過(guò)程中，我意識(shí)到最重要的環(huán)節(jié)在于對(duì)系統(tǒng)的流程、功能模塊、框架結(jié)構(gòu)等方面的把握和設(shè)計(jì)。在這方面我可以說(shuō)是深 有體會(huì)。值得慶幸的是，發(fā)現(xiàn)的比較及時(shí)，還有足夠的時(shí)間讓我轉(zhuǎn)變思路，從頭開(kāi)始。只有走好了這一步，整個(gè)系統(tǒng)的開(kāi)發(fā)才能事半功倍，否則就會(huì)是“棋差一著，滿(mǎn)盤(pán)皆輸”。開(kāi)始時(shí)，我 對(duì) Visual Basic 和 Access 可以說(shuō)只是停留在書(shū)面上的了解，還不夠深入透徹。正因?yàn)檫@樣，所以在設(shè)計(jì)過(guò)程中往往會(huì)被一些問(wèn)題卡住。隨著開(kāi)發(fā)設(shè)計(jì)的深入，我也逐漸掌握了一部分編程技巧，了解了一些關(guān)于編程方面的規(guī)律，一些困難也就迎刃而解了 . 經(jīng)過(guò)一個(gè)多月的設(shè)計(jì)和開(kāi)發(fā)，超市管理信息系統(tǒng)基本開(kāi)發(fā)完畢。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。這些都有待進(jìn)一步改善。方老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。 另外，在系統(tǒng)開(kāi)發(fā)過(guò)程中助手同學(xué)也給于我很大的幫助，幫助我解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感