【正文】 transmitted by the attendants to the traditional model of customers, with the restaurant39。 以前 依靠人工處理顧客垂詢、服務(wù)落單送到廚房 ， 廚房依照 菜單存根 制作菜肴，最后由服務(wù)員將菜肴遞送給顧客 的傳統(tǒng)模式， 隨著餐廳的規(guī)模及顧客的流量日益增大， 經(jīng)常會(huì)給 酒店的經(jīng)營(yíng)與管理者帶來(lái)了很多的煩惱和不必要的經(jīng)濟(jì)損失 。 實(shí)現(xiàn)了基礎(chǔ)信息管理、菜品信息設(shè)置、客人消費(fèi)管理、廚房做菜管理以及客人消費(fèi)信息統(tǒng)計(jì)等功能。 點(diǎn)菜系統(tǒng)管理的發(fā)展現(xiàn)狀 與 國(guó)外 同行業(yè) 相比，國(guó)內(nèi) 企業(yè) 管理起步較晚。我們可以將整個(gè)系統(tǒng)開(kāi)始過(guò)程分為以下 4 個(gè)一次連接的階段： （ 1） 系統(tǒng)規(guī)劃階段 （ 2） 系統(tǒng)開(kāi)發(fā)階段 （ 3） 系統(tǒng)運(yùn)行維護(hù)階段 （ 4） 系統(tǒng)更新階段 這四個(gè)階段共同構(gòu)成了系統(tǒng)開(kāi)發(fā)的生命周期。 開(kāi)發(fā)工具的簡(jiǎn)介 Visual Basic Visual Basic,簡(jiǎn)稱 VB，是 Microsoft 公司推出的一種 Windows 應(yīng)用程序開(kāi)發(fā)工具。用傳統(tǒng)程序設(shè)計(jì)語(yǔ)言設(shè)計(jì)程序時(shí)，都是通過(guò)編寫(xiě)程序代碼來(lái)設(shè)計(jì)用戶界面，在設(shè)計(jì)過(guò)程中看不到界面的實(shí)際顯示效果，必須編譯后運(yùn)行程序才能觀察。在一般的面向?qū)ο蟪绦蛟O(shè)計(jì)語(yǔ)言中，對(duì)象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 Visual Basic 則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法 (OOP)，把程序和數(shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予應(yīng)有的屬性，使對(duì)象成為實(shí)在的東西。 (4) 事件驅(qū)動(dòng)編程機(jī)制。 Visual Basic 提供開(kāi)放式數(shù)據(jù)連接，即 ODBC 功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如 SQL Server， Oracle 等。 （ 8）動(dòng)態(tài)鏈接庫(kù) (DLL) Visual Basic 是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。 版本使 SQL Server得到了廣泛的應(yīng)用，而 2021 版本在功能和易用性上有很大的增強(qiáng)，并推出了簡(jiǎn)體中文版，它包括企業(yè)版，標(biāo)準(zhǔn)版，開(kāi)發(fā)版和個(gè)人版 4 個(gè)版本。所以就單純的數(shù)據(jù)庫(kù)應(yīng)用來(lái)看，暫不存在太大的技術(shù)問(wèn)題。 （ 1）合理的設(shè)計(jì)數(shù)據(jù)庫(kù) 盡量合理地減少數(shù)據(jù)庫(kù)數(shù)據(jù)的冗余，使重復(fù)的數(shù)據(jù)保持在最小限度，這樣將不必要的多占用存儲(chǔ)空間，減少產(chǎn)生混亂影響的危險(xiǎn)，還能提高計(jì)算機(jī)的運(yùn)行速度。 查詢統(tǒng)計(jì)信息 （ 1）消費(fèi)總結(jié)：可以對(duì)客人消費(fèi)的信息通過(guò)起始時(shí)間、客戶名稱或操作員進(jìn)行查詢操作，查看詳細(xì)信息，并統(tǒng)計(jì)出業(yè)務(wù)筆數(shù)、總消費(fèi)金額。 （ 1）菜品類別維護(hù) 點(diǎn)菜管理系統(tǒng)的開(kāi)發(fā)與實(shí)現(xiàn) 15 此模塊可以對(duì)商品類別進(jìn)行維護(hù)，添加、修改和刪除操作。 Trim() amp。 amp。得到商品類表表中最大的類別編號(hào) If = Then = Format(GetMaxNum(select max(lbid) from splb), 000000) End If End Sub Private Sub Form_Resize() 39。 amp。添加一條商品類別紀(jì)錄 39。 39。 Trim() amp。更新商品信息記錄 If Trim() = Or Trim() = Then MsgBox 商品名稱或新類別不能為空 ! Exit Sub End If Dim tmprs As New With tmprs .CursorLocation = adUseClient If .State = 1 Then .Close .Open select * from spxx where spid=39。判斷單價(jià)文本框的輸入必須為數(shù)字 If IsNumeric() = False Then MsgBox 單價(jià)必須是數(shù)字 ! = End If End Sub Private Sub TopPicture_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) 39。 39。列表下邊顯示總數(shù)量、總金額、記錄人和備注，同時(shí) 移動(dòng)列表中選擇的菜品可以看其做好后的效果圖。顯示當(dāng)前商品的圖片 = False If = 0 Then Exit Sub If (, 0) = Then Exit Sub If ShowPicture(, (, 0)) = False Then Exit Sub 2 * , = True End Sub 點(diǎn)菜管理系統(tǒng)的開(kāi)發(fā)與實(shí)現(xiàn) 26 Private Sub ddd_RowColChange() Call MoveRow(ddd, ) End Sub Private Sub Form_Activate() 39。校驗(yàn)信息的正確性 39。 39。 39。 amp。 , amp。 39。 )) End If Next End Sub Private Sub UserControl14_Click() If = 0 Then MsgBox 您還沒(méi)有消費(fèi)商品 不能操作菜品 ! 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)) 點(diǎn)菜管理系統(tǒng)的開(kāi)發(fā)與實(shí)現(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ù)定菜，以及將做好的菜品時(shí)時(shí)的傳遞給服務(wù)員。存儲(chǔ)窗提議動(dòng)前的 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。 where id= amp。1 Dim arrName() arrName = Array(業(yè)務(wù)代碼 , 客戶名稱 , 消費(fèi)日期 , 總消費(fèi)額 (元 ), 交費(fèi)金額 (元 ), 操作員 ) Dim arrColwidth() 點(diǎn)菜管理系統(tǒng)的開(kāi)發(fā)與實(shí)現(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。 amp。 amp。 And =39。 %39。3 = 0 = 0 = 0 For i = 1 To 1 If (i, 0) Then = Val() + 1 End If 點(diǎn)菜管理系統(tǒng)的開(kāi)發(fā)與實(shí)現(xiàn) 36 If (i, 4) Then = Val() + Val((i, 3)) 。 amp。 amp。 %39。 And =39。 39。 Format(Now, yyyymmdd hh:mm:ss) amp。動(dòng)態(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。 , amp。 39。, amp。,39。 amp。 amp。還原當(dāng)前的窗體移動(dòng)標(biāo)志 點(diǎn)菜管理系統(tǒng)的開(kāi)發(fā)與實(shí)現(xiàn) 28 boolMouseFlag = False End Sub Private Sub UserControl11_Click() 39。2 Call addData(0) Call ( 單據(jù) ) Unload Me End Sub Private Sub ddd_DblClick() 39。 39。 amp。綁定類別數(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。校驗(yàn)信息的正確性 39。,39。 amp。) If strResult OK Then MsgBox strResult End If Unload Me End Sub Private Sub UserControl13_Click() 39。刪除商品類別 (如果商品類別下有商品信息，則不允許刪除 ) Dim strResult As String If ExecSql(select * from spxx where lbid=39。 39。).RecordCount 0 Then MsgBox 類別名稱不能重復(fù) ! Exit Sub End If 39。1 If Trim() = Then MsgBox 類別名稱不能為空 ! Exit Sub End If If ExecSql(select * from splb where lbid 39。如圖 42 所示。 業(yè)務(wù)信息管理 （ 1）客人消費(fèi)：對(duì)客人進(jìn)行訂餐登記，點(diǎn)餐，以及參考廚房做菜等操作。 系統(tǒng)目標(biāo) 我們一般設(shè)計(jì)系統(tǒng)都要完 成以下的幾個(gè)要求，以便于用戶進(jìn)行操作。而這個(gè)系統(tǒng)盡管其在組織關(guān)系上存在著很大的復(fù)雜性，繁瑣性，但是就整個(gè)系統(tǒng)的技術(shù)構(gòu)成上來(lái)看，它還是屬于一個(gè)數(shù)據(jù)庫(kù)應(yīng)用類的系統(tǒng)。 （ 1）關(guān)于 SQL Server2021 的介紹： Microsoft SQL Server2021 是由 Microsoft 公司開(kāi)發(fā)的，在 Microsoft SQL Server 的發(fā)展歷程 中，有兩版本具有重要的意義。 OLE 技術(shù)是 Microsoft 公司對(duì)象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看做是一個(gè)對(duì)象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。 （ 5）訪問(wèn)數(shù)據(jù)庫(kù) Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功 能。 Visual Basic 是解釋型語(yǔ)言，在輸入代碼 的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。 (2) 面向?qū)ο蟮脑O(shè)計(jì)。學(xué)習(xí)版使編程人員很容易地開(kāi)發(fā) Windows 和 Windows NT 的應(yīng)用程序；專業(yè)版為專業(yè)編程人員提供了功能完備的開(kāi)發(fā)工具；企業(yè)版允許專業(yè)人員以小組的形式來(lái)創(chuàng)建強(qiáng)健的分布式應(yīng)用程序。系統(tǒng)運(yùn)行與維護(hù)階段優(yōu)勢(shì)整個(gè)生命周期中歷時(shí)最久的階段，也是 酒企銷售 系統(tǒng)實(shí)現(xiàn)其功能，獲得效益的階段。滿足 操作人員 的各種需求。 Visual Basic 。在設(shè)計(jì)過(guò)程中最大限度滿足用戶的要求，因此，該系統(tǒng)具有較強(qiáng)的實(shí)用性和針對(duì)性。 本系統(tǒng) —— 點(diǎn)菜系統(tǒng) 是根據(jù) 餐飲企業(yè)的特點(diǎn)，為企業(yè) 量身定做的 餐飲 管理軟件。 consumption。 本系統(tǒng) 以點(diǎn)菜為中心，涵蓋了 部門人員、 菜系菜品 、 客人消費(fèi) ， 廚房做菜 、以及查詢、顯示等功能 ，具有高效率、安