【文章內(nèi)容簡(jiǎn)介】 0 郵政編碼 10 Email 文本，長(zhǎng)度為 30 電子郵件 11 Flag 數(shù)字，字節(jié) 會(huì)員標(biāo)記， 0非會(huì)員， 1會(huì)員 12 TypeId 數(shù)字，長(zhǎng)整型 會(huì)員類型 13 Certificate 文本，長(zhǎng)度為 40 抵押證件 14 Warrantor 文本，長(zhǎng)度為 50 擔(dān)保人姓名 15 WIdCard 文本，長(zhǎng)度為 30 擔(dān)保人身份證號(hào) 16 WWorkPlace 文本，長(zhǎng)度為 100 擔(dān)保人工作單位 (5) 電腦信息表 Computers用來(lái)保存電腦的基本信息 ，結(jié)構(gòu)如表 45所示。 表 45 Computers數(shù)據(jù)庫(kù)表的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 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用來(lái)保存電 腦租賃的日常業(yè)務(wù)信息，結(jié)構(gòu)如表 46所示。 表 46 Lease數(shù)據(jù)庫(kù)表的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 ContractNo 文本，長(zhǎng)度為 50 合同編號(hào)，主鍵 2 ComputerNo 文本，長(zhǎng)度為 20 電腦編號(hào) 3 CustId 文本，長(zhǎng)度為 20 客戶編號(hào) 4 LeaseTime 日期 /時(shí)間 租賃時(shí)間 5 LeaseMode 文本，長(zhǎng)度為 10 租賃模式 6 Price1 數(shù)字，整型 租賃價(jià)格 7 Price2 數(shù)字，整型 按日租賃時(shí)的周末租賃價(jià)格 8 WorkDays 數(shù)字，整 型 租賃工作日、周、月的數(shù)量 9 WeekEndCount 數(shù)字，整型 租賃周末個(gè)數(shù) 10 Deposit 數(shù)字，整型 押金 11 OPrice 數(shù)字，整型 超時(shí)每小時(shí)價(jià)格 12 ReturnTime 日期 /時(shí)間 應(yīng)歸還時(shí)間 13 OtherCost 數(shù)字，整型 其他費(fèi)用 14 Rate 數(shù)字，單精度型 折扣 15 Payment 數(shù)字，長(zhǎng)整型 實(shí)際支付金額 16 Total 數(shù)字，長(zhǎng)整型 總金額 17 Status 文本，長(zhǎng)度為 10 狀態(tài) 18 CreateDate 日期 /時(shí)間 創(chuàng)建日 期 19 UserName 文本，長(zhǎng)度為 20 創(chuàng)建人 20 RealRTime 日期 /時(shí)間 實(shí)際歸還時(shí)間 (7) 用戶信息表 Users用來(lái)保存系統(tǒng)用戶信息，結(jié)構(gòu)如表 47所示。 表 47 Users數(shù)據(jù)庫(kù)表的結(jié)構(gòu) 編號(hào) 字段名稱 數(shù)據(jù)類型 說(shuō)明 1 UserName 文本，長(zhǎng)度為 40 用戶名，主鍵 2 UserPwd 文本，長(zhǎng)度為 40 密碼 此表中有一條默認(rèn)記錄，用戶名為 test,密碼為 111111。 操作系統(tǒng)： Windows 9 Windows 2021及以上 或 Windows XP（專業(yè)版） 。 硬件要求：推薦為 PII600或賽揚(yáng) 600以上，硬盤剩余空間大于 200M、 內(nèi)存 128M或更高配置。 5 系統(tǒng)實(shí)現(xiàn) 創(chuàng)建工程及添加功能模塊 (1)添加模塊：打開桌面上的 Microsoft Visual Basic 中文企業(yè)版，并選擇新建“標(biāo)準(zhǔn) EXE”工程。新建工程后，在 Visual Basic 窗口中有個(gè)缺省的窗體 Form1，我們將在此基礎(chǔ)上設(shè)計(jì)系統(tǒng)的主界面。 選擇“工程”菜單中的“工程 1 屬性”命令，在“工程屬性”對(duì)話框中，將工程名設(shè)置為 Lease。單擊“保存”按鈕，將工 程存儲(chǔ)為 ，將 Form1窗體保存為 。 根據(jù) Visual Basic 功能模塊劃分原則，我們將分別創(chuàng)建以下幾個(gè)模塊： ? Const用來(lái)管理工程中的常量。 ? DbFunc用來(lái)管理工程中與數(shù)據(jù)庫(kù)操作相關(guān)的聲明、變量和函數(shù)。 ? GeneralFunc用來(lái)管理工程中一些通用的自定義函數(shù)。 ? Variable用來(lái)管理工程中的全局變量。 具體操作如下：打開菜單欄中的“工程”選項(xiàng)，選擇“添加模塊”后出現(xiàn)“添 加模塊”對(duì)話框，確定后將其分別命名為 Const、 DbFunc、 GeneralFunc、 Variabl。 (2)添加類模塊：具體操作與添加模塊類似。在通常情況下，類的成員變量與對(duì)應(yīng)的表中的字段名相同。本系統(tǒng)中一共有 7個(gè)類模塊。 Types類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定的類型記錄，參數(shù) TmpId表示要?jiǎng)h除類型的編號(hào)。 GetInfo 讀取指定的類型記錄，參數(shù) TmpId表示要讀取的類型的編號(hào)。 In_DB 判斷指定的類型名稱是否已經(jīng)在數(shù)據(jù)庫(kù)中。 GetInfoByTypeId 讀取指定的類型下的所有分類信息， 參數(shù) TmpTyped表示要讀取的類型的編號(hào)。 GetTypeNames 讀取指定的類型編號(hào)的類型名稱。 Insert 插入新的類型記錄。 Update 修改指定的類型記錄，參數(shù) TmpId表示要修改的類型的編號(hào)。 MemberType 類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定的會(huì)員類型記錄。 GetInfo 讀取指定的會(huì)員類型記錄。 In_DB 判斷指定的類型名稱是否已經(jīng)在數(shù) 據(jù)庫(kù)中。 Insert 插入新的會(huì)員類型記錄。 Update 修改指定的會(huì)員類 型記錄。 Company 類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定的記錄。 GetInfo 讀取 指定的記錄。 Insert 插入新的記錄。 Update 修改指定的記錄。 Customer 類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定的記錄。 GetInfo 讀取 指定的記錄。 In_DB 判斷指定的客戶信息是否已經(jīng)在數(shù)據(jù)庫(kù)中 Insert 插入新的記錄。 Update 修改指定的記錄。 UpdateToMember 修改客戶的狀態(tài)為會(huì)員。 UpdateToCustomer 注銷會(huì)員。 Computers 類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定的電腦記錄。 GetInfo 讀 取指定的電腦記錄。 In_DB 判斷指定的電腦編號(hào)是否已經(jīng)在數(shù)據(jù)庫(kù) 中。 Insert 插入新的電腦記錄。 Update 修改指定的電腦記錄。 UpdateStatus 修改電腦的狀態(tài)值。 LeaseComputer 類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定 的租賃記錄。 GetInfo 讀 取指定的記錄。 In_DB 判斷指定的合同編號(hào)是否已經(jīng)在數(shù)據(jù)庫(kù)中。 Insert 插入新的租賃記錄。 Update 修改指定的租賃記錄。 UpdateStatus 修改租賃的狀態(tài)值。 UpdateAddStatus 修改續(xù)租記錄。 UpdateSettleAccount 修改租賃結(jié)算信息。 Users類的成員函數(shù)如下： Iint 初試化成員變量。 Delete 刪除指定的用戶記錄。 GetInfo 讀 取指定的記錄。 In_DB 判斷指定的用戶名是否已經(jīng)在數(shù)據(jù) 庫(kù)中。 Insert 插入新的用戶記錄。 Update 修改指定的用戶記錄。 這些模塊均保存在與工程同一個(gè)文件夾中。 登陸模塊及系統(tǒng)主界面設(shè)計(jì) 用戶使用本系統(tǒng)，首先必須通過(guò)系統(tǒng)的身份驗(yàn)證，這個(gè)過(guò)程叫做登陸。登陸過(guò)程需要完成以下任務(wù)：根據(jù)用戶名和密碼來(lái)判斷是否可以進(jìn)入系統(tǒng)；根據(jù)用戶類型決定用戶擁有的權(quán)限。成功登陸的用戶將進(jìn)入系統(tǒng)的主界面。 登陸窗體的名稱為 frmLogin，界面布局如圖 51所示。 圖 51 登陸窗體的界面布局 主窗體是工程的啟動(dòng)對(duì)象，可以在系統(tǒng)菜單中選擇“工程” /“屬性 ”，打開屬性窗口設(shè)置啟動(dòng)對(duì)象。本系統(tǒng)中主窗體名為 FrmMain。 打開主窗體的設(shè)計(jì)窗口，選擇“工具”菜單中的“菜單編輯器”，對(duì)菜單內(nèi)容進(jìn)行編輯。主窗體界面布局如圖 52所示。 圖 52 系統(tǒng)主界面 主窗體 FrmMain中的主要代碼如下： Conn = Provider=。Data Source= amp。 _ + \ + DATABASE + 。Persist Security Info=False (1) = 吉首大學(xué)數(shù)計(jì)學(xué)院 2021級(jí)計(jì)科一班 侯利娟 (2) = 當(dāng)前日期 : amp。 Date (3) = 當(dāng)前時(shí)間 : amp。 Time 類型管理模塊設(shè)計(jì) 類型管理模塊可以添加、修改、刪除和查看類型記錄，它包含電腦類型和保修類型兩部分。 編輯類型信息的窗體可以用來(lái)添加和修改類型信息。創(chuàng)建一個(gè)新窗體命名為 FrmType，窗體布局如圖 53所示。 圖 53 類型設(shè)置窗體布局 DataRefresh過(guò)程的功能是根據(jù)種類編號(hào)顯示列表中的信息，對(duì)應(yīng)代碼如下： = Conn 39。設(shè)置連接字符串 = SELECT * FROM Types WHERE TypeId= + Trim(nTypeId) Set = Adodc1 39。設(shè)置數(shù)據(jù)源 = TypeName 39。設(shè)置顯示字段 = Id 39。設(shè)置綁定字段 當(dāng) 用戶單擊 “ 添加 ” 按鈕 時(shí) ，觸發(fā) Cmd_Add_Click事件，對(duì)應(yīng)代碼如下： = nTypeId If nTypeId = 1 Then = 電腦類型 Else = 保修類型 End If = = = False 1 39。打開編輯類型信息的窗體 當(dāng)用戶在電腦類型和保修類型單選按鈕之間切換時(shí)，觸發(fā) OptSel_Click事件，對(duì)應(yīng)代碼如下： 39。設(shè)置 nTypeId值 nTypeId = Index + 1 39。索引值加 1 DataRefresh 39。根據(jù)類型種類值刷新類型名稱 銷售商和保修公司管理模塊設(shè)計(jì) 銷售商管理和保修公司管理這兩個(gè)模塊可以添加、修改、刪除和查看記錄，他們?cè)L問(wèn)數(shù)據(jù)庫(kù) 中的同一個(gè)表 Company中的數(shù)據(jù)，其在功能上是完全一樣的，這里只介紹保修公司管理模塊，其窗體布局如圖 54所示。 圖 54 保修公司管理窗體布局 當(dāng)用戶單擊“查看保修電腦”按鈕時(shí)，可以查看此保修公司所保修的電腦列表，并觸發(fā)Cmd_ViewComputers_Click事件，對(duì)應(yīng)代碼如下： = 2 = Trim((1)) = (0) = Trim((1)) = 查看保修公司保修電腦 = 保修公司名稱 1 查看保修電腦窗體布局如圖 55所示。 圖 55 查看保修電腦窗體布局 電腦管理模塊設(shè)計(jì) 電腦管理模塊可以添加、修改、刪除和查看電腦的基本信息，其窗體布局如圖 56 所示。 圖 56 電腦管理窗體布局 其主要代碼如下： 39。添加、修改電腦信息 39。根據(jù)變量 Modify的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then If Len(Trim(txtComputerNo)) = 0 Then MsgBox 請(qǐng)輸入電腦編號(hào) ! = 0 = Len(txtComputerNo) Exit Sub End If 39。判斷此電腦號(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è)部分： ? 客戶管理：可以添加、修改、刪除和查看客戶記錄，并且