module1.bas

本课题为实践课题

Attribute VB_Name = "Module1"
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