【正文】 型表 MemberTypes用來保存會員的類型信息，結(jié)構(gòu)如表 42所示。 硬件要求：推薦為 PII600或賽揚 600以上，硬盤剩余空間大于 200M、 內(nèi)存 128M或更高配置。 ? Variable用來管理工程中的全局變量。 In_DB 判斷指定的類型名稱是否已經(jīng)在數(shù)據(jù)庫中。 In_DB 判斷指定的類型名稱是否已經(jīng)在數(shù) 據(jù)庫中。 Customer 類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定的電腦記錄。 GetInfo 讀 取指定的記錄。 Delete 刪除指定的用戶記錄。成功登陸的用戶將進入系統(tǒng)的主界面。 _ + \ + DATABASE + 。設(shè)置數(shù)據(jù)源 = TypeName 39。 圖 55 查看保修電腦窗體布局 電腦管理模塊設(shè)計 電腦管理模塊可以添加、修改、刪除和查看電腦的基本信息，其窗體布局如圖 56 所示。 圖 57會員類型管理窗體布局 圖 58是客戶管理窗體的 布局。取消會員資格 If = True Then MsgBox 請選擇記錄 Exit Sub End If If MsgBox(是否確定要注銷會員資格 , vbYesNo, 請確認 ) = vbNo Then Exit Sub End If = 0 (Trim((0))) GridRefresh 39。租賃的工作日個數(shù)或周個數(shù)或月個數(shù) nECnt = Val(txtWeekEndCount) 39。窗體名稱為 FrmReturn,窗體布局如圖 512 所示。 但是 目前有些功能和性能還有待于進一步的完善和求精 ，隨著電腦租賃業(yè)務(wù)的擴大，系統(tǒng)必須實 現(xiàn)從單機版到網(wǎng)絡(luò)版的轉(zhuǎn)化，否則將無法滿足社會的需求。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。t go into now. The six youngsters sailing with Sea Shepherd, all keen conservationists, will make a valuable contribution. But they39。t look like someone much concerned with conservation. He wasn39。s it got to do with you? He nodded encouragingly. Well? Vanessa stuc k out her chin. Animals have as much right to be on earth as we have. Mor。s horn. Almost imperceptibly the ship started to move. Ben39。s waterways。d be paid for a single horn. A merchant will sell it to consumers for ?5,000 and upwards. More slides followed. A chimpanzee. Valued at ?,300 on the black market. Much in demand for biomedical research, travelling acts, photography, tourist attractions and the television and film industries. A hyacinth macaw. Going price ?,500 to an avid collector. A peregrine falcon. Bought by Arab falconers for ?,000 each. Seeing the peregrine, Gary fot everything else. His favourite bird! It could swoop at over two hundred miles an hour, spot its prey more than five miles away. Peregrines had once nearly died out in Britain through eating pigeons which had fed on grain sprayed with pe sticides ... Bellingham39。 圖 514 編輯用戶信息的窗體布局 6 小結(jié) 通過開發(fā)這個管理信息系統(tǒng)， 我 鞏固了以前所學(xué)的知識，提高了應(yīng)用能力 。以月為單位將月個數(shù)添加到租賃日期而計算返回時間 txtReturnTime = Trim(DateAdd(m, nCnt, CDate(txtLeaseTime))) End If 39。查看租賃模式，如果為日，則按天價格計算總費用；如果按周，則將計算日期相差的天數(shù)； 39。設(shè)置會員類型編號 Call .Update(OriId) End If End If .Update (OriId) .UpdateToMember (OriId) End With 會員管理窗體布局如圖 59所示。 ? 會員類型管理：可以添加、修改、刪除和查看會員類型記錄。根據(jù)類型種類值刷新類型名稱 銷售商和保修公司管理模塊設(shè)計 銷售商管理和保修公司管理這兩個模塊可以添加、修改、刪除和查看記錄，他們訪問數(shù)據(jù)庫 中的同一個表 Company中的數(shù)據(jù)，其在功能上是完全一樣的，這里只介紹保修公司管理模塊，其窗體布局如圖 54所示。 圖 53 類型設(shè)置窗體布局 DataRefresh過程的功能是根據(jù)種類編號顯示列表中的信息，對應(yīng)代碼如下： = Conn 39。 圖 52 系統(tǒng)主界面 主窗體 FrmMain中的主要代碼如下： Conn = Provider=。 登陸模塊及系統(tǒng)主界面設(shè)計 用戶使用本系統(tǒng)，首先必須通過系統(tǒng)的身份驗證，這個過程叫做登陸。 UpdateSettleAccount 修改租賃結(jié)算信息。 LeaseComputer 類的成員函數(shù)如下： Iint 初試化成員變量。 UpdateToCustomer 注銷會員。 Insert 插入新的記錄。 Delete 刪除指定的會員類型記錄。 Delete 刪除指定的類型記錄，參數(shù) TmpId表示要刪除類型的編號。 ? DbFunc用來管理工程中與數(shù)據(jù)庫操作相關(guān)的聲明、變量和函數(shù)。 表 47 Users數(shù)據(jù)庫表的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 UserName 文本，長度為 40 用戶名，主鍵 2 UserPwd 文本，長度為 40 密碼 此表中有一條默認記錄，用戶名為 test,密碼為 111111。 數(shù)據(jù)庫 表設(shè)計 本系統(tǒng)的數(shù)據(jù)庫包括以下 7 張表：類型表 Types、會員類型表 MemberTypes、公司信息表 Company、客戶信息表 Customer、電腦信息表 Computers、電腦租賃表 Lease和用戶信息表 Users。 添加續(xù)租信息，包括續(xù)租時間、續(xù)租天數(shù)等信息；修改續(xù)租信息；審核續(xù)租信息；查看續(xù)租信息。 4 系統(tǒng)詳細設(shè)計 電腦租賃管理系統(tǒng)的主要功能模塊如下： (1)基本信息管理 添加、修改、刪除和查看電腦類型信息；添加、修改、刪除和查看保修類型信息；添加、修改、刪除和查看會員類型信息。而用 SQL語言進行數(shù)據(jù)操作，只要提出 “ 做什么 ” ，而無須指明 “ 怎么做 ” ，因此無須了解存取路徑，存取路徑的選擇以及 SQL語句的操作過程由系統(tǒng)自動完成。 Visual Basic 支持 動態(tài)數(shù)據(jù)交換 (DDE)、 動態(tài)鏈接 庫 (DLL)、 對象的鏈接與嵌入 (OLE)。 (2)事件驅(qū)動的編程方式 Visual Basic通過事件來執(zhí)行對象的操作。 本系統(tǒng)所創(chuàng)建的數(shù)據(jù)庫命名為“ ”， 選用 Access 2021作為后臺數(shù)據(jù)庫。 類型信息管理 保修公司管理 銷售商管理 電腦信息管理 提供保修公司數(shù)據(jù) 提供銷售商數(shù)據(jù) 電腦租賃管理系統(tǒng) 基本信息管理 客戶會員管理 日常業(yè)務(wù)管理 系統(tǒng)用戶管理 會員類型管理 客戶信息管理 會員信息管理 電腦租賃管理 電腦續(xù)租管理 電腦歸還管理 提供類型數(shù)據(jù) 圖 34 日常業(yè)務(wù)管理模塊功能圖 在本系統(tǒng)中，用戶管理模塊比較簡單。 要使用 ADO就 必須清楚 ADO的對象層次結(jié)構(gòu)，其大體上分為以下 7個對象層次： Command 對象 ； Connection 對象 ； Error對象 ； Field 對象 ； Parameter 對象 ； Property對象 ； Recordset對象 。 2 系統(tǒng)需求分析 系統(tǒng)調(diào)查 通過對先前的電腦租賃管理系統(tǒng)的深入研究，我們可以知道系統(tǒng)工作的業(yè)務(wù)流程。管理 信息系統(tǒng)具備數(shù)據(jù)處理、計劃、控制、預(yù)測和輔助決策等 功能。電腦租賃 管理 系統(tǒng) 目錄 前言 ....................................................................... 3 1系統(tǒng)可行性分析 ............................................................ 3 2 系統(tǒng)需求分析 ............................................................. 3 系統(tǒng)調(diào)查 ........................................................... 3 數(shù)據(jù)流圖 ........................................................... 3 ........................................................ 4 3 系統(tǒng)總體設(shè)計 ............................................................. 4 系統(tǒng)功能模塊圖 ...................................................... 4 .................................................. 6 開發(fā)平臺選擇 ....................................................... 9 4 系統(tǒng)詳細設(shè)計 ............................................................ 10 ................................................... 10 數(shù)據(jù)庫表設(shè)計 ...................................................... 12 ....................................................... 15 5 系統(tǒng)實現(xiàn) ................................................................ 15 創(chuàng)建工程及添加功能模塊 ............................................. 15 登陸模塊及系統(tǒng)主界面設(shè)計 ........................................... 16 類型管理模塊設(shè)計 ................................................... 17 銷售商和保修公司管理模塊設(shè)計 ....................................... 18 電腦管理模塊設(shè)計 ................................................... 19 客戶會員管理模塊設(shè)計 ..........................................