【正文】 計登錄界面是是 面界主面界主查看數(shù)據(jù)表銷售統(tǒng)計進(jìn)貨統(tǒng)計退貨登記銷售登記進(jìn)貨登記是是否管理員否各模塊的ER圖設(shè)計：1．交易管理模塊：用于管理商品的進(jìn)貨，銷售，退貨登記的操作。實體ER圖如下：查看數(shù)據(jù)表 進(jìn)貨商表管理員工表進(jìn)貨表退貨表銷售表現(xiàn)存商品表結(jié)束語本次超市管理系統(tǒng)是基于Visual Basic 的ADO技術(shù)設(shè)計的。在需求分析結(jié)束以后，我們對一個系統(tǒng)需要具有哪些功能已經(jīng)有了一定的認(rèn)識，而如何以一個簡潔、合理的系統(tǒng)結(jié)構(gòu)去實現(xiàn)用戶要求的功能就成為系統(tǒng)開發(fā)的關(guān)鍵環(huán)節(jié)。因此，通過這次質(zhì)品管理系統(tǒng)的開發(fā)，我深刻認(rèn)識到系統(tǒng)分析，以及對整個系統(tǒng)的總體設(shè)計的重要性。系統(tǒng)的開發(fā)過程也就成為我對這兩種開發(fā)工具的深入透徹學(xué)習(xí)的過程。其功能基本符合用戶需求，能夠?qū)崿F(xiàn)品質(zhì)檢測的基本信息的錄入、更新、修改,刪除,查詢等基本功能，從而實現(xiàn)產(chǎn)品檢測的管理。 致謝在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師身上學(xué)到了很多東西。 主要參考文獻(xiàn)[1] Visual Basic 使用指南 作者：Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社：電子工業(yè)出版社[2] 中文版Microsoft Office 97 自學(xué)通作者：Ned Snell出版社：機械工業(yè)出版社[3] Visual Basic 中文版控件大全作者：Microsoft出版社；電子工業(yè)出版社[4] 中文Access 2000 24學(xué)時教程 作者：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。 39。 39。 and 進(jìn)貨月= amp。 and 進(jìn)貨月= amp。 and 進(jìn)貨月= amp。 and 進(jìn)貨月 between amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuyIf = True Then = strbuy MsgBox 您本季度沒有進(jìn)貨記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商進(jìn)貨總金額 from buy where 進(jìn)貨年= amp。 and amp。 and 進(jìn)貨月 between amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進(jìn)貨總金額)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 進(jìn)貨年= amp。 and 進(jìn)貨日= amp。 and 進(jìn)貨月= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 進(jìn)貨總金額 from buy where 進(jìn)貨年= amp。 and 進(jìn)貨日= amp。 strbuy, n, adOpenKeyset, adLockPessimistic = strbuyIf = True Then = strbuy MsgBox 您今年沒有進(jìn)貨記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商進(jìn)貨總金額 from buy where 進(jìn)貨年= amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進(jìn)貨總金額)End SubPrivate Sub mnChangeEmployee_Click()Unload MeEnd SubPrivate Sub mnChangePwd_Click()End SubPrivate Sub mnEmployeeTable_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。 strsell, n, adOpenKeyset, adLockPessimistic = strsellIf = True Then = strsell MsgBox 您本月沒有銷售記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 銷售總金額 from sell where 銷售年= amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額)End SubPrivate Sub mnSellQuarterly_Click() = 2 = False(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 Selectstrsell = select * from sell where 銷售年= amp。 and amp。 and 銷售月 between amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 銷售總金額 from sell where 銷售年= amp。 and amp。 and 銷售月= amp。 strsell, n, adOpenKeyset, adLockPessimistic = strsellIf = True Then = strsell MsgBox 您今日沒有銷售記錄！, vbOKOnly + vbInformation, 注意 = False = False = False = False = False = False = False = False Exit SubEnd Ifstrfctotal = select 生產(chǎn)廠商,sum(總金額) as 各廠商銷售總金額 from sell where 銷售年= amp。 and 銷售日= amp。 and 銷售月= amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額)End SubPrivate Sub mnSellYear_Click() = False = 3(0) = False(1) = False(2) = False(3) = Truestrsell = select * from sell where 銷售年= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 銷售總金額 from sell where 銷售年= amp。對入庫時做的一些屏蔽操作！ If = Then MsgBox 請?zhí)顚戇M(jìn)貨編號！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐肪幪枺? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐访Q！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮a(chǎn)廠商！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐沸吞枺? vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐窋?shù)量！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐愤M(jìn)貨價格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚懮唐蜂N貨價格！, vbOKOnly + vbInformation, 注意 Exit Sub ElseIf = Then MsgBox 請?zhí)顚戇M(jìn)貨總金額！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。 39