房屋出租管理系統的設計與實現

摘要：隨著信息化建設的逐步深入，如何利用現有的計算機技術建立一套高效、靈活、功能強大的管理系統，正成為計算機專業人員關注的重要問題。信息化進程不斷推進，使得其更加逐步地滲透到了普通人的生活領域。本文通過對部分房屋出租方的功能分析、需求分析，進行房屋出租管理系統的設計與實現。具體實現了房屋出租房、客戶等相關信息的添加等。

關鍵詞：房屋出租管理；需求分析；系統設計

中圖分類號：TP311文獻標識碼：A 文章編號：1009-3044(2009)04-0787-05

The Design and Implementation of Rental Housing Management System

WEI Pei-xian1，WEI Pei-li2

(1.Computer College of HuaQiao University，Quanzhou 362000，China；2.Information Technology Lab.of Quanzhou Normal University，Quanzhou 362000，China)

Abstract: As the gradually depth of Information Construction， more and more people concern to how to make an efficient， flexible and powerful management system using existing computer technology. They also enter into the common people’s lift. This article related to the resent-house management system using the important function and demand. We can use it to add the information of order and landlord.

Key words: Rental Housing Management，Requirements Analysis，System Design

1 系統分析

利用計算機實現房屋租賃管理勢在必行。對于房主或中介來說，利用計算機支持企業高效率完成房屋租賃管理的日常事務，是適應現代企業制度要求、推動企業勞動型管理走向科學化、規范化的必要條件；而房屋租賃管理是一項瑣碎、復雜而又十分細致的工作，房屋的基本資料，客戶資料的管理，房屋租賃管理，各項收費以及統計報表的管理，一般不允許出錯，如果實行手工操作，須手工填制大量的表格，這就會耗費工作人員大量的時間和精力，計算機進行房屋租賃工作的管理，不僅能夠保證各項信息準確無誤、快速輸出，同時計算機具有手工管理所無法比擬的優點。例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低、打印方便等。這些優點能夠極大地提高物業管理的效率，也是企業的科學化、正規化管理，與世界接軌的重要條件。

開發本系統就是為了解決房屋租賃信息管理中的一些不規范，使房屋租賃信息的管理向著規范化、簡單化、有效化的方向發展。

1.1 可行性分析

1） 經濟可行性分析

本系統開發簡單但要耗去一定的時間，系統采用快速開發工具VB，數據庫是用戶常用的ACCESS桌面數據庫成本低且效率高。由于系統能夠在未來較長的一段時期內穩定地發揮作用，這對于房屋租賃信息的自動化管理，對企業的人力和財力都有很大的幫助。由此可見在，開發此系統在經濟上是完全可行的。

2） 操作可行性分析

如今的計算機已經走進千家萬戶，硬件成本的下降，導致計算機購買成本的降低。我開發的這套系統是利用Microsoft Visual Basic作為軟件的開發平臺，使開發出來的系統有友好的用戶界面、有良好的安全性設置、易操作等特點，這樣更使各類用戶很快地掌握系統的使用方法，因此在操作上是可行的。

3） 技術可行性分析

從目前IT業界比較流行的數據庫開發、管理軟件來看，對于比較簡單的中小型數據庫，Visual Basic 6.0和Windows 2000/XP的結合無疑是在實際應用中較為成功的一種解決方案。為用戶提供了業界軟件開發一直堅持的非常友好、操作簡單的用戶界面、完善強大的數據庫操作功能和簡潔明了的數據庫接口。所以技術實行起來相對會容易。

2 系統目標

采用企業現有的軟硬件環境及科學的管理系統開發方案，建立房屋租賃信息管理系統，實現房屋租賃信息管理的計算機自動化。 系統應符合物業管理企業原有的房屋租賃管理制度，并達到操作直觀、方便、實用、安全等要求。當前，很多物業管理企業的房屋租賃信息管理都是以紙張為介質作記錄，人力管理的比例比較大，往往是各個主要負責人以書面的形式管理房屋租賃信息，效率低，數據打印、匯總和更新不及時，容易丟失，不易保存且保密性較差。

