mdlmain.bas

来自「本论文叙述了我校学成绩管理的现状以及Visual basic6.0语言的概况.重」· BAS 代码 · 共 12 行

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