📄 module1.bas
字号:
Attribute VB_Name = "Module1"
Global cn As New ADODB.Connection
Global sSQL As String
Global MatricNo As String
Sub main()
'load and display splash screen
With frmSplash
.Show
.Refresh
End With
'create connection to database to be used throughout the program
With cn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbase\hostel.mdb;Persist Security Info=False"
.Open
End With
'display log in form
frmLogin.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -