mainbas.bas

来自「报警信息查询系统VB+ACESS 根据某啤酒厂出现故障不同（如系统错误、负亟接」· BAS 代码 · 共 42 行

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