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