房屋租赁的管理系统源代码.docVIP

系统主界面的设计 启动系统后，主界面设计效果图如下: 公用模块的设计代码分析如下: Option Explicit Public conn As New ADODB.Connection 定义全局变量queryhouse 作为判断frmHouse 窗体显示查询的数据还是全体数据 Public queryhouse As Boolean 定义全局变量sqlqh 作为查询房屋信息时的sql语句 Public sqlqh As String 定义全局变量querycf 作为判断frmClient 窗体家庭租户选项卡显示查询的数据还是全体数据 Public querycf As Boolean 定义全局变量sqlqcf 作为查询家庭租户信息时的sql语句 Public sqlqcf As String 定义全局变量querycg 作为判断frmClient 窗体家公司户选项卡显示查询的数据还是全体数据 Public querycg As Boolean 定义全局变量sqlqcg 作为查询公司租户信息时的sql语句 Public sqlqcg As String 定义全局变量queryemp 作为判断frmEmp 窗体显示查询的数据还是全体数据 Public queryemp As Boolean 定义全局变量sqlqe 作为查询员工信息时的sql语句 Public sqlqe As String 定义全局变量queryqzc 作为判断frmQZClient 窗体显示查询的数据还是全体数据 Public queryqzc As Boolean 定义全局变量sqlqzc 作为查询求租客户信息时的sql语句 Public sqlqzc As String 定义全局变量querycon 作为判断frmAdminContract 窗体显示查询的数据还是全体数据 Public querycon As Boolean 定义全局变量sqlqcon 作为查询合同信息时的sql语句 Public sqlqcon As String 定义全局变量sqlqyd 作为查询预定单信息时的sql语句 Public sqlqyd As String 定义全局变量fromqzc 作为判断frmYuDing 窗体是从frmQZClient窗体中单击下定金预定调用的 还是直接菜单调用的 Public fromqzc As Boolean 定义全局变量fromYuding 作为判断frmPayDingJin 窗体是从frmYuDing窗体中单击收取定金调用的 还是直接菜单调用的 Public fromYuding As Boolean 定义全局变量fromContract 作为判断frmPayYaJin 窗体是从frmSignContract窗体中单击收取押金调用的 还是直接菜单调用的 Public fromContract As Boolean 定义全局变量ZuJinfromContract 作为判断frmPayZuJin 窗体是从frmSignContract窗体中单击收取租金调用的 还是直接菜单调用的 Public ZuJinfromContract As Boolean 定义全局变量queryZuJin 作为判断frmAdminZuJin 窗体显示查询的数据还是全体数据 Public queryZuJin As Boolean 定义全局变量sqlqzj 作为查询合同信息时的sql语句 Public sqlqzj As String 定义全局变量sqlqdj 作为查询定金信息时的sql语句 Public sqlqdj As String 定义全局变量sqlqyj 作为查询押金信息时的sql语句 Public sqlqyj As String 1.各主要功能模块的设计与实现 1．1基本资料管理模块设计 房屋基本资料管理的运行效果图如下: 其表单界面的属性设计比较直观,在此重点分析新增,修改,删除,保存四个命令按钮的源代码设计： 新增按钮源码: Private Sub cmdAdd_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 cmd