2.1 系統總體流程圖

圖1為系統總體流程圖。

2.2 系統的數據流程圖及分析

圖2為數據流程圖。

整個系統從總體上分為系統管理、客戶資料管理、房間信息管理、費用管理以及統計報表五大部分，每一部分實現的功能如下：

首先分析一個系統的主要功能。

1) 管理員通過系統管理界面進入，建立房間基本信息、系統用戶信息等，并將所有信息保存在數據庫中，同時管理員還能夠對以上信息進行添加、刪除等基本操作。

2) 操作人員可以通過使用該系統查詢房間基本信息、客戶基本信息、費用結算信息等。

3) 系統生成客戶應繳費用，同時可以生成催款單。

4) 提供相應報表分析入住率、客戶情況分析等，為房主、中介公司決策提供依據。

為了直觀描述房屋出租管理系統的各項功能，我們用圖3來大體講述一下該系統的總體架構。

2.3 系統功能模塊圖

圖4為系統功能模塊圖。

2.4 系統功能描述

根據以上房屋出租管理系統功能模塊圖，為使房屋出租管理系統的各模塊更為清晰，以下具體描述了房屋出租管理系統的各模塊功能。

1） 系統管理模塊

系統管理模塊用于對系統的用戶的基本信息進行管理，如設定系統使用權限、進行新用戶注冊、修改用戶密碼等。它是出于系統的安全考慮和用戶所具有軟件操作權限控制。

2） 房間信息管理模塊

房間信息管理模塊主要用于對房間的基本信息（房間號、朝向、是否上網、人數等）進行管理，包括添加房間基本信息、查詢房間基本信息、瀏覽房間基本信息等。

3） 客戶檔案管理模塊

檔案管理模塊主要用于對客戶的檔案信息即入住檔案（姓名、性別、入住時間、家庭住址、身份證號等）進行管理，包括添加客戶入住登記信息、刪除客戶入住登記信息、修改客戶信息、查詢客戶信息等。

4） 客戶費用結算管理模塊

客戶費用結算管理模塊是用于對客戶的基本住宿費用、水費、電費、上網費等基本信息進行管理，包括添加客戶基本交費信息等。

5） 報表分析模塊

根據客戶的入住情況，系統查詢產生當前、每月、整年的入住率，為物業或中介公司提供數據分析。系統可以按條件產生入住客戶的分布情況。

3 數據庫設計

數據庫需求分析是數據庫設計的第一階段也是很重要的一個階段，它是收集基本數據以及數據處理的流程，為以后進一步設計打下基礎，需求分析主要解決兩個問題：

處理要求。弄清應用系統用戶需求對數據庫進行什么樣的處理，及數據庫中各種數據之間的關系；

內容要求。弄清應用系統用戶所需要操作的數據，決定在數據庫中存儲什么數據。

在數據庫需求分析后，應該得到一個數據字典文檔，包括3個方面的內容：

數據項。包括名稱、含義、類型、取值范圍、長度以及和其它數據項之間的邏輯關系。如房間號、朝向、類型、是否上網、人數、電表號等。

數據結構。若干數據項的有意義的集合，包括名稱、含義以及組成數據結構的數據項。如房間基本信息表（HouseInfo）、客戶基本信息表(OrderInfo)等。

數據流。指數據庫中數據的處理過程，包括輸入、處理、輸出。

利用Microsoft Access 2003對房屋出租管理系統進行數據庫設計，在需求分析階段，通過對房屋管理系統的功能進行抽象、需求進行收集與分析設計出如下的系統數據信息。

3.1 數據庫概念設計

根據本文提供的數據流程圖抽象出圖5的E-R圖。

3.2 數據庫邏輯設計

根據以上的E-R圖，設計出OrdeInfo、HouseInfo、jf關系

1） OrdeInfo表（客戶基本信息表）（如表1）

2） HouseInfo表（房屋基本信息表）（如表2）

4 代碼實現

4.1用戶登錄代碼

Private Sub Command1_Click()

If Trim(Text1(0).Text) = \"\" Then

MsgBox \"用戶名不能為空！\"， vbExclamation + vbOKOnly， \"警告\"

Text1(0).SetFocus

Exit Sub

End If

If Trim(Text1(1).Text) = \"\" Then

MsgBox \"密碼不能為空！\"， vbExclamation + vbOKOnly， \"警告\"

Text1(1).SetFocus

Exit Sub

End If

If Trim(Text1(2).Text) = \"\" Then

MsgBox \"確認密碼不能為空！\"， vbExclamation + vbOKOnly， \"警告\"

Text1(2).SetFocus

Exit Sub

End If

If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then

MsgBox \"確認密碼不正確！\"， vbExclamation + vbOKOnly， \"警告\"

Text1(2).SetFocus

Exit Sub

End If

Dim aa As Integer

aa = 0

If Option1(2).Value = True Then

For i = 0 To 3

If Check1(i).Value = 1 Then

aa = 1

Exit For

End If

Next i

If aa = 0 Then

MsgBox \" 普通用戶至少要有一項權限！\"， vbExclamation + vbOKOnly， \"警告\"

Exit Sub

End If

End If

Dim mrc As ADODB.Recordset

txtSQL = \"select * from use where username='\" Trim(Text1(0).Text) \"'\"

Set mrc = ExecuteSQL(txtSQL)

If mrc.EOF = False Then

MsgBox \" 已存在該用戶！\"， vbExclamation + vbOKOnly， \"警告\"

Text1(0).SetFocus

Text1(0).SelStart = 0

Text1(0).SelLength = Len(Text1(0).Text)

Exit Sub

End If

txtSQL = \"select * from use\"

Set mrc = ExecuteSQL(txtSQL)

mrc.AddNew

mrc.Fields(0) = Trim(Text1(0).Text)

mrc.Fields(1) = Trim(Text1(1).Text)

For i = 0 To 2

If Option1(i).Value = True Then

Select Case i

Case 0

