飯店餐飲管理系統(tǒng)2

1、X x 學(xué) 院面向?qū)ο蟪绦蛟O(shè)計(jì)課程設(shè)計(jì)說(shuō)明書(shū)題目： 飯店餐飲管理系統(tǒng) 系(部)： 電子與通信工程系 專(zhuān)業(yè)(班級(jí))： 07級(jí)電子信息工程專(zhuān)業(yè)1班 姓名： 萬(wàn)xx 學(xué)號(hào)： 2007xxxxxx 指導(dǎo)教師： 馬xx、謝xx 起止日期： 2010.11.292010.12.4 16 課程任務(wù)書(shū)課題名稱(chēng)飯店餐飲管理系統(tǒng)設(shè)計(jì)內(nèi)容及要求設(shè)計(jì)一個(gè)飯店餐飲管理系統(tǒng)，要求界面美觀，具有操作菜單及工具欄；系統(tǒng)應(yīng)包括下列功能模塊：用戶(hù)管理模塊：用戶(hù)登錄、用戶(hù)的添加、刪除、密碼修改功能。用戶(hù)根據(jù)口令進(jìn)入系統(tǒng)，不同的用戶(hù)擁有不同權(quán)限：可讀可寫(xiě)、只讀、只讀部分信息。菜單瀏覽模塊：能瀏覽飯店的所有菜品、菜樣及價(jià)格，要求能顯示

2、菜樣圖片。點(diǎn)菜模塊：進(jìn)行點(diǎn)菜操作后能預(yù)覽點(diǎn)菜結(jié)果，并統(tǒng)計(jì)金額；買(mǎi)單模塊：進(jìn)行買(mǎi)單操作，可記錄菜單信息、時(shí)間信息及收款員等相關(guān)信息，并實(shí)現(xiàn)全款買(mǎi)單、打折買(mǎi)單及免單等功能；要求能按時(shí)間段查詢(xún)買(mǎi)單信息。留言模塊：記錄并瀏覽顧客的意見(jiàn)和建議；抽獎(jiǎng)功能：當(dāng)顧客的消費(fèi)達(dá)到指定金額時(shí)，可分檔抽取小獎(jiǎng)品。 長(zhǎng)沙學(xué)院課程設(shè)計(jì)鑒定表姓名 萬(wàn)xx學(xué)號(hào)2007xxxxxx專(zhuān)業(yè)電子信息工程班級(jí)1設(shè)計(jì)題目飯店餐飲管理系統(tǒng)指導(dǎo)教師馬xx、謝xx指導(dǎo)教師意見(jiàn)：評(píng)定等級(jí)： 教師簽名： 日期： 答辯小組意見(jiàn)：評(píng)定等級(jí)：答辯小組長(zhǎng)簽名：日期：教研室意見(jiàn)：教研室主任簽名： 日期： 系（部）意見(jiàn)：系主任簽名：日期：說(shuō)明課程設(shè)計(jì)成績(jī)分“

3、優(yōu)秀”、“良好”、“及格”、“不及格”四類(lèi)；目 錄1 設(shè)計(jì)思路分析.51.1、Access數(shù)據(jù)庫(kù)51.2、餐廳系統(tǒng).52 系統(tǒng)結(jié)構(gòu)設(shè)計(jì)及分析 6. 2.1、部分程序與窗體63 設(shè)計(jì)總結(jié)15參考文獻(xiàn). 16 摘 要  中國(guó)是舉世聞名的美食大國(guó)，擁有五千年的飲食文化和巨大的餐飲市場(chǎng)，滿(mǎn)足個(gè)人的溫飽問(wèn)題已不是當(dāng)今的熱點(diǎn)，人們的生活方式逐漸在轉(zhuǎn)變著，飲食已經(jīng)成為了一種時(shí)尚，一種享受。民以食為天，隨著人民生活水平和生活方式的轉(zhuǎn)變，漸漸的人們發(fā)現(xiàn)餐飲業(yè)具有巨大的投資市場(chǎng)。隨著餐飲業(yè)投資者的不斷涌入，許多新一代的快餐店，披薩店，餐館在國(guó)內(nèi)開(kāi)始風(fēng)靡，隨處可見(jiàn)。  如今，國(guó)外飲食企業(yè)進(jìn)入中國(guó)

