【文章內(nèi)容簡介】 ： 影 片 ID 用戶 ID 租 借 時 間 租期 押金 結(jié)算時間 退還金額 錯誤信息 ③ 實體之間聯(lián)系的分析 用戶分為普通用戶和管理員用戶 影片從屬與影片類型 一個用戶可以擁有多個預定和租借關系 一部影片也可以同時擁有多個用戶租賃和預定 一個租賃關系只能擁有一個相對應的租賃信息 ④ ER 圖 總 ER 圖 影片實體 ER 圖 租賃 影片 屬于 影片類型 還片時間 錯誤信息 起租時間 押金 租期 客戶 退還金額 影片 影片 ID 名稱 類型 簡介 圖片 狀態(tài) 影片分類 ER 圖 系統(tǒng)信息 ER 圖 用戶信息 ER 圖 租賃信息 ER 圖 影片類型 編號 名稱 系統(tǒng)信息 版權(quán) 聯(lián)系 人 關于 數(shù)據(jù)庫邏輯結(jié)構(gòu)的設計 影片租賃系統(tǒng)中所有的數(shù)據(jù)都存貯在 ACCESS 數(shù)據(jù)庫中 將上面的數(shù)據(jù)庫感念結(jié)構(gòu)轉(zhuǎn)化為 ACCESS 數(shù)據(jù)庫所支持的關系數(shù)據(jù)模型 ① 關系模式 影片：（影片 ID 名稱 類型 簡介 圖片 狀態(tài)） 用戶： （用戶 ID 用戶名 密碼 真實姓名 身份證 詳 細住址 電話 EMAIL） 影片類型： （編號 名稱） 租賃信息：（影片 ID 用戶 ID 租借時間 租期 押金 退 還時間 退還金額 錯誤信息） ② 范式分析 在數(shù)據(jù)庫邏輯結(jié)構(gòu)設計上，會接觸到關系模型數(shù)據(jù)庫關系的最常用的三個范式。數(shù)據(jù)庫關系的完善程度，很大程度上決定了數(shù)據(jù)庫邏輯結(jié)構(gòu)設計的成敗，因此，對實體與屬性之間的范式分析，是很有必要的。各個實體與屬性之間的范式分析如下： 數(shù)據(jù)庫表中的字段都是單一屬性的，不可再分 數(shù)據(jù)庫表中不存在非關鍵字段對任一候選關鍵字段的部分函數(shù)依賴 數(shù)據(jù)表中如果不存在非關鍵字段對任一 候選關鍵字段的傳遞函數(shù)依賴 物理結(jié)構(gòu)的設計 命名規(guī)則： ，如 Viddeoinfo 被縮寫成 VI ，用來表示大致的數(shù)據(jù)類型，如 S代表字符串類型， N代表數(shù)值數(shù)據(jù)類型等等 ID F 由上面對實體與屬性之間的關系分析與范式分式，得出了系統(tǒng)的物理結(jié)構(gòu)如下： 租價方案表 字段名 描述 鍵 類型 長度 空值 默認值 PMT_ID_N 租價方案 ID ● autocou Not nt Null PMT_Price_N 日租價 single Not Null 0 PMT_Deposit_N 押金 single Not Null PMT_Description_N 租價方案描述 varchar 50 Not Null 0 PMT_LateFee_N 滯納金 single Not Null 0 。 供應商信息表 字段名 描述 鍵 類型 長度 空值 默認值 PI_ID_N 供應商 ID ● autocount Not Null PI_Name_S 名稱 varchar 50 Not Null PI_Description_S 描述 varchar 250 系統(tǒng)信息表 字段名 描述 鍵 類型 長度 空值 默認值 SI_Owner_S 系統(tǒng)使用者 ● varchar 250 SI_Copyright_N 版權(quán)所有者 varchar 200 SI_About_S 關于 varchar 250 SI_Logo_S Logo 地址 varchar 250 SI_Content_S 聯(lián)系人 Email varchar 250 租賃信息表 字段名 描述 鍵 類型 長度 空值 默認值 TAC_ID_N 租賃號 ● auto count Not Null TAC_VI_ID_FN 租賃影片 ID ○ int Not Null TAC_UI_ID_FN 租賃用戶 ID ○ int Not Null TAC_ReserveTime_D 預定時間 datetime Not Null TAC_TimeOut_B 是否超時 datetime Not Null False TAC_Return_B 是否返還 boolean Not False Null TAC_StartTime_D 起租時間 datetime TAC_Lease_N 租期 int 1 TAC_EndTime_D 結(jié)租時間 datetime TAC_UserPayment_N 用戶付款數(shù) single 0 TAC_Status_N 租賃狀態(tài) int Not Null 影片承載介質(zhì)表 字段名 描述 鍵 類型 長度 空值 默認值 TI_ID_N 介質(zhì) ID ● autocount Not Null TI_Description_S 介質(zhì)名 varchar 100 Not Null 影片信息表 字段名 描述 鍵 類型 長度 空值 默認值 VI_ID_N 影片 ID ● autocount Not Null VI_TI_ID_FN 影片介質(zhì) ID ○ int Not Null VI_VS_ID_FN 影片類型 ID ○ int Not Null VI_PMT_ID_FN 租價方案 ID ○ int Not Null VI_PI_ID_FN 供應商 ID ○ int Not Null VI_Title_S 影片名 varchar 50 Not Null VI_Content_S 內(nèi)容 big varchar VI_Director_S 導演 varchar 100 VI_Playactor_S 演員 varchar 100 VI_Issuer_S 發(fā)行商 varchar VI_Rank_N 評價 int Not Null 1 VI_RentCount_ 出租次數(shù) int Not 0 N Null VI_Count_N 瀏 覽計數(shù) int Not Null 0 VI_Status_N 影片狀態(tài) int Not Null 1 VI_AddTime_D 添加時間 datetime Not Null Now() VI_Img_S 圖片地址 varchar 150 影片類型表 字段名 描述 鍵 類型 長度 空值 默認值 VS_ID_N 影片類型 ID ● autocount Not Null VS_Description_S 描述 varchar 50 Not Null VS_Count_N 類 型瀏覽技術 int Not Null 0 VS_RentCount_N 類型租賃計數(shù) int Not Null 0 用戶信息表 字段名 描述 鍵 類型 長度 空值 默認值 UI_ID_N 用戶 ID ● autocount Not Null UI_PI_ID_FN 供應商 ID ○ int Not Null 0 UI_Name_S 用戶名 varchar 20 Not Null UI_Password_S 密碼 varchar 100 Not Null UI_IsLock_B 用戶是否鎖定 boolean Not Null False UI_CerRank_N 信用級別 int Not Null 0 UI_IsProvider_B 用戶是否為供應商 boolean Not Null False UI_Email_S Email varchar 50 Not Null UI__S varchar 20 UI_IsAdmin_B 用戶是否為管理員 boolean Not Null False UI_RentCount_N 用戶租賃 計數(shù) int Not Null 0 注意：鍵類型中，“●”標注的為主鍵；“○”標注的為外鍵。 功能模塊的劃分 由于我做的主要是客戶界面的設計，因此，經(jīng)過上面的分析，由實體與屬性之間的關系，以及對實際租賃過程的分析，得出客戶界面的功能大致如下： 第五章 詳細設計 模塊詳細的設計 系統(tǒng)初始界面 功能：用戶可在這里瀏覽，租賃影片，可以進行登陸，注冊 用戶登陸模塊 功能：用戶可以進行登陸 用戶用戶注銷登陸模塊 功能 用戶可以進行用戶帳號的注銷 用戶注冊模塊 功能 用戶可以進行帳號的注冊 用戶預定影片模塊 功能 用戶可以在這里進行影片的預定 顯示租賃信息模塊 功能： 可以顯示租賃信息 顯示影片信息 功能： 用戶可以在這里瀏覽影片 模塊接口 在用戶登陸主界面的時候，調(diào)用模塊與被調(diào)用的模塊，及調(diào)用的數(shù)據(jù)庫文件之間的關系如下： 調(diào) 用模塊名 被調(diào)用模塊名 index 為首頁 在這上面有用戶的登陸注冊，和影片的瀏覽，用戶在點注冊的時候的就調(diào)用了 ，在點登陸的時候就調(diào)用了 ，在點注銷的時候就調(diào)用了 ，在用戶打開頁面的時候，可以瀏覽影片，這時候就要調(diào)用 輸入 ,輸出部分 在用戶進行登陸的時候，用戶名和密碼為輸入項，由 收并連入數(shù)據(jù)庫與 userinfo 進行比較核對，看是否為已經(jīng)注冊的用戶 。 用戶不是注冊用戶的話，可以進行注冊，這時候調(diào)用 ，又它把用戶的注冊信息輸入數(shù)據(jù)庫 userinfo 用戶登陸 login.asp 用戶注冊 p 在打開系統(tǒng)時，且沒注冊時用戶可以瀏覽影片，這時候調(diào)用 ，從數(shù)據(jù)庫 videoinfo 調(diào)出影片的信息 也可以點影片的類型名稱進行瀏覽影片，這時間調(diào)用的是 ，由它連入數(shù)據(jù)庫 VideoStyle，調(diào)出數(shù)據(jù)項 當用戶登陸時，如果帳號密碼輸入不正確的話，這時候調(diào)用 ，并連入數(shù)據(jù)庫 ErrCode，輸出信息提醒用戶 用戶登陸以后可以在這里進行用戶的管理，已租，預定的影片和到期影片的查看和影片的瀏覽，注銷，和影片的分類瀏覽。 調(diào)用的模塊是 ， 被調(diào)用的是 輸入輸出部分 當用戶在點擊用戶管理時，調(diào)用 ，由它連入數(shù)據(jù)庫 userinfo，當用戶修改了信息的時候，又由 把修改后的信息存入 userinfo中 當用戶在點擊已租，到期影片的查看的時候，調(diào)用的是 ，由它連入數(shù)據(jù)庫 Tenancy 瀏覽影片 dispmsp 用戶登陸 chkerr.asp 用戶管理 modifyUser.asp 影片類型名稱 p 當用戶點注銷的時候，調(diào)用的是 用戶在瀏覽和租賃影片的時候 調(diào)用的是 被調(diào)用的是 輸入輸出部分： 當用戶瀏覽影片的時候，調(diào)用的 ，由它連入數(shù)據(jù)庫 VideoInfo，并把信息輸 出 當用戶點擊影片分類瀏覽影片的時候，調(diào)用的是 ，由它連入數(shù)據(jù)庫，并把信息輸出 當用戶在預定影片的時候調(diào)用的是 ，由它連入數(shù)據(jù)庫 Tenancy，并把數(shù)據(jù)輸出 已租，到期影片的查看 login.asp 影片瀏覽 影片分類 預定影片 注銷 頁面設計及代碼 注冊頁面及代碼分析 代碼分析： 當用戶在點擊注冊，填寫了注冊信息，點注冊按鈕的時候，執(zhí)行的代碼如下： ‘ 如果檢測到瀏覽器傳遞的值 IsReg 不為空，則執(zhí)行代碼；如果為空，則顯示頁面 ‘ 代碼部分 If Request(IsReg) Then 39。判斷用戶輸入的合法性 ‘ 用戶名、密碼、確認密碼、 Email 不能為空 If Request(UserName)= Or Request(UserPassword)=amp。_ Or Request(ConfirmPassword)= Or Request(Email)= Then ResultMsg(必填的項目沒有填寫，請返回重新填寫完整的信息！ ) End If ‘ 用戶名不能為一排空格 Dim tmpUserName For i=1 To Len(Request(UserName)) tmpUserName=tmpUserNameamp。 Next If tmpUserName=Request(UserName) Then ResultMsg(請不要輸入空格代替必填項目，請返回重新填寫完整的信息！ ) End If ‘ 密碼與確認密碼的輸入必須匹配 If Request(UserPassword)Request(ConfirmPassword) Then ResultMsg(兩次輸入的密碼不匹配，請返回重新輸入！ ) End If ‘ Email 必須符合格式 If IsValidEmail(Request(Email))=False Then ResultMsg(Email 輸入不符合規(guī)范，請返回重新輸入！ ) End If ‘ 若 號不為空，則輸入必須為數(shù)字 If Request() Then If IsNumeric(Request())=False Then ResultMsg( 號碼必須為數(shù)字，請返回重新輸入！ ) End If End If ‘ 用戶名與密碼中不能包含 SQL 字符“ ’ ” If InStr(Request(UserName),39。)0 Or InStr(Request(UserPassword),39。)0 Then ResultMsg(字符“ 39?！睘榉欠ㄝ斎?，請去掉此字符！ ) End If ‘ 用戶名、密碼、 Email 和 的字符數(shù)量不能超過數(shù)據(jù)庫項目的數(shù)據(jù)類型的限制 If Len(Request(UserName))20 Or Len(Request(UserPassword))20amp。_ Or Len(Request(Email))50 Or Len(Request())20 Then ResultMsg(輸入超出了最大字符數(shù)量限制（用戶名 20字符以內(nèi) ” amp。_ ” ，密碼 20字符以內(nèi)， Email 50 字符以內(nèi)， 20 字符以內(nèi)。） ) End If 39。取得用戶輸入 Dim UserName,UserPassword,Email, UserName=(Request(UserName)) 39。根據(jù)用戶名判斷用戶是否已存在 strSQL=SELECT UI_Name_S FROM [UserInfo]” amp。_ ” WHERE UI_Name_S=39。amp