【正文】 le_Click()End SubPrivate Sub mnExit_Click()Unload MeEnd SubPrivate Sub mnGoodsTable_Click()End SubPrivate Sub mnlogin_Click()End SubPrivate Sub mnManufacturerTable_Click()End SubPrivate Sub mnRetreat_Click()End SubPrivate Sub mnRetreatTable_Click()End SubPrivate Sub mnSell_Click()End SubPrivate Sub mnSellMonth_Click() = 1 = False(0) = False(1) = True(2) = False(3) = Falsestrsell = select * from sell where 銷售年= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 進貨總金額 from buy where 進貨年= amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuyIf = True Then = strbuy MsgBox 您今年沒有進貨記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商進貨總金額 from buy where 進貨年= amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進貨總金額)End SubPrivate Sub mnBuyYear_Click() = False = 3(0) = False(1) = False(2) = False(3) = Truestrbuy = select * from buy where 進貨年= amp。 and 進貨日= amp。 and 進貨月= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 進貨總金額 from buy where 進貨年= amp。 and 進貨日= amp。 and 進貨月= amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuyIf = True Then = strbuy MsgBox 您今日沒有進貨記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商進貨總金額 from buy where 進貨年= amp。 and 進貨日= amp。 and 進貨月= amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進貨總金額)intm = Month(Date)End SubPrivate Sub mnBuyTable_Click()End SubPrivate Sub mnBuyToday_Click() = False = 0(0) = True(1) = False(2) = False(3) = Falsestrbuy = select * from buy where 進貨年= amp。 and amp。 and 進貨月 between amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 進貨總金額 from buy where 進貨年= amp。 and amp。 and 進貨月 between amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuyIf = True Then = strbuy MsgBox 您本季度沒有進貨記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商進貨總金額 from buy where 進貨年= amp。 and amp。 and 進貨月 between amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進貨總金額)End SubPrivate Sub mnBuyQuarterly_Click() = False = 2(0) = False(1) = False(2) = True(3) = FalseSelect Case intm Case Is 4 intm = 3 Case Is 7 intm = 6 Case Is 10 intm = 9 Case Is 10 intm = 12End Selectstrbuy = select * from buy where 進貨年= amp。 and 進貨月= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 進貨總金額 from buy where 進貨年= amp。 and 進貨月= amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuyIf = True Then = strbuy MsgBox 您本月沒有進貨記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商進貨總金額 from buy where 進貨年= amp。 and 進貨月= amp。 \End SubPrivate Sub Form_Resize() = = End SubPrivate Sub mnabout_Click()End SubPrivate Sub mnBuy_Click()End SubPrivate Sub mnBuyMonth_Click() = False = 1(0) = False(1) = True(2) = False(3) = Falsestrbuy = select * from buy where 進貨年= amp。 39。 amp。 39。 amp。 主要參考文獻[1] Visual Basic 使用指南 作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：電子工業(yè)出版社[2] 中文版Microsoft Office 97 自學通作者：Ned Snell出版社：機械工業(yè)出版社[3] Visual Basic 中文版控件大全作者：Microsoft出版社；電子工業(yè)出版社[4] 中文Access 2000 24學時教程 作者：Craig Eddy ，Timothy Buchanan出版社：機械工業(yè)出版社系統(tǒng)代碼清單Dim stremployee As StringDim rs_employee As New Private Sub Form_Activate()stremployee = select * from employee stremployee, n, adOpenStatic, adLockOptimisticDim i As IntegerFor i = 0 To 1 ((員工姓名)) NextEnd SubPrivate Sub Form_Load() = = amp。他無論在理論上還是在實踐中，都給與我很大的幫助，使我得到不少的提高這對于我以后的工作和學習都有一種巨大的幫助，感謝他耐心的輔導。 致謝在本次畢業(yè)設計中，我從指導老師身上學到了很多東西。但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。其功能基本符合用戶需求，能夠實現(xiàn)品質檢測的基本信息的錄入、更新、修改,刪除,查詢等基本功能，從而實現(xiàn)產(chǎn)品檢測的管理。在原地徘徊了一段時間后，我通過查找參考資料，和同學交流，利用互聯(lián)網(wǎng)向有經(jīng)驗的編程人員請教等各種方式試著克服在設計過程中遇到的困難。系統(tǒng)的開發(fā)過程也就成為我對這兩種開發(fā)工具的深入透徹學習的過程。同時，在這次的系統(tǒng)開發(fā)中我也看到了自己在新知識的學習，新工具的應用方面的不足。因此，通過這次質品管理系統(tǒng)的開發(fā)，我深刻認識到系統(tǒng)分析，以及對整個系統(tǒng)的總體設計的重要性。由于有些急于求成，在對ADO技術不是很了解的情況下就開始著手程序開發(fā)，所以當有時間靜下來仔細理一下思路的時候發(fā)現(xiàn)走了很大的彎路，可以說是整個思路和設計要求有著非常大的差異。在需求分析結束以后，我們對一個系統(tǒng)需要具有哪些功能已經(jīng)有了一定的認識，而如何以一個簡潔、合理的系統(tǒng)結構去實現(xiàn)用戶要求的功能就成為系統(tǒng)開發(fā)的關鍵環(huán)節(jié)。在該系統(tǒng)開發(fā)中我通過建立數(shù)據(jù)庫，以及對各種信息庫的開發(fā)（如：添加、查詢、修改、刪除）及設計系統(tǒng)維護安全部分，完成了此次對超市管理系統(tǒng)的設計。實體ER圖如下：查看數(shù)據(jù)表 進貨商表管理員工表進貨表退貨表銷售表現(xiàn)存商品表結束語本次超市管理系統(tǒng)是基于Visual Basic 的ADO技術設計的。實體ER圖如下： 進貨統(tǒng)計管理 本季度進貨今年進貨本月進貨今日進貨3．銷售統(tǒng)計管理：主要用于對商品每日,每月，第季度，每年的銷售情況進行統(tǒng)計管理，此功能只有以管理員的身份進入時才為可用狀態(tài)。4．3程序流程圖和ER圖設計登錄界面是是 面界主面界主查看數(shù)據(jù)表銷售統(tǒng)計進貨統(tǒng)計退貨登記銷售登記進貨登記是是否管理員否各模塊的ER圖設計：1．交易管理模塊：用于管理商品的進貨，銷售，退貨登記的操作。退貨登記時將退貨信息添加到退貨表中，然后將退貨數(shù)量從銷售表中減掉，最后將退貨數(shù)量加到商品庫存表中。然后對商品庫存表的編號進行判斷，如果進貨信息的商品編號存在，則將商品庫存表中相應記錄的商品數(shù)量做對應調整；如果商品編號不存在，則直接將進貨信息添加到商品庫存表中。具體做法是：先要求用戶將四個必填項填寫完整，然后對兩個新密碼進行相同判斷，如果相同，則將記錄集rs_employee打開，對用戶名和原密碼進行核對，如果相同，就將老密碼替換為新密碼。（13）修改密碼 為了方便用戶使用，在本模塊中還設置了一個修改密碼窗體，該窗體主要包括一個用戶名輸入、一個原密碼輸入和兩個新密碼輸入。但不能