4、，同時(shí)也是中國(guó)企業(yè)進(jìn)入國(guó)際市場(chǎng)的重要開(kāi)端，由此必將為國(guó)內(nèi)外飲食企業(yè)提供更加廣闊的市場(chǎng)機(jī)會(huì)。餐飲業(yè)不僅面臨著巨大的發(fā)展機(jī)遇，也面臨著前所未有的挑戰(zhàn)和考驗(yàn)。隨著中國(guó)對(duì)外的不斷開(kāi)放，會(huì)有大量的企業(yè)或公司介入到餐飲領(lǐng)域。同時(shí)，隨著中國(guó)兌現(xiàn)承諾和中國(guó)社會(huì)信息化的深化，很多地區(qū)性企業(yè)的“環(huán)境優(yōu)勢(shì)”對(duì)國(guó)外企業(yè)的障礙和不利條件被不斷地消除，中國(guó)市場(chǎng)的競(jìng)爭(zhēng)將更為激烈，而且隨著餐飲業(yè)的迅速擴(kuò)展，其中所暴露的問(wèn)題也是不容忽視的。  首先，人才的專(zhuān)業(yè)化程度不夠?qū)е聝?nèi)供不足：因餐飲業(yè)門(mén)坎較低，中國(guó)的大多數(shù)餐飲企業(yè)的老板是從小店發(fā)展起來(lái)的，家族式管理的居多，還沒(méi)有發(fā)展到聘請(qǐng)職業(yè)經(jīng)理人，許多還是"人治&

5、quot;，并沒(méi)有一套現(xiàn)代企業(yè)制度和監(jiān)督管理體制，所以從觀念意識(shí)、經(jīng)營(yíng)思想和管理水平還有待專(zhuān)業(yè)化。其次，應(yīng)變能力差，缺乏先進(jìn)的信息工具：現(xiàn)在的餐飲市場(chǎng)火爆，許多以前做電子、房地產(chǎn)等其他行業(yè)的老板都憑借雄厚的資金實(shí)力擠進(jìn)餐飲市場(chǎng)，爭(zhēng)先恐后的上規(guī)模、上檔次、比菜品、比服務(wù)、拼價(jià)格，使餐飲市場(chǎng)競(jìng)爭(zhēng)激烈，但是許多餐飲企業(yè)缺乏對(duì)市場(chǎng)的應(yīng)變能力和靈敏的信息工具，在現(xiàn)今網(wǎng)絡(luò)經(jīng)濟(jì)的時(shí)代，許多餐飲企業(yè)還處在手工及半手工狀態(tài)，即使有計(jì)算機(jī)也只當(dāng)個(gè)點(diǎn)菜器和計(jì)算器用，并沒(méi)有真正通過(guò)計(jì)算機(jī)系統(tǒng)來(lái)實(shí)現(xiàn)改造流程、強(qiáng)化管理、降低成本、堵漏節(jié)流等作用。  最后缺乏科學(xué)和標(biāo)準(zhǔn)的管理體系：國(guó)外著名的快餐連鎖經(jīng)過(guò)上百年的探

6、索都形成了標(biāo)準(zhǔn)化的工作流程和方法。中餐因其菜品的多樣化和特色化的服務(wù)很難實(shí)現(xiàn)標(biāo)準(zhǔn)化管理，這使中餐企業(yè)的成本控制很難實(shí)現(xiàn)，但近兩年也出現(xiàn)了引進(jìn)快餐式經(jīng)營(yíng)特點(diǎn)的中餐企業(yè)，從流程、服務(wù)、出品都開(kāi)了中餐標(biāo)準(zhǔn)化的先河。信息系統(tǒng)的引進(jìn)，則會(huì)緩解和解決以上問(wèn)題：首先，餐飲管理信息系統(tǒng)不是單純的用于結(jié)帳計(jì)算的工具，它有著科學(xué)的、標(biāo)準(zhǔn)的管理體系，它是通過(guò)對(duì)目前餐飲市場(chǎng)的具體情況科學(xué)的調(diào)研分析后設(shè)計(jì)而成的，它能夠針對(duì)中餐因其菜品的多樣化和特色化的服務(wù)很難實(shí)現(xiàn)標(biāo)準(zhǔn)化管理，使中餐企業(yè)的成本控制很難實(shí)現(xiàn)這些問(wèn)題給與解決。其次，餐飲管理信息系統(tǒng)能夠給出具體的相應(yīng)的符合企業(yè)自身要求的較科學(xué)的標(biāo)準(zhǔn)化管理流程，這暫時(shí)緩解了專(zhuān)業(yè)

