房屋出租管理系统的设计与实现

房屋出租管理系统的设计与实现

作者：魏培嫌 魏培李

来源：《电脑知识与技术》2009年第04期

摘要：随着信息化建设的逐步深入，如何利用现有的计算机技术建立一套高效、灵活、功能强大的管理系统，正成为计算机专业人员关注的重要问题。信息化进程不断推进，使得其更加逐步地渗透到了普通人的生活领域。本文通过对部分房屋出租方的功能分析、需求分析，进行房屋出租管理系统的设计与实现。具体实现了房屋出租房、客户等相关信息的添加等。 关键词：房屋出租管理；需求分析；系统设计

中图分类号：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 系统分析

利用计算机实现房屋租赁管理势在必行。对于房主或中介来说，利用计算机支持企业高效率完成房屋租赁管理的日常事务，是适应现代企业制度要求、推动企业劳动型管理走向科学化、规范化的必要条件；而房屋租赁管理是一项琐碎、复杂而又十分细致的工作，房屋的基本资料，客户资料的管理，房屋租赁管理，各项收费以及统计报表的管理，一般不允许出错，如果实行手工操作，须手工填制大量的表格，这就会耗费工作人员大量的时间和精力，计算机进行房屋租赁工作的管理，不仅能够保证各项信息准确无误、快速输出，同时计算机具有手工管理所无法比拟的优点。例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低、打印方便等。这些优点能够极大地提高物业管理的效率，也是企业的科学化、正规化管理，与世界接轨的重要条件。

龙源期刊网 http://www.qikan.com.cn

开发本系统就是为了解决房屋租赁信息管理中的一些不规范，使房屋租赁信息的管理向着规范化、简单化、有效化的方向发展。 1.1 可行性分析 1） 经济可行性分析

本系统开发简单但要耗去一定的时间，系统采用快速开发工具VB，数据库是用户常用的ACCESS桌面数据库成本低且效率高。由于系统能够在未来较长的一段时期内稳定地发挥作用，这对于房屋租赁信息的自动化管理，对企业的人力和财力都有很大的帮助。由此可见在，开发此系统在经济上是完全可行的。 2） 操作可行性分析

如今的计算机已经走进千家万户，硬件成本的下降，导致计算机购买成本的降低。我开发的这套系统是利用Microsoft Visual Basic作为软件的开发平台，使开发出来的系统有友好的用户界面、有良好的安全性设置、易操作等特点，这样更使各类用户很快地掌握系统的使用方法,因此在操作上是可行的。 3） 技术可行性分析

从目前IT业界比较流行的数据库开发、管理软件来看，对于比较简单的中小型数据库，Visual Basic 6.0和Windows 2000/XP的结合无疑是在实际应用中较为成功的一种解决方案。为用户提供了业界软件开发一直坚持的非常友好、操作简单的用户界面、完善强大的数据库操作功能和简洁明了的数据库接口。所以技术实行起来相对会容易。 2 系统目标

采用企业现有的软硬件环境及科学的管理系统开发方案，建立房屋租赁信息管理系统，实现房屋租赁信息管理的计算机自动化。 系统应符合物业管理企业原有的房屋租赁管理制度，并达到操作直观、方便、实用、安全等要求。当前，很多物业管理企业的房屋租赁信息管理都是以纸张为介质作记录，人力管理的比例比较大，往往是各个主要负责人以书面的形式管理房屋租赁信息，效率低，数据打印、汇总和更新不及时，容易丢失，不易保存且保密性较差。 2.1 系统总体流程图 图1为系统总体流程图。 2.2 系统的数据流程图及分析

龙源期刊网 http://www.qikan.com.cn

图2为数据流程图。

整个系统从总体上分为系统管理、客户资料管理、房间信息管理、费用管理以及统计报表五大部分，每一部分实现的功能如下： 首先分析一个系统的主要功能。

1) 管理员通过系统管理界面进入，建立房间基本信息、系统用户信息等，并将所有信息保存在数据库中，同时管理员还能够对以上信息进行添加、删除等基本操作。

2) 操作人员可以通过使用该系统查询房间基本信息、客户基本信息、费用结算信息等。 3) 系统生成客户应缴费用，同时可以生成催款单。

4) 提供相应报表分析入住率、客户情况分析等，为房主、中介公司决策提供依据。 为了直观描述房屋出租管理系统的各项功能，我们用图3来大体讲述一下该系统的总体架构。

2.3 系统功能模块图 图4为系统功能模块图。 2.4 系统功能描述

根据以上房屋出租管理系统功能模块图，为使房屋出租管理系统的各模块更为清晰，以下具体描述了房屋出租管理系统的各模块功能。 1） 系统管理模块

