modstringcheck.bas

1、以DLL形式提供医生工作站 2、 根据【检查项目】

Attribute VB_Name = "modStringCheck"
'----------------------------------------------------------------------------------------------------
'modExecuteImage.bas
'作者：刘辉
'时间：2008-4-8
'说明：数据库连接提示
'----------------------------------------------------------------------------------------------------

Option Explicit

    
  
Public Function stringCheck(ByVal strString As String) As Boolean
On Error GoTo ErrHandler
    If InStr(strString, "'") > 0 Then
        MsgBox "用户名中含有非法字符：’", vbExclamation, "提示"
        stringCheck = False
        Exit Function
    End If
    
    If InStr(strString, "-") > 0 Then
        MsgBox "用户名中含有非法字符：-", vbExclamation, "提示"
        stringCheck = False
        Exit Function
    End If
    
    stringCheck = True
    Exit Function
ErrHandler:
    stringCheck = False
    MsgBox Err.Description, vbExclamation, "提示"
End Function