modpub.vb

来自「单表增删改查」· VB 代码 · 共 13 行

Module modPub
    Public gStrCon As String
    Public DataPath As String
    Public gstrHos As String
    Public gOleCon As OleDb.OleDbConnection
    Public gForm1 As Form1
    Sub main()
        DataPath = Application.StartupPath & "\学生.mdb"
        gForm1 = New Form1
        Application.Run(gForm1)
    End Sub
End Module