网上图书销售系统(.net)

洛阳理工学院毕业设计（论文）

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