【文章內(nèi)容簡介】 第 5 頁 共 24 頁 表 4 添加訂單表（ orderadd） 列名 中文名稱 數(shù)據(jù)類型 長度 是否允許空 Orderid 訂單號 Char 10 Not null Orderaddress 送餐地址 Varchar 50 Not null 表 5 留言信息表（ message） 主鍵 為 （ cmessageid） 外鍵為（ cshopperid） 列名 中文名稱 數(shù)據(jù)類型 長度 是否允許空 Cmessageid 留言 編號 Char 10 Not null Cshopperid 用戶 Char 10 Not null Dmessagetime 留言時間 Datatime 8 Not null Vmessage 留言內(nèi)容 Varchar 500 Not null Cscore 評分 Char 10 Not null 與管理員相關(guān)的數(shù)據(jù)表有： 管理員表（ manager） ， 如表 6。 表 6 管理員表 （ manager） 主鍵為和外鍵均為（ cmanagerid） 列名 中文名稱 數(shù)據(jù)類型 長度 是否允許空 Cmanagerid 管理員 ID Char 20 Not null Cpassword 密碼 Char 50 Not null cpurview 權(quán)限 Char 10 Not null 4 系統(tǒng)設計 系統(tǒng)的總體流程如 圖 1 所示， 注冊 用戶可以進行訂餐和留言、評分；管理員可以進行訂單管理，留言和評分管理，用戶管理，菜單管理等操作。 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 6 頁 共 24 頁 圖 1 系統(tǒng)總體流程圖 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 7 頁 共 24 頁 系統(tǒng)模塊設計 總體分為用戶和管理員兩個模塊 用戶模塊 圖 2 用戶模塊流程圖 ：填寫注冊信息 。 ：只有登錄才能查看留言和訂餐 。 ：記錄用戶的訂餐信息 。 ：記錄用戶的留言和評分信息 。 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 8 頁 共 24 頁 管理員模塊 圖 3 管理員模塊流程圖 ：對用戶的訂單進行處理或刪除 。 ：對用戶的留言進行查看或刪除 。 ：對用戶信息進行查看或刪除 。 ：對菜單進行修改或者刪除，添加新菜品 。 5 系統(tǒng)實現(xiàn) 用戶功能模塊實現(xiàn) 用戶模塊包括：新用戶注冊，注冊用戶登錄，注冊用戶訂餐，注冊用戶留言和評分 。 新用戶注冊 用戶填寫注冊信息 包括必填項：用戶名，密碼，驗證密碼， ；和可選填寫的信息。 注冊成功后返回登錄 成功 頁面，可以 選擇 進行訂餐和留言、評分操作 。 流程圖如下： 結(jié)束 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 9 頁 共 24 頁 圖 4 注冊流程圖 注冊頁面設計如圖 ： 圖 5 注冊 頁面 在提交的時候，檢測用戶名是否已經(jīng)存在，若存在， 則返回錯誤信息 ，重新填寫注冊信息 。從工作流上看，只有注冊成功后才可以進行訂餐和留言。 代碼如下： = Connect Timeout=5。packet size=4096。persist security info=False。initial catalog=dishsale。data source=32A5C0037011401。user id=sa。password=39。39?！溄訑?shù)據(jù)庫 = conn = () Dim strsql As String = select * from shopper where cshopperid=39。 amp。 Trim() amp。 39。 cmd = New SqlCommand(strsql, conn) Dim reader As SqlDataReader = () If () = True Then = 已有此用戶名 () Else 填寫注冊信息 信息檢測 N 寫入數(shù)據(jù)庫 顯示注冊成功 Y 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 10 頁 共 24 頁 () 所有信息正確便將密碼加密之后，將所有信息插入數(shù)據(jù)表 shopper 中 。 代碼如下： Dim conn1 As New Dim cmd1 As New Dim str1 As String Dim str2 As String str1 = str2 = (str1, MD5) ‘ 使用 MD5加密算法加密密碼文本框的值 = Connect Timeout=5。packet size=4096。persist security info=False。initial catalog=dishsale。data source=32A5C0037011401。user id=sa。password=39。39。 = conn1 = () sqlstr = insert shopper([cshopperid],[cpassword],[csex],[cage],[vaddress],[cphone],[v],[vmemo],[dregistertime],[dlastlandtime]) values(39。 sqlstr += amp。 39。,39。 sqlstr += str2 amp。 39。,39。 If Then sqlstr += 男 39。,39。 ElseIf Then sqlstr += 女 39。,39。 End If sqlstr += amp。 39。,39。 sqlstr += amp。 39。,39。 sqlstr += amp。 39。,39。 sqlstr += amp。 39。,39。 sqlstr += amp。 39。,39。 sqlstr += amp。 39。,39。 sqlstr += amp。 39。) = sqlstr ‘ 將注冊信息 插入數(shù)據(jù)庫 () () 注冊成功頁面如下： 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 11 頁 共 24 頁 圖 6 注冊成功 登錄 用戶需要填寫 用戶名和密碼 ， 對輸入的用戶名與數(shù)據(jù)庫的進行比較，若沒有則返回錯誤，對密碼也進行判斷，因為密碼在保存時是經(jīng)過 MD5 加密的，所以在判斷的時候也把輸入的密碼先進行 MD5 加密，然后進行比較。 登錄成功進入登錄成功頁面 。 流程圖如下： 圖 7 登錄流程圖 登錄頁面設計如下： 注冊用戶 登錄 與數(shù)據(jù)庫記錄進行匹配 N Y 登錄成功 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 12 頁 共 24 頁 圖 8 登錄頁面 代碼如下 ： Dim cmd As New ()Dim str As String str = (txtP, MD5) ‘ 使用 MD5加密密碼文本框的值，用于下面跟數(shù)據(jù)庫里面的值進行比較 = select * from shopper where cshopperid=39。 amp。 Trim() amp。 39。 and cpassword= 39。 amp。 str amp。 39。 = conn Dim reader As SqlDataReader = If () Then Session(cshopperid) = Trim(reader(cshopperid)) ‘檢測用戶名是否已經(jīng)存在 () Else Session(cshopperid) = Nothing = 用戶名或者密碼錯誤 ! End If () 登錄成功后界面如下： 圖 9 登錄成功 訂餐 使用 DATAGRID 綁定 DISH 表顯示菜單，在 DATAGRID 上每行綁定一個多選按鈕和下拉列表，進行多選和數(shù)量的選擇。 然后在文本框中輸入送餐的地點 ，電話和其他的備注信息 。 若菜品和地址都填寫好，則進入訂餐成功頁面，可以查看自己的訂餐信息，可以進行修改和刪除。若錯誤，則報告錯誤信息，返回訂八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310 第 13 頁 共 24 頁 餐頁面。 流程圖如下： 圖 10 訂餐流程圖 訂餐頁面設計如下： 圖 11 訂餐頁面 綁定數(shù)據(jù)，代碼如下： 39。指定數(shù)據(jù)源并綁定到 DataGrid控件 Private Sub BindGrid() Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim DS As New DataSet 八年經(jīng)驗 專業(yè)指導畢業(yè)設計 需要全套設計請聯(lián)系： 731767310