【文章內(nèi)容簡(jiǎn)介】 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 ‘ 將注冊(cè)信息插入數(shù)據(jù)庫(kù) () () 注冊(cè)成功頁(yè)面如下： 圖 6 注冊(cè)成功 登錄 用戶需要填寫(xiě)用戶名和密碼， 對(duì)輸入的用戶名與數(shù)據(jù)庫(kù)的進(jìn)行比較，若沒(méi)有則返回錯(cuò)誤，對(duì)密碼也進(jìn)行判斷，因?yàn)槊艽a在保存時(shí)是經(jīng)過(guò) MD5加密的，所以在判斷的時(shí)候也把輸入的密碼先進(jìn)行 MD5 加密，然后進(jìn)行比較。 登錄成功進(jìn)入登錄成功頁(yè)面。 流程圖如下： 圖 7 登錄流程圖 登錄頁(yè)面設(shè)計(jì)如下： 圖 8 登錄頁(yè)面 注冊(cè)用戶 登錄 與數(shù)據(jù)庫(kù)記錄進(jìn)行匹配 N Y 登錄成功 代碼如下 ： Dim cmd As New ()Dim str As String str = (txtP, MD5) ‘ 使用 MD5加密密碼文本框的值，用于下面跟數(shù)據(jù)庫(kù)里面的值進(jìn)行比較 = 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)) ‘檢測(cè)用戶名是否已經(jīng)存在 () Else Session(cshopperid) = Nothing = 用戶名或者密碼錯(cuò)誤 ! End If () 登錄成功后界面如下： 圖 9 登錄成功 訂餐 使用 DATAGRID 綁定 DISH 表顯示菜單，在 DATAGRID 上每行綁定一個(gè)多選按鈕和下拉列表，進(jìn)行多選和數(shù)量的選擇。然后在文本框中輸入送餐的地點(diǎn)，電話和其他的備注信息。若菜品和地址都填寫(xiě)好，則進(jìn)入訂餐成功頁(yè)面，可以查看自己的訂餐信息，可以進(jìn)行修改和刪除。若錯(cuò)誤，則報(bào)告錯(cuò)誤信息，返回訂餐頁(yè)面。 流程圖如下： 圖 10 訂餐流程圖 訂餐頁(yè)面設(shè)計(jì)如下： 圖 11 訂餐頁(yè)面 綁定數(shù)據(jù)，代碼如下： 39。指定數(shù)據(jù)源并綁定到 DataGrid控件 Private Sub BindGrid() Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim DS As New DataSet = Connect Timeout=5。packet size=4096。persist security info=False。initial Catalog=dishsale。data source=32A5C0037011401。user id=sa。password=39。39。 () = conn Dim adpt1 As New SqlDataAdapter(select cdishid,vdishname 菜品名稱 ,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ù)。 代碼如下： Private Sub Submit_Click(ByVal sender As , ByVal e As ) Handles If = Then = 請(qǐng)選擇菜品！ ElseIf Request(memo) = Then = 請(qǐng)輸入您的地址！ Else GetDishCart() ‘調(diào)用 GetDishCart將數(shù)據(jù)寫(xiě)入數(shù)據(jù)庫(kù) = suc (SCRIPT language=JavaScriptalert(39。提交成功 !39。)。) (=39。39。/SCRIPT) End If End Sub Private Sub GetDishCart() Dim IdList() As String = ().Split(。) Dim tconn As New SqlConnection Dim tcmd As New SqlCommand Dim objReader As SqlDataReader Dim x As Integer = Connect Timeout=5。packet size=4096。persist security info=False。initial catalog=dishsale。data source=32A5C0037011401。user id=sa。password=39。39。 () = tconn = select orderid from neworder order by oid desc objReader = () If Then x = CInt(objReader(orderid)) + 1 End If () () For i As Integer = 0 To 2 Step 1 Dim NuList() As String = IdList(i).Split(,) () = = orderinsert ‘調(diào)用存儲(chǔ)過(guò)程向 neworder表插入數(shù)據(jù) () (New SqlParameter(@orderid, x)) (New SqlParameter(@dishid, NuList(0))) (New SqlParameter(@dishnumber, NuList(1))) (New SqlParameter(@userid, Session(cshopperid))) (New SqlParameter(@birdate, ())) () () Next 39。插入相應(yīng)訂單地址 Dim tsql As String tsql = Insert into orderadd values(39。 amp。 x amp。 39。,39。 amp。 Request(memo) amp。 39。) = = tsql () () () Session(orderid) = CStr(x) End Sub 訂餐成功后，頁(yè)面如下： 圖 12 訂餐 成功 頁(yè)面 留言 在留言頁(yè)面，用戶可以對(duì)服務(wù)進(jìn)行評(píng)分，同時(shí)進(jìn)行留言 對(duì)留言的顯示同樣采用 DATAGRID 對(duì)數(shù)據(jù)庫(kù)進(jìn)行讀取然后顯示。提交留言的時(shí)候?qū)Ψ謹(jǐn)?shù)進(jìn)行判斷，然后對(duì)留言內(nèi)容是否為空進(jìn)行判斷，然后寫(xiě)進(jìn)數(shù)據(jù)庫(kù)。 流程圖如下： 圖 13 留言流程圖 代碼如下： If Request(word) = Then (SCRIPT language=JavaScriptalert(39。留言信息不能為空 !39。)。) (=39。39。/SCRIPT) End If sqlstr = insert message([cmessageid],[cshopperid],[dmessagetime],[cscore],[vmessage]) values(39。++ cmessageid 39。,39。 amp。 Session(cshopperid) amp。 39。,39。 amp。 amp。 39。,39。 ‘ 判斷評(píng)分的分?jǐn)?shù)值 If Then sqlstr += 139。,39。 ElseIf Then sqlstr += 239。,39。 ElseIf Then sqlstr += 339。,39。 ElseIf Then sqlstr += 439。,39。 ElseIf Then sqlstr += 539。,39。 End If sqlstr += Request(word) amp。 39。) = sqlstr () () BindGrid() (SCRIPT language=JavaScriptalert(39。留言成功！ 39。)。) (