(房地产经营管理)房屋租赁管理系统源代码

系统主界面的设计

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

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

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).T ext=""

Text1(i).Enabled=True

Nexti

bo1.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).T ext=rs_house.Fields(i)

Nexti

Ifrs_house.Fields(8)="已租"Then

bo1.ListIndex=0

ElseIfrs_house.Fields(8)="未租"Then

bo1.ListIndex=1

ElseIfrs_house.Fields(8)="意向"Then

bo1.ListIndex=2

EndIf

cmdEdit.Enabled=True

cmdDel.Enabled=True

cmdFirst.Enabled=True