mdlmain.bas

基于vb的程序管理系统

Attribute VB_Name = "mdlMain"
Option Explicit
    Public SeltFrom As Integer
    Public Const mTitle As String = "学生成绩管理"
    Public mCnnString As String

Public Sub Main()
    mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\StuScore.mdb" & ";Persist Security Info=False"
    'MDIfrmMain.Show
End Sub