commonbas.bas

报警信息查询系统VB+ACESS 根据某啤酒厂出现故障不同（如系统错误、负亟接地、操作错误等）计算机系统进行报警

Attribute VB_Name = "CommonBas"
Option Explicit

Type EventInfo
     StrData1 As String '显示开关量
     StrData2 As String '不显示
     StrDate As String
     CompanyId As String
     CompanyName As String
     EventType As String
     Color As String
     EventDes As String
     Weather As String
End Type

Public NowSelectRec As EventInfo

Public GlobalCon As ADODB.Connection