mdlpublic.bas

健身俱乐部管理系统

Attribute VB_Name = "MdlPublic"
Option Explicit
Public Const AwokeInfo = "世纪行智能巡检管理系统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