房屋租赁管理系统源代码.docx

房屋租赁管理系统源代码.docx

《房屋租赁管理系统源代码.docx》由会员分享，可在线阅读，更多相关《房屋租赁管理系统源代码.docx（32页珍藏版）》请在冰豆网上搜索。

房屋租赁管理系统源代码

系统主界面的设计

启动系统后，主界面设计效果图如下:

公用模块的设计代码分析如下:

OptionExplicit

PublicconnAsNewADODB.Connection

'定义全局变量queryhouse作为判断frmHouse窗体显示查询的数据还是全体数据

PublicqueryhouseAsBoolean

'定义全局变量sqlqh作为查询房屋信息时的sql语句

PublicsqlqhAsString

'定义全局变量querycf作为判断frmClient窗体家庭租户选项卡显示查询的数据还是全体数据

PublicquerycfAsBoolean

'定义全局变量sqlqcf作为查询家庭租户信息时的sql语句

PublicsqlqcfAsString

'定义全局变量querycg作为判断frmClient窗体家公司户选项卡显示查询的数据还是全体数据

PublicquerycgAsBoolean

'定义全局变量sqlqcg作为查询公司租户信息时的sql语句

PublicsqlqcgAsString

'定义全局变量queryemp作为判断frmEmp窗体显示查询的数据还是全体数据

PublicqueryempAsBoolean

'定义全局变量sqlqe作为查询员工信息时的sql语句

PublicsqlqeAsString

'定义全局变量queryqzc作为判断frmQZClient窗体显示查询的数据还是全体数据

PublicqueryqzcAsBoolean

'定义全局变量sqlqzc作为查询求租客户信息时的sql语句

PublicsqlqzcAsString

'定义全局变量querycon作为判断frmAdminContract窗体显示查询的数据还是全体数据

PublicqueryconAsBoolean

'定义全局变量sqlqcon作为查询合同信息时的sql语句

PublicsqlqconAsString

'定义全局变量sqlqyd作为查询预定单信息时的sql语句

PublicsqlqydAsString

'定义全局变量fromqzc作为判断frmYuDing窗体是从frmQZClient窗体中单击下定金预定调用的

'还是直接菜单调用的

PublicfromqzcAsBoolean

'定义全局变量fromYuding作为判断frmPayDingJin窗体是从frmYuDing窗体中单击收取定金调用的

'还是直接菜单调用的

PublicfromYudingAsBoolean

'定义全局变量fromContract作为判断frmPayYaJin窗体是从frmSignContract窗体中单击收取押金调用的

'还是直接菜单调用的

PublicfromContractAsBoolean

'定义全局变量ZuJinfromContract作为判断frmPayZuJin窗体是从frmSignContract窗体中单击收取租金调用的

'还是直接菜单调用的

PublicZuJinfromContractAsBoolean

'定义全局变量queryZuJin作为判断frmAdminZuJin窗体显示查询的数据还是全体数据

PublicqueryZuJinAsBoolean

'定义全局变量sqlqzj作为查询合同信息时的sql语句

PublicsqlqzjAsString

'定义全局变量sqlqdj作为查询定金信息时的sql语句

PublicsqlqdjAsString

'定义全局变量sqlqyj作为查询押金信息时的sql语句

PublicsqlqyjAsString

1.各主要功能模块的设计与实现

1．1基本资料管理模块设计

房屋基本资料管理的运行效果图如下:

其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,保存四个命令按钮的源代码设计：

新增按钮源码:

PrivateSubcmdAdd_Click（）

'设置除保存和取消按钮外的其他按钮不可用

cmdAdd.Enabled=False

cmdEdit.Enabled=False

cmdDel.Enabled=False

cmdSave.Enabled=True

cmdCancel.Enabled=True

cmdFirst.Enabled=False

cmdPrev.Enabled=False

cmdNext.Enabled=False

cmdLast.Enabled=False

cmdQuery.Enabled=False

'需要清空所有text框，并且设置它们可写

Fori=0To7

Text1（i）.Text=""

Text1（i）.Enabled=True

Nexti

Combo1.Enabled=True

'add变量用于保存时判断是从添加还是修改后保存

add=1

Text1（0）.SetFocus

EndSub

PrivateSubcmdCancel_Click（）

'取消按钮用于用户添加或修改过程中放弃添加或修改操作

cmdSave.Enabled=False

cmdCancel.Enabled=False

cmdAdd.Enabled=True

cmdQuery.Enabled=True

'如果是从添加后取消

Ifadd=1Then

'如果当前House表中有数据则显示第一条数据

IfNotrs_house.EOFAndNotrs_house.BOFThen

Fori=0To7

Text1（i）.Text=rs_house.Fields（i）

Nexti

Ifrs_house.Fields（8）="已租"Then

Combo1.ListIndex=0

ElseIfrs_house.Fields（8）="未租"Then

Combo1.ListIndex=1

ElseIfrs_house.Fields（8）="意向"Then

Combo1.ListIndex=2

EndIf

cmdEdit.Enabled=True

cmdDel.Enabled=True

cmdFirst.Enabled=True

cmdPrev.Enabled=True

cmdNext.Enabled=True

cmdLast.Enabled=True

'如果没有数据，则显示空

Else

Fori=0To7

Text1（i）.Text=""

Nexti

cmdEdit.Enabled=False

cmdDel.Enabled=False

cmdFirst.Enabled=False

cmdPrev.Enabled=False

cmdNext.Enabled=False

cmdLast.Enabled=False

EndIf

'如果是修改后取消，则恢复到修改前的数据

ElseIfadd=0Then

Fori=0To7

Text1（i）.Text=rs_house.Fields（i）

Nexti

Ifrs_house.Fields（8）="已租"Then

Combo1.ListIndex=0

ElseIfrs_house.Fields（8）="未租"Then

Combo1.ListIndex=1

ElseIfrs_house.Fields（8）="意向"Then

Combo1.ListIndex=2

EndIf

EndIf

'开始时设置各个text框不可写

Fori=0To7

Text1（i）.Enabled=False

Nexti

'先设置ComboBox的默认值及不可改

Combo1.Enabled=False

EndSub

PrivateSubcmdClose_Click（）

UnloadMe

EndSub

删除按钮的源代码：

PrivateSubcmdDel_Click（）

'当单击删除记录时，需要弹出一个提示框，警告用户

DimanswerAsString

answer=MsgBox（"确定要删除吗？

",vbYesNo,""）

'确实删除

Ifanswer=vbYesThen

rs_house.Delete'删除当前记录

rs_house.Update'更新删除

MsgBox"成功删除！

",vbOKOnly+vbExclamation,""

Else

ExitSub

EndIf

'删除之后，显示总信息条数需要减1

Text2.Text=Val（Text2.Text）-1

'删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录

'先移动rs_house记录到后一条

rs_house.MoveNext

Ifrs_house.EOFThen

rs_house.MovePrevious

'如果没有到记录首则显示该记录

IfNotrs_house.BOFThen

Fori=0To7

Text1（i）.Text=rs_house.Fields（i）

Nexti

Ifrs_house.Fields（8）="已租"Then

Combo1.ListIndex=0

ElseIfrs_house.Fields（8）="未租"Then

Combo1.ListIndex=1

ElseIfrs_house.Fields（8）="意向"Then

Combo1.ListIndex=2

EndIf

'如果到记录首，则表格已经为空，置所有text框显示为空

ElseIfrs_house.BOFThen

Fori=0To7

Text1（i）.Text=""

Nexti

cmdFirst.Enabled=False

cmdPrev.Enabled=False

cmdNext.Enabled=False

cmdLast.Enabled=False

EndIf

'如果删除的不是首尾记录，则显示当前记录即可

Else

Fori=0To7

Text1（i）.Text=rs_house.Fields（i）

Nexti

Ifrs_house.Fields（8）="已租"Then

Combo1.ListIndex=0

ElseIfrs_house.Fields（8）="未租"Then

Combo1.ListIndex=1

ElseIfrs_house.Fields（8）="意向"Then

Combo1.ListIndex=2

EndIf

EndIf

EndSub

保存按钮的源代码：

PrivateSubcmdEdit_Click（）

'设置除保存和取消按钮外的其他按钮不可用

cmdAdd.Enabled=False

cmdEdit.Enabled=False

cmdDel.Enabled=False

cmdSave.Enabled=True

cmdCancel.Enabled=True

cmdFirst.Enabled=False

cmdPrev.Enabled=False

cmdNext.Enabled=False

cmdLast.Enabled=False

cmdQuery.Enabled=False

'需要设置除主键之外的text框可写

Fori=1To7

Text1（i）.Enabled=True

Nexti

Combo1.Enabled=True

add=0

EndSub

PrivateSubcmdFirst_Click（）

'先移动rs_house记录到第一条

rs_house.MoveFirst

'同时需要设置相应按钮为不可用和不可用

cmdPrev.Enabled=False

cmdFirst.Enabled=False

cmdNext.Enabled=True

cmdLast.Enabled=True

'如果已经是第一条记录，则提示用户

Ifrs_house.BOF=TrueThen

MsgBox"对不起，已经是第一条记录了！

",vbOKOnly+vbInformation,"注意"

ExitSub

'如果不是，则个数据表的记录位置移到第一条记录，并且显示之

Else

Fori=0To7

Text1（i）.Text=rs_house.Fields（i）

Nexti

Ifrs_house.Fields（8）="已租"Then

Combo1.ListIndex=0

ElseIfrs_house.Fields（8）="未租"Then

Combo1.ListIndex=1

ElseIfrs_house.Fields（8）="意向"Then

Combo1.ListIndex=2

EndIf

EndIf

EndSubPREV

检索按钮的源代码：

1．2客户资料管理模块的设计

1．2．1租户基本资料的设计

运行效果图如下所示:

在租户基本资料中，我们重点分析查找家庭租户功能的源码，如下:

PrivateSubcmdQuery_Click（）

IfText1.Text=""Then

MsgBox"查询条件不可为空！

",vbOKOnly+vbInformation,"注意"

Text1.SetFocus

ExitSub

EndIf

'设置查询家庭租户变量为真

querycf=True

sqlqcf="where"&Combo1.Text&"="&"'"&Text1.Text&"'"

frmClient.Show

'关闭本窗体

UnloadMe

EndSub

1．2．2求租户基本资料的设计

其保存按钮的源码分析如下：

PrivateSubcmdSave_Click（）

'检测数据是否完整

IfText1（0）.Text=""Then

MsgBox"求租客户编号不可为空！

",vbOKOnly+vbInformation,"注意"

Text1（0）.SetFocus

ExitSub

ElseIfText1

（1）.Text=""Then

MsgBox"求租客户姓名不可为空！

",vbOKOnly+vbInformation,"注意"

Text1

（1）.SetFocus

ExitSub

ElseIfText1

（2）.Text=""Then

MsgBox"求租客户电话不可为空！

",vbOKOnly+vbInformation,"注意"

Text1

（2）.SetFocus

ExitSub

ElseIfNotText1（4）.Text=""AndIsNumeric（Text1（4）.Text）=FalseThen

MsgBox"面积要求不为空则应为数字！

",vbOKOnly+vbInformation,"注意"

Text1（4）.SetFocus

ExitSub

ElseIfNotText1（6）.Text=""AndIsNumeric（Text1（6）.Text）=FalseThen

MsgBox"意向价位不为空则应为数字！

",vbOKOnly+vbInformation,"注意"

Text1（6）.SetFocus

ExitSub

ElseIfNotText1（7）.Text=""AndIsNumeric（Text1（7）.Text）=FalseThen

MsgBox"意向租期不为空则应为数字！

",vbOKOnly+vbInformation,"注意"

Text1（7）.SetFocus

ExitSub

EndIf

'如果意向房屋编号不为空，需要检查是否存在

