errshow.bas

这是一个银行IC卡门禁系统软件

Attribute VB_Name = "ErrShow"
Option Explicit

'##ModelId=3D33898300B8
Public Sub LockErrorShow(Optional ByVal MemberName As String)

    Dim errmsg As String

    errmsg = errmsg & "" & Err.Description & vbCrLf

'    errmsg = errmsg & "错误代码:  " & Err.Number & vbCrLf
'    errmsg = errmsg & "错 误 源:  " & Err.Source & vbCrLf
'    errmsg = errmsg & "出现模块:  " & MemberName

    MsgBox errmsg, , "错误提示"
    Err.Clear

End Sub

'##ModelId=3D3389830108
Public Sub StatusShow(Optional ByVal Status As String)
    
            MainForm.LockMenu.Tools("ID_status").Edit.Text = Status


End Sub

'##ModelId=3D338983014E
Public Function chkSTime(ByVal strTime As String) As Boolean
    
    Dim i As Integer
    
    i = InStr(strTime, ":")
    
    If (Len(strTime) < 2) Then

        chkSTime = False
        Exit Function

    End If
    
    If (Len(strTime) = i) Then

        chkSTime = False
        Exit Function

    End If

    If (i <= 1) Then

        chkSTime = False
        Exit Function

    End If

    If Val(Mid(strTime, 1, i - 1)) > 23 Or Val(Mid(strTime, 1, i - 1)) < 0 Then

        chkSTime = False
        Exit Function

    End If
        
    If Val(Mid(strTime, i + 1, Len(strTime) - i)) > 59 Or Val(Mid(strTime, i + 1, Len(strTime) - i)) < 0 Then

        chkSTime = False
        Exit Function

    End If
    
    chkSTime = True

End Function