brokenrules.cls

人事档案管理系统(PB)/人事工资管理系统/干部信息管理系统/投标报价与合同管理系统/... 超市...

VERSION 1.0 CLASS
Begin
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
End
Attribute VB_Name = "BrokenRules"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Event BrokenRule()
Event NoBrokenRules()

Private mcolBroken As Collection

Private Sub Class_Initialize()

  Set mcolBroken = New Collection

End Sub

Public Sub RuleBroken(Rule As String, IsBroken As Boolean)
 
  On Error GoTo HandleError

  If IsBroken Then
    mcolBroken.Add Rule, Rule
    RaiseEvent BrokenRule

  Else
    mcolBroken.Remove Rule
    If mcolBroken.Count = 0 Then RaiseEvent NoBrokenRules

  End If

HandleError:

End Sub

Public Property Get Count() As Integer

  Count = mcolBroken.Count

End Property  

Public Property Get BrokenRules() As string
  Dim strRules As string, i As long
  For i = 1 To  mcolBroken.Count
    strRules = strRules & vbCrLf & mcolBroken.Item(i)
  Next
  BrokenRules = strRules
End Property