📄 mainbas.bas
字号:
Attribute VB_Name = "MainBas"
Option Explicit
Global ComputerName As String '电脑名称
Public CustomerInc As String
Public MycomPany As String
Public SelectTj As String '当前选择的条件
Public SelectQy As String '当前选择的企业
Public AllowShowKkl As Boolean
Sub InitSystem()
'得到计算机名称,用于用户监控
ComputerName = sGetComputerName
End Sub
Sub Main()
InitSystem
'打开数据库连接
Set GlobalCon = New ADODB.Connection
With GlobalCon
.CommandTimeout = 15
.CursorLocation = adUseClient
.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\mdb\maindata.mdb;Mode=Read|Write;Jet OLEDB:Database Password=" '使用角色的帐户登录
End With
FrmMain.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -