启动系统后,主界面设计效果图如下:
公用模块的设计代码分析如下:
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