【正文】 界面設(shè)計得相當簡單，操作也很簡便，易用性很強。用 Select case 語句作判斷 leave的值，變量 onedisk作為一個影碟所需租金，并累加到總租金 rate中。 39。 會員資料 界面、代碼都和 “影碟資料 ”類似，在此將不再贅述。運行界面如下圖 ： 圖 按影碟歸還窗體界面 文本框 Validate 事件代碼： Private Sub Text1_Validate(Index As Integer, Cancel As Boolean) For i = 0 To 5 If Text1(i) = Then Exit For 影碟編號 =39。 vbCrLf amp。, stringsql2 = stringsql2 amp。 已經(jīng)租借了 amp。代碼如下： Do Until !影碟編號 amp。界面如下圖 ： 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計 第 16頁 共 29 頁 濟南大學(xué)畢業(yè)設(shè)計用紙 圖 影碟資料顯示窗體 此窗體自動具備了添加、更新、刪除、刷新、關(guān)閉等功能按鈕。 業(yè)務(wù)統(tǒng)計 ? 熱門影碟 系統(tǒng)根據(jù)各個影碟的租借累計次數(shù)，自動以一張表格和柱形圖顯示出排列靠前的影碟，方便店主得知受歡迎的影碟。一般不會出現(xiàn)此類情況，但多考慮點總不會錯。圖 是本系統(tǒng)的功能模塊結(jié)構(gòu)圖： 圖 功能模塊結(jié)構(gòu)劃分 各模塊功能介紹 影碟管理 ? 租借 ? 查詢： 從管理員為顧客服務(wù)的實際操作出發(fā)，支持模糊查詢。當然，一個中小型影碟出租店鋪不會購進同一 DVD影碟上百張，最多也就十幾張，第七位數(shù)字用以區(qū)分此 DVD影碟的續(xù)集或后續(xù)系列，如美國電視連續(xù)劇《越獄第一季》的編號為 210001101，《越獄第二季》的編號就是 210001201，同理，即將推出的《越獄第三季》的編號就是 210001301。它是 Microsoft全局數(shù)據(jù)訪問（ UDA）的一部分， Microsoft認為與其自己創(chuàng)建一個數(shù)據(jù)，不如利用 UDA訪問已有的數(shù)據(jù)庫。系統(tǒng)還提供了表生成器、查詢生成器、報表設(shè)計器以及數(shù)據(jù)庫向?qū)А⒈硐驅(qū)?、查詢向?qū)?、窗體向?qū)А蟊硐驅(qū)У裙ぞ?，使得操作簡便，容易使用和掌握。通過它可以對圖像修飾、對圖形進行編輯，以及對圖像的色 彩處理，另外，還有繪圖和輸出功能等。 系統(tǒng)的功能和特色 EasyVideo 影碟出租管理系統(tǒng) 版運行環(huán)境： WindosXP/Windos20xx/Windos20xx 軟件大?。?2M 所需配置： 10G硬盤、 128M內(nèi)存以上 開發(fā)工具： Visual Basic SP Access20xx 其功能如下： ? 影碟資料登記、存檔 ? 出租查詢 ? 出租業(yè)務(wù)自動處理 ? 影碟歸還業(yè)務(wù)處理（兩種方式：按會員編號歸還、按影碟歸還） ? 各影碟出租次數(shù)自動統(tǒng)計 ? 每天租出業(yè)務(wù)量自動統(tǒng)計 ? 新會員注冊 ? 散客結(jié)賬 ? 會員資料查詢 ? 會員所有租借記錄查詢 ? 系統(tǒng)登錄密碼修改 EasyVideo影碟出租管理系統(tǒng) 地了解影碟出租店的情況，依據(jù)店員實際操作流程開發(fā)而成的，每一個功能都相當實用，界面友好、簡潔。 “帝豪 ”影碟出租店的會員租借規(guī)則是這樣的：顧客繳納一定數(shù)額的會員費（如 50元，里面包括 20 元押金，即租借費用為 30 元），即可入會，獲得一張會員卡，上面記錄會員編號、入會時間等信息。開發(fā)出功能完善、簡單易用的影碟出租管理系統(tǒng)，讓影碟出租店鋪的店主樂意接受，最終提高其經(jīng)營效益，這不僅是店主所渴求的，也是我們從事信息化建設(shè)的人士的任務(wù)之所在。當然，若損壞影碟，要酌情扣留押金。 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計 第 5頁 共 29 頁 濟南大學(xué)畢業(yè)設(shè)計用紙 ２ 系統(tǒng)開發(fā)中的相關(guān)技術(shù) 語言介紹 Visual Basic （簡稱 VB6）是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序。小方塊圖標采用了一個彩色漸變，加上字母變形、外發(fā)光的效果。 [6] 之所以選用 Access，是以 “夠用原則 ”作為指導(dǎo)的?？梢允褂?ADO 去編寫緊湊簡明的腳本以便連接到 Open Database Connectivity (ODBC) 兼容的數(shù)據(jù)庫和 OLE DB兼容的數(shù)據(jù)源，這樣 ASP程 序員就可以訪問任何與 ODBC 兼容的數(shù)據(jù)庫，包括 MS SQL SERVER、 Access、 Oracle 等等。先將 “影碟資料 ”表中此影碟的狀態(tài)由 “在庫 ”改為 “借出 ”，更改其 “租借次數(shù) ”字段的值增加 1；修改 “會員資料 ”表對應(yīng)會員的 “已租借數(shù)量 ”字段增加 1；添加一條租借記錄。 ? 系統(tǒng)自動處理： 將影碟資料庫中此影碟的狀態(tài)字段修改為 true，即 “借出 ”（ false 代表 “在庫 ”）——修改此影碟的 “租借次數(shù) ”字段的值增加 1——修改會員資料表中 “已租借 數(shù)量 ”字段值增加 1（散客無須這步） ——在租借記錄表中增加新一條記錄，字段包括：影碟編號、片名、會員編號（若是散客，此字段為 0）、姓名、租借日期、歸還日EasyVideo影碟出租管理系統(tǒng) 影碟管理 會員管理 業(yè)務(wù)統(tǒng)計 影碟資料 庫存清單 歸還 租借 新會員注冊 會員資料 會員租借記錄 散客結(jié)賬 熱門影碟 業(yè)務(wù)量統(tǒng)計 按會員 按影碟 會員 散客 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計 第 12頁 共 29 頁 濟南大學(xué)畢業(yè)設(shè)計用紙 期（此時為 null）。 ? 注冊必須數(shù)據(jù)，見第四章 。 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計 第 14頁 共 29 頁 濟南大學(xué)畢業(yè)設(shè)計用紙 ４ EasyVideo影碟出租管理系統(tǒng)的實現(xiàn) 數(shù)據(jù)庫的建立 用 Access20xx建立一數(shù)據(jù)庫，以存儲 EasyVideo影碟出租管理系統(tǒng)的各種數(shù)據(jù)，我將其命名為 。測試連接，顯示連接成功。此時，后臺要完成的三件工作，分別修改數(shù)據(jù)庫中 3個表：修改影碟資料表中的 “影碟狀態(tài) ”字段和 “租借管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計 第 18頁 共 29 頁 濟南大學(xué)畢業(yè)設(shè)計用紙 次數(shù) ”字段、修改會員資料表中的 “已租借數(shù)量 ”字段、在租借記錄中添加一條新記錄。 vbCrLf amp。 39。 (限租碟數(shù)量 ) MsgBox mystr, vbInformation, 信息確認 Set = Nothing Set adoConn = Nothing Exit Sub sqlerror: Rollback MsgBox End Sub ? 散客租借的情況 與會員租借情況類似，這里不再細述。 vbCrLf amp。 Private Sub Command1_Click() If = True Then sql = select * from 租借記錄 where 會員編號 = amp。 (2) amp。 vbCrLf Loop Case True Label2 = rate = 0 Do Until oneDisk = CDate((5)) CDate((4)) If oneDisk = 0 Then oneDisk = 1 rate = rate + oneDisk …… End Select 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計 第 25頁 共 29 頁 濟南大學(xué)畢業(yè)設(shè)計用紙 圖 散客結(jié)帳窗體界面 點擊 “找補 ”按鈕，則此散客在 “散客 ”表上的信息被刪除。 感謝我的朋友雷劍，他在我無助的時候給予我力量與支持，讓我感到并不是自己一個人。上方是菜單欄，左側(cè)是常用功能快捷按鈕，當然，也可以下拉對應(yīng)的菜單欄進入相應(yīng)的模塊窗體界面。 Dim leave As Boolean = select * from 租借記錄 where 會員編號 =0 and 姓名 =39。 39。 rs2!歸還日期 amp。 rs!姓名 amp。 null) stringsql3$ = update 影碟資料 set 狀態(tài) =1 where 影碟編號 = amp。 Left$(, 9) amp。 getMemberNumber = stringsql1 If = 0 Then MsgBox 目前沒有第 amp。語句如下： sql = select * from 影碟 資料 where 片名 like39。 影碟編號 文本 10 片名 文本 20 會員編號 數(shù)字 整型 會員姓名 文本 10 租借日期 日期 /時間 短日期 歸還日期 日期 /時間 短日期 表 散客表的結(jié)構(gòu) 【字段】 【數(shù)據(jù)類型】 【字段大小】 【說明】 散客結(jié)賬離開后，其記錄被刪除。推薦使用會員編號查詢，快捷、方便，按會員姓名查詢作為忘記會員編號時候備用。 ? 按影碟編號歸還： 輸入此影碟的編號，自動顯示目前租借它的會員編號（散客的編號統(tǒng)一為 0）、會員（散客）姓名，以便進行確認。 店員檢查影碟是否損壞，若是，則告訴會員，需要扣留一部分押金，并作記錄，進入歸還登記階段；若沒損壞，直接進入歸還登記階段。 ADO對象模塊圖如圖 ： 圖 ADO對象模塊 Command Connection Error Field Recordset Parameter Parameters Collection Fields Collection Source Execute Execute Active Connection 管理學(xué)院 信管 0301 班 學(xué)生 覃秋園 畢業(yè)設(shè)計 第 9頁 共 29 頁 濟南大學(xué)畢業(yè)設(shè)計用紙 ３ EasyVideo影碟出租管理系統(tǒng)的設(shè)計 影碟編號 使用 EasyVideo影碟出租管理系統(tǒng) ，事先必須給每張影碟分類、編號。 Data控件將常用的 DAO功能封裝在其中，它與 DAO控件的關(guān)系就好象內(nèi)存與 Cache之間的關(guān)系一樣，所以這兩種方法并不是互斥的，實際上，它們常同時使用。 （ 2）面向?qū)ο? Access 是一個面向?qū)ο蟮拈_發(fā)工 具，利用面向?qū)ο蟮姆绞綄?shù)據(jù)庫系統(tǒng)中的各種功能對象化，將數(shù)據(jù)庫管理的各種功能封裝在各類對象中。 ， Visual Basic 推出了中文版，與前各個版本相比，其功能有了很大提升。使用 EasyVideo 影碟出租管理系統(tǒng)，散客歸還所有影碟后，其信息即會被刪除，以節(jié)約存儲空間。由于 DVD 影碟影音效果良好、使用方便、費用低廉等原因，它已被廣大市民所接受。 “錄像 ”的載體由先前的錄像帶、發(fā)展到 VCD，再到現(xiàn)在已經(jīng)非常普及的 DVD影碟。 （ 2）散客的租借記錄浪費很多紙張，因為散客基本都是一次性租借的，歸還影碟后就基本很少來了，所以他們的租借信息此后沒有什么作用了。隨著版本的提高， Visual Basic 的功能也越來越強。 Access 作為一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，其主要特點如下： （ 1）存儲方式單一 Access 管理的對象有表、查詢、窗體、報表、頁、宏和模塊，以上對象都存放在后綴為（ .mdb）的數(shù)據(jù)庫文件種，便于用戶的操作和管理。 Data 控件只給出有限的不需編程而能訪問現(xiàn)存數(shù)據(jù)庫的功能，而 DAO 模型則是全面控制數(shù)據(jù)庫的完整編程接口。 ADO針對客戶／服務(wù)器以及 WEB應(yīng)用程序作了優(yōu)化 [1]。 歸還業(yè)務(wù)流程： 會員持影碟到店內(nèi)歸還。確定后系統(tǒng)自動修改數(shù)據(jù)庫：修改影碟資料庫中此影碟的狀態(tài)為 false——在租借記錄表中的 “歸還日期 ”字段填上當前的日期。提供兩種查詢途徑：按會員編號查詢、按會員姓名查詢。日期是系統(tǒng)根據(jù)當前日期添加，其余字段是 從以上兩個表移植過來。當在文本框 Text1里輸入片名的關(guān)鍵字，給字符串變量 sql 賦值，