Attribute VB_Name = "MdlPublic"
Option Explicit
Public Const AwokeInfo = "世紀行智能巡檢管理系統(tǒng)5.0"
Public Msg As String
Public Flag_CardCheck As Integer '刷卡類型
Public Flag_Sound As Boolean
Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'用于測試鍵盤事件,用法如下 if GetAsyncKeyState(vbkeya )<>0 then........
Public Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer


'如果近來的是Null，返回的值是空串
Public Function TestNull(InText As Variant) As String
    TestNull = IIf(IsNull(InText), "", InText)
End Function