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

關鍵詞：房屋出租管理；需求分析；系統(tǒng)設計

中圖分類號：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 系統(tǒng)分析

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

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

1.1 可行性分析

1） 經(jīng)濟可行性分析

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

2） 操作可行性分析

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

3） 技術可行性分析

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

2 系統(tǒng)目標

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

2.1 系統(tǒng)總體流程圖

圖1為系統(tǒng)總體流程圖。

2.2 系統(tǒng)的數(shù)據(jù)流程圖及分析

圖2為數(shù)據(jù)流程圖。

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

首先分析一個系統(tǒng)的主要功能。

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

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

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

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

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

2.3 系統(tǒng)功能模塊圖

圖4為系統(tǒng)功能模塊圖。

2.4 系統(tǒng)功能描述

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

1） 系統(tǒng)管理模塊

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

2） 房間信息管理模塊

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

3） 客戶檔案管理模塊

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

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

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

5） 報表分析模塊

根據(jù)客戶的入住情況，系統(tǒng)查詢產(chǎn)生當前、每月、整年的入住率，為物業(yè)或中介公司提供數(shù)據(jù)分析。系統(tǒng)可以按條件產(chǎn)生入住客戶的分布情況。

3 數(shù)據(jù)庫設計

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

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

內容要求。弄清應用系統(tǒng)用戶所需要操作的數(shù)據(jù)，決定在數(shù)據(jù)庫中存儲什么數(shù)據(jù)。

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

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

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

數(shù)據(jù)流。指數(shù)據(jù)庫中數(shù)據(jù)的處理過程，包括輸入、處理、輸出。

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

3.1 數(shù)據(jù)庫概念設計

根據(jù)本文提供的數(shù)據(jù)流程圖抽象出圖5的E-R圖。

3.2 數(shù)據(jù)庫邏輯設計

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

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

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

4 代碼實現(xiàn)

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 房屋出租管理系統(tǒng)客戶信息添加代碼

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(\"已經(jīng)存在該客戶的記錄，客戶編號不能重復！\"， 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) \"' ，聯(lián)系電話='\" 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 結束語

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

參考文獻：

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

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

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

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