房屋租赁管理系统源代码_精品文档.doc

房屋租赁管理系统源代码_精品文档.doc

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

系统主界面的设计

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

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

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=""

Next