发布时间 : 星期日 文章网上图书销售系统(.net)更新完毕开始阅读51ea19e86294dd88d0d26b39
洛阳理工学院毕业设计（论文）
End If If str = \
Label2.Text = \没有你要搜索的图书!\ Else
Dim cmd As New System.Data.OleDb.OleDbCommand(str, conn) conn.Open()
Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader() DataList.DataSource = dr DataList.DataBind()
End If
页面效果图如图4-10所示：
图4-10 高级搜索页面
4.3.6 我的购物车
购物车的作用就是来临时存放当前用户选购的商品，以便统一下定单。在我的购物车中用户可以修改购买的图书数量，以及删除购物车中的商品。当点击“继续购物”按钮时，系统会自动返回图书信息列表中，以便用户继续购物。如果不想购买购物车中的商品，点击“清空购物车”就可以清空购物车中所有图书。点击“去收银台”即可下定单。该页面的设计使用DataSet将数据从数据库中取出，并填充到DataSet中，然后绑定到DataGrid控件。 清空购物车功能的实现： Dim dt As New DataTable() dt = ds.Tables(\
25
洛阳理工学院毕业设计（论文）
Dim dr As DataRow Dim number, i As Integer number = dt.Rows.Count For i = 0 To number - 1 dr = dt.Rows(i) dr.Delete() Next
Session(\
MyDataGrid1.EditItemIndex = -1
MyDataGrid1.DataSource = ds.Tables(\ MyDataGrid1.DataBind() Dim conn As New
OleDbConnection(\Server.MapPath(\
Dim adp As New OleDbDataAdapter(\ Dim ocb As New OleDbCommandBuilder(adp) adp.UpdateCommand = ocb.GetUpdateCommand() adp.DeleteCommand = ocb.GetDeleteCommand() adp.Update(ds, \ Call initialdata()
页面效果图如图4-11所示：
图4-11 我的购物车页面
26
洛阳理工学院毕业设计（论文）
4.3.7 修改密码
该模块是用来修改当前用户的密码，单击导航条上的“修改密码”时进入该页面，输入你的原始密码、新密码、确认密码后。点击“确认”按钮，如果无误，就可以实现密码的修改。具体实现思路：首先根据输入的密码来检测输入的原始密码是否正确，如果正确就执行SQL语言的Update功能把该用户的密码更改为新密码。页面如图4-12所示。
图4-12 修改密码页面
4.3.8 修改资料
该模块是用来修改当前用户的个人基本信息，在此可以修改密码、邮箱、真实姓名、联系电话、地址等信息。单击导航条上的“个人信息”时进入该页面，页面的上方显示个人姓名，而且是只读的，如果要修改个人的基本信息，填入相关的信息，点击“确认”按钮，就可以实现个人资料的修改。其主要代码如下：
Dim str As String
str = \TextBox3.Text & \TextBox6.Text & \TextBox1.Text & \
Dim cmd As New OleDbCommand(str, conn) conn.Open()
27
洛阳理工学院毕业设计（论文）
cmd.ExecuteNonQuery() conn.Close()
Label1.Text = \修改成功！\
Label1.ForeColor = Drawing.Color.Red
页面效果图如图4-13所示。
图4-13 修改资料页面
4.3.9 下定单
该模块是用来下定单，上面显示的图书信息是购物车中的图书信息，填
写完收货人的基本资料后，点击“提交”按钮就可以成功下订单。并显示生成的订单号；同时购物车中的商品清空。关于订单号的生成是按照日期生成的，使用日期的HashCode码作为订单号，代码如下： Dim ot, a1 As String ot = DateTime.Now
a1 = \ Dim dt As New DataTable()
点击“提交”按钮实现的购物车清空功能，与在购物车界面中的清空功能一样。页面效果如图4-14所示。
28