module1.bas

VB城市排水系统

Attribute VB_Name = "Module1"
Public adoPrimaryRS As Recordset
Public adopwdrs As Recordset
Public dbpwd As Connection
Public fMainForm As frmMain
Public accessflag As String
Public sBuffer As String
Sub Main()
    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.OK Then
        '登录失败，退出应用程序
        End
    End If
    Unload fLogin
    Set fMainForm = New frmMain
    fMainForm.Show
End Sub