module1.bas

本程序用VB+SQL 2000实现,可以实现小区的住户资料,仪表资料,住户投宿,住户报修等数据的查询,修改,删除,统计和以报表形式打印输出.

Attribute VB_Name = "Module1"
Option Explicit
Public conn As New ADODB.Connection

'定义全局变量query 作为判断frmclient 窗体显示查询的数据还是全体数据
Public query As Boolean
'定义全局变量sqlqc 作为查询住户信息时的sql语句
Public sqlqc As String

'定义全局变量queryhouse 作为判断frmHouse 窗体显示查询的数据还是全体数据
Public queryhouse As Boolean
'定义全局变量sqlqh 作为查询房屋信息时的sql语句
Public sqlqh As String


'定义全局变量queryEq 作为判断frmEquipment 窗体显示查询的数据还是全体数据
Public queryEq As Boolean
'定义全局变量sqlequip 作为查询设备信息时的sql语句
Public sqlequip As String

'定义全局变量queryPark 作为判断frmPark 窗体显示查询的数据还是全体数据
Public queryPark As Boolean
'定义全局变量sqlPark 作为查询停车场信息时的sql语句
Public sqlPark As String

'定义全局变量queryTs 作为判断frmTouSu 窗体显示查询的数据还是全体数据
Public queryTs As Boolean
'定义全局变量sqlTs 作为查询投诉信息时的sql语句
Public sqlTs As String

'定义全局变量queryBx 作为判断frmBaoXiu 窗体显示查询的数据还是全体数据
Public queryBx As Boolean
'定义全局变量sqlBx 作为查询住户报修信息时的sql语句
Public sqlBx As String

'定义全局变量queryRep 作为判断frmRepair 窗体显示查询的数据还是全体数据
Public queryRep As Boolean
'定义全局变量sqlRep 作为查询设备维修信息时的sql语句
Public sqlRep As String

'定义全局变量querywater 作为判断frmYiBiao窗体水表选项卡显示查询的数据还是全体数据
Public querywater As Boolean
'定义全局变量querypower 作为判断frmYiBiao窗体电表选项卡显示查询的数据还是全体数据
Public querypower As Boolean
'定义全局变量querygas 作为判断frmYiBiao窗体气表选项卡显示查询的数据还是全体数据
Public querygas As Boolean
'定义全局变量sqlYiBiao 作为查询3种仪表信息时的sql语句
Public sqlYiBiao As String

'定义全局变量queryWuYeFee 作为判断frmYiBiao窗体物业收费选项卡显示查询的数据还是全体数据
Public queryWuYeFee As Boolean
'定义全局变量queryYiBiaoFee 作为判断frmYiBiao窗体仪表收费选项卡显示查询的数据还是全体数据
Public queryYiBiaoFee As Boolean
'定义全局变量sqlFee 作为查询2种收费信息时的sql语句
Public sqlFee As String