【正文】 mme includes try ing to save grey whales and sea otters from oil pollution off California。s reverie. He was talking about Amazon dolphins. These gentle creatures, already threatened by pollution and riverdamming schemes, were being killedtheir eyeballs sold as ornaments and lucky charms in cities such as Rio de Janeiro. Gary grunted disgustedly, and Susan39。s eightinch teeth. ted on the shore. Someone set it ablaze. Spar ks crackled amid whirling smoke. Excited, cherry cheeked children ringed the bonfire。 但是 目前有些功能和性能還有待于進一步的完善和求精 ，隨著電腦租賃業(yè)務(wù)的擴大，系統(tǒng)必須實 現(xiàn)從單機版到網(wǎng)絡(luò)版的轉(zhuǎn)化，否則將無法滿足社會的需求。其窗體布局如圖 513所示。窗體名稱為 FrmReturn,窗體布局如圖 512 所示。以日為單位將周個數(shù) *7=天數(shù) 添加到租賃日期而計算返回時間 txtReturnTime = Trim(DateAdd(d, nCnt * 7, CDate(txtLeaseTime))) ElseIf Trim() = 月 Then 39。租賃的工作日個數(shù)或周個數(shù)或月個數(shù) nECnt = Val(txtWeekEndCount) 39。 圖 511編輯電腦租賃信息窗體布局 主要代碼如下： 39。取消會員資格 If = True Then MsgBox 請選擇記錄 Exit Sub End If If MsgBox(是否確定要注銷會員資格 , vbYesNo, 請確認(rèn) ) = vbNo Then Exit Sub End If = 0 (Trim((0))) GridRefresh 39。判斷是否為會員 If IsMember = False Then .TypeId = 0 Call .Update(OriId) Else 39。 圖 57會員類型管理窗體布局 圖 58是客戶管理窗體的 布局。判斷此電腦號碼是否存在 If .In_DB(MakeStr(txtComputerNo)) = False Then .Insert Else MsgBox (已經(jīng)存在此電腦號碼 ) Exit Sub End If 客戶會員管理模塊設(shè)計 客戶會員管理中包含以下三個部分： ? 客戶管理：可以添加、修改、刪除和查看客戶記錄，并且加入會員。 圖 55 查看保修電腦窗體布局 電腦管理模塊設(shè)計 電腦管理模塊可以添加、修改、刪除和查看電腦的基本信息，其窗體布局如圖 56 所示。設(shè)置 nTypeId值 nTypeId = Index + 1 39。設(shè)置數(shù)據(jù)源 = TypeName 39。 編輯類型信息的窗體可以用來添加和修改類型信息。 _ + \ + DATABASE + 。 打開主窗體的設(shè)計窗口，選擇“工具”菜單中的“菜單編輯器”，對菜單內(nèi)容進行編輯。成功登陸的用戶將進入系統(tǒng)的主界面。 Update 修改指定的用戶記錄。 Delete 刪除指定的用戶記錄。 UpdateStatus 修改租賃的狀態(tài)值。 GetInfo 讀 取指定的記錄。 Update 修改指定的電腦記錄。 Delete 刪除指定的電腦記錄。 Update 修改指定的記錄。 Customer 類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定的記錄。 In_DB 判斷指定的類型名稱是否已經(jīng)在數(shù) 據(jù)庫中。 Update 修改指定的類型記錄，參數(shù) TmpId表示要修改的類型的編號。 In_DB 判斷指定的類型名稱是否已經(jīng)在數(shù)據(jù)庫中。本系統(tǒng)中一共有 7個類模塊。 ? Variable用來管理工程中的全局變量。單擊“保存”按鈕，將工 程存儲為 ，將 Form1窗體保存為 。 硬件要求：推薦為 PII600或賽揚 600以上，硬盤剩余空間大于 200M、 內(nèi)存 128M或更高配置。 表 45 Computers數(shù)據(jù)庫表的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 ComputerNo 文本，長度為 20 電腦編號，主鍵 2 TypeId 數(shù)字，整型 電腦類型 3 ComputerName 文本，長度為 50 電腦名稱 4 SaleId 數(shù)字，長整型 銷售商編號 5 BuyDate 日期 /時間 購買日期 6 MendNo 文本，長度為 50 保修單編號 7 MendId 數(shù)字，長整型 保修公司編號 8 MendType 文本，長度為 50 保修類型 9 MendSDate 日期 /時間 起保日期 10 MendEDate 日期 /時間 結(jié)束日期 11 Deposit 數(shù)字，整型 押金 12 DayPrice 數(shù)字，整型 日租金 13 WeekEndPrice 數(shù)字，整型 周末租金 14 WeekPrice 數(shù)字，整型 周租金 15 OverTimePrice 數(shù)字，整型 超時租金 16 MonthPrice 數(shù)字，整型 月租金 17 Status 文本，長度為 10 狀態(tài) 18 Comment 備注 備注 (6) 電腦租賃表 Lease用來保存電 腦租賃的日常業(yè)務(wù)信息，結(jié)構(gòu)如表 46所示。 表 41 Types數(shù)據(jù)庫表的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 Id 自動編號，長整型 類型編號，主鍵 2 TypeName 文本，長度為 50 類型名稱 3 TypeId 數(shù)字，字節(jié) 類型分類， 1電腦類型 2保修類型 4 Description 文本，長度為 100 類型職能描述 (2)會員類型表 MemberTypes用來保存會員的類型信息，結(jié)構(gòu)如表 42所示。本系統(tǒng)的流程圖如圖 41所示。 (10)系統(tǒng)用戶管理 添加系統(tǒng)用戶信 息，包括用戶名、密碼等信息；刪除系統(tǒng)用戶信息。 (7)電腦租賃管理 添加租賃信息，包括電腦編號、客戶號、租賃模式、租賃時間等信息；修改租賃信息；刪除租賃信息；審核租賃信息；打印租賃合同；查看租賃信息。 (3)保修公司管理 添加保修公司信息，包括保修公司編號、名稱、聯(lián)系電話、傳真、地址等信 息；修改保修公司信息；刪除保修公司信息；查看保修公司信息；查看保修的電 腦信息。而在兩種不同的使用方式下， SQL語言的語法結(jié)構(gòu)基本上是一致 的。 (3) 面向集合的操作方式 非關(guān)系數(shù)據(jù)模型采用的 是面向記錄的操作方式，操作對象是一條記錄。它的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進行溝通 ， 主要特點包括： (1) 綜合統(tǒng)一 SQL語言集數(shù)據(jù)定義語言 DDL、數(shù)據(jù)操縱語言 DML、數(shù)據(jù)控制語言 DCL的功能于一體，語言風(fēng)格統(tǒng)一，可以獨立完成數(shù)據(jù)庫生命周期中的全部活動，包括定義 關(guān)系模式、建立數(shù)據(jù)庫、數(shù)據(jù)插入、查詢、更新、維護、數(shù)據(jù)庫重構(gòu)、數(shù)據(jù)庫安全性控制等一系列操作要求，為數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)提供了良好的環(huán)境。 Visual Basic 幫助窗口中顯示了有關(guān)的示例代碼，通過復(fù)制粘貼操作可以獲得大量的示例代碼，為用戶的學(xué)習(xí)和使用提供了極大的方便。同時， Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如 dBASE、 FoxPro、 Paradox等。這些過程分別面向不同的對象，由用戶操作引發(fā)某個事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣 程序易于編寫和維護 。 總的來說 ,具有如下特點 : (1)提供了面向?qū)ο蟮目梢暬幊坦ぞ? Visual Basic 提供了可視化設(shè)計工具，把 Windows 界面設(shè)計的復(fù)雜性 “ 封裝 ” 起來，開發(fā)人員不必為界面設(shè)計編寫大量程序代碼。 電腦信息管理 電腦續(xù)租管理 電腦歸還管理 電腦 租賃管理 系統(tǒng)用戶信息管理 修改 test 用戶的密碼 創(chuàng)建、修改和刪除普通用戶信息 修改自身的用戶名和密碼 系統(tǒng)用戶 普通用戶 圖 36 類型的實體圖 圖 37 會員類型的實體圖 圖 38 公司的實體圖 公 司 公司編號 公司名稱 地 址 電 話 聯(lián)系人 公司類型 傳 真 電子郵件 郵政編碼 說 明 會員類型 類型編號 類型名稱 折扣 類 型 類型名稱 類型編號 類型分類 類型描述 圖 39 客戶的實體圖 圖 310 電腦的實體圖 圖 311 用戶的實體圖 用 戶 用戶名 密 碼 電 腦 電腦類型 電腦編號 銷售商編號 備 注 電腦名稱 保修公司編號 客 戶 擔(dān)保人 擔(dān)保人身份證號 抵押證件 電 話 年齡 會員類型 會員標(biāo)記 郵編 客戶編號 地 址 工作地點 身份證號 性 別 電子郵件 姓名 擔(dān)保人工作地點 本系統(tǒng)各實體間的實體－聯(lián)系圖如圖 312所示。良好的數(shù)據(jù)庫設(shè)計，可以提高數(shù)據(jù)信息的存儲效率，保證數(shù)據(jù)信息的完整性和 一致 性。 test用戶可以 創(chuàng)建用戶、修改用戶信息以及刪除用戶；普通用戶只能修改自己的用戶名和密碼。 圖 32 基本信息管理模塊功能圖 客戶會員管理模塊的基本功能如圖 33所示。 3 系統(tǒng)總體設(shè)計 系統(tǒng)功能模塊圖 根據(jù)系統(tǒng)需求分析可以設(shè)計出系統(tǒng)的總體功能模塊，如圖 31所示。作為最新的數(shù)據(jù)庫訪問模式， ADO簡單易用 ， 并且 已經(jīng)成為了當(dāng)前數(shù)據(jù)庫開發(fā)的主流。其業(yè)務(wù)流程圖如圖 21所示。 從操作方面：系統(tǒng)的操作方式在用戶組織內(nèi)行得通。 1系統(tǒng)可行性分析 通過對 本 課題的調(diào)查與 實際的 分析，我們復(fù)查了系統(tǒng)的規(guī)模和目標(biāo) ， 研究了該課題的高層邏輯模型，認(rèn) 為有必要開發(fā)這個系統(tǒng) 。 Visual Basic 。主要設(shè)計了兩大功能模塊，電腦租賃管理模塊實現(xiàn)了電腦租賃、續(xù)租以及打印電腦租賃合同等功能；電腦歸還管理模塊對出租審核和續(xù)租審核后的電腦辦理歸還和歸還審核手續(xù)。 整個系統(tǒng)從 界面友好 、 操作簡單 、 實用 的要求出發(fā)，實現(xiàn)了電腦基本信息 、 電腦租賃信息 、電腦歸還信息 、 客戶信息等的添加、修改、刪除和查看功能。 visual programming language。 本課題在深入了解 租賃 公司 運營和 管理的基本情況下， 并 對先前的 租賃 管理系統(tǒng) 進行 深入 的 研究后，在軟件工程思想的指導(dǎo)下，擬采用結(jié)構(gòu)化方法與現(xiàn)在流行的 面向?qū)ο?(OOP)方法相結(jié)合，用數(shù)據(jù)庫系統(tǒng)設(shè)計方法對公司 租賃 管理信息系統(tǒng)進行重新設(shè)計，以解決以前信息管理系統(tǒng)中存在的不足，使 租賃 公司能夠更容易、更方便的用計算機進行對 電腦租賃業(yè)務(wù) 的管理，以實現(xiàn)無紙化 辦公 。 從經(jīng)濟方面： 本系統(tǒng)屬于中小型系統(tǒng)，不需要大量的人力、物力和財力， 開發(fā)成本很低，因此開發(fā)這個系統(tǒng)在經(jīng)濟上是可行的 。每一次的電腦租賃業(yè)務(wù)由系統(tǒng)管理員輸入到計算機中，系統(tǒng)中的租賃清單程序?qū)I(yè)務(wù)進行處理，更新存儲在磁盤上的租賃信息數(shù)據(jù)庫，最后由打印租賃合同程序讀一次數(shù)據(jù)庫，并且打印出租賃合同。 ADO（ ActiveX Data Object）是 DAO/RDO的后繼產(chǎn)物 ,ADO擴展 了 DAO和 RDO 所使用的對象模型，這意味著它包含較少的對象、更多的屬性、方法（和參數(shù)）以及事件。 通過 Adodc控件連接數(shù)據(jù)庫的方法有兩種：一種方法是在設(shè)計狀態(tài)時，在“屬性窗口”中，對 Adodc 控件的 ConnectionString屬性設(shè)置一 個有效的連接字符串再設(shè)置 Adodc控件的 CommandType、 RecordSource屬性就可以創(chuàng)建數(shù)據(jù)庫的連接了；另一種方法是在運行時，通過代碼動態(tài)地設(shè)置 ConnectionString、 CommandType和 RecordSour