【導(dǎo)讀】未定義書(shū)簽。未定義書(shū)簽。未定義書(shū)簽。未定義書(shū)簽。未定義書(shū)簽。未定義書(shū)簽。未定義書(shū)簽。未定義書(shū)簽。

　　

【正文】 goods = select * from goods where 商品名稱(chēng) =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． 管理員工表 29 圖 本窗體的制作目的在于方便對(duì)管理員用戶(hù)的管理， 本節(jié)前面曾經(jīng)提過(guò)系統(tǒng)初始化的功能，但其初始化并不能對(duì)員工表進(jìn)行操作，當(dāng)管理員登陸本系統(tǒng)時(shí)，可以訪(fǎng)問(wèn)此窗體，對(duì)用戶(hù)表進(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ù) 編 號(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。 amp。 39。 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)了此功能，而且它也方便了管理員的登陸管理。 2．修改密碼 圖 為了方便用戶(hù)使用，在本模塊中還設(shè)置了一個(gè)修改密碼窗體，該窗體主要包括一個(gè)用戶(hù)名輸入、一個(gè)原密碼輸入和兩個(gè)新密碼輸入。此窗體實(shí)現(xiàn)的功能是顯而易見(jiàn)的，方便了 用戶(hù)的操作，增加了系統(tǒng)使用的安全性。具體做法是：先要求用戶(hù)將四個(gè)必填項(xiàng)填寫(xiě)完整，然后對(duì)兩個(gè)新密碼進(jìn)行相同判斷，如果相同，則將記錄集 rs_employee 打開(kāi)，對(duì)用戶(hù)名和原密碼進(jìn)行核對(duì)，如果相同，就將老密碼替換為新密碼。 其實(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。 amp。 39。 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)貨表中。然后對(duì)商品庫(kù)存表的編號(hào)進(jìn)行判斷，如果進(jìn)貨信息的商品編號(hào)存在，則將商品庫(kù)存表中相應(yīng)記錄的商品數(shù)量做對(duì)應(yīng)調(diào)整；如果商品編號(hào)不存在，則直接將進(jìn)貨信息添加到商品庫(kù)存表中。銷(xiāo)貨登記時(shí)，先將商品的銷(xiāo)貨信息添加到銷(xiāo)貨表中，然后將商品庫(kù)存表中響應(yīng)的商品的數(shù)量做相對(duì)調(diào)整，保證商品數(shù)量的一致性。退貨登記時(shí)將退貨信息添加到退貨表中，然后將退貨數(shù)量從銷(xiāo)售表中減掉，最后將退貨數(shù)量加到商品庫(kù)存表中。在本系統(tǒng)管理員登陸時(shí)，顯示給管理員的第一個(gè)界面：系統(tǒng)初始化也是 本系統(tǒng)的又一大功能特色，其實(shí)現(xiàn)過(guò)程中要嚴(yán)格控制每一個(gè)記錄集對(duì)相應(yīng)數(shù)據(jù)表的打開(kāi)與關(guān)閉操作。 34 35 總 結(jié) 本次超市管理信息系統(tǒng)是基于 Visual Basic 的 ADO 技術(shù)設(shè)計(jì)的。選擇了Access 2021 作為后端開(kāi)發(fā)工具，開(kāi)發(fā)數(shù)據(jù)庫(kù)功能，并選擇了 Visual Basic 作為界面前臺(tái)開(kāi)發(fā)工具。在該系統(tǒng)開(kāi)發(fā)中我通過(guò)建立數(shù)據(jù)庫(kù)，以及對(duì)各種信息庫(kù)的開(kāi)發(fā)（如：添加、查詢(xún)、修改、刪除）及設(shè)計(jì)系統(tǒng)維護(hù)安全部分，完成了此次對(duì)超市信息管理系統(tǒng)的設(shè)計(jì)。 在本次的開(kāi)發(fā)過(guò)程中，我意識(shí) 到最重要的環(huán)節(jié)在于對(duì)系統(tǒng)的流程、功能模塊、框架結(jié)構(gòu)等方面的把握和設(shè)計(jì)。在需求分析結(jié)束以后，我們對(duì)一個(gè)系統(tǒng)需要具有哪些功能已經(jīng)有了一定的認(rèn)識(shí)，而如何以一個(gè)簡(jiǎn)潔、合理的系統(tǒng)結(jié)構(gòu)去實(shí)現(xiàn)用戶(hù)要求的功能就成為系統(tǒng)開(kāi)發(fā)的關(guān)鍵環(huán)節(jié)。在這方面我可以說(shuō)是深有體會(huì)。由于有些急于求成，在對(duì) ADO 技術(shù)不是很了解的情況下就開(kāi)始著手程序開(kāi)發(fā)，所以當(dāng)有時(shí)間靜下來(lái)仔細(xì)理一下思路的時(shí)候發(fā)現(xiàn)走了很大的彎路，可以說(shuō)是整個(gè)思路和設(shè)計(jì)要求有著非常大的差異。值得慶幸的是，發(fā)現(xiàn)的比較及時(shí)，還有足夠的時(shí)間讓我轉(zhuǎn)變思路，從頭開(kāi)始。因此，通過(guò)這次超市管理信息 系統(tǒng)的開(kāi)發(fā)，我深刻認(rèn)識(shí)到系統(tǒng)分析，以及對(duì)整個(gè)系統(tǒng)的總體設(shè)計(jì)的重要性。只有走好了這一步，整個(gè)系統(tǒng)的開(kāi)發(fā)才能事半功倍，否則就會(huì)是“棋差一著，滿(mǎn)盤(pán)皆輸”。 同時(shí)，在這次的系統(tǒng)開(kāi)發(fā)中我也看到了自己在新知識(shí)的學(xué)習(xí)，新工具的應(yīng)用方面的不足。開(kāi)始時(shí)，我對(duì) Visual Basic 和 Access 可以說(shuō)只是停留在書(shū)面上的了解，還不夠深入透徹。系統(tǒng)的開(kāi)發(fā)過(guò)程也就成為我對(duì)這兩種開(kāi)發(fā)工具的深入透徹學(xué)習(xí)的過(guò)程。正因?yàn)檫@樣，所以在設(shè)計(jì)過(guò)程中往往會(huì)被一些問(wèn)題卡住。在原地徘徊了一段時(shí)間后，我通過(guò)查找參考資料，和同學(xué)交流，利用互聯(lián)網(wǎng)向有經(jīng)驗(yàn)的 編程人員請(qǐng)教等各種方式試著克服在設(shè)計(jì)過(guò)程中遇到的困難。隨著開(kāi)發(fā)設(shè)計(jì)的深入，我也逐漸掌握了一部分編程技巧，了解了一些關(guān)于編程方面的規(guī)律，一些困難也就迎刃而解了 . 經(jīng)過(guò)一個(gè)多月的設(shè)計(jì)和開(kāi)發(fā)，超市管理信息系統(tǒng)基本開(kāi)發(fā)完畢。其功能基本符合用戶(hù)需求，能夠?qū)崿F(xiàn)品質(zhì)檢測(cè)的基本信息的錄入、更新、修改 ,刪除 ,查 36 詢(xún)等基本功能，從而實(shí)現(xiàn)產(chǎn)品檢測(cè)的管理。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶(hù)界面不夠美觀，出錯(cuò)處理不夠等多方面問(wèn)題。這 些都有待進(jìn)一步改善。 37 致 謝 在本次畢業(yè)設(shè)計(jì)中，我從指導(dǎo)老師方霞老師身上學(xué)到了很多東西。方老師認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。她無(wú)論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高，這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝她耐心的輔導(dǎo)。 另外，在系統(tǒng)開(kāi)發(fā)過(guò)程中助手同學(xué)也給于我很大的幫助，幫助我解決了不少的難點(diǎn)，使得系統(tǒng)能及時(shí)開(kāi)發(fā)完成，還有同組的同學(xué)同樣給與我不少幫助，這里一并表示感謝。 38 參考文獻(xiàn) [1] 黃梯云 . 管理信息系統(tǒng) [M]. 北京 :經(jīng)濟(jì)科學(xué)出版社 . [2] 薩師煊 ,王珊 . 數(shù)據(jù)庫(kù)系統(tǒng)概論［ M］ .北京：高等教育出版社 .1983 [3] (美 )Harvey 等 . Visual Basic 6 How to Program [M].Pearson [4] 劉撿平 ,楊春蓉 . [J].新余高專(zhuān)學(xué)報(bào) . 2021 [5] 劉珊 . 用 Access增強(qiáng) . NET數(shù)據(jù)報(bào)表功能 [J]. 電腦編程技巧與維護(hù) .2021 [6] 陳 翔 . 基于 VB6． 0對(duì)文本文件的操作實(shí)現(xiàn)對(duì)軌道時(shí)間的提醒 [J].電腦編程技巧與維護(hù) .2021 [7] 胡建紅 ,周世科 ,謝曉明 . VB應(yīng)用程序動(dòng)態(tài)連接與創(chuàng)建數(shù)據(jù)庫(kù)表的實(shí)現(xiàn) [J].計(jì)算機(jī)與現(xiàn)代化 .2021 [8] 張洪學(xué) ,范海震 ,雷飚 . 基于 VB6． 0的 DSP系統(tǒng)與 PC機(jī)通信的實(shí)現(xiàn) [J].電光系統(tǒng) .2021 [9] 李曉俊 . 給 Access庫(kù)文件加把“鎖” [J]. 中國(guó)審計(jì) .2021 [10] Herbert, Gruttemeier . The Way to Open AccessFrench Strategies to Move Forward [J]. 圖書(shū)情報(bào)工作 .2021 39