module1.bas

来自「公文管理系统》是一套通过行文收发」· BAS 代码 · 共 18 行

Attribute VB_Name = "Module1"
Option Explicit

Public pIP As String
Public pConn As String
Sub main()
    pConn = "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=OA.mdb;"
    frmLogin.Show vbModal
    If frmLogin.LoginSucceeded Then
        frmMain.Show
    Else
        Unload frmLogin
        End
    End If
End Sub