?? module1.bas
字號:
Attribute VB_Name = "main_modele"
Option Explicit
Public fMainForm As frmMain
Public login_user As user ' 整個系統運行user變量
Public db As database '全局數據庫連接
Sub main()
Dim fLogin As New frmLogin
If App.PrevInstance Then '一次只能運行一個實例
MsgBox ("程序已經運行,不能再次裝載。"), vbExclamation
End
End If
Set db = New database
Set login_user = New user
fLogin.Show vbModal
If Not fLogin.OK Then
'Login Failed so exit app
End
End If
Unload fLogin
Set fMainForm = New frmMain
fMainForm.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -