畢業設計-點菜管理系統的開發與實現-資料下載頁

【導讀】業的運作管理模式也在不斷的完善更新。以前依靠人工處理顧客垂詢、服務落單送到廚房，廚。客的流量日益增大，經常會給酒店的經營與管理者帶來了很多的煩惱和不必要的經濟損失。點餐系統解決方案。本系統——點菜系統是根據餐飲企業的特點，為企業量身定做的餐飲管理軟件。程中最大限度滿足用戶的要求，因此，該系統具有較強的實用性和針對性。好，操作簡單，可維護性強等特點。本軟件使用VisualBasic，采用客戶端/服務器的模型構架。

　　

【正文】 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。還原當前的窗體移動標志 點菜管理系統的開發與實現 28 boolMouseFlag = False End Sub Private Sub UserControl11_Click() 39。關閉窗體 Unload Me End Sub Private Sub UserControl12_Click() 39。校驗信息的正確性 39。存儲結賬信息 If Val() = 0 Then MsgBox 當前沒有任何的消費商品 ! Exit Sub End If If Val() Val() Then MsgBox 付款金額小于消費金額，不能結賬 ! Exit Sub End If Call addData(Val()) Call ( 單據 ) Unload Me End Sub Private Sub UserControl13_Click() 39。設置 frmSpXZ 的窗體標志 = 選擇商品 1 End Sub Private Sub addData(sing 交費金額 As Single) 39。存儲菜單主信息 39。存 儲商品信息 39。1 點菜管理系統的開發與實現 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)) 點菜管理系統的開發與實現 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）廚房做菜模塊 此模塊可以查看客人預定菜，以及將做好的菜品時時的傳遞給服務員。如圖 46所示。 圖 46 廚房做菜 其代碼實現如下： Private Sub ddd_DblClick() 39。選擇商品信息 (方式 雙擊表格的第一列 ) 點菜管理系統的開發與實現 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。設置表格標題和樣式 Dim arrName() arrName = Array(操作完成 , 流水號 , 商品代碼 , 商品名稱 , 客戶名稱, 數量 , 預定時間 ) 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) 點菜管理系統的開發與實現 32 39。顯示當前商品的圖片 = 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。動態改變窗體的樣式和標題 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。準備窗體移動標志 intOldX = x intOldy = y boolMouseFlag = True End Sub 點菜管理系統的開發與實現 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。還原當前的窗體移動標志 boolMouseFlag = False End Sub Private Sub UserControl11_Click() Unload Me End Sub Private Sub UserControl12_Click() = False 39。將選中的制作完成菜品信息傳遞到前臺 If MsgBox(您確認選擇的菜品已經制作完成么 ?, 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 點菜管理系統的開發與實現 34 Next End If Call updatelist = True End Sub 查詢統計信息 （ 1）消費總結 此頁面可以通過選擇、輸入查詢條件進行查詢，列表中顯示采購日期、供應商名稱、總數量、總金額、記錄人、備注，統計信息中顯示業務筆數、消費金額等，為了管理者能更好的管理公司業務提供良好的幫助。如圖 47 所示。 圖 47 消費總結 其代碼實現如下： Private Sub btn 添加 _Click() 39。 39。 39。 ,總金額和交費金額 39。1 Dim arrName() arrName = Array(業務代碼 , 客戶名稱 , 消費日期 , 總消費額 (元 ), 交費金額 (元 ), 操作員 ) Dim arrColwidth() 點菜管理系統的開發與實現 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 點菜管理系統的開發與實現 36 If (i, 4) Then = Val() + Val((i, 3))