【正文】 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)) 。 %39。 amp。 %39。 amp。 _ amp。 amp。 And =39。 amp。 where = And =39。 %39。 amp。 %39。 amp。 _ amp。 amp。 And =39。 amp。 where = And =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。 39。 圖 47 消費總結(jié) 其代碼實現(xiàn)如下： Private Sub btn 添加 _Click() 39。 ) 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ù)提供良好的幫助。 where id= amp。 Format(Now, yyyymmdd hh:mm:ss) amp。,wcsj=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。存儲窗提議動前的 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。動態(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。設(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。 圖 46 廚房做菜 其代碼實現(xiàn)如下： Private Sub ddd_DblClick() 39。 )) 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ù)員。 , amp。, amp。 Trim((i, 0)) amp。 39。 39。 amp。 )) Dim i As Long 39。 , amp。, amp。 strRyid amp。,39。 amp。,39。 amp。 ,39。 39。 amp。 39。 amp。 39。 amp。存 儲商品信息 39。設(shè)置 frmSpXZ 的窗體標(biāo)志 = 選擇商品 1 End Sub Private Sub addData(sing 交費金額 As Single) 39。校驗信息的正確性 39。還原當(dāng)前的窗體移動標(biāo)志 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 28 boolMouseFlag = False End Sub Private Sub UserControl11_Click() 39。準(zhǔn)備窗體移動標(biāo)志 intOldX = x intOldy = y boolMouseFlag = True End Sub Private Sub TopPicture_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) 39。設(shè)置表格標(biāo)題和樣式 Dim arrName() arrName = Array(商品代碼 , 商品名稱 , 商品類別 , 商品規(guī)格 , 計量單位 , 單價 (元 ), 數(shù)量 , 金額 (元 )) Dim arrColwidth() arrColwidth = Array(0, 2021, 1500, 1000, 1000, 1000, 1500, 1500) = 8 = 2 Dim i As Long For i = 0 To 1 (i) = arrColwidth(i) (0, i) = arrName(i) (1, i) = Next = 50 = Format(Date, yyyymmdd) End Sub Private Sub Form_Resize() 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 27 39。顯示當(dāng)前商品的圖片 = False If = 0 Then Exit Sub If (, 0) = Then Exit Sub If ShowPicture(, (, 0)) = False Then Exit Sub 2 * , = True End Sub 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 26 Private Sub ddd_RowColChange() Call MoveRow(ddd, ) End Sub Private Sub Form_Activate() 39。2 Call addData(0) Call ( 單據(jù) ) Unload Me End Sub Private Sub ddd_DblClick() 39。存儲等待結(jié)賬的信息 39。 圖 45 客人點 菜 其代碼實現(xiàn)如下： Private Sub btn 添加 _Click() 39。列表下邊顯示總數(shù)量、總金額、記錄人和備注，同時 移動列表中選擇的菜品可以看其做好后的效果圖。 39。 amp。 39。 39。 amp。關(guān)閉窗體 Unload Me End Sub Private Sub UserControl12_Click() 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。判斷單價文本框的輸入必須為數(shù)字 If IsNumeric() = False Then MsgBox 單價必須是數(shù)字 ! = End If End Sub Private Sub TopPicture_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 39。綁定類別數(shù)據(jù)到 DataCombo1 中 If = Then = Format(GetMaxNum(select max(spid) from spxx), 000000) End If Call Combo 數(shù)據(jù)邦定 (, select lbid,lbmc from splb) = 0 End Sub Private Sub Form_Resize() 39。, conn, adOpenDynamic, adLockOptimistic .Fields(spmc).Value = Trim() .Fields(jldw).Value = .Fields(dj).Value = Val() 點菜管理系統(tǒng)的開發(fā)與實現(xiàn) 20 .Fields(spgg).Value = Trim() .Fields(bz).Value = Trim() .Fields(lbid).Value = If 0 Then Call SavePicture(, ) Open For Binary As 1 ReDim aa(1 To LOF(1)) As Byte Get 1, 1, aa() Close 1 Kill .Fields(pic).Value = aa() End If .Update End With Unload Me End Sub Private Sub Form_Activate() 39。 amp。更新商