IfNotText1（8）.Text=""Then

DimsqlhcheckAsString

Dimrs_hcheckAsNewADODB.Recordset

sqlhcheck="select*fromHousewhere房屋编号='"&Text1（8）.Text&"'"

rs_hcheck.Opensqlhcheck,conn,adOpenStatic,adLockOptimistic

Ifrs_hcheck.EOFThen

MsgBox"该房屋编号不存在，请重填或清空！

",vbOKOnly+vbInformation,"注意"

Text1（8）.SetFocus

rs_hcheck.Close

ExitSub

EndIf

rs_hcheck.Close

EndIf

'添加数据后保存

Ifadd=1Then

'检测房屋编号这个主键是否已经在表中存在

Dimrs_checkAsNewADODB.Recordset

DimsqlCheckAsString

sqlCheck="select*fromQZClientwhere求租客户编号='"&（Text1（0）.Text）&"'"

rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimistic

IfNotrs_check.EOFAndNotrs_check.BOFThen

MsgBox"该求租客户编号已经存在，请重填一个！

",vbOKOnly+vbInformation,"注意"

rs_check.Close

Text1（0）.SetFocus

Text1（0）.Text=""

ExitSub

EndIf

rs_check.Close

'主键不重复，可以加入表中

rs_QZClient.AddNew

Fori=0To9

rs_QZClient.Fields（i）=Text1（i）.Text

Nexti

rs_QZClient.Update

'添加之后显示总共条数信息加1

Text2.Text=Val（Text2.Text）+1

'修改数据后的保存

Else

rs_QZClient.Update

EndIf

MsgBox"保存数据成功！

",vbOKOnly+vbInformation,"祝贺"

'保存后需要设置其他按钮可用，以及各个text框不可写

cmdAdd.Enabled=True

cmdEdit.Enabled=True

cmdDel.Enabled=True

cmdSave.Enabled=False

cmdCancel.Enabled=False

cmdFirst.Enabled=True

cmdPrev.Enabled=True

cmdNext.Enabled=True

cmdLast.Enabled=True

cmdQuery.Enabled=True

cmdYuDing.Enabled=True

Fori=0To9

Text1（i）.Enabled=False

Nexti

EndSub

1．3租赁管理模块的设计

1．3.1签订合同的设计

因租赁管理，财务管理和统计报表三个模块的窗体设计比较多，无法一一描述，故选择有代表性的窗体设计加以分析，其合同签订窗体的运行效果图如下:

如图所示,签订的源码设计如下:

PrivateSubcmdSign_Click（）

'先检查输入数据完整性

Fori=0To2

IfText1（i）.Text=""Then

MsgBox"除备注外的所有项不可为空！

",vbOKOnly+vbInformation,"注意"

Text1（i）.SetFocus

ExitSub

EndIf

Nexti

Fori=3To4

IfText1（i）.Text=""OrIsDate（Text1（i）.Text）=FalseThen

MsgBox"日期应为这样的格式：

2003-7-15！

",vbOKOnly+vbInformation,"注意"

Text1（i）.SetFocus

ExitSub

EndIf

Nexti

IfText1（6）.Text=""OrIsNumeric（Text1（6）.Text）=FalseThen

MsgBox"月租金应为数字！

",vbOKOnly+vbInformation,"注意"

Text1（6）.SetFocus

ExitSub

EndIf

IfText1（8）.Text=""OrIsNumeric（Text1（8）.Text）=FalseThen

MsgBox"押金应为数字！

",vbOKOnly+vbInformation,"注意"

Text1（8）.SetFocus

ExitSub

EndIf

IfText1（9）.Text=""Then

MsgBox"业务员不可为空！

",vbOKOnly+vbInformation,"注意"

Text1（9）.SetFocus

ExitSub

EndIf

IfText1（10）.Text=""OrIsDate（Text1（10）.Text）=FalseThen

MsgBox"签订日期应为这样的格式：

2003-7-15！

",vbOKOnly+vbInformation,"注意"

Text1（10）.SetFocus

Exit