【正文】 Year(datFind))If Not IsNull((0)) Then S = (0)End IfMsgBox Year(datFind) amp。 代表 amp。 Month(datFind) amp。 Year(datFind) amp。 amp。 vbCrLf amp。 txtName amp。, vbInformation, 輸入、編輯菜單原始資料 = False Exit SubEnd IfDim L As LongL = FileLen(AppDir amp。 txtCustomerID amp。 39。 strHotelName amp。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。例如，當班收銀員下班時直接統(tǒng)計當班期間的輸單、收銀情況。另外，Access 允許創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。更好的完善企業(yè)的經(jīng)營管理，提高企業(yè)自身的競爭實力。 首先，人才的專業(yè)化程度不夠?qū)е聝?nèi)供不足：因餐飲業(yè)門坎較低，中國的大多數(shù)餐飲企業(yè)的老板是從小店發(fā)展起來的，家族式管理的居多，還沒有發(fā)展到聘請職業(yè)經(jīng)理人，許多還是人治，并沒有一套現(xiàn)代企業(yè)制度和監(jiān)督管理體制，所以從觀念意識、經(jīng)營思想和管理水平還有待專業(yè)化。民以食為天，隨著人民生活水平和生活方式的轉(zhuǎn)變，漸漸的人們發(fā)現(xiàn)餐飲業(yè)具有巨大的投資市場。飯店餐飲管理系統(tǒng)設計說明作者：日期：X x 學 院面向?qū)ο蟪绦蛟O計課程設計說明書題目： 飯店餐飲管理系統(tǒng) 系(部)： 電子與通信工程系 專業(yè)(班級)： 07級電子信息工程專業(yè)1班 姓名： 萬xx 學號： 2007xxxxxx 指導教師： 馬xx、謝xx 起止日期： ～  課程任務書課題名稱飯店餐飲管理系統(tǒng)設計內(nèi)容及要求設計一個《飯店餐飲管理系統(tǒng)》，要求界面美觀，具有操作菜單及工具欄；系統(tǒng)應包括下列功能模塊：用戶管理模塊：用戶登錄、用戶的添加、刪除、密碼修改功能。隨著餐飲業(yè)投資者的不斷涌入，許多新一代的快餐店，披薩店，餐館在國內(nèi)開始風靡，隨處可見。其次，應變能力差，缺乏先進的信息工具：現(xiàn)在的餐飲市場火爆，許多以前做電子、房地產(chǎn)等其他行業(yè)的老板都憑借雄厚的資金實力擠進餐飲市場，爭先恐后的上規(guī)模、上檔次、比菜品、比服務、拼價格，使餐飲市場競爭激烈，但是許多餐飲企業(yè)缺乏對市場的應變能力和靈敏的信息工具，在現(xiàn)今網(wǎng)絡經(jīng)濟的時代，許多餐飲企業(yè)還處在手工及半手工狀態(tài)，即使有計算機也只當個點菜器和計算器用，并沒有真正通過計算機系統(tǒng)來實現(xiàn)改造流程、強化管理、降低成本、堵漏節(jié)流等作用?！∫?、設計思路、 Access數(shù)據(jù)庫 Access2003 就是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。為餐飲企業(yè)管理人員提供及時準確的經(jīng)營狀況和帳務信貸情況。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。Private Sub lblDir_Click(Index As Integer)lblDir(Index).MousePointer = 11Select Case Index Case 0 If MsgBox(您是“ amp。 Trim(txtCustomerID) amp。 已有一位標識為“ amp。, vbInformation, 請餐提示 Exit Sub End If Next I AddToCustomerMenufrmguest 窗體frminput 可添加、修改、刪除菜單，可按菜色、烹飪方法、原料顯示，可修改訂餐電話等Private Sub File1_Click()If Len() 20 Then MsgBox 這個文件的名字太長，請把它的名字改為20個字以內(nèi)。 If = False Then MsgBox “ amp。, vbInformation + vbOKCancel, 打印菜單) = vbOK Then .EndDocElse .KillDocEnd IfEnd With = TrueExit SubEh: MsgBox 打印時發(fā)生錯誤： amp。 txtPrice1 amp。 ”不是一個有效的年月！, vbInformation, 月銷售額查詢 Exit SubEnd IfdatFind = Format(strFind, YYYYMM)If MsgBox(您要查詢的年月是 amp。 年 amp。 Format(Date, YY) amp。 年嗎？, vbQuestion + vbYesNo, 年銷售額查詢) = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySe