【正文】 打開進(jìn)貨表 If = True Then (進(jìn)貨編號(hào)) = (商品名稱) = (生產(chǎn)廠商) = (型號(hào)) = (數(shù)量) = Val() (進(jìn)貨價(jià)) = Val() (進(jìn)貨年) = (進(jìn)貨月) = (進(jìn)貨日) = (業(yè)務(wù)員編號(hào)) = (總金額) = Val() 39。 amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額)End Sub39。 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。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 銷售總金額 from sell where 銷售年= amp。 and 銷售月= amp。 and 銷售日= amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (銷售總金額)intm = Month(Date)End SubPrivate Sub mnSellTable_Click()End SubPrivate Sub mnSellToday_Click() = 0 = False(0) = True(1) = False(2) = False(3) = Falsestrsell = select * from sell where 銷售年= amp。 and 銷售月 between 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 銷售月 between amp。 and 銷售月= amp。 and 銷售月= amp。 and 銷售月= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 進(jìn)貨總金額 from buy where 進(jìn)貨年= amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進(jìn)貨總金額)End SubPrivate Sub mnBuyYear_Click() = False = 3(0) = False(1) = False(2) = False(3) = Truestrbuy = select * from buy where 進(jìn)貨年= amp。 and 進(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。 and 進(jìn)貨月= amp。 and amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 進(jìn)貨總金額 from buy where 進(jìn)貨年= amp。 and 進(jìn)貨月 between amp。 and amp。 strtotal, n, adOpenKeysetm, adLockPessimistic = (進(jìn)貨總金額)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 進(jìn)貨年= amp。 group by 生產(chǎn)廠商 strfctotal, n, adOpenKeyset, adLockPessimistic = strfctotalstrtotal = select sum(總金額) as 進(jìn)貨總金額 from buy where 進(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。 \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 進(jìn)貨年= amp。 amp。 amp。他無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到不少的提高這對(duì)于我以后的工作和學(xué)習(xí)都有一種巨大的幫助，感謝他耐心的輔導(dǎo)。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問題。在原地徘徊了一段時(shí)間后，我通過查找參考資料，和同學(xué)交流，利用互聯(lián)網(wǎng)向有經(jīng)驗(yàn)的編程人員請(qǐng)教等各種方式試著克服在設(shè)計(jì)過程中遇到的困難。同時(shí)，在這次的系統(tǒng)開發(fā)中我也看到了自己在新知識(shí)的學(xué)習(xí)，新工具的應(yīng)用方面的不足。由于有些急于求成，在對(duì)ADO技術(shù)不是很了解的情況下就開始著手程序開發(fā)，所以當(dāng)有時(shí)間靜下來仔細(xì)理一下思路的時(shí)候發(fā)現(xiàn)走了很大的彎路，可以說是整個(gè)思路和設(shè)計(jì)要求有著非常大的差異。在該系統(tǒng)開發(fā)中我通過建立數(shù)據(jù)庫(kù)，以及對(duì)各種信息庫(kù)的開發(fā)（如：添加、查詢、修改、刪除）及設(shè)計(jì)系統(tǒng)維護(hù)安全部分，完成了此次對(duì)超市管理系統(tǒng)的設(shè)計(jì)。實(shí)體ER圖如下： 進(jìn)貨統(tǒng)計(jì)管理 本季度進(jìn)貨今年進(jìn)貨本月進(jìn)貨今日進(jìn)貨3．銷售統(tǒng)計(jì)管理：主要用于對(duì)商品每日,每月，第季度，每年的銷售情況進(jìn)行統(tǒng)計(jì)管理，此功能只有以管理員的身份進(jìn)入時(shí)才為可用狀態(tài)。退貨登記時(shí)將退貨信息添加到退貨表中，然后將退貨數(shù)量從銷售表中減掉，最后將退貨數(shù)量加到商品庫(kù)存表中。具體做法是：先要求用戶將四個(gè)必填項(xiàng)填寫完整，然后對(duì)兩個(gè)新密碼進(jìn)行相同判斷，如果相同，則將記錄集rs_employee打開，對(duì)用戶名和原密碼進(jìn)行核對(duì)，如果相同，就將老密碼替換為新密碼。但不能對(duì)管理員進(jìn)行刪除操作，此操作已被本人屏蔽。具體操作為：為查詢現(xiàn)存商品表設(shè)立了一個(gè)簡(jiǎn)單的查詢條件，一個(gè)是直接顯示現(xiàn)存的全部商品表，一個(gè)是按條件對(duì)現(xiàn)存商品進(jìn)行查詢，用戶可以根據(jù)自己需要按商品名稱或生產(chǎn)廠商分別進(jìn)行查找。其中兩個(gè)Adodc的數(shù)據(jù)源連接都是采用的相對(duì)路徑與sell表連接的，兩個(gè)Adodc連接的SQL語句分別如下：select * from sell select 生產(chǎn)廠商,sum(總金額) as 各廠商銷貨總金額 from sell group by 生產(chǎn)廠商。其中兩個(gè)Adodc的數(shù)據(jù)源連接都是才用的相對(duì)路徑與sellsystem的buy表連接的，兩個(gè)Adodc連接的SQL語句分別如下：select * from buyselect 生產(chǎn)廠商,sum(總金額) as 各廠商進(jìn)貨總金額 from buy group by 生產(chǎn)廠商。為項(xiàng)目添加了必要的控件之后，開始進(jìn)行界面設(shè)計(jì)。退貨成功后，該退貨信息先添加到退貨表，然后將其退貨數(shù)量從相應(yīng)的sell表中減掉，并添加到goods表中。（6）退貨窗體 本窗體的功能是實(shí)現(xiàn)商品退貨功能，當(dāng)人為判斷某商品可以退貨時(shí)即可將該商品退貨。 具體實(shí)現(xiàn)過程為：先在窗體集中定義兩個(gè)記錄集：rs_sell，rs_goods，用來控制兩個(gè)數(shù)據(jù)表：sell表和goods表。如果是新的進(jìn)貨商，可以將它的信息添加到進(jìn)貨商表。在添加到goods表時(shí)，程序會(huì)先判斷該商品編號(hào)是否已經(jīng)存在，如果存在則直接將該添加信息的數(shù)量加到goods表中相應(yīng)的記錄上。如果是新的進(jìn)貨廠商，可以在此入庫(kù)登記。其權(quán)限為：銷貨統(tǒng)計(jì)、進(jìn)貨統(tǒng)計(jì)、查看數(shù)據(jù)表和系統(tǒng)管理。如果是，則5個(gè)記錄集依次連接到5個(gè)數(shù)據(jù)表上，然后對(duì)每個(gè)數(shù)據(jù)表的內(nèi)容進(jìn)行刪除操作。全加入后關(guān)閉記錄集，然后對(duì)bo1和text1中的內(nèi)容做一下簡(jiǎn)單判斷：如果bo1和text1中的數(shù)據(jù)正好和employee表中的某個(gè)記錄相同，則通過登陸窗體，否則提示用戶用戶名或密碼有誤。具體設(shè)置如表33所示。表31 buy表字段名數(shù)據(jù)類型說明進(jìn)貨編號(hào)文本字段大小為20商品名稱文本字段大小為20生產(chǎn)廠商文本字段大小為20型號(hào)文本字段大小為20數(shù)量數(shù)字長(zhǎng)整型進(jìn)貨價(jià)貨幣貨幣進(jìn)貨年數(shù)字整型進(jìn)貨月數(shù)字整型進(jìn)貨日數(shù)字整型業(yè)務(wù)員編號(hào)文本字段大小為20總金額貨幣貨幣goods表（現(xiàn)存商品表）中包括有商品編號(hào)、生產(chǎn)廠商、商品名稱、型號(hào)、進(jìn)貨價(jià)、銷貨價(jià)、數(shù)量、進(jìn)貨年、進(jìn)貨月、進(jìn)貨日、業(yè)務(wù)員編號(hào)、總金額等字段。employee（員工表）中包括有員工編號(hào)、員工姓名、員工密碼、員工電話、員工地址等字段，表略。開發(fā)本系統(tǒng)中使用的數(shù)據(jù)庫(kù)系統(tǒng)是Windows Access 2000 。其中有兩個(gè)變量要定義為公用的變量，因?yàn)檫@段代碼是放在一個(gè)模塊中的，為了在每一個(gè)窗體中能夠使用這個(gè)變量，所以必須要聲明為公用變量。 DBpath 39。 \ amp。先看看VB是如何與ACCESS2000數(shù)據(jù)庫(kù)相連接的。點(diǎn)擊創(chuàng)建就完成。3．2創(chuàng)建數(shù)據(jù)庫(kù)文件如果操作系統(tǒng)中安裝了ACCESS2000的話，可以在開始菜單的程序菜單中可以找到。數(shù)據(jù)庫(kù)在一個(gè)信息管理系統(tǒng)中占有非常重要的位置，數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效果產(chǎn)生影響。使用計(jì)算機(jī)以后，數(shù)據(jù)處理的速度和規(guī)模，無論