网上花店毕业设计(编辑修改稿)

网上花店毕业设计(编辑修改稿)内容摘要：

统数据库概念结构时，需要遵循 Access 数据库的语法结构。 在线花店系统中各个表的设计结果如下面表格所示。 每个表格表示在数据库中的一个表， 表 31 为用户表，记录某个用户的信息。 字段名称 数据类型 说明 目录属性 导航属性字典 目录属性代号 目录名称 所属目录信息代号 导 航 属 性ID 导航属性 名称 对应目录属性 DI 产品导航属性对应关系 产品性 目录属性 ID autoid 自动编码 主键，递增，用户在网站的标识 userid 文本类型 用户 ID pwd 文本类型 用户口令 sex 文本类型 性别： 1 男， 0 女 realname 文本类型 真实姓名 personid 文本类型 用户身份怔 mobile 文本类型 手机号码 phone 文本类型 固定电话 lasttime 日期类型 修改时间：第一次就是注册时间 adrress 文本类型 用户地址 文本类型 邮编 表 31 中 autoid 是用户网站惟一标识， Useid 是在用户注册时自己 选择的名字，其他是拥护需要的属性。 表 32 为产品信息列表，记录花店现有的产品信息。 字段名称 数据类型 说明 autoid 自动编写 主键，递增， 产品 在网站的标识 code 文本类型 产品代码，惟一标识，网站自己定义的字符串 name 文本类型 产品名称 description 备注类型 产品描述 marketprice 货币类型 市场价格 saleprice 货币类型 销售价格 myimageurl 文本类型 图片地址 status 数字类型 产品状态，是不销售： 0 销售， 1 停止销售 category 文本类型 产品种类 lasttime 日期类型 修改时间：第一次就是增加时间 priority 数字类型 排序用的优先级别 memberprice 货币类型 会员价格 imageurlsmall 文本类型 网络小图片地址 imageurlmid 文本类型 网络中图片地址 imageurlbigsign 文本类型 网络大图片地址 sign 数字类型 标志是否特价产品 表 32 中 Autoid 是产品在网站的惟一标识，在数据增加是自动生成， category 是对应 目录表的分类字符串。 表 33 中目录信息表，记录花店的分类信息。 表 33 directory 目录信息表 字段名称 数据类型 说明 code 文本类型 目录代码，惟一标识一个目录 name 文本类型 目录名称 memo 文本类型 备注 表 33 中目录用字符串分级表示，产品的种类对应目录代码。 表 34 为订单信息表，记录花店的订单信息。 表 34 myorder 订单信息表 字段名称 数据类型 说明 autoid 自动编码 主键，递增， 订单 在网站的标识 payname 文本类型 付款人姓名 payphone 文本类型 付款人电话 pay 文本类型 付款人 Email payaddress 货币类型 付款人地址 senddate 日期类型 送货时间 paymemo 文本类型 付款人备注 paytime 日期类型 支付时间 lasttime 日期类型 修改时间：第一次就是增加时间 reame 文本类型 收款人姓名 reick 文本类型 收款人称呼 recphone 文本类型 收款人电话 recaddress 文本类型 收款人地址 recmemo 文本类型 收款人备注 recemaie 文本类型 收款人邮编 recsay 文本类型 留言 sendfee 货币类型 送货费 sendarea 数字类型 送货地区 totalpay 货币类型 总价 realpay 货币类型 实际价格 orderpass 文本类型 订单密码 userid 文本类型 用户 ID orderstatus 文本类型 订单状态 efrom 数字类型 来源，是否从合作网站来的 表 34 中的 autoid 是订单在网站的惟一表识，数据增加是自动生成， category 是对应目录表的分类字符串。 订单的付款人一般是网站的会员，收款人可以是自己，也可以是自己的朋友，所以对这两方面信息分开进行记录。 表 35 为订单名细表，极力花店定单具体购买的产品信息。 表 35 orderitem 订单 明细表 字段名称 数据类型 说明 autoid 自动编码 惟 一标识用户采购的一个产品 productid 数字类型 产品 ID productname 文本类型 产品名称 productprice 货币类型 成品价格 quantity 数字类型 数量 orderid 数字类型 订单 ID 订单明细表和订单表是多对一的关系，就是一张订单可以有多个产品。 表 36 为目录性表，记录花店目录的属性。 表 36 directoryproperty 目录属性表 字段名称 数据类型 说明 autoid 自动编 码 目录属性代码，惟一标识一个目录属性 name 文本类型 目录属性名字 directorycode 文本类型 属于那个目录 目录属性是为了更好的导航产品，目录的产品有不同的属性，比如鲜花的用途、花材、对象等属性。 表 37 为导航属性字典表，记录花店目录的属性值。 表 37 navigationdict 导航属性字典表 字段名称 数据类型 说明 autoid 自动编码 惟一标识一个 导航属性 directoryproperty 数字类型 对应目录属性的 ID directoryvalue 文本类型 导航属性名称 导航属性字典对应表 36 目录属性表的 auotid 字段，换种说法就是目录有什么属性，属性具体对应什么值。 比如鲜花目录的用途属性有恋情、生日、友情、祝福、婚庆、商务等不同的用途。 表 38 为产品导航属性对应表，记录花店产品对应的不同属性。 表 38 navigationrelation 产品导航属性对应表 字段名称 数据类型 说明 productid 数字类型 产品 ID navigationid 数字类型 对应目录属性的 ID 一个产品可以对应多个导航属性，最终用户可以根据不同的属性浏览产品，方便用户查找产品。 表 39 为用户评论表，记录用户对产品的评论。 表 39ment 用户评论表 字段名称 数据类型 说明 autoid 自动编码 评论 ID ment 备注类型 评论内容 nckname 文本类型 用户名称 repiy 备注类型 管理答复内容 status 识字类型 是否显示 文本类型 邮件 userautoid 数字类型 用户 ID productid 数字类型 产品 ID lasttime 数字类型 对应目录属性 ID 表 39 记录用户对查的评论， userautoid 为 0 客人，不是网站用户。 公用模块的编写 数据库连接文件 把数据库连接操作作封状在一个页面 中，以方便其他页面调用。 例程 31 为 页面的参考代码。 例程 31 数据库连接页面 % const myDatabase=lvzhi 39。 Database name const mydblocation=db/39。 location of database relative to % 例程 31 定义了两个常量 myDatabase 和 mydblocation，其中 m,yDatabase 为数据库名称， mydblocation 为数据库存放位置，如果需要修改数据库存放位置和名称，就修改 myDatabase 和 mydblocation 这 2 个变量的值。 例程 31 中引入了页面 allmon， asp,allmon,asp 页面中定义了数据库连接的操作函数，例程 32 为这些函数定义的参考代码。 例呈 32 定义的数据库公用函数代码 打开数据库 最顶级函数 % 39。 Debug Message Sub Debug (msg) msg amp。 br end sub 39。 get ComeFrom Cookie function getComeFromCookie() dim ret ret=(efrom) if (efrom=null) then ret= end if getComeFromCookie=ret end function const myCookieKey=lvzhi const myUseCookies=no Sub SetSess (field, value) If myUseCookiesYes then Session(field)=value else (myCookiekey) (field)=value end if end sub Sub ProcessAccessOpen(connection) dim strconn strconn = provider=。 persist security info=false。 data source= amp。 ( mydblocation amp。 myDatabase amp。 .mdb) Set connection = () on error resume next strConn If 0 then SetSess Openerror, Open Messagesbr amp。 (0).description amp。 br amp。 GetSess(dbc) else SetSess Openerror, end if End Sub 39。 main database open for shop Sub ShopOpenDataBase (connection) ProcessAccessOpen connection end sub 39。 close database Sub CloseRecordSet (irs) set irs=nothing end sub 39。 *************** Sub ShopCloseDatabase (connection) on error resume next set connection=nothing End sub 39。 disable property 对应的产品列表 sub disableListFlower(property,value) dim ret dim myname if (property=0) then myname=List amp。 property amp。 F else myname=List amp。 property amp。 F amp。 value end if Application(myname)= end sub 39。 List property 对应的产品列表 function GetListFlower(property,value) dim ret dim myname if (property=0) then myname=List amp。 property amp。 F else myname=List amp。 property amp。 F amp。 value end if ret=Application(myname) if (ret=) then ret=GetListFlowerFromDB(property,value) Application(myname)=ret end if GetListFlower=ret end functi。