【正文】 屋租賃信息管理都是以紙張為介質(zhì)作記錄，人力管理的比例比較大,往往是各個(gè)主要負(fù)責(zé)人以書(shū)面的形式管理房屋租賃信息,效率低下。第二章 結(jié)合軟件工程方法，對(duì)系統(tǒng)進(jìn)行需求分析、系統(tǒng)目標(biāo)和應(yīng)用現(xiàn)狀調(diào)查、系統(tǒng)總體流程圖與功能調(diào)查圖繪制與分析。 操作可行性分析如今的計(jì)算機(jī)已經(jīng)走進(jìn)千家萬(wàn)戶，硬件成本的下降，這套系統(tǒng)是利用自己的計(jì)算機(jī)加 Microsoft Visual 作為軟件的開(kāi)發(fā)平臺(tái)，使開(kāi)發(fā)出來(lái)的系統(tǒng)有友好的用戶界面、有良好的安全性設(shè)置、有詳細(xì)的操作說(shuō)明書(shū)，這樣更使各類用戶很快地掌握系統(tǒng)的使用方法,操作友好因此在操作上是可行的. 技術(shù)可行性分析從目前 IT 業(yè)界比較流行的數(shù)據(jù)庫(kù)開(kāi)發(fā)、管理軟件來(lái)看，對(duì)于比較簡(jiǎn)單的中小型數(shù)據(jù)庫(kù)，Visual Basic 和 Windows 2022 的結(jié)合無(wú)疑是在實(shí)際應(yīng)用中較為成功的一種解決方案。開(kāi)發(fā)本系統(tǒng)就是為了解決物業(yè)管理企業(yè)在房屋租賃信息管理中的一些不規(guī)范，使房屋租賃信息的管理向著規(guī)范化、簡(jiǎn)單化、有效化的方向發(fā)展。這些優(yōu)點(diǎn)能夠極大地提高房屋租賃管理的效率。 隨著計(jì)算機(jī)技術(shù)不斷的飛速發(fā)展，計(jì)算機(jī)以及計(jì)算機(jī)控制的自動(dòng)處理技術(shù)已融入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。只有高標(biāo)準(zhǔn)、高質(zhì)量的管理才能滿足企業(yè)的發(fā)展需求。論文主要介紹了本課題的開(kāi)發(fā)背景，所要完成的功能和開(kāi)發(fā)的全過(guò)程。 屆 XXXX 班畢業(yè)論文 存檔編號(hào)：X X 大 學(xué)畢 業(yè) 論 文題目 房屋租賃管理系統(tǒng) 專 業(yè)： 計(jì)算機(jī)科學(xué)與技術(shù) 年 級(jí)： 2022 學(xué) 號(hào)： 202200000000 論文作者： X X X 指導(dǎo)教師： X X X 職 稱： 教授 XX 大學(xué)計(jì)算機(jī)學(xué)院 制 完成時(shí)間： 2022 年 03 月 20 日1摘要隨著我國(guó)市場(chǎng)經(jīng)濟(jì)的快速發(fā)展和人們生活水平的不斷提高，簡(jiǎn)單的租憑服務(wù)已經(jīng)不能滿足人們的需求。重點(diǎn)的說(shuō)明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。面對(duì)信息時(shí)代的挑戰(zhàn)，利用高科技手段來(lái)提高房屋租賃管理無(wú)疑是一條行之有效的途徑。對(duì)于當(dāng)今的科學(xué)信息是一次重大的飛越，為人們的生活、工作、學(xué)習(xí)帶來(lái)潛移默化的影響。面對(duì)目前的實(shí)際狀況，迫切需要開(kāi)發(fā)一個(gè)新系統(tǒng)來(lái)適應(yīng)這一些工作. 開(kāi)發(fā)背景和開(kāi)發(fā)目的利用計(jì)算機(jī)實(shí)現(xiàn)物業(yè)管理中的房屋租賃管理勢(shì)在必行。2 可行性分析 經(jīng)濟(jì)可行性分析本系統(tǒng)開(kāi)發(fā)簡(jiǎn)單但要耗去一定的時(shí)間，所用的開(kāi)發(fā)工具和軟件都差不多是免費(fèi)的。為用戶提供了業(yè)界軟件開(kāi)發(fā)一直堅(jiān)持的非常友好、操作簡(jiǎn)單的用戶界面、完善強(qiáng)大的數(shù)據(jù)庫(kù)操作功能和簡(jiǎn)潔明了的數(shù)據(jù)庫(kù)接口。第三章 在需求分析的基礎(chǔ)上選擇好開(kāi)發(fā)工具,并對(duì)開(kāi)發(fā)工具做簡(jiǎn)要描述. 3第四章 根據(jù)需求分析的結(jié)果，對(duì)系統(tǒng)進(jìn)行概要設(shè)計(jì)，主要介紹用 Visual Basic 創(chuàng)建應(yīng)用程序的步驟,。數(shù)據(jù)打印,匯總,成績(jī)更新不及時(shí)，容易丟失,損壞數(shù)據(jù)給學(xué)校學(xué)生帶來(lái)?yè)p失,不易保存且數(shù)據(jù)保密性較差。目前在我國(guó)市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開(kāi)發(fā)工具的產(chǎn)品有：Microsoft 公司的 Visual BasicMicrosoft 公司的 Visual CMicrosoft 公司的 Visual FoxProBorland 公司的 Delphi Powersoft 公司的 PowerBuliderJava 等等在目前市場(chǎng)上這些眾多的程序開(kāi)發(fā)工具中，有些強(qiáng)調(diào)程序語(yǔ)言的彈性與執(zhí)行效率；有些則偏重于可視化程序開(kāi)發(fā)工具所帶來(lái)的便利性與效率的得高，各有各的優(yōu)點(diǎn)和特色，也滿足了不同用戶的需求。8作為管理信息系統(tǒng)的開(kāi)發(fā)，Visual Basic是一個(gè)非常理想選擇?？偟膩?lái)說(shuō)，Visual 具有以下特點(diǎn)：Visual Basic 是一種可視化的、面對(duì)對(duì)象和條用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā) Windows 環(huán)境下的種類應(yīng)用程序。如果對(duì)界面的效果不滿意，還要回到程序中修改。Visual Basic 自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。在設(shè)計(jì) Visual Basic 程序的過(guò)程中，隨時(shí)可以運(yùn)行程序，而在整個(gè)程序設(shè)計(jì)好之后，可以編譯生成可執(zhí)行文件(.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運(yùn)行。在用 Visual Basic 設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開(kāi)始和結(jié)束的程序，而是編寫(xiě)若干個(gè)微小的子程序，即過(guò)程。Visual Basic 提供開(kāi)放式數(shù)據(jù)連接，即 ODBC 功能，可通過(guò)直接訪問(wèn)或建立連接的方式使用并操作后臺(tái)大型網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，如 SQL Server，Oracle 等。Visual Basic 提供了動(dòng)態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他 Windows 應(yīng)用程序建立動(dòng)態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。動(dòng)態(tài)鏈接庫(kù)(DLL)Visual Basic 是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。 數(shù)據(jù)庫(kù)管理系統(tǒng)數(shù)據(jù)庫(kù)管理系統(tǒng)，簡(jiǎn)稱 DBMS，是為數(shù)據(jù)庫(kù)的建立，使用和維護(hù)而配置的軟件，它提供了安全性和完整性等統(tǒng)一控制機(jī)制，方便用戶管理和存取大量的數(shù)據(jù)資源。它將所有應(yīng)用程序使用的數(shù)據(jù)匯集起來(lái)，建立數(shù)據(jù)庫(kù)，使之面對(duì)所有應(yīng)用程序的查詢和訪問(wèn)。它建立在操作系統(tǒng)的基礎(chǔ)上，對(duì)數(shù)據(jù)庫(kù)進(jìn)行統(tǒng)一的管理和控制。它針對(duì)不同的用戶及不同的使用目的，提供給用戶各種操作、管理數(shù)據(jù)庫(kù)的命令、函數(shù)、控件和對(duì)象，以幫助用戶完成任務(wù)。由上可見(jiàn)，數(shù)據(jù)庫(kù)管理系統(tǒng)是一個(gè)能使用和管理數(shù)據(jù)庫(kù)中數(shù)據(jù)的軟件。數(shù)據(jù)庫(kù)系統(tǒng)的用戶自己編寫(xiě)的、基于數(shù)據(jù)庫(kù)數(shù)據(jù)的程序稱為應(yīng)用程序，針對(duì)某一數(shù)據(jù)庫(kù)管理而編制的一組應(yīng)用程序形成該數(shù)據(jù)庫(kù)的應(yīng)用系統(tǒng)，它是數(shù)據(jù)庫(kù)系統(tǒng)的一個(gè)重要組成部分，它們與數(shù)據(jù)庫(kù)上的數(shù)據(jù)構(gòu)成數(shù)據(jù)庫(kù)中最活躍的部分。定義全局變量 queryhouse 作為判斷 frmHouse 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)16Public queryhouse As Boolean39。定義全局變量 querycg 作為判斷 frmClient 窗體家公司戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycg As Boolean39。定義全局變量 queryqzc 作為判斷 frmQZClient 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryqzc As Boolean39。定義全局變量 sqlqyd 作為查詢預(yù)定單信息時(shí)的 sql 語(yǔ)句Public sqlqyd As String39。還是直接菜單調(diào)用的Public fromYuding As Boolean39。還是直接菜單調(diào)用的Public ZuJinfromContract As Boolean39。定義全局變量 sqlqyj 作為查詢押金信息時(shí)的 sql 語(yǔ)句Public sqlqyj As String 各主要功能模塊的設(shè)計(jì)與實(shí)現(xiàn)4．3．1 基本資料管理模塊設(shè)計(jì)房屋基本資料管理的運(yùn)行效果圖如下:18其表單界面的屬性設(shè)計(jì)比較直觀,在此重點(diǎn)分析新增,修改,刪除,保存四個(gè)命令按鈕的源代碼設(shè)計(jì)：新增按鈕源碼:Private Sub cmdAdd_Click() 39。取消按鈕用于用戶添加或修改過(guò)程中放棄添加或修改操作 = False = False = True = True 39。如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) ElseIf add = 0 Then For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If End If 39。確實(shí)刪除 If answer = vbYes Then 39。刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 39。如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可 Else For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then23 = 1 ElseIf (8) = 意向 Then = 2 End If End IfEnd Sub保存按鈕的源代碼：Private Sub cmdEdit_Click() 39。同時(shí)需要設(shè)置相應(yīng)按鈕為不可用和不可用24 = False = False = True = True 39。 amp。 amp。檢測(cè)數(shù)據(jù)是否完整 If Text1(0).Text = Then MsgBox 求租客戶編號(hào)不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 求租客戶姓名不可為空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(2).Text = Then MsgBox 求租客戶電話不可為空！, vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub27 ElseIf Not Text1(4).Text = And IsNumeric(Text1(4).Text) = False Then MsgBox 面積要求不為空則應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub ElseIf Not Text1(6).Text = And IsNumeric(Text1(6).Text) = False Then MsgBox 意向價(jià)位不為空則應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(6).SetFocus Exit Sub ElseIf Not Text1(7).Text = And IsNumeric(Text1(7).Text) = False Then MsgBox 意向租期不為空則應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(7).SetFocus Exit Sub End If 39。 39。 amp。主鍵不重復(fù)，可以加入表中 For i = 0 To 9 (i) = Text1(i).Text Next i 39。先檢查輸入數(shù)據(jù)完整性 For i = 0 To 2 If Text1(i).Text = Then MsgBox 除備注外的所有項(xiàng)不可為空！, vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exit Sub End If Next i For i = 3 To 4 If Text1(i).Text = Or IsDate(Text1(i).Text) = False ThenMsgBox 日期應(yīng)為這樣的格式：2022715！, vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exit Sub End If Next i31 If Text1(6).Text = Or IsNumeric(Text1(6).Text) = False Then MsgBox 月租金應(yīng)為數(shù)字！, vbOKOnly + vbInformation, 注意 Text1(6