7、人才的需求，通過(guò)使用該系統(tǒng)就能完成專(zhuān)業(yè)人員所要做的事。最后，餐飲管理信息系統(tǒng)可以針對(duì)企業(yè)的經(jīng)營(yíng)現(xiàn)狀而做出科學(xué)的分析，使得企業(yè)對(duì)市場(chǎng)的應(yīng)變能力得到了提高，從而通過(guò)餐飲管理信息系統(tǒng)來(lái)實(shí)現(xiàn)強(qiáng)化管理、降低成本、堵漏節(jié)流等作用。更好的完善企業(yè)的經(jīng)營(yíng)管理，提高企業(yè)自身的競(jìng)爭(zhēng)實(shí)力。一、設(shè)計(jì)思路1.1、 Access數(shù)據(jù)庫(kù) Access2003 就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢(xún)、存儲(chǔ)和檢索。那么什么叫數(shù)據(jù)庫(kù)呢？數(shù)據(jù)庫(kù)(Database)是由一些有意義和有關(guān)系的數(shù)據(jù)(data)所組合而成。一個(gè)數(shù)據(jù)庫(kù)中，包含了許多條記錄(Record),而每條記錄是由多個(gè)字段(Field)所組成,不同的字段存

8、放這不同的數(shù)據(jù)。所以數(shù)據(jù)庫(kù)的嚴(yán)格定義是一組相關(guān)記錄的集合，而字段則是最基本的數(shù)據(jù)項(xiàng)，也是數(shù)據(jù)庫(kù)中最小的單位。在計(jì)算機(jī)中用來(lái)幫我們管理數(shù)據(jù)庫(kù)的系統(tǒng)，我們稱(chēng)之為數(shù)據(jù)庫(kù)管理管理系統(tǒng)（Database Management System DBMS）。數(shù)據(jù)庫(kù)管理系統(tǒng)是架構(gòu)在一個(gè)或多個(gè)數(shù)據(jù)庫(kù)之上，并針對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行管理運(yùn)用。 Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類(lèi)似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)

9、絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶(hù)共享數(shù)據(jù)庫(kù)。如上所述，Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能1.2、餐廳系統(tǒng)餐廳系統(tǒng)是按國(guó)內(nèi)餐飲行業(yè)最新要求開(kāi)發(fā)的全新概念信息管理系統(tǒng)。該系統(tǒng)將餐廳收銀、往來(lái)帳務(wù)結(jié)算管理及銷(xiāo)售情況統(tǒng)計(jì)工作在單微機(jī)或網(wǎng)絡(luò)系統(tǒng)中完成。主要特點(diǎn)包括：（1）代碼菜譜編制，方便統(tǒng)計(jì)，方便輸入；（2）開(kāi)單、改單、結(jié)算、打印、用戶(hù)界面方便友好；（3）系統(tǒng)專(zhuān)設(shè)往來(lái)帳、內(nèi)部帳，結(jié)算方式靈活多樣，結(jié)算信息詳盡翔實(shí)；（4）帳務(wù)系統(tǒng)的可擴(kuò)充性。由于餐廳業(yè)務(wù)的擴(kuò)展，勢(shì)必要求帳務(wù)結(jié)算系統(tǒng)隨之?dāng)U展，在不修改程序的前提下，本系統(tǒng)可在相當(dāng)可觀

10、的范圍內(nèi)，由用戶(hù)擴(kuò)展其營(yíng)業(yè)項(xiàng)目和結(jié)算手段。（5）帳務(wù)操作數(shù)據(jù)的可校驗(yàn)性。本系統(tǒng)提供了多種方便的查詢(xún)、校核和統(tǒng)計(jì)功能，供帳務(wù)操作人員和專(zhuān)職核數(shù)人員自核及校對(duì)帳務(wù)數(shù)據(jù)。例如，當(dāng)班收銀員下班時(shí)直接統(tǒng)計(jì)當(dāng)班期間的輸單、收銀情況。為餐飲企業(yè)管理人員提供及時(shí)準(zhǔn)確的經(jīng)營(yíng)狀況和帳務(wù)信貸情況。餐廳系統(tǒng)需要完成的功能有以下幾點(diǎn)。（1）美食檔案：添加、修改、按菜系、原料、烹飪方法查詢(xún)（2）訂餐管理：訂餐、訂餐修改、訂餐取消、訂餐查詢(xún)。（3）收款管理：立帳、折扣設(shè)定。（4）銷(xiāo)售查詢(xún)：可按年、月、日檢查銷(xiāo)售情況，也可按銷(xiāo)售額查詢(xún)并畫(huà)出銷(xiāo)售額圖表。 二系統(tǒng)結(jié)構(gòu)設(shè)計(jì)及分析上面我們創(chuàng)建了飯店餐飲管理系統(tǒng)中餐飲管理部分的數(shù)據(jù)庫(kù)

11、結(jié)構(gòu)。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類(lèi)似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶(hù)共享數(shù)據(jù)庫(kù)。2.1、部分程序與窗體-frmmain進(jìn)入主頁(yè)面Private Sub Form_Load()strExplain(0) = "由餐飲部門(mén)的工作人員輸入各種菜肴的原始資料，以供編輯菜單使用。"strExplain(1) = "編輯、制作出令客人滿(mǎn)

12、意的菜單，并可預(yù)覽所點(diǎn)的各種美味佳肴，同時(shí)管理收費(fèi)。"strExplain(2) = "供餐飲部門(mén)經(jīng)理查看各種銷(xiāo)售記錄，統(tǒng)計(jì)分析各種數(shù)據(jù)。"strExplain(3) = "退出美食向?qū)С绦颉?quot;strExplain(4) = "本產(chǎn)品用于各級(jí)酒店餐飲部門(mén)的訂餐點(diǎn)菜及收費(fèi)管理。"。Private Sub lblDir_Click(Index As Integer)lblDir(Index).MousePointer = 11Select Case Index Case 0 If MsgBox("您是“" &

13、amp; strHotelName & "”餐飲部門(mén)工作人員嗎？", vbYesNo + vbQuestion, "美食檔案-輸入、編輯菜單原始資料") = vbNo Then Exit Sub End If frmInput.Show Me.Hide Case 1 Load frmGuest Case 2 If MsgBox("您是“" & strHotelName & "”餐飲部門(mén)管理人員嗎？", vbYesNo + vbQuestion, "美食檔案-銷(xiāo)量查詢(xún)")

14、= vbNo Then Exit Sub End If Load frmQuery Case 3 If MsgBox("要退出美食向?qū)幔?quot;, vbQuestion + vbYesNo, "退出提示") = vbNo Then Exit Sub End If Dim frm As Form For Each frm In Forms Unload frm Next EndEnd SelectEnd Sub-frmguest(code)可以訂餐、點(diǎn)餐、查看菜系等 Private Sub cmdAdd_Click()If lstCustomer.ListCo

15、unt = 0 Then If Trim(txtCustomerID) = "" Then MsgBox "請(qǐng)?zhí)顚?xiě)您的標(biāo)識(shí)！", vbInformation, "訂餐提示" txtCustomerID = "" txtCustomerID.SetFocus Exit Sub End If If Trim(txtSetCount) = "" Then MsgBox "請(qǐng)?zhí)顚?xiě)訂餐套數(shù)！", vbInformation, "訂餐提示" txtSetCount =

16、 "" txtSetCount.SetFocus Exit Sub End If If Trim(txtOrderDate) = "" Then MsgBox "請(qǐng)?zhí)顚?xiě)訂餐日期！", vbInformation, "訂餐提示" txtOrderDate = "" txtOrderDate.SetFocus Exit Sub Else With txtOrderDate If IsDate(Trim(.Text) Then .Text = Format(Trim(.Text), "YYY

17、Y-MM-DD") Else MsgBox "訂餐日期無(wú)效！請(qǐng)按默認(rèn)的日期格式填寫(xiě)。", vbInformation, "訂餐提示" .Text = Format(Date, "YYYY-MM-DD") .SetFocus .SelStart = 0 .SelLength = Len(txtOrderDate) Exit Sub End If End With End If If Trim(txtDinnerDate) = "" Then MsgBox "請(qǐng)?zhí)顚?xiě)用餐日期！", vbIn

18、formation, "訂餐提示" txtDinnerDate = "" txtDinnerDate.SetFocus Exit Sub Else With txtDinnerDate If IsDate(Trim(.Text) Then .Text = Format(Trim(.Text), "YYYY-MM-DD") Else MsgBox "用餐日期無(wú)效！請(qǐng)按默認(rèn)的日期格式填寫(xiě)。", vbInformation, "訂餐提示" .Text = Format(Date, "YYYY

19、-MM-DD") .SetFocus .SelStart = 0 .SelLength = Len(txtOrderDate) Exit Sub End If End With End If Rec2.FindFirst "CustomerID = '" & Trim(txtCustomerID) & "' And DinnerDate = #" & CDate(txtDinnerDate) & "#" If Rec2.NoMatch = False Then MsgBox &

20、quot;在相同的用餐日期內(nèi)（" & txtDinnerDate & "），" & vbCrLf _ & "已有一位標(biāo)識(shí)為“" & txtCustomerID & "”的客人。" & vbCrLf _ & "請(qǐng)您換一個(gè)標(biāo)識(shí)吧！", vbInformation, "訂餐提示" txtCustomerID.SetFocus txtCustomerID.SelStart = 0 txtCustomerID.SelLength =

21、 Len(txtCustomerID) Exit Sub End If txtCustomerID.Locked = True txtSetCount.Locked = True txtOrderDate.Locked = True txtDinnerDate.Locked = True cmdCheck.Enabled = True cmdPreview.Enabled = True AddToCustomerMenu If txtFindDate = txtDinnerDate Then cmdFind_Click End If Else '如果lstCustomer中有內(nèi)容的話(huà)

22、Dim I As Integer For I = 0 To lstCustomer.ListCount - 1 If Trim(Mid(lstCustomer.List(I), 4) = lstShowMenu.Text Then lstCustomer.ListIndex = I MsgBox "您已經(jīng)選擇了這道菜。如果想再加一份的話(huà)，請(qǐng)單擊“增加一份”按鈕。", vbInformation, "請(qǐng)餐提示" cmdAddOne.SetFocus Exit Sub End If Next I AddToCustomerMenu-frmguest 窗體-f

23、rminput 可添加、修改、刪除菜單，可按菜色、烹飪方法、原料顯示，可修改訂餐電話(huà)等Private Sub File1_Click()If Len(File1.FileName) > 20 Then MsgBox "這個(gè)文件的名字太長(zhǎng)，請(qǐng)把它的名字改為20個(gè)字以?xún)?nèi)。", vbInformation, "輸入、編輯菜單原始資料" File1.Visible = False Exit SubEnd IfDim L As LongL = FileLen(AppDir & "Image" & File1.FileNam

24、e)If L > 350000 Then MsgBox "圖片太大，請(qǐng)把它縮為大約300×300象素，300k左右。", vbInformation, "輸入、編輯菜單原始資料" File1.Visible = False Exit SubPrivate Sub MnuFileSave_Click()If Trim(txtName) = "" Then MsgBox "菜名不能空白！", vbExclamation, "輸入、編輯菜單原始資料" txtName = "&

25、quot; txtName.SetFocus Exit SubEnd IfIf Trim(txtABC) = "" Then MsgBox "請(qǐng)?zhí)顚?xiě)菜名的拼音字頭！", vbExclamation, "輸入、編輯菜單原始資料" txtABC = "" txtABC.SetFocus Exit SubEnd IfIf DBState = Add Then Rec.Close Set Rec = Nothing Set Rec = DB.OpenRecordset("Select * from Menu or

26、der by ABC,Name") Rec.FindFirst "Name='" & txtName & "'" If Rec.NoMatch = False Then MsgBox "“" & txtName & "”這道菜已經(jīng)存在！", vbInformation, "保存提示" txtName.SetFocus SendKeys "Home+End" Exit Sub End IfEnd IfOutputToDB

27、MnuShowWhole_ClickDBState = savedFrameState (DBState)End Sub-frmnutrition主要用于查看食物的營(yíng)養(yǎng)組成。-frmpreview生成賬單并打印出來(lái)。Dim sngH As SingleDim I As IntegerW = 12.5cmdPrint.Visible = FalselblWait.Visible = TrueDoEventsWith Printer .ScaleMode = 7 .Font.Size = 12 sngH = .TextHeight(frmGuest.lblWelcome(0) + 0.1 .Wid

28、th = 576 * W .Height = 576 * (10 + lstCustomer.ListCount * sngH) .Font.Name = "隸書(shū)" .Font.Size = 20 .CurrentX = (W - .TextWidth(frmGuest.lblWelcome(0) / 2 .CurrentY = 1For I = 0 To lstCustomer.ListCount - 1 .CurrentX = 2 .CurrentY = 3 + sngH * (I + 6) Printer.Print lstCustomer.List(I) Next

29、I .CurrentX = 2 .CurrentY = 3 + sngH * (I + 8) Printer.Print lblTotal .CurrentX = 2 .CurrentY = 3 + sngH * (I + 9) Printer.Print lblPay .CurrentX = 2 .CurrentY = 3 + sngH * (I + 12) Printer.Print "-結(jié)束(打印日期:" & Format(Date, "YYYY-MM-DD") & ")-" .CurrentX = 2 .Cur

30、rentY = 3 + sngH * (I + 16) Printer.Print lblWait.Visible = FalseIf MsgBox("現(xiàn)在開(kāi)始打印。請(qǐng)加紙。", vbInformation + vbOKCancel, "打印菜單") = vbOK Then .EndDocElse .KillDocEnd IfEnd WithcmdPrint.Visible = TrueExit SubEh: MsgBox "打印時(shí)發(fā)生錯(cuò)誤：" & vbCrLf & Err.Description, vbInforma

31、tion, "打印出錯(cuò)"End Sub-frmprice按消費(fèi)范圍進(jìn)行查詢(xún)等。Private Sub cmdOK_Click()With txtPrice1 If Trim(.Text) = "" Then .SetFocus Exit Sub End IfEnd WithWith txtPrice2 If Trim(.Text) = "" Then .SetFocus Exit Sub End IfEnd WithWith frmGuest .Rec1.Close Set .Rec1 = Nothing Set .Rec1 = .D

32、B.OpenRecordset("Select Name,Price From Menu Where Other3 = 0 And Price Between " & CCur(Trim(txtPrice1) & " And " & CCur(Trim(txtPrice2) & " Order By ABC,Name", dbOpenSnapshot) .ShowNamePrice .Rec1, .lstShowMenu, "請(qǐng)選擇（價(jià)格在" & txtPrice1 &

33、; "-" & txtPrice2 & "元之間）："End WithUnload MeEnd Sub-frmquery查銷(xiāo)售額，可以按年、月、日進(jìn)行查詢(xún)，也可生成銷(xiāo)售額的柱狀圖。-月銷(xiāo)售額查詢(xún)Private Sub cmdMonthFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox("請(qǐng)輸入年、月：(格式：YYYY-MM 如：" & Format(Date, "YYYY-MM") &

34、 ")", "月銷(xiāo)售額查詢(xún)", Format(Date, "YYYY-MM")If strFind = "" Then Exit SubIf Not IsDate(Left(strFind, 7) Then MsgBox "“" & strFind & "”不是一個(gè)有效的年月！", vbInformation, "月銷(xiāo)售額查詢(xún)" Exit SubEnd IfdatFind = Format(strFind, "YYYY-MM&qu

35、ot;)If MsgBox("您要查詢(xún)的年月是" & Year(datFind) & "年" & Month(datFind) & "月嗎？", vbQuestion + vbYesNo, "月銷(xiāo)售額查詢(xún)") = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = DB.OpenRecordset("Select Sum(Pay) From Sale Where Year(Date)

36、= " & Year(datFind) & " And Month(Date) = " & Month(datFind)If Not IsNull(Rec.Fields(0) Then S = Rec.Fields(0)End IfMsgBox Year(datFind) & "年" & Month(datFind) & "月的銷(xiāo)售額是：" & Format(S, "#0.00") & "元。", vbInformatio

37、n, "月銷(xiāo)售額查詢(xún)"Rec.CloseSet Rec = NothingEnd Sub-年銷(xiāo)售額查詢(xún)Private Sub cmdYearFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox("請(qǐng)輸入2位或4位年份：(如：" & Format(Date, "YYYY") & "或" & Format(Date, "YY") & "代表" &

38、; Format(Date, "YYYY") & "年)", "年銷(xiāo)售額查詢(xún)", Format(Date, "YYYY")If strFind = "" Then Exit SubDim strDate As StringstrDate = Left(strFind & "-01-01", 10)If Not IsDate(strDate) Then MsgBox "“" & strFind & "”不是一個(gè)有效的

39、年份！", vbInformation, "年銷(xiāo)售額查詢(xún)" Exit SubEnd IfdatFind = CDate(strDate)If MsgBox("您要查詢(xún)的年份是" & Year(datFind) & "年嗎？", vbQuestion + vbYesNo, "年銷(xiāo)售額查詢(xún)") = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = DB.OpenRecordset("Select Sum(Pay) From Sale Where Year(Date) = " & Year(datFind)If Not IsNull(Rec.Fields(0) Then S = Rec.Fields(0)End IfMsgBox Year(datFind) & "年的銷(xiāo)售額是：