房屋租赁管理系统源代码

《房屋租赁管理系统源代码》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、系统主界面的设计启动系统后，主界面设计效果图如下:公用模块的设计代码分析如下:OptionExplicitPublicconnAsNewADODB.Connection'定义全局变量queryhouse作为判断frmHouse窗体显示查询的数据还是全体数据PublicqueryhouseAsBoolean'定义全局变量sqlqh作为查询房屋信息时的sql语句PublicsqlqhAsString'定义全局变量querycf作为判断frmClient窗体家庭租户选项卡显示查询的数据还是全体数据PublicquerycfAsBoolea

2、n'定义全局变量sqlqcf作为查询家庭租户信息时的sql语句PublicsqlqcfAsString'定义全局变量querycg作为判断frmClient窗体家公司户选项卡显示查询的数据还是全体数据PublicquerycgAsBoolean'定义全局变量sqlqcg作为查询公司租户信息时的sql语句PublicsqlqcgAsString'定义全局变量queryemp作为判断frmEmp窗体显示查询的数据还是全体数据PublicqueryempAsBoolean'定义全局变量sqlqe作为查询员工信息时的sql语句Publics

3、qlqeAsString'定义全局变量queryqzc作为判断frmQZClient窗体显示查询的数据还是全体数据PublicqueryqzcAsBoolean'定义全局变量sqlqzc作为查询求租客户信息时的sql语句PublicsqlqzcAsString'定义全局变量querycon作为判断frmAdminContract窗体显示查询的数据还是全体数据PublicqueryconAsBoolean'定义全局变量sqlqcon作为查询合同信息时的sql语句PublicsqlqconAsString'定义全局变量sqlqyd作为查

4、询预定单信息时的sql语句PublicsqlqydAsString'定义全局变量fromqzc作为判断frmYuDing窗体是从frmQZClient窗体中单击下定金预定调用的'还是直接菜单调用的PublicfromqzcAsBoolean'定义全局变量fromYuding作为判断frmPayDingJin窗体是从frmYuDing窗体中单击收取定金调用的'还是直接菜单调用的PublicfromYudingAsBoolean'定义全局变量fromContract作为判断frmPayYaJin窗体是从frmSignContract窗体

5、中单击收取押金调用的'还是直接菜单调用的PublicfromContractAsBoolean'定义全局变量ZuJinfromContract作为判断frmPayZuJin窗体是从frmSignContract窗体中单击收取租金调用的'还是直接菜单调用的PublicZuJinfromContractAsBoolean'定义全局变量queryZuJin作为判断frmAdminZuJin窗体显示查询的数据还是全体数据PublicqueryZuJinAsBoolean'定义全局变量sqlqzj作为查询合同信息时的sql语句Publicsq

6、lqzjAsString'定义全局变量sqlqdj作为查询定金信息时的sql语句PublicsqlqdjAsString'定义全局变量sqlqyj作为查询押金信息时的sql语句PublicsqlqyjAsString1.各主要功能模块的设计与实现1．1基本资料管理模块设计房屋基本资料管理的运行效果图如下:其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,保存四个命令按钮的源代码设计：新增按钮源码:PrivateSubcmdAdd_Click()'设置除保存和取消按钮外的其他按钮不可用cmdAdd.Enabled=False

7、cmdEdit.Enabled=FalsecmdDel.Enabled=FalsecmdSave.Enabled=TruecmdCancel.Enabled=TruecmdFirst.Enabled=FalsecmdPrev.Enabled=FalsecmdNext.Enabled=FalsecmdLast.Enabled=FalsecmdQuery.Enabled=False'需要清空所有text框，并且设置它们可写Fori=0To7Text1(i).Text=""Text1(i).Enabled=TrueNextiCombo1.

8、Enabled=True'add变量用于保存时判断是从添加还是修改后保存add=1Text1(0).SetFocusEndSubPrivateSubcmdCancel_Click()'取消按钮用于用户添加或修改过程中放弃添加或修改操作