房屋租赁管理系统源代码样本.pdfVIP

系统主界面设计

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

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

OptionExplicit

PublicconnAsNew.ADODB.Connection

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

PublicqueryhouseAsBoolean

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

PublicsqlqhAsStrin

定义全局变最quciycf为判断frmClicnt窗体家庭租户选项卡显示查询数据还是全体

数据

PublicquorycfAsBoolean

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

PublicsqlqcfAsString

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

数据

PublicquerycgAsBoolean

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

PublicsqlqcgAsString

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

PublicqueryempAsBoolean

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

PublicsqlqeAsString

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

PublicqueryqzcAsBoolean

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

PublicsqlqzcAsString

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

PublicqueryconAsBoolean

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

PublicsqlqconAsString

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

PublicsqlqydAsString

定义全局变量fromqzc为判断frmYuDing窗体是从frmQZClicnt窗体中单击下定金预定

调用

还是直接菜单调用

PublicfromqzcAsBoolean

定义全局变量fromYudir.g为判断frmPayDingin窗体是从frmYuDing窗体中单击收取

定金调用

还是直接菜单调用

PublicfromYudingAsBoolean

定义全局变量fromContract为判断frmPayYain窗体是从frmSignContract窗体中单

击收取押金调用

还是直接菜单调用

PublicfromContractAsBoolean

定义全局变量ZuinfromContract为判断frmPayZuin窗体是从frmSignContract窗体

中单击收取租金调用

还是直接菜单调用

PublicZuinfromContractAsBoolean

定义全局变量queryZuin为判断frmAdminZuin窗体显示查询数据还是全体数据

PublicqueryZuinAsBoolean

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

PublicsqlqzjAsString

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

PublicsqlqdjAsString

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

PublicsqlqyjAsString

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

1.1基本资料管理模块设计

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

cmdQuery.Enabled=False

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

For