數(shù)據(jù)庫應(yīng)用網(wǎng)上購物系統(tǒng)設(shè)計書-wenkub
2022-09-01 00:16:18 本頁面
【正文】 esStorePricefloat8yesContentvarchar1000yesPostTimedatetime8yesReadCountint4yesBuyCountint4yesImageFilevarchar50yes■ 商品類別表（GoodsType）：表23 商品類別表列名數(shù)據(jù)類型長度允許空Idint4noTypevarchar50yes■ 管理員表(Admin)：表24 管理員表列名數(shù)據(jù)類型長度允許空AdminIdvarchar20noPassWdvarchar20yesNamevarchar50yes■ 用戶表（Users）：表25 Users的結(jié)構(gòu)列 名數(shù)據(jù)類型長 度允許空UserIdvarchar20noPwdvarchar20yesUserNamevarchar50yesSexbit1yesAddressvarchar1000yesEmailvarchar50yesTelephonevarchar100yesMobilevarchar50yes■ 客戶投訴表（Complain）：表26 客戶投訴表列名數(shù)據(jù)類型長度允許空Idint4noPosttimedatatime8yesUserIdvarchar20yesOrderNumbervarchar50yesContentvarchar1000yesResultvarchar1000yesFlagbit1yes■ 購物車表（Basket）：表27 Basket的結(jié)構(gòu)列 名數(shù)據(jù)類型長 度允許空Idint4noUserIdvarchar20yesGoodsIdInt4yesOrderTimeDatetime8yes列 名數(shù)據(jù)類型長 度允許空OrderCountInt4yesSalePriceFloat8yesUserCheckedChar10yesOrderNumberVarchar50yesPostTimeDatetime8yesAdminCheckedChar10yes2 數(shù)據(jù)庫連接 按照要求建好數(shù)據(jù)庫后，需要建立網(wǎng)站頁面和后臺服務(wù)器的鏈接，以后當(dāng)需要對數(shù)據(jù)庫進行訪問時，只需要用!include File=命令就可以直接調(diào)用該程序，連接數(shù)據(jù)庫，提高程序的可讀性，同時也提高程序的便捷性，代碼如下：% Dim Conn Dim ConnStr Set Conn = () ‘創(chuàng)建一個數(shù)據(jù)庫鏈接對象Conn，方便以后調(diào)用 ConnStr=DRIVER={SQL Server}。Database=Shop‘創(chuàng)建一個數(shù)據(jù)庫的recordset對象，方便以后調(diào)用 ConnStr ‘打開數(shù)據(jù)庫%注意：后臺管理功能只有管理用戶才有權(quán)限使用，所以在進入這些頁面之前，需要判斷用戶是否是管理用戶。用戶名是否為空 If AdminId Then sql = Select * From Admin Where AdminId=39。 And PassWd=39。 39。后臺管理的建立，使管理員可以通過后臺很容易的對商城進行管理，比如：對商品，公告和商城注冊用戶進行添加，刪除等管理工作，還可以對客戶訂單以及投訴進行處理2 系統(tǒng)功能模塊設(shè)計在本系統(tǒng)中，用戶管理模塊功能在系統(tǒng)初始化時，有一個默認的“系統(tǒng)管理員”用戶Admin，他可以手動的添加到數(shù)據(jù)庫中。后臺管理網(wǎng)上購物系統(tǒng)公告管理商品管理投訴管理訂單管理用戶管理 圖41系統(tǒng)功能模塊圖■ 該網(wǎng)上購物系統(tǒng)的前臺管理功能模塊圖即客戶購物流程，具體如圖42所示。此外，還可以對服務(wù)進行投訴。 Driver={SQL Server}。database=shop。server=(local)。用戶名是否為空 If AdminId Then sql = Select * From Admin Where AdminId=39。 And Passwd=39。 39。 } if (==) { alert(請輸入商品名稱)。 } if (==) { alert(請輸入進貨價格)。讀取商品類別信息 sql=SELECT * FROM GoodsType ORDER BY Id Set rs = (sql) If Then% option value=/option% Else Do While Not % option value=%=rs(id)%%=rs(type)%/option% Loop End If % /select /td /tr tr td width=100%商品名稱 input type=text name=name size=20 /td /tr tr td width=100%商品編號 input type=text name=number size=20 /td
黨政相關(guān)相關(guān)推薦
鄂ICP備17016276號-1