【正文】 lds[美 ].Visual 數(shù)據(jù)庫開發(fā)入門經(jīng)典 [M].北京：清華大學(xué)出版社 ,2021。 [5] Ken Spencer[美 ].Visual 面向?qū)ο罂芍赜媒M件開發(fā) [M].北京：清華大學(xué)出版社 ,2021。 [3] 何明國 .Visual —— [M].北京：中國水利出版社 ,2021。今后在程序中可以增加模塊，例如建立起銀行字符網(wǎng)關(guān)接口和安全通道，并利用數(shù)字簽名和身份認證等技術(shù)， 使用戶在網(wǎng)上可以直接進行電子支付等，最后建成一個真正的電子商務(wù)系統(tǒng)！ 參考文獻 [1] 方睿 ,刁仁宏 ,吳四九 .網(wǎng)絡(luò)數(shù)據(jù)庫原理及應(yīng)用 [M].成都：四川大學(xué)出版社 ,2021。其具有一定的實用性 ,用戶可以在網(wǎng)上瀏覽 菜單 ,瀏覽留言和評分 ,訂餐 ,留言和評分 ；同時 ,管理員也可以對整個系統(tǒng)的信息和數(shù)據(jù)進行管理 ,可以 管理菜單 信息、 會員 信息、 留言 信息和訂單信息 。 Web 訂餐系統(tǒng) 跨越了時間和空間的限制，給 餐飲業(yè) 帶來了不一樣的變革，也給消費者帶來了便捷。/SCRIPT) 用戶管理 同樣采用 DATAGRID 綁定數(shù)據(jù)庫進行顯示 ，在 DATAGRID 上添加按鈕列：刪除，進行刪除操作。) (=39。操作成功！ 39。 39。 amp。 39。 amp。 39。 amp。x39。39。user id=sa。initial catalog=dishsale。packet size=4096。 Selected_Id () () End If BindGrid() End Sub 菜單管理 使用 DATAGRID 綁定數(shù)據(jù)庫顯示留言信息，在 DATAGRID 上添加兩個按鈕列進行刪除操作和更新操作，還可進行新菜品的添加 。 () = conn 39。password=39。data source=32A5C0037011401。persist security info=False。刪除事件處理 Sub PickArt(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) If = Delete Then Dim Selected_Id As Integer Selected_Id = CInt((1).Text) Dim conn As New SqlConnection Dim cmd As New SqlCommand = Connect Timeout=5。 留言 管理 使用 DATAGRID 綁定數(shù)據(jù)庫顯示留言信息，在 DATAGRID 上添加一列按鈕列進行刪除操作。 Selected_Id () () 處理訂單操作和確認訂單相似，都含有處理和刪除兩個按鈕列，以便于進行操作。 () = conn 39。password=39。data source=32A5C0037011401。persist security info=False。 Selected_Id () () ElseIf = Select Then Dim Selected_Id As Integer Selected_Id = CInt((2).Text) Dim conn As New SqlConnection Dim cmd As New SqlCommand = Connect Timeout=5。 () = conn 39。password=39。data source=32A5C0037011401。persist security info=False。mand事件處理 Sub PickArt(ByVal sender As Object, ByVal e As DataGridCommandEventArgs) If = Delete Then Dim Selected_Id As Integer Selected_Id = CInt((2).Text) Dim conn As New SqlConnection Dim cmd As New SqlCommand = Connect Timeout=5。 沒有確認的訂單信息，管理員都可以進行確認或者刪除。 管理員模塊 在此模塊中，采用技術(shù)都是一樣的，所以同一種操作只列出一個。 39。)。) = sqlstr () () BindGrid() (SCRIPT language=JavaScriptalert(39。 End If sqlstr += Request(word) amp。 ElseIf Then sqlstr += 539。 ElseIf Then sqlstr += 439。 ElseIf Then sqlstr += 339。 ElseIf Then sqlstr += 239。 ‘ 判斷評分的分數(shù)值 If Then sqlstr += 139。 39。 amp。 39。 amp。++ cmessageid 39。39。)。 流程圖如下： 圖 13 留言流程圖 代碼如下： If Request(word) = Then (SCRIPT language=JavaScriptalert(39。) = = tsql () () () Session(orderid) = CStr(x) End Sub 訂餐成功后，頁面如下： 圖 12 訂餐 成功 頁面 留言 在留言頁面，用戶可以對服務(wù)進行評分，同時進行留言 對留言的顯示同樣采用 DATAGRID 對數(shù)據(jù)庫進行讀取然后顯示。 Request(memo) amp。,39。 x amp。插入相應(yīng)訂單地址 Dim tsql As String tsql = Insert into orderadd values(39。39。user id=sa。initial catalog=dishsale。packet size=4096。/SCRIPT) End If End Sub Private Sub GetDishCart() Dim IdList() As String = ().Split(。) (=39。提交成功 !39。 () = conn Dim adpt1 As New SqlDataAdapter(select cdishid,vdishname 菜品名稱 ,cdishrate 價格 ,vdishdescription 口味 from dish, conn) ‘顯示 dish表的內(nèi)容 (DS, OUTER) = DS () () End Sub ‘在綁定每行時，判斷多選按鈕的狀態(tài)和下拉列表的狀態(tài) Private Sub DataGrid1_ItemDataBound(ByVal sender As Object, ByVal e As ) Handles If = Or = Then Dim offset As Integer offset = (CType((1).FindControl(TitleShow), Literal).Text) If (CType((1).FindControl(TitleShow), Literal).Text) = 0 Then Dim ChkSelected As HtmlInputCheckBox = CType((0).FindControl(ChkSelect), HtmlInputCheckBox) = True offset = (, offset) Dim numoffset As String numoffset = (offset + 1, 1) Dim NumSelected As HtmlSelect = CType((2).FindControl(snumber), HtmlSelect) Dim x As Integer x = CInt(numoffset) 1 = x End If End If End Sub 在點擊提交時，判斷選定的菜品及數(shù)量和輸入的信息，并插入數(shù)據(jù)庫。password=39。data source=32A5C0037011401。persist security info=False。指定數(shù)據(jù)源并綁定到 DataGrid控件 Private Sub BindGrid() Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim DS As New DataSet = Connect Timeout=5。若錯誤，則報告錯誤信息，返回訂餐頁面。然后在文本框中輸入送餐的地點，電話和其他的備注信息。 39。 amp。 39。 amp。 登錄成功進入登錄成功頁面。 39。,39。 sqlstr += amp。 39。,39。 sqlstr += amp。 39。,39。 sqlstr += amp。 39。,39。,39。,39。 sqlstr += str2 amp。 39。 = conn1 = () sqlstr = insert shopper([cshopperid],[cpassword],[csex],[cage],[vaddress],[cphone],[v],[vmemo],[dregistertime],[dlastlandtime]) values(39。password=39。data source=32A5C0037011401。persist security info=False。 填寫注冊信息 信息檢測 N 寫入數(shù)據(jù)庫 顯示注冊成功 Y 代碼如下： Dim conn1 As New Dim cmd1 As New Dim str1 As String Dim str2 As String str1 = str2 = (str1, MD5) ‘ 使用 MD5加密算法加密密碼文本框的值 = Connect Timeout=5。 39。 amp。39。user id=sa。initial catalog=dishsale。packet size=4096。從工作流上看，只有注冊成功后才可以進行訂餐和留言。注冊成功后返回登錄成功頁面，可以選擇進行訂餐和留言、評分操作。 5 系統(tǒng)實現(xiàn) 用戶功能模塊實現(xiàn) 用