【正文】 y 表中，再添加到 goods 表。為此，進(jìn)貨編號、商品編號是 buy 表、 goods 表中不可重復(fù)的屬性。另外，對于總金額文本框也是由數(shù)量和進(jìn)貨價兩個文本框的 Change 事件計算入內(nèi)的。其過程和上面所說的添加到 buy 表基本相同，這里就不做介紹了。 amp。 39。 amp。 39。然后將銷售信息存入 sell 表，并對 goods表的數(shù)量做相應(yīng)修改。在銷貨窗體中，如果用戶輸入的商品編號已經(jīng)存在，則該商品的其它屬性將隨著 text2(即商品編號 )的 Change 事件出現(xiàn)在其對應(yīng)的位置上。在判斷沒有空缺屬性后該商品將順利添加如庫，而且該商品在 goods 表中的數(shù)量也將隨之做相應(yīng)的改變，使 goods 表和 sell 表的總和保持原來 goods 表中的數(shù)量值。 amp。 39。 amp。 39。其數(shù)據(jù)庫實現(xiàn)為：先將該信息加入 retreat 表，然 后從 sell 表中減掉，最后對 goods 表的數(shù)量做一下調(diào)整即可。在退貨窗體中，如果用戶輸入的銷貨編號存在，則關(guān)于該商品的銷售信息將依次出現(xiàn)在相應(yīng)的對話框中。 退貨按鈕的代碼實現(xiàn)如下： Dim sql As String sql = select * from goods where 商品編號 = 39。 amp。 sql, n, adOpenStatic, adLockOptimistic If = True Then str_goods = select * from goods str_goods, n, adOpenStatic, adLockOptimistic 39。 關(guān)閉庫存表 Else numgoods = (數(shù)量 ) (數(shù)量 ) = Val() + numgoods MsgBox 退貨成功 , vbOKOnly + vbExclamation, End If 進(jìn)貨、銷貨統(tǒng)計管理單元設(shè)計 1．進(jìn)貨統(tǒng)計菜單 22 圖 進(jìn)貨統(tǒng)計菜單下有 4 個子菜單，分別是今日進(jìn)貨統(tǒng)計、本月進(jìn)貨統(tǒng)計、本季度進(jìn)貨統(tǒng)計、今年進(jìn)貨統(tǒng)計。這樣做使窗體顯得更加美觀。先在窗體上添加一個 SSTab 控件，單擊鼠標(biāo)右鍵在快捷菜單中選擇 ” 屬性 ” 命令。由于每個選項卡的界面都一樣，現(xiàn)以 ” 今日進(jìn)貨 ” 選項卡為例，加入兩個 datagrid 控件，兩個 Adodc 控件，一個 Label 控件，一個 textbox 控件和 8個 mand 控件。 23 其日進(jìn)貨實現(xiàn)代碼如下： strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進(jìn)貨總金額 from buy where 進(jìn)貨年 = amp。 and 進(jìn)貨月 = amp。 and 進(jìn)貨日 = amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 進(jìn)貨總金額 from buy where 進(jìn)貨年 = amp。 and 進(jìn)貨月 = amp。 and 進(jìn)貨日 = amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進(jìn)貨總金額 ) 2．銷貨統(tǒng)計菜單 24 圖 銷售統(tǒng)計菜單下有 4個子菜單，分別是今日銷貨、本月銷貨、本季度銷貨、今年銷貨。其界面設(shè)計和窗體說明與進(jìn)貨統(tǒng)計大同小異，也一樣一個選項卡為例進(jìn)行說明，現(xiàn)以 ” 今日銷貨 ” 為例：加入兩個datagrid 控件，兩個 Adodc 控件，一個 Label 控件，一個 textbox 控件和 8個mand 控件。 其日銷售代碼實現(xiàn)如下： strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商銷售總金額 25 from sell where 銷售年 = amp。 and 銷售月 = amp。 and 銷售日= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 銷售總金額 from sell where 銷售年 = amp。 and 銷售月 = amp。 and 銷售日 = amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額 ) End Sub 查看數(shù)據(jù)表單元設(shè)計 1．查看進(jìn)貨表 圖 其界面的設(shè)計比較簡單，只是一個 datagrid 控件，一個 Adodc 控件（已隱藏）和四個 Command 控件。 其實現(xiàn)代碼如下： 26 strfctotal = select 生產(chǎn)廠商 ,sum(總金額 ) as 各廠商進(jìn)貨總金額 from buy where 進(jìn)貨年 = amp。 and 進(jìn)貨月 = amp。 and 進(jìn)貨日= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotal strtotal = select sum(總金額 ) as 進(jìn)貨總金額 from buy where 進(jìn)貨年 = amp。 and 進(jìn)貨月 = amp。 and 進(jìn)貨日 = amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進(jìn)貨總金額 ) 2．商品倉庫存表 用戶可以根據(jù)自己需要按商品名稱或生產(chǎn)廠商分別進(jìn)行查找，也可以點(diǎn)擊顯示全部現(xiàn)存商品可以看到如下界面： 27 圖 本窗體的主要設(shè)計目的是設(shè)置一個查詢商品庫存表的條件 。該窗體的實現(xiàn)是要在窗體集的變量中設(shè)置一個記錄集 rs_goods，用來控制 goods 表，然后將記錄集在打開窗體時的 select 語句設(shè)為與本窗體的 text1 和 text2 有關(guān)的 SQL 語句。 其實現(xiàn)代碼如下： If = And = Then MsgBox 請輸入查詢條件！ , vbOKOnly + vbInformation, Exit Sub End If 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。但不能對管理員進(jìn)行刪除操作，此操作已被本人屏蔽。 amp。 39。 amp。 39。 2．修改密碼 圖 為了方便用戶使用，在本模塊中還設(shè)置了一個修改密碼窗體，該窗體主要包括一個用戶名輸入、一個原密碼輸入和兩個新密碼輸入。具體做法是：先要求用戶將四個必填項填寫完整，然后對兩個新密碼進(jìn)行相同判斷，如果相同，則將記錄集 rs_employee 打開，對用戶名和原密碼進(jìn)行核對，如果相同，就將老密碼替換為新密碼。 amp。 39。然后對商品庫存表的編號進(jìn)行判斷，如果進(jìn)貨信息的商品編號存在，則將商品庫存表中相應(yīng)記錄的商品數(shù)量做對應(yīng)調(diào)整；如果商品編號不存在，則直接將進(jìn)貨信息添加到商品庫存表中。退貨登記時將退貨信息添加到退貨表中，然后將退貨數(shù)量從銷售表中減掉，最后將退貨數(shù)量加到商品庫存表中。 34 35 總 結(jié) 本次超市管理信息系統(tǒng)是基于 Visual Basic 的 ADO 技術(shù)設(shè)計的。在該系統(tǒng)開發(fā)中我通過建立數(shù)據(jù)庫，以及對各種信息庫的開發(fā)（如：添加、查詢、修改、刪除）及設(shè)計系統(tǒng)維護(hù)安全部分，完成了此次對超市信息管理系統(tǒng)的設(shè)計。在需求分析結(jié)束以后，我們對一個系統(tǒng)需要具有哪些功能已經(jīng)有了一定的認(rèn)識，而如何以一個簡潔、合理的系統(tǒng)結(jié)構(gòu)去實現(xiàn)用戶要求的功能就成為系統(tǒng)開發(fā)的關(guān)鍵環(huán)節(jié)。由于有些急于求成，在對 ADO 技術(shù)不是很了解的情況下就開始著手程序開發(fā)，所以當(dāng)有時間靜下來仔細(xì)理一下思路的時候發(fā)現(xiàn)走了很大的彎路，可以說是整個思路和設(shè)計要求有著非常大的差異。因此，通過這次超市管理信息 系統(tǒng)的開發(fā)，我深刻認(rèn)識到系統(tǒng)分析，以及對整個系統(tǒng)的總體設(shè)計的重要性。 同時，在這次的系統(tǒng)開發(fā)中我也看到了自己在新知識的學(xué)習(xí)，新工具的應(yīng)用方面的不足。系統(tǒng)的開發(fā)過程也就成為我對這兩種開發(fā)工具的深入透徹學(xué)習(xí)的過程。在原地徘徊了一段時間后，我通過查找參考資料，和同學(xué)交流，利用互聯(lián)網(wǎng)向有經(jīng)驗的 編程人員請教等各種方式試著克服在設(shè)計過程中遇到的困難。其功能基本符合用戶需求，能夠?qū)崿F(xiàn)品質(zhì)檢測的基本信息的錄入、更新、修改 ,刪除 ,查 36 詢等基本功能，從而實現(xiàn)產(chǎn)品檢測的管理。但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。 37 致 謝 在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師方霞老師身上學(xué)到了很多東西。她無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她耐心的輔導(dǎo)。 38 參考文獻(xiàn) [1] 黃梯云 . 管理信息系統(tǒng) [M]. 北京 :經(jīng)濟(jì)科學(xué)出版社 . [2] 薩師煊 ,王珊 . 數(shù)據(jù)庫系統(tǒng)概論［ M］ .北京：高等教育出版社 .1983 [3] (美 )Harvey 等 . Visual Basic 6 How to Program [M].Pearson [4] 劉撿平 ,楊春蓉 . [J].新余高專學(xué)報 . 2021 [5] 劉珊 . 用 Access增強(qiáng) . NET數(shù)據(jù)報表功能 [J]. 電腦編程技巧與維護(hù) .2021 [6] 陳 翔 . 基于 VB6． 0對文本文件的操作實現(xiàn)對軌道時間的提醒 [J].電腦編程技巧與維護(hù) .2021 [7] 胡建紅 ,周世科 ,謝曉明 . VB應(yīng)用程序動態(tài)連接與創(chuàng)建數(shù)據(jù)庫表的實現(xiàn) [J].計算機(jī)與現(xiàn)代化 .2021 [8] 張洪學(xué) ,范海震 ,雷飚 . 基于 VB6． 0的 DSP系統(tǒng)與 PC機(jī)通信的實現(xiàn) [J].電光系統(tǒng) .2021 [9] 李曉俊 . 給 Access庫文件加把“鎖” [J]. 中國審計 .2021 [10] Herbert, Gruttemeier . The Way to Open AccessFrench Strategies to Move Forward [J]. 圖書情報工作 .2021 39