module1.bas

小区物业管理系统完整文档及代码。帮助毕业同学做好毕业设计。

Attribute VB_Name = "Module1"
Option Explicit
'Public conn As New ADODB.Connection
Public Server As String
Public UID As String
Public Pwd As String

'定义全局变量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

Public UserName As String

Public Function ExecuteSQL(ByVal sql As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_Error
sTokens = Split(sql)
Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
    cnn.Exeute sql
    MsgString = sTokens(0) & "query successful"
   Else
    Set rst = New ADODB.Recordset
    rst.Open Trim$(sql), cnn, adOpenKeyset, adLockOptimistic
    'rst.MoveLast     'get RecordCount
    Set ExecuteSQL = rst
    MsgString = "查询到" & rst.RecordCount & "条记录"
End If
ExecuteSQL_Exit:
    Set rst = Nothing
    Set cnn = Nothing
    Exit Function
ExecuteSQL_Error:
    MsgString = "查询错误:" & Err.Description
    Resume ExecuteSQL_Exit
End Function

Public Function ConnectString() As String
Server = "127.0.0.1"
UID = "sa"
Pwd = ""
ConnectString = "Provider=MSDASQL;DRIVER={SQL Server};SERVER=" + Server + ";UID=" + UID + ";PWD=" _
+ Pwd + ";DATABASE=WYGL"

End Function

Public Function Testtxt(txt As String) As Boolean
If Trim(txt) = "" Then
   Testtxt = False
  Else
   Testtxt = True
End If
End Function

Sub Main()
    Dim sp As New frmSplash
    Dim fMainForm As Form
    sp.Show vbModal
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
       'Login Failed so exit app
       End
    End If
    Unload fLogin
    Set fMainForm = New FrmMain
    fMainForm.Show
End Sub