|
4.1 系统模块设计 总体分为用户和管理员两个模块 copyright paper51.com 4.1.1 用户模块 copyright paper51.com 图2 用户模块流程图 copyright paper51.com 1.新用户注册：填写注册信息。 内容来自论文无忧网 www.paper51.com 2.注册用户登录：只有登录才能查看留言和订餐。 paper51.com 3.订餐：记录用户的订餐信息。 copyright paper51.com 4.留言：记录用户的留言和评分信息。 http://www.paper51.com
4.1.2 管理员模块 内容来自论文无忧网 www.paper51.com copyright paper51.com 图3 管理员模块流程图 paper51.com 1.订单管理：对用户的订单进行处理或删除。 copyright paper51.com 2.留言管理：对用户的留言进行查看或删除。 内容来自www.paper51.com 3.用户管理：对用户信息进行查看或删除。 http://www.paper51.com 4.菜单管理：对菜单进行修改或者删除，添加新菜品。 内容来自论文无忧网 www.paper51.com 5 系统实现 内容来自www.paper51.com 5.1 用户功能模块实现 http://www.paper51.com 用户模块包括：新用户注册，注册用户登录，注册用户订餐，注册用户留言和评分。 内容来自论文无忧网 www.paper51.com
5.1.1 新用户注册 内容来自论文无忧网 www.paper51.com
用户填写注册信息包括必填项：用户名，密码，验证密码，email；和可选填写的信息。注册成功后返回登录成功页面，可以选择进行订餐和留言、评分操作。 paper51.com
流程图如下： paper51.com
paper51.com 图4 注册流程图 内容来自论文无忧网 www.paper51.com 注册页面设计如图： paper51.com
图5 注册页面 paper51.com 在提交的时候，检测用户名是否已经存在，若存在，则返回错误信息，重新填写注册信息。从工作流上看，只有注册成功后才可以进行订餐和留言。 paper51.com
代码如下： paper51.com conn.ConnectionString ="Connect Timeout=5;packet size=4096;persist security info=False;initialcatalog=dishsale;data source=32A5C0037011401;user id=sa;password=''"‘链接数据库 http://www.paper51.com cmd.Connection = conn paper51.com cmd.CommandType = CommandType.Text copyright paper51.com conn.Open() paper51.com Dim strsql As String = "select * from shopper wherecshopperid='" & Trim(txtName.Text) & "'" 内容来自www.paper51.com
cmd= New SqlCommand(strsql, conn) copyright paper51.com Dim reader AsSqlDataReader = cmd.ExecuteReader() copyright paper51.com If reader.Read() = TrueThen copyright paper51.com namewrong.Text = "已有此用户名" http://www.paper51.com conn.Close() http://www.paper51.com Else http://www.paper51.com conn.Close() paper51.com 所有信息正确便将密码加密之后，将所有信息插入数据表shopper中。 copyright paper51.com 代码如下： http://www.paper51.com
Dim conn1 AsNew System.Data.SqlClient.SqlConnection copyright paper51.com Dim cmd1 AsNew System.Data.SqlClient.SqlCommand copyright paper51.com Dim str1 As String http://www.paper51.com Dim str2 AsString paper51.com str1 = Password1.Text 内容来自www.paper51.com str2 =System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str1,"MD5") http://www.paper51.com ‘使用MD5加密算法加密密码文本框的值 内容来自www.paper51.com conn1.ConnectionString = "Connect Timeout=5;packetsize=4096;persist security info=False;initial catalog=dishsale;data source=32A5C0037011401;userid=sa;password=''" 内容来自www.paper51.com cmd1.Connection = conn1 内容来自www.paper51.com cmd1.CommandType = CommandType.Text http://www.paper51.com conn1.Open() paper51.com sqlstr = "insertshopper([cshopperid],[cpassword],[csex],[cage],[vaddress],[cphone],[vemail],[vmemo],[dregistertime],[dlastlandtime])values('" paper51.com sqlstr += txtName.Text & "','" http://www.paper51.com sqlstr += str2 & "','" copyright paper51.com If man.Checked Then 内容来自www.paper51.com sqlstr += "男','" 内容来自论文无忧网 www.paper51.com ElseIf woman.Checked Then http://www.paper51.com sqlstr += "女','" 内容来自www.paper51.com
End If 内容来自论文无忧网 www.paper51.com sqlstr += txtAge.Text & "','" paper51.com
sqlstr += txtAddress.Text & "','" 内容来自论文无忧网 www.paper51.com sqlstr += txtPhone.Text & "','" 内容来自论文无忧网 www.paper51.com sqlstr += txtEmail.Text & "','" copyright paper51.com sqlstr += txtMemo.Text & "','" http://www.paper51.com sqlstr += System.DateTime.Now & "','" copyright paper51.com sqlstr += System.DateTime.Now & "')" 内容来自www.paper51.com cmd1.CommandText = sqlstr ‘将注册信息插入数据库 内容来自www.paper51.com cmd1.ExecuteNonQuery() 内容来自论文无忧网 www.paper51.com
conn1.Close() 内容来自www.paper51.com |