飯店餐飲管理系統(tǒng)設(shè)計(jì)說(shuō)明(完整版)
【正文】 uest Case 2 If MsgBox(您是“ amp。 And DinnerDate = amp。 ”的客人。 Image\ amp。 ”這道菜已經(jīng)存在！, vbInformation, 保存提示 SendKeys {Home}+{End} Exit Sub End IfEnd IfOutputToDBMnuShowWhole_ClickDBState = savedFrameState (DBState)End Subfrmnutrition主要用于查看食物的營(yíng)養(yǎng)組成。 , vbInformation, 打印出錯(cuò)End Subfrmprice按消費(fèi)范圍進(jìn)行查詢等。 txtPrice2 amp。 年 amp。 月的銷售額是： amp。 Format(Date, YYYY) amp。 年的銷售額是： amp。 元。 0101, 10)If Not IsDate(strDate) Then MsgBox “ amp。 元。 月嗎？, vbQuestion + vbYesNo, 月銷售額查詢) = vbNo Then Exit SubEnd IfDim Rec As RecordsetDim S As CurrencySet Rec = (Select Sum(Pay) From Sale Where Year(Date) = amp。月銷售額查詢Private Sub cmdMonthFind_Click()Dim datFind As DateDim strFind As StringstrFind = Trim(InputBox(請(qǐng)輸入年、月：(格式：YYYYMM 如： amp。 CCur(Trim(txtPrice1)) amp。Dim sngH As SingleDim I As IntegerW = = False = TrueDoEventsWith Printer .ScaleMode = 7 . = 12 sngH = .TextHeight((0)) + .Width = 576 * W .Height = 576 * (10 + * sngH) . = 隸書 . = 20 .CurrentX = (W .TextWidth((0))) / 2 .CurrentY = 1……For I = 0 To 1 .CurrentX = 2 .CurrentY = 3 + sngH * (I + 6) (I) Next I .CurrentX = 2 .CurrentY = 3 + sngH * (I + 8) lblTotal .CurrentX = 2 .CurrentY = 3 + sngH * (I + 9) lblPay .CurrentX = 2 .CurrentY = 3 + sngH * (I + 12) 結(jié)束(打印日期: amp。, vbInformation, 輸入、編輯菜單原始資料 = False Exit SubPrivate Sub MnuFileSave_Click()If Trim(txtName) = Then MsgBox 菜名不能空白！, vbExclamation, 輸入、編輯菜單原始資料 txtName = Exit SubEnd IfIf Trim(txtABC) = Then MsgBox 請(qǐng)?zhí)顚懖嗣钠匆糇诸^！, vbExclamation, 輸入、編輯菜單原始資料 txtABC = Exit SubEnd IfIf DBState = Add Then Set Rec = Nothing Set Rec = (Select * from Menu order by ABC,Name) Name=39。 vbCrLf _ amp。 If = False Then MsgBox 在相同的用餐日期內(nèi)（ amp。 ”餐飲部門管理人員嗎？, vbYesNo + vbQuestion, 美食檔案銷量查詢) = vbNo Then Exit Sub End If Load frmQuery Case 3 If MsgBox(要退出《美食向?qū)А穯幔? vbQuestion + vbYesNo, 退出提示) = vbNo Then Exit Sub End If Dim frm As Form For Each frm In Forms Unload frm Next EndEnd SelectEnd Subfrmguest(code)可以訂餐、點(diǎn)餐、查看菜系等 Private Sub cmdAdd_Click()If = 0 Then If Trim(txtCustomerID) = Then MsgBox 請(qǐng)?zhí)顚懩臉?biāo)識(shí)！, vbInformation, 訂餐提示 txtCustomerID =
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1