【導(dǎo)讀】業(yè)的運作管理模式也在不斷的完善更新。以前依靠人工處理顧客垂詢、服務(wù)落單送到廚房，廚?？偷牧髁咳找嬖龃螅?jīng)常會給酒店的經(jīng)營與管理者帶來了很多的煩惱和不必要的經(jīng)濟損失。點餐系統(tǒng)解決方案。本系統(tǒng)——點菜系統(tǒng)是根據(jù)餐飲企業(yè)的特點，為企業(yè)量身定做的餐飲管理軟件。程中最大限度滿足用戶的要求，因此，該系統(tǒng)具有較強的實用性和針對性。好，操作簡單，可維護性強等特點。本軟件使用VisualBasic，采用客戶端/服務(wù)器的模型構(gòu)架。

　　

【正文】 Sub Private Sub TopPicture_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 39。存儲窗提議動前的 left,top Dim intLeft, intTop As Integer intLeft = intTop = If = 2 Then Exit Sub If boolMouseFlag = True Then = intLeft + (x intOldX) = intTop + (y intOldy) End If End Sub Private Sub TopPicture_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 39。還原當(dāng)前的窗體移動標(biāo)志 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 28 boolMouseFlag = False End Sub Private Sub UserControl11_Click() 39。關(guān)閉窗體 Unload Me End Sub Private Sub UserControl12_Click() 39。校驗信息的正確性 39。存儲結(jié)賬信息 If Val() = 0 Then MsgBox 當(dāng)前沒有任何的消費商品 ! Exit Sub End If If Val() Val() Then MsgBox 付款金額小于消費金額，不能結(jié)賬 ! Exit Sub End If Call addData(Val()) Call ( 單據(jù) ) Unload Me End Sub Private Sub UserControl13_Click() 39。設(shè)置 frmSpXZ 的窗體標(biāo)志 = 選擇商品 1 End Sub Private Sub addData(sing 交費金額 As Single) 39。存儲菜單主信息 39。存 儲商品信息 39。1 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 29 Call Exec_SqL(delete from dc where ywid=39。 amp。 amp。 39。) Call Exec_SqL(delete from dcmx where ywid=39。 amp。 amp。 39。) Call Exec_SqL(insert into dc (ywid,khmc,xfrq,ryid,zxfe,jfje) values(39。 amp。 amp。 39。 _ amp。 ,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 strRyid amp。 39。, amp。 Val() amp。 , amp。 sing 交費金額 amp。 )) Dim i As Long 39。2 For i = 1 To 1 If (i, 0) Then Call Exec_SqL(insert into dcmx (ywid,spid,sl,je) values(39。 amp。 amp。 39。, _ amp。 39。 amp。 Trim((i, 0)) amp。 39。, amp。 Val((i, 2)) amp。 , amp。 Val((i, 1)) amp。 )) End If Next End Sub Private Sub UserControl14_Click() If = 0 Then MsgBox 您還沒有消費商品 不能操作菜品 ! Exit Sub End If If Trim() = Then MsgBox 客戶名稱為空 Exit Sub End If Dim i As Long With frmCzcp . = For i = 1 To 1 If (i, 0) Then .(i, 1) = Trim() .(i, 2) = Trim((i, 0)) 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 30 .(i, 3) = Trim((i, 1)) .(i, 4) = Trim((i, 3)) .(i, 5) = Trim((i, 4)) .(i, 6) = Trim((i, 6)) End If Next End With 1 End Sub （ 2）廚房做菜模塊 此模塊可以查看客人預(yù)定菜，以及將做好的菜品時時的傳遞給服務(wù)員。如圖 46所示。 圖 46 廚房做菜 其代碼實現(xiàn)如下： Private Sub ddd_DblClick() 39。選擇商品信息 (方式 雙擊表格的第一列 ) 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 31 If = 0 Then Exit Sub If 0 Then Exit Sub If (, 2) = Then Exit Sub If (, 0) = √ Then (, 0) = Else (, 0) = √ End If End Sub Sub updatelist() 39。設(shè)置表格標(biāo)題和樣式 Dim arrName() arrName = Array(操作完成 , 流水號 , 商品代碼 , 商品名稱 , 客戶名稱, 數(shù)量 , 預(yù)定時間 ) Dim arrColwidth() arrColwidth = Array(800, 0, 0, 3000, 2021, 2021, 2021) = 7 = 2 Dim i As Long For i = 0 To 1 (i) = arrColwidth(i) (0, i) = arrName(i) (1, i) = Next = 20 (4) = True Call UpdateDDD1(ddd, ExecSql(V 制作菜單 ), 1) End Sub Private Sub ddd_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 32 39。顯示當(dāng)前商品的圖片 = False If = 0 Then Exit Sub If (, 2) = Then Exit Sub If ShowPicture(, (, 2)) = False Then Exit Sub 2 * , = True End Sub Private Sub ddd_RowColChange() Call MoveRow(ddd, ) End Sub Private Sub Form_Load() Call updatelist End Sub Private Sub Form_Resize() 39。動態(tài)改變窗體的樣式和標(biāo)題 Call FormFace(Me, TopPicture, KKShape) Call TopCaption(, ) End Sub Private Sub Timer1_Timer() Call updatelist End Sub Private Sub TopPicture_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 39。準(zhǔn)備窗體移動標(biāo)志 intOldX = x intOldy = y boolMouseFlag = True End Sub 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 33 Private Sub TopPicture_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 39。存儲窗提議動前的 left,top Dim intLeft, intTop As Integer intLeft = intTop = If = 2 Then Exit Sub If boolMouseFlag = True Then = intLeft + (x intOldX) = intTop + (y intOldy) End If End Sub Private Sub TopPicture_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 39。還原當(dāng)前的窗體移動標(biāo)志 boolMouseFlag = False End Sub Private Sub UserControl11_Click() Unload Me End Sub Private Sub UserControl12_Click() = False 39。將選中的制作完成菜品信息傳遞到前臺 If MsgBox(您確認(rèn)選擇的菜品已經(jīng)制作完成么 ?, 4 + 256 + 64, ) = vbYes Then Dim i As Long For i = 1 To 1 If (i, 0) = √ Then Call Exec_SqL(update cd set bz=39。已完成 39。,wcsj=39。 amp。 Format(Now, yyyymmdd hh:mm:ss) amp。 39。 where id= amp。 Val((i, 1)) amp。 ) End If 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 34 Next End If Call updatelist = True End Sub 查詢統(tǒng)計信息 （ 1）消費總結(jié) 此頁面可以通過選擇、輸入查詢條件進行查詢，列表中顯示采購日期、供應(yīng)商名稱、總數(shù)量、總金額、記錄人、備注，統(tǒng)計信息中顯示業(yè)務(wù)筆數(shù)、消費金額等，為了管理者能更好的管理公司業(yè)務(wù)提供良好的幫助。如圖 47 所示。 圖 47 消費總結(jié) 其代碼實現(xiàn)如下： Private Sub btn 添加 _Click() 39。 39。 39。 ,總金額和交費金額 39。1 Dim arrName() arrName = Array(業(yè)務(wù)代碼 , 客戶名稱 , 消費日期 , 總消費額 (元 ), 交費金額 (元 ), 操作員 ) Dim arrColwidth() 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 35 arrColwidth = Array(2500, 2500, 2021, 1500, 1500, 1500) = 6 = 2 Dim i As Long For i = 0 To 1 (i) = arrColwidth(i) (0, i) = arrName(i) (1, i) = Next = 27 39。2 If = 0 Then Call UpdateDDD(ddd, ExecSql(select ,, from dc,ry _ amp。 where = And =39。 amp。 amp。 39。 And =39。 amp。 amp。 39。 _ amp。 and like 39。 amp。 amp。 %39。 and like39。 amp。 amp。 %39。 And 0)) Else Call UpdateDDD(ddd, ExecSql(select ,, from dc,ry _ amp。 where = And =39。 amp。 amp。 39。 And =39。 amp。 amp。 39。 _ amp。 and like 39。 amp。 amp。 %39。 and like39。 amp。 amp。 %39。 And = 0)) End If 39。3 = 0 = 0 = 0 For i = 1 To 1 If (i, 0) Then = Val() + 1 End If 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 36 If (i, 4) Then = Val() + Val((i, 3))