房屋租赁管理系统源代码Word文件下载.doc
《房屋租赁管理系统源代码Word文件下载.doc》由会员分享，可在线阅读，更多相关《房屋租赁管理系统源代码Word文件下载.doc（36页珍藏版）》请在冰点文库上搜索。
定义全局变量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）="
未租"
Combo1.ListIndex=1
意向"
Combo1.ListIndex=2
EndIf
cmdEdit.Enabled=True
cmdDel.Enabled=True
cmdFirst.Enabled=True
cmdPrev.Enabled=True
cmdNext.Enabled=True
cmdLast.Enabled=True
如果没有数据，则显示空
Else
Text1（i）.Text="
cmdEdit.Enabled=False
cmdDel.Enabled=False
cmdFirst.Enabled=False
cmdPrev.Enabled=False
cmdNext.Enabled=False
cmdLast.Enabled=False
EndIf
'
如果是修改后取消，则恢复到修改前的数据
ElseIfadd=0Then
EndIf
开始时设置各个text框不可写
Text1（i）.Enabled=False
先设置ComboBox的默认值及不可改
Combo1.Enabled=False
EndSub
PrivateSubcmdClose_Click（）
UnloadMe
删除按钮的源代码：
PrivateSubcmdDel_Click（）
当单击删除记录时，需要弹出一个提示框，警告用户
DimanswerAsString
answer=MsgBox（"
确定要删除吗？
vbYesNo,"
）
确实删除
Ifanswer=vbYesThen
rs_house.Delete'
删除当前记录
rs_house.Update'
更新删除
MsgBox"
成功删除！
vbOKOnly+vbExclamation,"
ExitSub
删除之后，显示总信息条数需要减1
Text2.Text=Val（Text2.Text）-1
删除当前记录后，需要显示下一条记录，如果删除的是最后一条记录，则显示上一条记录
先移动rs_house记录到后一条
rs_house.MoveNext
Ifrs_house.EOFThen
rs_house.MovePrevious
如果没有到记录首则显示该记录
IfNotrs_house.BOFThen
'
如果到记录首，则表格已经为空，置所有text框显示为空
ElseIfrs_house.BOFThen
EndIf
如果删除的不是首尾记录，则显示当前记录即可
保存按钮的源代码：
PrivateSubcmdEdit_Click（）
需要设置除主键之外的text框可写
Fori=1To7
add=0
PrivateSubcmdFirst_Click（）
先移动rs_house记录到第一条
rs_house.MoveFirst
同时需要设置相应按钮为不可用和不可用
cmdNext.Enabled=True
cmdLast.Enabled=True
如果已经是第一条记录，则提示用户
Ifrs_house.BOF=TrueThen
对不起，已经是第一条记录了！
vbOKOnly+vbInformation,"
注意"
ExitSub
如果不是，则个数据表的记录位置移到第一条记录，并且显示之
EndSubPREV
检索按钮的源代码：
1．2客户资料管理模块的设计
1．2．1租户基本资料的设计
运行效果图如下所示:
在租户基本资料中，我们重点分析查找家庭租户功能的源码，如下:
PrivateSubcmdQuery_Click（）
IfText1.Text="
查询条件不可为空！
Text1.SetFocus
设置查询家庭租户变量为真
querycf=True
sqlqcf="
where"
&
Combo1.Text&
"
="
Text1.Text&
frmClient.Show
关闭本窗体
1．2．2求租户基本资料的设计
其保存按钮的源码分析如下：
PrivateSubcmdSave_Click（）
检测数据是否完整
IfText1（0）.Text="
MsgBox"
求租客户编号不可为空！
Text1（0）.SetFocus
ExitSub
ElseIfText1
（1）.Text="
求租客户姓名不可为空！
Text1
（1）.SetFocus
ElseIfText1
（2）.Text="
求租客户电话不可为空！
Text1
（2）.SetFocus
ElseIfNotText1（4）.Text="
AndIsNumeric（Text1（4）.Text）=FalseThen
面积要求不为空则应为数字！
Text1（4）.SetFocus
ElseIfNotText1（6）.Text="
AndIsNumeric（Text1（6）.Text）=FalseThen
意向价位不为空则应为数字！
Text1（6）.SetFocus
ElseIfNotText1（7）.Text="
AndIsNumeric（Text1（7）.Text）=FalseThen
意向租期不为空则应为数字！
Text1（7）.SetFocus
如果意向房屋编号不为空，需要检查是否存在
IfNotText1（8）.Text="
DimsqlhcheckAsString
Dimrs_hcheckAsNewADODB.Recordset
sqlhcheck="
select*fromHousewhere房屋编号='
Text1（8）.Text&
rs_hcheck.Opensqlhcheck,conn,adOpenStatic,adLockOptimistic
Ifrs_hcheck.EOFThen
MsgBox"
该房屋编号不存在，请重填或清空！
Text1（8）.SetFocus
rs_hcheck.Close
rs_hcheck.Close
添加数据后保存
Ifadd=1Then
检测房屋编号这个主键是否已经在表中存在
Dimrs_checkAsNewADODB.Recordset
DimsqlCheckAsString
sqlCheck="
select*fromQZClientwhere求租客户编号='
（Text1（0）.Text）&
rs_check.OpensqlCheck,conn,adOpenStatic,adLockOptimistic
IfNotrs_check.EOFAndNotrs_check.BOFThen
MsgBox"
该求租客户编号已经存在，请重填一个！
rs_check.Close
Text1（0）.Text="
rs_check.Close
主键不重复，可以加入表中
rs_QZClient.AddNew
Fori=0To9
rs_QZClient.Fields（i）=Text1（i）.Text
rs_QZClient.Update
添加之后显示总共条数信息加1
Text2.Text=Val（Text2.Text）+1
修改数据后的保存
rs_QZClient.Update
MsgBox"
保存数据成功！
祝贺"
保存后需要设置其他按钮可用，以及各个text框不可写
cmdEdit.Enabled=True
cmdDel.Enabled=True
cmdFirst.Enabled=True
cmdPrev.Enabled=True
cmdYuDing.Enabled=True
Fori=0To9
Nex
升级会员 