global.bas

来自「人事档案管理系统(PB)/人事工资管理系统/干部信息管理系统/投标报价与合同管理」· BAS 代码 · 共 19 行

Attribute VB_Name = "Globals"
Option Explicit
Public Conn As New ADODB.Connection
Public ErrNum As long, ErrMsg As String, mvarIsConnected As Boolean

Public Function ErrHandler(ByVal ErrorNumber As Long, ByVal ErrorMessage As String, ByVal ModuleName As string, byval FunctionName As string)
  'Err.Raise ErrorNumber, app.EXEName & "." & ModuleName & "." & FunctionName, ErrorMessage
'optionally you can display an error msgbox 
  Msgbox "Error Number:" & ErrorNumber & vbCrLf & _
    "Error Message:" & ErrorMessage & vbCrLf & _
    "Module:" & ModuleName & vbCrLf & _
    "Function:" & FunctionName , vbCritical
End Function   

Public Function InvalidHandler(ByVal strBrokenRules As string)
  'Err.Raise 445, app.EXEName, strBrokenRules 
'optionally you can display an error msgbox 
  Msgbox "The following fields must be filled With: " & strBrokenRules , vbCritical
End Function