系统管理模块用于对系统的用户的基本信息进行管理，如设定系统使用权限、进行新用户注册、修改用户密码等。它是出于系统的安全考虑和用户所具有软件操作权限控制。 2） 房间信息管理模块

房间信息管理模块主要用于对房间的基本信息（房间号、朝向、是否上网、人数等）进行管理，包括添加房间基本信息、查询房间基本信息、浏览房间基本信息等。 3） 客户档案管理模块

龙源期刊网 http://www.qikan.com.cn

档案管理模块主要用于对客户的档案信息即入住档案（姓名、性别、入住时间、家庭住址、身份证号等）进行管理，包括添加客户入住登记信息、删除客户入住登记信息、修改客户信息、查询客户信息等。 4） 客户费用结算管理模块

客户费用结算管理模块是用于对客户的基本住宿费用、水费、电费、上网费等基本信息进行管理，包括添加客户基本交费信息等。 5） 报表分析模块

根据客户的入住情况，系统查询产生当前、每月、整年的入住率，为物业或中介公司提供数据分析。系统可以按条件产生入住客户的分布情况。 3 数据库设计

数据库需求分析是数据库设计的第一阶段也是很重要的一个阶段，它是收集基本数据以及数据处理的流程，为以后进一步设计打下基础，需求分析主要解决两个问题：

处理要求。弄清应用系统用户需求对数据库进行什么样的处理，及数据库中各种数据之间的关系；

内容要求。弄清应用系统用户所需要操作的数据，决定在数据库中存储什么数据。 在数据库需求分析后，应该得到一个数据字典文档，包括3个方面的内容：

数据项。包括名称、含义、类型、取值范围、长度以及和其它数据项之间的逻辑关系。如房间号、朝向、类型、是否上网、人数、电表号等。

数据结构。若干数据项的有意义的集合，包括名称、含义以及组成数据结构的数据项。如房间基本信息表（HouseInfo）、客户基本信息表(OrderInfo)等。 数据流。指数据库中数据的处理过程，包括输入、处理、输出。

利用Microsoft Access 2003对房屋出租管理系统进行数据库设计，在需求分析阶段，通过对房屋管理系统的功能进行抽象、需求进行收集与分析设计出如下的系统数据信息。 3.1 数据库概念设计

龙源期刊网 http://www.qikan.com.cn

根据本文提供的数据流程图抽象出图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 \"用户名不能为空！\警告\" Text1(0).SetFocus Exit Sub End If

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

MsgBox \"密码不能为空！\警告\" Text1(1).SetFocus Exit Sub End If

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

MsgBox \"确认密码不能为空！\警告\" Text1(2).SetFocus Exit Sub

龙源期刊网 http://www.qikan.com.cn

End If

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

MsgBox \"确认密码不正确！\警告\" 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 \" 普通用户至少要有一项权限！\警告\" 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)

龙源期刊网 http://www.qikan.com.cn

If mrc.EOF = False Then

MsgBox \" 已存在该用户！\警告\" 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

龙源期刊网 http://www.qikan.com.cn

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 \" 用户添加成功！\警告\" 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

龙源期刊网 http://www.qikan.com.cn

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

龙源期刊网 http://www.qikan.com.cn

Private Sub Command1_Click() For j = 0 To 1 If Text1(j) = \"\" Then

ss = MsgBox(Label1(j).Caption & \"不能为空！\警告\") 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 & \"不能为空！\警告\") 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)

龙源期刊网 http://www.qikan.com.cn

If mrc.EOF = False Then

sss = MsgBox(\"已经存在该客户的记录,客户编号不能重复！\警告\")

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

龙源期刊网 http://www.qikan.com.cn

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 \" 客户信息添加成功！\警告\" FrmAddOrder.Hide End Sub 5 结束语

龙源期刊网 http://www.qikan.com.cn

根据使用者的不同，房屋出租管理系统的设计侧重点可能不同，也就有其个性。不同的设计人员根据需求分析对房屋出租管理系统的理解也不同，因此其并没有一成不变的设计方案。为了更好地适应经济发展需要、更好地为系统使用者服务，必须采取整体布局、逐步实施的长远计划，尽可能地减少系统的后期维护，确保系统的稳定性。 参考文献：

[1] 李兰友.Visual Basic应用程序设计[M].北京：北方交通大学出版社.

[2] 杨富国.visual basic程序开发案例解析——通用程序设计案例丛书》[M].北京：清华大学出版社.

[3] 张海藩.软件工程导论[M].北京：清华大学出版社.

[4] 崔竞.visual basic 6.0基础与实践教程[M].北京：电子工业出版社.