mrc.Fields(\"admin\") = \"y\"

Case 1

mrc.Fields(\"readonly\") = \"y\"

Case 2

For j = 0 To 2

If Check1(j).Value = 1 Then

Select Case j

Case 0

mrc.Fields(\"qx1\") = \"y\"

Case 1

mrc.Fields(\"qx2\") = \"y\"

Case 2

mrc.Fields(\"qx3\") = \"y\"

End Select

End If

Next j

End Select

End If

Next i

mrc.Update

MsgBox \" 用戶添加成功！\"， vbExclamation + vbOKOnly， \"警告\"

Text1(0).Text = \"\"

Text1(1).Text = \"\"

Text1(2).Text = \"\"

End Sub

Private Sub Form_Load()

Option1(2).Value = True

End Sub

Private Sub Form_Resize()

Text1(0).SetFocus

End Sub

Private Sub Option1_Click(Index As Integer)

If Index <> 2 Then

For i = 0 To 2

Check1(i).Enabled = False

Next i

Else

For i = 0 To 2

Check1(i).Enabled = True

Next i

End If

EndS

4.2 房屋出租管理系統客戶信息添加代碼

Dim txtsql1 As String

Private Sub Combo1_Click(Index As Integer)

Dim mrc As ADODB.Recordset

End Sub

Private Sub Combo1_KeyPress(Index As Integer， KeyAscii As Integer)

If KeyAscii = 13 Then

SendKeys \"{TAB}\"

End If

End Sub

Private Sub Command1_Click()

For j = 0 To 1

If Text1(j) = \"\" Then

ss = MsgBox(Label1(j).Caption \"不能為空！\"， vbExclamation + vbOKOnly， \"警告\")

Text1(j).SetFocus

Text1(j).SelStart = 0

Text1(j).SelLength = Len(Text1(j).Text)

Exit Sub

End If

Next

For j = 3 To 7

If Text1(j) = \"\" Then

ss = MsgBox(Label1(j).Caption \"不能為空！\"， vbExclamation + vbOKOnly， \"警告\")

Text1(j).SetFocus

Text1(j).SelStart = 0

Text1(j).SelLength = Len(Text1(j).Text)

Exit Sub

End If

Next

Dim mrc As ADODB.Recordset

If modi = False Then

txtsql1 = \"select * from OrderInfo where 客戶編號='\" Trim(Text1(0).Text) \"'\"

Set mrc = ExecuteSQL(txtsql1)

If mrc.EOF = False Then

sss = MsgBox(\"已經存在該客戶的記錄，客戶編號不能重復！\"， vbExclamation + vbOKOnly， \"警告\")

Text1(0).SetFocus

Text1(0).SelStart = 0

Text1(0).SelLength = Len(Text1(0).Text)

mrc.Close

Exit Sub

End If

End If

If modi = True Then

txtsql1 = \"update OrderInfoset 客戶編號='\" Trim(Text1(0).Text) \"'，姓名='\" Trim(Text1(1).Text) \"'，性別='\" Trim(Combo1(0).Text) \"'，終止時間='\" Trim(DTPicker1.Value) \"'，起始時間=#\" Trim(DTPicker2.Value) \"# ，家庭住址='\" Trim(Text1(3).Text) \"' ，郵政編碼='\" Trim(Text1(4).Text) \"' ，聯系電話='\" Trim(Text1(5).Text) \"' ，房間號=#\" Trim(Text1(6).Text) \"# ，備注='\" Trim(Text1(7).Text) \"'where 房間號='\" Trim(Frmliulan.MSF1.TextMatrix(Frmliulan.MSF1.Row， 1)) \"'\"

Set mrc = ExecuteSQL(txtsql1)

txtsql1 = \"update cj set 房間號='\" Trim(Text1(0).Text) \"' where 房間號='\" Trim(Frmliulan.MSF1.TextMatrix(Frmliulan.MSF1.Row， 1)) \"'\"

Set mrc = ExecuteSQL(txtsql1)

txtsql1 = \"update jf set 房間號='\" Trim(Text1(0).Text) \"' where 房間號='\" Trim(Frmliulan.MSF1.TextMatrix(Frmliulan.MSF1.Row， 1)) \"'\" 'Set mrc = ExecuteSQL(txtsql1)

Unload Me

Exit Sub

End If

txtsql1 = \"select * from OrderInfo \"

Set mrc = ExecuteSQL(txtsql1)

mrc.AddNew

mrc.Fields(0) = Trim(Text1(0).Text)

mrc.Fields(1) = Trim(Text1(1).Text)

mrc.Fields(2) = Trim(Combo1(0).Text)

mrc.Fields(3) = Trim(DTPicker2.Value)

mrc.Fields(4) = Trim(DTPicker1.Value)

For j = 3 To 7

mrc.Fields(j + 2) = Trim(Text1(j).Text)

Next

mrc.Update

Set mrc = Nothing

For j = 0 To 1

Text1(j) = \"\"

Next

For j = 3 To 7

Text1(j) = \"\"

Next

MsgBox \" 客戶信息添加成功！\"， vbExclamation + vbOKOnly， \"警告\"

FrmAddOrder.Hide

End Sub

5 結束語

根據使用者的不同，房屋出租管理系統的設計側重點可能不同，也就有其個性。不同的設計人員根據需求分析對房屋出租管理系統的理解也不同，因此其并沒有一成不變的設計方案。為了更好地適應經濟發展需要、更好地為系統使用者服務，必須采取整體布局、逐步實施的長遠計劃，盡可能地減少系統的后期維護，確保系統的穩定性。

參考文獻：

[1] 李蘭友.Visual Basic應用程序設計[M].北京：北方交通大學出版社.

[2] 楊富國.visual basic程序開發案例解析——通用程序設計案例叢書》[M].北京：清華大學出版社.

[3] 張海藩.軟件工程導論[M].北京：清華大學出版社.

[4] 崔競.visual basic 6.0基礎與實踐教程[M].北京：電子工業出版社.