基于web的订餐系统的设计与实现

基于web的订餐系统的设计与实现内容摘要：

第 5 页 共 24 页 表 4 添加订单表（ orderadd） 列名 中文名称 数据类型 长度 是否允许空 Orderid 订单号 Char 10 Not null Orderaddress 送餐地址 Varchar 50 Not null 表 5 留言信息表（ message） 主键 为 （ cmessageid） 外键为（ cshopperid） 列名 中文名称 数据类型 长度 是否允许空 Cmessageid 留言 编号 Char 10 Not null Cshopperid 用户 Char 10 Not null Dmessagetime 留言时间 Datatime 8 Not null Vmessage 留言内容 Varchar 500 Not null Cscore 评分 Char 10 Not null 与管理员相关的数据表有： 管理员表（ manager） ， 如表 6。 表 6 管理员表 （ manager） 主键为和外键均为（ cmanagerid） 列名 中文名称 数据类型 长度 是否允许空 Cmanagerid 管理员 ID Char 20 Not null Cpassword 密码 Char 50 Not null cpurview 权限 Char 10 Not null 4 系统设计 系统的总体流程如 图 1 所示， 注册 用户可以进行订餐和留言、评分；管理员可以进行订单管理，留言和评分管理，用户管理，菜单管理等操作。 八年经验 专业指导毕业设计 需要全套设计请联系： 731767310 第 6 页 共 24 页 图 1 系统总体流程图 八年经验 专业指导毕业设计 需要全套设计请联系： 731767310 第 7 页 共 24 页 系统模块设计 总体分为用户和管理员两个模块 用户模块 图 2 用户模块流程图 ：填写注册信息。 ：只有登录才能查看留言和订餐。 ：记录用户的订餐信息。 ：记录用户的留言和评分信息。 八年经验 专业指导毕业设计 需要全套设计请联系： 731767310 第 8 页 共 24 页 管理员模块 图 3 管理员模块流程图 ：对用户的订单进行处理或删除。 ：对用户的留言进行查看或删除。 ：对用户信息进行查看或删除。 ：对菜单进行修改或者删除，添加新菜品。 5 系统实现 用户功能模块实现 用户模块包括：新用户注册，注册用户登录，注册用户订餐，注册用户留言和评分。 新用户注册 用户填写注册信息 包括必填项：用户名，密码，验证密码， ；和可选填写的信息。 注册成功后返回登录 成功 页面，可以 选择 进行订餐和留言、评分操作。 流程图如下： 结束 八年经验 专业指导毕业设计 需要全套设计请联系： 731767310 第 9 页 共 24 页 图 4 注册流程图 注册页面设计如图 ： 图 5 注册 页面 在提交的时候，检测用户名是否已经存在，若存在， 则返回错误信息 ，重新填写注册信息。 从工作流上看，只有注册成功后才可以进行订餐和留言。 代码如下： = Connect Timeout=5。 packet size=4096。 persist security info=False。 initial catalog=dishsale。 data source=32A5C0037011401。 user id=sa。 password=39。 39。 ‘链接数据库 = 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 写入数据库 显示注册成功 Y 八年经验 专业指导毕业设计 需要全套设计请联系： 731767310 第 10 页 共 24 页 () 所有信息正确便将密码加密之后，将所有信息插入数据表 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 ‘ 将注册信息 插入数据库 () () 注册成功页面如下： 八年经验 专业指导毕业设计 需要全套设计请联系： 731767310 第 11 页 共 24 页 图 6 注册成功 登录 用户需要填写 用户名和密码 ， 对输入的用户名与数据库的进行比较，若没有则返回错误，对密码也进行判断，因为密码在保存时是经过 MD5 加密的，所以在判断的时候也把输入的密码先进行 MD5 加密，然后进行比较。 登录成功进入登录成功页面。 流程图如下： 图 7 登录流程图 登录页面设计如下： 注册用户 登录 与数据库记录进行匹配 N Y 登录成功 八年经验 专业指导毕业设计 需要全套设计请联系： 731767310 第 12 页 共 24 页 图 8 登录页面 代码如下 ： 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 上每行绑定一个多选按钮和下拉列表，进行多选和数量的选择。 然后在文本框中输入送餐的地点 ，电话和其他的备注信息。 若菜品和地址都填写好，则进入订餐成功页面，可以查看自己的订餐信息，可以进行修改和删除。 若错误，则报告错误信息，返回订八年经验 专业指导毕业设计 需要全套设计请联系： 731767310 第 13 页 共 24 页 餐页面。 流程图如下： 图 10 订餐流程图 订餐页面设计如下： 图 11 订餐页面 绑定数据，代码如下： 39。 指定数据源并绑定到 DataGrid控件 Private Sub BindGrid() Dim conn As New SqlConnection Dim cmd As New SqlCommand Dim DS As New DataSet 八年经验 专业指导毕业设计 需要全套设计请联系： 731767310。