ccommandset.cls

来自「Data monkey是一个强大的是数据传输和转换应用程序。使用DataMonk」· CLS 代码 · 共 88 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CCommandSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Private mActions As CActions

Public Function CmdType() As Integer
    CmdType = eCmdTypes.cmdExecute
End Function

Public Property Let Index(ByVal vData As Integer)
    mIndex = vData
End Property

Public Property Get Index() As Integer
    Index = mIndex
End Property

Public Function Execute(ByRef Value As Variant, Optional CnvType As eODBCDataType = dtNONE) As Boolean
    Execute = True
End Function
Public Function Load()

    On Error GoTo eHandler
    
    Load = False
    Dim item As String, Value As Variant, retVal As Integer
    
    '***************************************
    ' Get the next line from the input file.
    '***************************************
    
    Do
        retVal = Archive.GetNextItem(item, Value)
        
        Select Case item
            Case "INDEX"
                mIndex = Value
            Case Else
            
                '*****************************************
                ' This line contains an unrecognized item.
                '*****************************************
                
                Archive.AddError
                
        End Select
    Loop While retVal <> cENDITEM And retVal <> cERROR
    
    Load = True
    
    Exit Function
    
eHandler:
    MsgBox Error(Err)
    Exit Function

End Function
Public Function Save() As Boolean
    
    On Error GoTo eHandler
    
    Save = False

    Archive.SaveItem aiBEGINACTION, _
        GImport.CommandNameFromType(eCmdTypes.cmdCommandSet)
    Archive.SaveItem aiVALUE, "INDEX", mIndex
    Archive.SaveItem aiENDITEM, _
        GImport.CommandNameFromType(eCmdTypes.cmdCommandSet)
    
    Save = True
    Exit Function
    
eHandler:
    MsgBox Error(Err)
    Exit Function
    
End Function