【正文】 lds[美 ].Visual 數(shù)據(jù)庫(kù)開(kāi)發(fā)入門(mén)經(jīng)典 [M].北京：清華大學(xué)出版社 ,2020。 [5] Ken Spencer[美 ].Visual 面向?qū)ο罂芍赜媒M件開(kāi)發(fā) [M].北京：清華大學(xué)出版社 ,2020。 [3] 何明國(guó) .Visual —— [M].北京：中國(guó)水利出版社 ,2020。今后在程序中可以增加模塊，例如建立起銀行字符網(wǎng)關(guān)接口和安全通道，并利用數(shù)字簽名和身份認(rèn)證等技術(shù)， 使用戶(hù)在網(wǎng)上可以直接進(jìn)行電子支付等，最后建成一個(gè)真正的電子商務(wù)系統(tǒng)！ 參考文獻(xiàn) [1] 方睿 ,刁仁宏 ,吳四九 .網(wǎng)絡(luò)數(shù)據(jù)庫(kù)原理及應(yīng)用 [M].成都：四川大學(xué)出版社 ,2020。其具有一定的實(shí)用性 ,用戶(hù)可以在網(wǎng)上瀏覽 菜單 ,瀏覽留言和評(píng)分 ,訂餐 ,留言和評(píng)分 ；同時(shí) ,管理員也可以對(duì)整個(gè)系統(tǒng)的信息和數(shù)據(jù)進(jìn)行管理 ,可以 管理菜單 信息、 會(huì)員 信息、 留言 信息和訂單信息 。 Web 訂餐系統(tǒng) 跨越了時(shí)間和空間的限制，給 餐飲業(yè) 帶來(lái)了不一樣的變革，也給消費(fèi)者帶來(lái)了便捷。/SCRIPT) 用戶(hù)管理 同樣采用 DATAGRID 綁定數(shù)據(jù)庫(kù)進(jìn)行顯示 ，在 DATAGRID 上添加按鈕列：刪除，進(jìn)行刪除操作。) (=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ù)庫(kù)顯示留言信息，在 DATAGRID 上添加兩個(gè)按鈕列進(jìn)行刪除操作和更新操作，還可進(jìn)行新菜品的添加 。 () = 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ù)庫(kù)顯示留言信息，在 DATAGRID 上添加一列按鈕列進(jìn)行刪除操作。 Selected_Id () () 處理訂單操作和確認(rèn)訂單相似，都含有處理和刪除兩個(gè)按鈕列，以便于進(jìn)行操作。 () = 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。 沒(méi)有確認(rèn)的訂單信息，管理員都可以進(jìn)行確認(rèn)或者刪除。 管理員模塊 在此模塊中，采用技術(shù)都是一樣的，所以同一種操作只列出一個(gè)。 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。 ‘ 判斷評(píng)分的分?jǐn)?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 訂餐成功后，頁(yè)面如下： 圖 12 訂餐 成功 頁(yè)面 留言 在留言頁(yè)面，用戶(hù)可以對(duì)服務(wù)進(jìn)行評(píng)分，同時(shí)進(jìn)行留言 對(duì)留言的顯示同樣采用 DATAGRID 對(duì)數(shù)據(jù)庫(kù)進(jìn)行讀取然后顯示。 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 菜品名稱(chēng) ,cdishrate 價(jià)格 ,vdishdescription 口味 from dish, conn) ‘顯示 dish表的內(nèi)容 (DS, OUTER) = DS () () End Sub ‘在綁定每行時(shí)，判斷多選按鈕的狀態(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 在點(diǎn)擊提交時(shí)，判斷選定的菜品及數(shù)量和輸入的信息，并插入數(shù)據(jù)庫(kù)。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。若錯(cuò)誤，則報(bào)告錯(cuò)誤信息，返回訂餐頁(yè)面。然后在文本框中輸入送餐的地點(diǎn)，電話和其他的備注信息。 39。 amp。 39。 amp。 登錄成功進(jìn)入登錄成功頁(yè)面。 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。 填寫(xiě)注冊(cè)信息 信息檢測(cè) N 寫(xiě)入數(shù)據(jù)庫(kù) 顯示注冊(cè)成功 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。從工作流上看，只有注冊(cè)成功后才可以進(jìn)行訂餐和留言。注冊(cè)成功后返回登錄成功頁(yè)面，可以選擇進(jìn)行訂餐和留言、評(píng)分操作。 5 系統(tǒng)實(shí)現(xiàn) 用戶(hù)功能模塊實(shí)現(xiàn) 用