资源描述：
《系统源码文档》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、北方民族大学课程设计报告 系（部、中心）计算机科学与工程学院姓名陆嘉文学号 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交易
2、功能子系统144.4信息管理功能子系统185.结束语256.参考文献251.系统总体分析与设计1.1系统体系结构本系统采用浏览器/服务器（Browse/Server）模式。服务器浏览器......浏览器浏览器浏览器图1系统体系结构图1.2系统功能结构系统功能模块图如下：图2系统功能模块图2.系统数据库设计与实现图3数据库实现关系图3．系统设计类图图4购物系统设计类图4.系统实现4.1系统COM类购物系统实体类代码如下：ImportsMicrosoft.VisualBasicImportsSystem.DataImportsSys
3、tem.Data.OleDbPublicClassinfoclPublicmyconAsNewOleDbConnectionDimmycmdAsNewOleDbCommandDimreaderAsOleDbDataReaderDimmyadptAsNewOleDbDataAdapterDimmydsAsNewDataSet'连接服务器、数据库Subcon(ByValsrvnameAsString,ByValdbnameAsString,ByValusernameAsString,ByValpwdAsString)mycon.Co
4、nnectionString="Provider=SQLNCLI.1.1;DataSource="&srvname&";InitialCatalog="&dbname&_";UserID="&username&";Password="&pwdEndSub‘登录验证FunctionverifyLogin(ByValusernameAsString,ByValpwdAsString)AsIntegermycon.Open()mycmd.Connection=myconmycmd.CommandText="select*fromcus
5、tomerwherecustomerID='"&username&"'andpwd='"&pwd&"'"reader=mycmd.ExecuteReader()Ifreader.Read=FalseThenReturn0ElseReturn1EndIfmycon.Close()EndFunction‘页面初始化Publicds,df,mm,nm,ad,ph,pa,pt,dstabPublicSubopendbini()myadpt.SelectCommand=NewOleDbCommandmyadpt.SelectCommand
6、.Connection=myconmyadpt.SelectCommand.CommandText="selectcustomerID,customername,customeraddress,customerphone,customerpay,pingtaiNO,pwdfromcustomer"myadpt.Fill(myds,"customer")ds=myds.Tables("customer")df=DataBinder.Eval(myds,"tables[0].defaultview.[0].customerID")m
7、m=DataBinder.Eval(myds,"tables[0].defaultview.[0].pwd")nm=DataBinder.Eval(myds,"tables[0].defaultview.[0].customername")ad=DataBinder.Eval(myds,"tables[0].defaultview.[0].customeraddress")ph=DataBinder.Eval(myds,"tables[0].defaultview.[0].customerphone")pa=DataBinder
8、.Eval(myds,"tables[0].defaultview.[0].customerpay")pt=DataBinder.Eval(myds,"tables[0].defaultview.[0].pingtaiNO")dstab=myds.Tables(
