?? mdlmain.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -