【文章內容簡介】 失 敗 圖 31 點菜系統功能圖 主要模塊的流程圖 菜品類別設置 新 類 別類 別 名 稱 是 否為 空 、 重 復新 的 類 別 信 息添 加 完 成取 消否是刪 除修 改類 別 名 稱 是 否為 空 、 重 復此 類 別 是 否 有商 品 信 息菜 品 類別 設 置是 是類 別 信 息 刪 除完 成類 別 信 息 修 改完 成否否 圖 32 菜品類別設置流程圖 點菜管理系統的開發(fā)與實現 10 菜品信息設置 菜 品 信息 設 置新 菜 品菜 品 信 息 添加 完 成菜 品 名 稱 或 新類 別 是 否 為 空刪 除修 改菜 品 名 稱 或 新類 別 是 否 為 空菜 品 信 息 添加 完 成菜 品 信 息 添加 完 成結 束否是 是否 圖 33 菜品信息維護流程圖 客人點餐 客 人 消費 管 理新 單取 消結 束查 看雙 擊 某 一 記 錄可 以 結 賬新 的 客 人 登記客 人 點 完 菜將 信 息 保 存查 看 客 人 已經 結 賬 單 據信 息查 看 客 人 正在 消 費 的 賬單 信 息查 看 廚 房 的做 菜 信 息 圖 33 客人點餐流程圖 點菜管理系統的開發(fā)與實現 11 消費總結 消 費 總結查 詢取 消輸 入 查 詢 條 件顯 示 查 詢 結 果結 束是否詳 細 信 息選 擇 某 一 記 錄顯 示 該 記 錄 詳細 信 息 圖 34 消費總結流程圖 E－ R 圖 人 員部 門菜品信息菜 品 類 別點 菜菜 單處 理調用1NNN1擁 有擁 有1N1N1 圖 35 ER圖 點菜管理系統的開發(fā)與實現 12 數據字典 （ 1）數據庫名稱為 （ 2）數據庫中的表格設置 表 31 部門設置 部門設置（ bm） 序號 字段名稱 類型 長度 索引 說明 1 部門代碼 (bmid) String 6 無重復 B001 2 部門名稱 (bmmc) String 20 表 32 人員管理 人員信息（ ry） 序號 字段名稱 類型 長度 索引 說明 1 人員代碼 (ryid) String 6 無重復 R001 2 人員名稱 (rymc) String 20 3 性別 (xb) String 2 4 年齡 (nl) Integer 5 聯系方式 (lxfs) String 20 6 家庭住址 (jtzz) String 50 7 部門代碼 (bmid) String 6 關聯部門設置表 表 33 菜系類別 菜系類別（ splb） 序號 字段名稱 類型 長度 索引 說明 1 類別代碼 (lbid) String 6 無重復 L001 2 類別名稱 (lbmc) String 20 表 34 菜系信 息 菜系信息（ spxx） 序號 字段名稱 類型 長度 索引 說明 1 商品代碼 (spid) String 6 無重復 S001 2 商品名稱 (spmc) String 20 3 類別代碼 (lbid) String 6 關聯商品類別 4 商品規(guī)格 (spgg) String 10 包 ,箱等 5 計量單位 (jldw) String 10 千克、個等 6 單價 (dj) Single(float) 7 備注 (bz) Sting 255 存當前商品的一些連帶信息 表 35 點餐 點餐（ dc） 序號 字段名稱 類型 長度 索引 說明 1 業(yè)務代碼 (ywid) String 20 無重復 Y+Date+Time(hh)+001 2 客戶名稱 (khmc) String 50 存儲消費者或桌位 3 消費日期 (xfrq) Date 存儲消費日期 (Date+time(hh)) 4 總消費額 (zxfe) Single 5 操作員代碼 (ryid) String 6 關聯人員信息 6 交費金額 (jfje) Single 存儲交費金額 (作為是否交費 點菜管理系統的開發(fā)與實現 13 的標志 ) 表 36 點餐明細 點餐明細（ dcmx） 序號 字段名稱 類型 長度 索引 說明 1 業(yè)務代碼 (ywid) String 6 無重復 關聯點餐，存儲格式相同 2 商品代碼 (spid) String 6 關聯商品信息 3 數量 (sl) Single(float) 4 金額 (je) Single(float) 表 37 權限 權限（ qx） 序號 字段名稱 類型 長度 索引 說明 1 人員代碼 (ryid) String 6 無重復 關聯人員信息 2 基礎數據設置 (jcsjsz) Int 1 可用 。0 不可用 3 點餐管理 (dcgl) Int 4 廚房管理 (cfgl) Int 5 查詢統計 (cxtj) Int 6 權限管理 (qxgl) Int 表 38 菜單 菜單（ cd） 序號 字段名稱 類型 長度 索引 說明 1 流水號 (ID) 自動編號 客戶 (kh) String 50 2 商品代碼 (spid) String 6 關聯商品表 3 標志 (bz) String 已做完 未做完 4 數量 (sl) Int 5 預 定時間 (ydsj) 6 完成時間 (wcsj) Datetime 點菜管理系統的開發(fā)與實現 14 4 系統程序實現 系統登陸界面 進入本系統后會彈出一個登錄窗口， 選擇人員名稱，輸入 密碼，驗證用戶信息，根據用戶信息權限，點擊【確定】按鈕，進入相應的主界面，具體的登錄界面如圖41 所示。 圖 41 系統登陸界面 系統主界面 系統主界面顯示系統的各個子模塊，方面用戶進行各項功能操作。如圖 42 所示。 圖 42 系統主界面 主要功能模塊 基礎數據管理 由于部門人員和菜品 信息維護類似，下面以菜品信息維護程序實現為例進行說明。 （ 1）菜品類別維護 點菜管理系統的開發(fā)與實現 15 此模塊可以對商品類別進行維護，添加、修改和刪除操作。添加、修改時判斷類別名稱是否為空、重復；刪除時判斷商品類別下是否有商品信息。如圖 43 所示。 圖 43 商品類別維護 其代碼實現如下： Private Sub btn 添加 _Click() 39。判斷信息的正確性 39。更新商品類別表中的信息記錄 39。1 If Trim() = Then MsgBox 類別名稱不能為空 ! Exit Sub End If If ExecSql(select * from splb where lbid 39。 amp。 Trim() amp。 39。 and lbmc=39。 amp。 Trim() amp。 39。).RecordCount 0 Then MsgBox 類別名稱不能重復 ! Exit Sub End If 39。2 Dim strResult As String strResult = Exec_SqL(update splb set lbmc= 39。 amp。 Trim() amp。 39。 where lbid=39。 amp。 amp。 39。) If strResult OK Then MsgBox strResult End If Unload Me End Sub 點菜管理系統的開發(fā)與實現 16 Private Sub Form_Activate() 39。得到商品類表表中最大的類別編號 If = Then = Format(GetMaxNum(select max(lbid) from splb), 000000) End If End Sub Private Sub Form_Resize() 39。動態(tài)改變窗體的樣式和標題 Call FormFace(Me, TopPicture, KKShape) Call TopCaption(, ) 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 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 點菜管理系統的開發(fā)與實現 17 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() 39。關閉窗體 Unload Me End Sub Private Sub UserControl12_Click() 39。刪除商品類別 (如果商品類別下有商品信息，則不允許刪除 ) Dim strResult As String If ExecSql(select * from spxx where lbid=39。 amp。 amp。 39。).RecordCount 0 Then MsgBox 此 類別 下有商品信息 ,不能刪除 ! Exit Sub End If strResult = Exec_SqL(delete from splb where lbid=39。 amp。 amp。 39。) If strResult OK Then MsgBox strResult End If Unload Me End Sub Private Sub UserControl13_Click() 39。判斷信息的正確性 39。添加一條商品類別紀錄 39。1 If Trim() = Then 點菜管理系統的開發(fā)與實現 18 MsgBox 類別名稱不能為空 ! Exit Sub End If If ExecSql(select * from splb where lbid=39。 amp。 Trim() amp。 39。).RecordCount 0 Then MsgBox 類別代碼不能重復 ! Exit Sub End If If ExecSql(select * from splb where lbmc=39。 amp。 Trim() amp。 39。).RecordCount 0 Then MsgBox 類別名稱不能重復 ! Exit Sub End If 39。2 Dim strResult As String strResult = Exec_SqL(insert into splb (lbid,lbmc) values (39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。)) If strResult OK Then MsgBox strResult End If Unload Me End Sub （ 2）商品信息維護 此模塊可以對商品信息進行維護，添加、修改和刪除操作。添加、修改時，輸入商品代碼 ,商品名稱 ,計量單位 ,單價，商品規(guī)格，備注，選擇類