?? module1.bas
字號:
Attribute VB_Name = "Module1"
Option Explicit
Public Enum LogonTypes
JQL_BUYER = 1
JQL_SALER = 2
JQL_ADMIN = 3
JQL_NOT_LOGON = 0
End Enum
Public LogonType As LogonTypes
Public LogonUser As String
Public ConnStr As String
Public StrSQL As String
Public dbTableNames()
Sub main()
ConnStr = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\negotiation.mdb"
dbTableNames = Array("", "buyregister", "sellregister", "manager", "buyerinfo", "sellerinfo")
frmMain.Show
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -