📄 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 + -