【正文】 Exit Sub End If If Trim(txtSetCount) = Then MsgBox 請?zhí)顚懹啿吞讛担? vbInformation, 訂餐提示 txtSetCount = Exit Sub End If If Trim(txtOrderDate) = Then MsgBox 請?zhí)顚懹啿腿掌冢? vbInformation, 訂餐提示 txtOrderDate = Exit Sub Else With txtOrderDate If IsDate(Trim(.Text)) Then .Text = Format(Trim(.Text), YYYYMMDD) Else MsgBox 訂餐日期無效！請按默認的日期格式填寫。strExplain(3) = 退出《美食向導》程序。（4）銷售查詢：可按年、月、日檢查銷售情況，也可按銷售額查詢并畫出銷售額圖表。由于餐廳業(yè)務的擴展，勢必要求帳務結算系統(tǒng)隨之擴展，在不修改程序的前提下，本系統(tǒng)可在相當可觀的范圍內，由用戶擴展其營業(yè)項目和結算手段。在計算機中用來幫我們管理數據庫的系統(tǒng)，我們稱之為數據庫管理管理系統(tǒng)（Database Management System DBMS）。信息系統(tǒng)的引進，則會緩解和解決以上問題：首先，餐飲管理信息系統(tǒng)不是單純的用于結帳計算的工具，它有著科學的、標準的管理體系，它是通過對目前餐飲市場的具體情況科學的調研分析后設計而成的，它能夠針對中餐因其菜品的多樣化和特色化的服務很難實現標準化管理，使中餐企業(yè)的成本控制很難實現這些問題給與解決。隨著中國對外的不斷開放，會有大量的企業(yè)或公司介入到餐飲領域。留言模塊：記錄并瀏覽顧客的意見和建議；抽獎功能：當顧客的消費達到指定金額時，可分檔抽取小獎品。點菜模塊：進行點菜操作后能預覽點菜結果，并統(tǒng)計金額；買單模塊：進行買單操作，可記錄菜單信息、時間信息及收款員等相關信息，并實現全款買單、打折買單及免單等功能；要求能按時間段查詢買單信息。餐飲業(yè)不僅面臨著巨大的發(fā)展機遇，也面臨著前所未有的挑戰(zhàn)和考驗。中餐因其菜品的多樣化和特色化的服務很難實現標準化管理，這使中餐企業(yè)的成本控制很難實現，但近兩年也出現了引進快餐式經營特點的中餐企業(yè)，從流程、服務、出品都開了中餐標準化的先河。所以數據庫的嚴格定義是一組相關記錄的集合，而字段則是最基本的數據項，也是數據庫中最小的單位。主要特點包括：（1）代碼菜譜編制，方便統(tǒng)計，方便輸入；（2）開單、改單、結算、打印、用戶界面方便友好；（3）系統(tǒng)專設往來帳、內部帳，結算方式靈活多樣，結算信息詳盡翔實；（4）帳務系統(tǒng)的可擴充性。（3）收款管理：立帳、折扣設定。strExplain(2) = 供餐飲部門經理查看各種銷售記錄，統(tǒng)計分析各種數據。, vbInformation, 訂餐提示 .Text = Format(Date, YYYYMMDD) .SetFocus .SelStart = 0 .SelLength = Len(txtOrderDate) Exit Sub End If End With End If If Trim(txtDinnerDate) = Then MsgBox 請?zhí)顚懹貌腿掌冢? vbInformation, 訂餐提示 txtDinnerDate = Exit Sub Else With txtDinnerDate If IsDate(Trim(.Text)) Then .Text = Format(Trim(.Text), YYYYMMDD) Else MsgBox 用餐日期無效！請按默認的日期格式填寫。 txtDinnerDate amp。 請您換一個標識吧！, vbInformation, 訂餐提示 = 0 = Len(txtCustomerID) Exit Sub End If = True = True = True = True = True = True AddToCustomerMenu If txtFindDate = txtDinnerDate Then cmdFind_Click End If Else 39。 amp。 Format(Date, YYYYMMDD) amp。 And amp。 Format(Date, YYYYMM) amp。 Year(datFind) amp。, vbInformation, 月銷售額查詢Set Rec = NothingEnd Sub年銷售額查詢Private Sub cmdYearFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox(請輸入2位或4位年份：(如： amp。 strFind amp。, vbInformation, 年銷售額查詢Set Rec = NothingEnd Sub三、設計總結 通過一周的ＶＢ課程設計，使我增加了對ＶＢ課程的了解