系统源码文档.doc

北方民族大学课程设计报告 系（部、中心） 计算机科学与工程学院 姓 名 陆嘉文 学 号 20091547 专 业 软件工程 班 级 09软件 同组人员 王建志（20091544）文庆明（20091546） 课程名称 .NET技术 设计题目名称 网上购物系统交易功能子系统设计与实现 起止时间 2011年12月22日2011年12月30日 成 绩 指导教师签名 张学琴、任荣 北方民族大学教务处制目 录1. 系统总体分析与设计31.1 系统体系结构31.2 系统功能结构32. 系统数据库设计与实现43系统设计类图64. 系统实现74.1系统COM类74.2基本功能子系统114.3交易功能子系统144.4信息管理功能子系统185. 结束语256. 参考文献251. 系统总体分析与设计1.1 系统体系结构本系统采用浏览器/服务器（Browse/Server）模式。服务器浏览器. .浏览器浏览器浏览器图1 系统体系结构图1.2 系统功能结构系统功能模块图如下：图2 系统功能模块图2. 系统数据库设计与实现图3 数据库实现关系图3系统设计类图 图4 购物系统设计类图4. 系统实现4.1 系统COM类购物系统实体类代码如下：Imports Microsoft.VisualBasicImports System.DataImports System.Data.OleDbPublic Class infocl Public mycon As New OleDbConnection Dim mycmd As New OleDbCommand Dim reader As OleDbDataReader Dim myadpt As New OleDbDataAdapter Dim myds As New DataSet 连接服务器、数据库 Sub con(ByVal srvname As String, ByVal dbname As String, ByVal username As String, ByVal pwd As String) mycon.ConnectionString = Provider=SQLNCLI.1.1;Data Source= & srvname & ;Initial Catalog= & dbname & _ ;User ID= & username & ;Password= & pwd End Sub 登录验证 Function verifyLogin(ByVal username As String, ByVal pwd As String) As Integer mycon.Open() mycmd.Connection = mycon mycmd.CommandText = select * from customer where customerID= & username & and pwd= & pwd & reader = mycmd.ExecuteReader() If reader.Read = False Then Return 0 Else Return 1 End If mycon.Close()End Function页面初始化 Public ds, df, mm, nm, ad, ph, pa, pt, dstab Public Sub opendbini() myadpt.SelectCommand = New OleDbCommand myadpt.SelectCommand.Connection = mycon myadpt.SelectCommand.CommandText = select customerID,customername,customeraddress,customerphone,customerpay,pingtaiNO,pwd from customer myadpt.Fill(myds, customer) ds = myds.Tables(customer) df = DataBinder.Eval(myds, tables0.defaultview.0.customerID) mm = DataBinder.Eval(myds, tables0.defaultview.0.pwd) nm = DataBinder.Eval(myds, tables0.defaultview.0.customername) ad = DataBinder.Eval(myds, tables0.defaultview.0.customeraddress) ph = DataBinder.Eval(myds, tables0.defaultview.0.customerphone) pa = DataBinder.Eval(myds, tables0.defaultview.0.customerpay) pt = DataBinder.Eval(myds, tables0.defaultview.0.pingtaiNO) dstab = myds.Tables(0)End Sub用户查询 Public useRec(7) As String Sub sel(ByVal customerID As String) mycon.Open() mycmd.Connection = mycon mycmd.CommandText = select * from customer where customerID= & customerID & reader = mycmd.ExecuteReader() If reader.Read Then useRec(0) = reader(pwd) useRec(1) = reader(customername) useRec(2) = reader(customeraddress) useRec(3) = reader(customerphone) useRec(4) = reader(customerpay) useRec(5) = reader(pingtaiNO) End If mycon.Close()End Sub修改信息 Sub upd(ByVal pwd As String, ByVal customername As String, ByVal customeraddress As String, ByVal customerphone As String, ByVal customerpay As String, ByVal pingtaiNO As String, ByVal customerID As String) mycon.Open() mycmd.Connection = mycon mycmd.CommandText = update customer set pwd= & pwd & ,customername= & customername & ,customeraddress= & customeraddress & ,customerphone= & customerphone & ,customerpay= & customerpay & ,pingtaiNO= & pingtaiNO & where customerID= & customerID & mycmd.ExecuteNonQuery() mycon.Close() End Sub 注册 Sub ins(ByVal customerID As String, ByVal pwd As String, ByVal customername As String, ByVal customeraddress As String, ByVal customerphone As String, ByVal customerpay As String, ByVal pingtaiNO As String) mycon.Open() mycmd.Connection = mycon mycmd.CommandText = insert into customer(customerID,pwd,customername,customeraddress,customerphone,customerpay,pingtaiNO) values( & customerID & , & pwd & , & customername & , & customeraddress & , & customerphone & , & customerpay & , & pingtaiNO & ) mycmd.ExecuteNonQuery() mycon.Close() End SubPublic dt, gn, gm, gp, dstab1页面初始化（1） Public Sub opendbini1() myadpt.SelectCommand = New OleDbCommand myadpt.SelectCommand.Connection = mycon myadpt.SelectCommand.CommandText = select goodsNO,goodsname,goodsprice from goods myadpt.Fill(myds, goods) dt = myds.Tables(goods) gn = DataBinder.Eval(myds, tables0.defaultview.0.goodsNO) gm = DataBinder.Eval(myds, tables0.defaultview.0.goodsname) gp = DataBinder.Eval(myds, tables0.defaultview.0.goodsprice) dstab1 = myds.Tables(0)End Sub商品查询 Public useRec1(3) As String Sub sel1(ByVal goodsNO As String) mycon.Open() mycmd.Connection = mycon mycmd.CommandText = select * from goods where goodsNO= & goodsNO & reader = mycmd.ExecuteReader() If reader.Read Then useRec1(0) = reader(goodsname) useRec1(1) = reader(goodsprice) End If mycon.Close()End Sub登录信息确认 Public Rec(6) As String Sub makesure(ByVal customerID As String) mycon.Open() mycmd.Connection = mycon mycmd.CommandText = select * from customer where customerID= & customerID & reader = mycmd.ExecuteReader() If reader.Read Then Rec(0) = reader(pwd) Rec(1) = reader(customername) Rec(2) = reader(customeraddress) Rec(3) = reader(customerphone) Rec(4) = reader(customerpay) Rec(5) = reader(pingtaiNO) End If mycon.Close()End Sub运单查询 Public useRec3(3) As String Sub sel3(ByVal yundanNO As String) mycon.Open() mycmd.Connection = mycon mycmd.CommandText = select * from yundan where yundanNO= & yundanNO & reader = mycmd.ExecuteReader() If reader.Read Then useRec3(0) = reader(yundantime) useRec3(1) = reader(yundnasite) End If mycon.Close() End SubEnd Class4.2 基本功能子系统1. 登录界面如下： 图5 登录界面代码如下：Imports infoclPartial Class _Default Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim user As New infocl user.con(lujiawen-pc, shopping, admin, 457511) If user.verifyLogin(TextBox1.Text, TextBox2.Text) = 1 Then Label3.Text = 登录成功！ Label3.Visible = True Session(1) = TextBox1.Text Response.Redirect(makesure.aspx) Else Label3.Text = 登录失败！ Label3.Visible = True End If End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect(register.aspx) End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Response.Write(window.close() End Sub Protected Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged End SubEnd Class2. 注册界面如下： 图6 注册界面代码如下：Imports SystemImports System.DataImports System.Data.OleDbImports infoclPartial Class _Default Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Try If TextBox1.Text = Or TextBox2.Text = Or TextBox3.Text = Or TextBox4.Text = Or TextBox5.Text = Then Label1.Text = 请填写必要项！ Else Dim useobj As New infocl useobj.con(lujiawen-pc, shopping, admin, 457511) useobj.ins(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox9.Text) Label1.Text = 注册成功! TextBox1.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox9.Text = TextBox2.Text = Response.Redirect(login.aspx) End If Catch 获取错误消息 Dim ex As New System.ExecutionEngineException Label1.Text = 出错: & ex.Message.ToString() End Try End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect(register.aspx) End SubEnd Class4.3交易功能子系统1.订单生成界面如下： 图7 订单生成界面代码如下：Partial Class _Default Inherits System.Web.UI.Page Dim useobj As New infocl Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label1.Text = Session(goodsNO) Label2.Text = Session(goodsname) Label3.Text = Session(goodsprice) Label4.Text = Session(name) Label5.Text = Session(address) Label6.Text = Session(phone) Label7.Text = Session(pay) End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Response.Redirect(pay.aspx) Session(yes) = 1 End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect(scan.aspx) End Sub Protected Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged Session(2) = 中国邮政 End Sub Protected Sub RadioButton2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged Session(2) = 申通快递 End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Response.Redirect(buy1.aspx) End SubEnd Class3. 查看已购买物品信息界面如下： 图8 已购物品查看界面代码如下：Partial Class buy Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label1.Text = Session(goodsname) Label2.Text = Session(goodsprice) Label3.Text = 还未付款 End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Response.Redirect(order.aspx) End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Text = Label2.Text = Label3.Text = Response.Redirect(scan.aspx) End SubEnd Class4. 运单生成界面如下： 图9 运单生成界面代码如下：Partial Class yundan Inherits System.Web.UI.Page Dim useobj As New infocl 该函数用于页面初始化，连接并打开数据库 Public Sub opendb() useobj.opendbini() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try useobj.con(lujiawen-pc, shopping, admin, 457511) If Not IsPostBack Then 页面初次加载 opendb() End If Catch 获取错误消息 Dim ex As New System.ExecutionEngineException Label1.Text = 出错: & ex.Message.ToString() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = End Try End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Try useobj.sel3(TextBox1.Text) TextBox2.Text = useobj.useRec3(0) TextBox3.Text = useobj.useRec3(1) TextBox4.Text = Session(name) TextBox5.Text = Session(phone) TextBox6.Text = Session(2) Label1.Text = Catch 获取错误消息 Dim ex As New System.ExecutionEngineException Label1.Text = 出错: & ex.Message.ToString() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = End Try End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Response.Redirect(buy2.aspx) End SubEnd Class4.4信息管理功能子系统1.登录信息确认界面如下： 图10 登录确认界面代码如下：Imports System.DataImports System.Data.OleDbImports infoclPartial Class makesure Inherits System.Web.UI.Page Public Sub opendb() useobj.opendbini() TextBox1.Text = End Sub Dim useobj As New infocl Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try useobj.con(lujiawen-pc, shopping, admin, 457511) If Not IsPostBack Then 页面初次加载 opendb() End If Catch 获取错误消息 Dim ex As New System.ExecutionEngineException Label1.Text = 出错: & ex.Message.ToString() TextBox1.Text = End Try Label8.Text = Session(1) TextBox1.Text = Session(1) useobj.makesure(TextBox1.Text) Label3.Text = useobj.Rec(1) Label4.Text = useobj.Rec(2) Label5.Text = useobj.Rec(3) Label6.Text = useobj.Rec(4) Label7.Text = useobj.Rec(5) End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Session(name) = Label3.Text Session(address) = Label4.Text Session(phone) = Label5.Text Session(pay) = Label6.Text Response.Redirect(scan.aspx) End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect(change.aspx) End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Response.Redirect(window.close() End SubEnd Class5. 用户信息修改界面如下： 图11 信息修改界面代码如下：Partial Class _Default Inherits System.Web.UI.Page Dim useobj As New infocl 该函数用于页面初始化，连接并打开数据库 Public Sub opendb() useobj.opendbini() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox7.Text = End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Try useobj.con(lujiawen-pc, shopping, admin, 457511) If Not IsPostBack Then 页面初次加载 opendb() End If Catch 获取错误消息 Dim ex As New System.ExecutionEngineException Label1.Text = 出错: & ex.Message.ToString() TextBox1.Text = TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox7.Text = End Try End Sub 修改 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Try If TextBox1.Text = Then Label1.Text = 不能为空！ Else useobj.upd(TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text, TextBox1.Text) Label1.Text = 信息更新成功! TextBox2.Text = TextBox3.Text = TextBox4.Text = TextBox5.Text = TextBox6.Text = TextBox7.Text = End If Catch 获取错误消息() Dim ex As New System.ExecutionEngineException Label1.Text = 出错: & ex.Message.ToString() End Try End Sub Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click Try useobj.sel(TextBox1.Text) TextBox2.Text = useobj.useRec(0) TextBox3.Text = useobj.useRec(1) TextBox4.Text = useobj.useRec(2) TextBox5.Text = useobj.