【文章內容簡介】 目錄名稱 圖 313 目錄屬性實體 ER 圖 圖 314 導航屬性字典實體 ER 圖 圖 315 為產品導航屬性對應關系 ER 圖 圖 315 產品導航屬性對應關系 ER 圖 數(shù)據(jù)庫邏輯結構設計 數(shù)據(jù)庫的概念結構設計完畢后，現(xiàn)在可以將上面的數(shù)據(jù)庫概念結構轉化為某種數(shù)據(jù)庫系統(tǒng)所支持的實際數(shù)據(jù)模型，也就是數(shù)據(jù)庫的邏輯結構。本章實例系統(tǒng)采用 Access數(shù)據(jù)庫，因此在設計本章實例系統(tǒng)數(shù)據(jù)庫概念結構時，需要遵循 Access 數(shù)據(jù)庫的語法結構。 在線花店系統(tǒng)中各個表的設計結果如下面表格所示。每個表格表示在數(shù)據(jù)庫中的一個表， 表 31 為用戶表，記錄某個用戶的信息。 字段名稱 數(shù)據(jù)類型 說明 目錄屬性 導航屬性字典 目錄屬性代號 目錄名稱 所屬目錄信息代號 導航屬性ID 導航屬性 名稱 對應目錄屬性 DI 產品導航屬性對應關系 產品性 目錄屬性 ID autoid 自動編碼 主鍵，遞增，用戶在網站的標識 userid 文本類型 用戶 ID pwd 文本類型 用戶口令 sex 文本類型 性別： 1 男， 0 女 realname 文本類型 真實姓名 personid 文本類型 用戶身份怔 mobile 文本類型 手機號碼 phone 文本類型 固定電話 lasttime 日期類型 修改時間：第一次就是注冊時間 adrress 文本類型 用戶地址 文本類型 郵編 表 31 中 autoid 是用戶網站惟一標識， Useid 是在用戶注冊時自己 選擇的名字，其他是擁護需要的屬性 。 表 32 為產品信息列表，記錄花店現(xiàn)有的產品信息。 字段名稱 數(shù)據(jù)類型 說明 autoid 自動編寫 主鍵，遞增， 產品 在網站的標識 code 文本類型 產品代碼，惟一標識，網站自己定義的字符串 name 文本類型 產品名稱 description 備注類型 產品描述 marketprice 貨幣類型 市場價格 saleprice 貨幣類型 銷售價格 myimageurl 文本類型 圖片地址 status 數(shù)字類型 產品狀態(tài)，是不銷售： 0 銷售， 1 停止銷售 category 文本類型 產品種類 lasttime 日期類型 修改時間：第一次就是增加時間 priority 數(shù)字類型 排序用的優(yōu)先級別 memberprice 貨幣類型 會員價格 imageurlsmall 文本類型 網絡小圖片地址 imageurlmid 文本類型 網絡中圖片地址 imageurlbigsign 文本類型 網絡大圖片地址 sign 數(shù)字類型 標志是否特價產品 表 32 中 Autoid 是產品在網站的惟一標識，在數(shù)據(jù)增加是自動生成， category 是對應 目錄表的分類字符串。 表 33 中目錄信息表，記錄花店的分類信息。 表 33 directory 目錄信息表 字段名稱 數(shù)據(jù)類型 說明 code 文本類型 目錄代碼，惟一標識一個目錄 name 文本類型 目錄名稱 memo 文本類型 備注 表 33 中目錄用字符串分級表示，產品的種類對應目錄代碼。 表 34 為訂單信息表，記錄花店的訂單信息。 表 34 myorder 訂單信息表 字段名稱 數(shù)據(jù)類型 說明 autoid 自動編碼 主鍵，遞增， 訂單 在網站的標識 payname 文本類型 付款人姓名 payphone 文本類型 付款人電話 pay 文本類型 付款人 Email payaddress 貨幣類型 付款人地址 senddate 日期類型 送貨時間 paymemo 文本類型 付款人備注 paytime 日期類型 支付時間 lasttime 日期類型 修改時間：第一次就是增加時間 reame 文本類型 收款人姓名 reick 文本類型 收款人稱呼 recphone 文本類型 收款人電話 recaddress 文本類型 收款人地址 recmemo 文本類型 收款人備注 recemaie 文本類型 收款人郵編 recsay 文本類型 留言 sendfee 貨幣類型 送貨費 sendarea 數(shù)字類型 送貨地區(qū) totalpay 貨幣類型 總價 realpay 貨幣類型 實際價格 orderpass 文本類型 訂單密碼 userid 文本類型 用戶 ID orderstatus 文本類型 訂單狀態(tài) efrom 數(shù)字類型 來源，是否從合作網站來的 表 34 中的 autoid 是訂單在網站的惟一表識，數(shù)據(jù)增加是自動生成， category 是對應目錄表的分類字符串。訂單的付款人一般是網站的會員，收款人可以是自己，也可以是自己的朋友，所以對這兩方面信息分開進行記錄。 表 35 為訂單名細表，極力花店定單具體購買的產品信息。 表 35 orderitem訂單 明細表 字段名稱 數(shù)據(jù)類型 說明 autoid 自動編碼 惟 一標識用戶采購的一個產品 productid 數(shù)字類型 產品 ID productname 文本類型 產品名稱 productprice 貨幣類型 成品價格 quantity 數(shù)字類型 數(shù)量 orderid 數(shù)字類型 訂單 ID 訂單明細表和訂單表是多對一的關系，就是一張訂單可以有多個產品。 表 36 為目錄性表，記錄花店目錄的屬性。 表 36 directoryproperty 目錄屬性表 字段名稱 數(shù)據(jù)類型 說明 autoid 自動編 碼 目錄屬性代碼，惟一標識一個目錄屬性 name 文本類型 目錄屬性名字 directorycode 文本類型 屬于那個目錄 目錄屬性是為了更好的導航產品，目錄的產品有不同的屬性，比如鮮花的用途、花材、對象等屬性。 表 37 為導航屬性字典表，記錄花店目錄的屬性值。 表 37 navigationdict 導航屬性字典表 字段名稱 數(shù)據(jù)類型 說明 autoid 自動編碼 惟一標識一個 導航屬性 directoryproperty 數(shù)字類型 對應目錄屬性的 ID directoryvalue 文本類型 導航屬性名稱 導航屬性字典對應表 36 目錄屬性表的 auotid 字段，換種說法就是目錄有什么屬性，屬性具體對應什么值。比如鮮花目錄的用途屬性有戀情、生日、友情、祝福、婚慶、商務等不同的用途。 表 38 為產品導航屬性對應表，記錄花店產品對應的不同屬性。 表 38 navigationrelation 產品導航屬性對應表 字段名稱 數(shù)據(jù)類型 說明 productid 數(shù)字類型 產品 ID navigationid 數(shù)字類型 對應目錄屬性的 ID 一個產品可以對應多個導航屬性，最終用戶可以根據(jù)不同的屬性瀏覽產品，方便用戶查找產品。 表 39 為用戶評論表，記錄用戶對產品的評論。 表 39ment 用戶評論表 字段名稱 數(shù)據(jù)類型 說明 autoid 自動編碼 評論 ID ment 備注類型 評論內容 nckname 文本類型 用戶名稱 repiy 備注類型 管理答復內容 status 識字類型 是否顯示 文本類型 郵件 userautoid 數(shù)字類型 用戶 ID productid 數(shù)字類型 產品 ID lasttime 數(shù)字類型 對應目錄屬性 ID 表 39 記錄用戶對查的評論， userautoid 為 0 客人，不是網站用戶。 公用模塊的編寫 數(shù)據(jù)庫連接文件 把數(shù)據(jù)庫連接操作作封狀在一個頁面 中，以方便其他頁面調用。例程 31 為 頁面的參考代碼。 例程 31 數(shù)據(jù)庫連接頁面 % const myDatabase=lvzhi 39。Database name const mydblocation=db/39。location of database relative to % 例程 31 定義了兩個常量 myDatabase 和 mydblocation，其中 m,yDatabase 為數(shù)據(jù)庫名稱， mydblocation 為數(shù)據(jù)庫存放位置，如果需要修改數(shù)據(jù)庫存放位置和名稱，就修改 myDatabase 和 mydblocation 這 2 個變量的值。 例程 31 中引入了頁面 allmon， asp,allmon,asp 頁面中定義了數(shù)據(jù)庫連接的操作函數(shù)，例程 32 為這些函數(shù)定義的參考代碼。 例呈 32 定義的數(shù)據(jù)庫公用函數(shù)代碼 打開數(shù)據(jù)庫 最頂級函數(shù) % 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