modglobal.bas

与西门子PLC通讯的程序,经工业现场测试没有问题

Attribute VB_Name = "modGlobal"
Option Explicit


'   ############
'   MicroSoft ActiveX Data Objiects 2.5 Library

'   ############
'   DataSource Name : ZF4Sub01
'   DataBase Name : DataBaseSubServer

'Define And Declare Are All Here

' @ Sleep API Function
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

' @ GetCurrentTime API Function
Public Declare Function GetCurrentTime Lib "kernel32" Alias "GetTickCount" () As Long



' @ Define Varaint
' Every DB Operation In this one class
Global gCDBOPR                  As cDataBaseOPR