基于web的订餐系统的设计与实现—计算机毕业设计(论文

基于web的订餐系统的设计与实现—计算机毕业设计(论文内容摘要：

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 ‘ 将注册信息插入数据库 () () 注册成功页面如下： 图 6 注册成功 登录 用户需要填写用户名和密码， 对输入的用户名与数据库的进行比较，若没有则返回错误，对密码也进行判断，因为密码在保存时是经过 MD5加密的，所以在判断的时候也把输入的密码先进行 MD5 加密，然后进行比较。 登录成功进入登录成功页面。 流程图如下： 图 7 登录流程图 登录页面设计如下： 图 8 登录页面 注册用户 登录 与数据库记录进行匹配 N Y 登录成功 代码如下 ： Dim cmd As New ()Dim str As String str = (txtP, MD5) ‘ 使用 MD5加密密码文本框的值，用于下面跟数据库里面的值进行比较 = 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)) ‘检测用户名是否已经存在 () Else Session(cshopperid) = Nothing = 用户名或者密码错误 ! End If () 登录成功后界面如下： 图 9 登录成功 订餐 使用 DATAGRID 绑定 DISH 表显示菜单，在 DATAGRID 上每行绑定一个多选按钮和下拉列表，进行多选和数量的选择。 然后在文本框中输入送餐的地点，电话和其他的备注信息。 若菜品和地址都填写好，则进入订餐成功页面，可以查看自己的订餐信息，可以进行修改和删除。 若错误，则报告错误信息，返回订餐页面。 流程图如下： 图 10 订餐流程图 订餐页面设计如下： 图 11 订餐页面 绑定数据，代码如下： 39。 指定数据源并绑定到 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 价格 ,vdishdescription 口味 from dish, conn) ‘显示 dish表的内容 (DS, OUTER) = DS () () End Sub ‘在绑定每行时，判断多选按钮的状态和下拉列表的状态 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 在点击提交时，判断选定的菜品及数量和输入的信息，并插入数据库。 代码如下： Private Sub Submit_Click(ByVal sender As , ByVal e As ) Handles If = Then = 请选择菜品。 ElseIf Request(memo) = Then = 请输入您的地址。 Else GetDishCart() ‘调用 GetDishCart将数据写入数据库 = 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 ‘调用存储过程向 neworder表插入数据 () (New SqlParameter(@orderid, x)) (New SqlParameter(@dishid, NuList(0))) (New SqlParameter(@dishnumber, NuList(1))) (New SqlParameter(@userid, Session(cshopperid))) (New SqlParameter(@birdate, ())) () () Next 39。 插入相应订单地址 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 订餐成功后，页面如下： 图 12 订餐 成功 页面 留言 在留言页面，用户可以对服务进行评分，同时进行留言 对留言的显示同样采用 DATAGRID 对数据库进行读取然后显示。 提交留言的时候对分数进行判断，然后对留言内容是否为空进行判断，然后写进数据库。 流程图如下： 图 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。 ‘ 判断评分的分数值 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。 )。 ) (。