classdata.cls

Fix通用外接报表程序,读取fix中的实时数据 生成相关报表曲线

Const adCmdTable = &H2
Const adCmdStoredProc = &H4
Const adCmdFile = &H100
Const adCmdTableDirect = &H200

'---- EventStatusEnum Values ----
Const adStatusOK = &H1
Const adStatusErrorsOccurred = &H2
Const adStatusCantDeny = &H3
Const adStatusCancel = &H4
Const adStatusUnwantedEvent = &H5

'---- EventReasonEnum Values ----
Const adRsnAddNew = 1
Const adRsnDelete = 2
Const adRsnUpdate = 3
Const adRsnUndoUpdate = 4
Const adRsnUndoAddNew = 5
Const adRsnUndoDelete = 6
Const adRsnRequery = 7
Const adRsnResynch = 8
Const adRsnClose = 9
Const adRsnMove = 10
Const adRsnFirstChange = 11
Const adRsnMoveFirst = 12
Const adRsnMoveNext = 13
Const adRsnMovePrevious = 14
Const adRsnMoveLast = 15

'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialConstraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
Const adSchemaDBInfoKeywords = 30
Const adSchemaDBInfoLiterals = 31
Const adSchemaCubes = 32
Const adSchemaDimensions = 33
Const adSchemaHierarchies = 34
Const adSchemaLevels = 35
Const adSchemaMeasures = 36
Const adSchemaProperties = 37
Const adSchemaMembers = 38
Const adSchemaTrustees = 39

'---- FieldStatusEnum Values ----
Const adFieldOK = 0
Const adFieldCantConvertValue = 2
Const adFieldIsNull = 3
Const adFieldTruncated = 4
Const adFieldSignMismatch = 5
Const adFieldDataOverflow = 6
Const adFieldCantCreate = 7
Const adFieldUnavailable = 8
Const adFieldPermissionDenied = 9
Const adFieldIntegrityViolation = 10
Const adFieldSchemaViolation = 11
Const adFieldBadStatus = 12
Const adFieldDefault = 13
Const adFieldIgnore = 15
Const adFieldDoesNotExist = 16
Const adFieldInvalidURL = 17
Const adFieldResourceLocked = 18
Const adFieldResourceExists = 19
Const adFieldCannotComplete = 20
Const adFieldVolumeNotFound = 21
Const adFieldOutOfSpace = 22
Const adFieldCannotDeleteSource = 23
Const adFieldReadOnly = 24
Const adFieldResourceOutOfScope = 25
Const adFieldAlreadyExists = 26
Const adFieldPendingInsert = &H10000
Const adFieldPendingDelete = &H20000
Const adFieldPendingChange = &H40000
Const adFieldPendingUnknown = &H80000
Const adFieldPendingUnknownDelete = &H100000

'---- SeekEnum Values ----
Const adSeekFirstEQ = &H1
Const adSeekLastEQ = &H2
Const adSeekAfterEQ = &H4
Const adSeekAfter = &H8
Const adSeekBeforeEQ = &H10
Const adSeekBefore = &H20

'---- ADCPROP_UPDATECRITERIA_ENUM Values ----
Const adCriteriaKey = 0
Const adCriteriaAllCols = 1
Const adCriteriaUpdCols = 2
Const adCriteriaTimeStamp = 3

'---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ----
Const adPriorityLowest = 1
Const adPriorityBelowNormal = 2
Const adPriorityNormal = 3
Const adPriorityAboveNormal = 4
Const adPriorityHighest = 5

'---- ADCPROP_AUTORECALC_ENUM Values ----
Const adRecalcUpFront = 0
Const adRecalcAlways = 1

'---- ADCPROP_UPDATERESYNC_ENUM Values ----

'---- ADCPROP_UPDATERESYNC_ENUM Values ----

'---- MoveRecordOptionsEnum Values ----
Const adMoveUnspecified = -1
Const adMoveOverWrite = 1
Const adMoveDontUpdateLinks = 2
Const adMoveAllowEmulation = 4

'---- CopyRecordOptionsEnum Values ----
Const adCopyUnspecified = -1
Const adCopyOverWrite = 1
Const adCopyAllowEmulation = 4
Const adCopyNonRecursive = 2

'---- StreamTypeEnum Values ----
Const adTypeBinary = 1
Const adTypeText = 2

'---- LineSeparatorEnum Values ----
Const adLF = 10
Const adCR = 13
Const adCRLF = -1

'---- StreamOpenOptionsEnum Values ----
Const adOpenStreamUnspecified = -1
Const adOpenStreamAsync = 1
Const adOpenStreamFromRecord = 4

'---- StreamWriteEnum Values ----
Const adWriteChar = 0
Const adWriteLine = 1

'---- SaveOptionsEnum Values ----
Const adSaveCreateNotExist = 1
Const adSaveCreateOverWrite = 2

'---- FieldEnum Values ----
Const adDefaultStream = -1
Const adRecordURL = -2

'---- StreamReadEnum Values ----
Const adReadAll = -1
Const adReadLine = -2

'---- RecordTypeEnum Values ----
Const adSimpleRecord = 0
Const adCollectionRecord = 1
Const adStructDoc = 2
'==========================================
'结束

'Public pubConn As New ADODB.Connection
'Public rsPub As New ADODB.Recordset
Public pubConn  As Object
Public rsPub As Object
Public rsPub1 As Object

Private strConn As String
Private bPssData(1 To 2) As Byte

Public Enum State
    DbOpen = 1
    DbClose = 2 '-91
    NoTable = 3 '-2147217865
    ErrSyntax = 4 '-2147217900
    ErrDbFile = 5
    Other = 6
End Enum

Private mvardbUser As String
Private mvardbPass As String
Private mvardbName As String
Private mvardbFile As String
Private mvardbServer As String
Private mvarisSql As Boolean
Private mvarisEncry As Boolean
Private mvarMyState As State


Public Property Let MyState(ByVal vData As State)
    mvarMyState = vData
End Property

Public Property Get MyState() As State
    MyState = mvarMyState
End Property


Public Property Let isEncry(ByVal vData As Boolean)
    mvarisEncry = vData
End Property

Public Property Get isEncry() As Boolean
    isEncry = mvarisEncry
End Property


Public Property Let isSql(ByVal vData As Boolean)
    mvarisSql = vData
End Property

Public Property Get isSql() As Boolean
    isSql = mvarisSql
End Property

Public Property Let dbServer(ByVal vData As String)
    mvardbServer = vData
End Property


Public Property Get dbServer() As String
    dbServer = mvardbServer
End Property

Public Property Let dbFile(ByVal vData As String)
    mvardbFile = vData
End Property


Public Property Get dbFile() As String
    dbFile = mvardbFile
End Property

Public Property Let dbName(ByVal vData As String)
    mvardbName = vData
End Property


Public Property Get dbName() As String
    dbName = mvardbName
End Property

Public Property Let dbPass(ByVal vData As String)
    mvardbPass = vData
End Property


Public Property Get dbPass() As String
    dbPass = mvardbPass
End Property

Public Property Let dbUser(ByVal vData As String)
    mvardbUser = vData
End Property


Public Property Get dbUser() As String
    dbUser = mvardbUser
End Property

Private Sub Class_Initialize()
    isSql = False
    isEncry = False
    dbUser = "sa"
    dbPass = ""
    dbName = "Test"
    dbServer = "127.0.0.1"
    dbFile = ""
End Sub


Private Sub Class_Terminate()
    Set pubConn = Nothing
    Set rsPub = Nothing
End Sub


Function MyPath() As String
    If Right(App.path, 1) <> "\" Then
        MyPath = App.path & "\"
    Else
        MyPath = App.path
    End If
End Function

Function CreateDatabase(sDatabaseName As String) As Boolean
    Dim sGet As String
    Dim sOldDbName As String
    
    If pubConn.State <> adStateClosed Then pubConn.Close
    sOldDbName = dbName
    dbName = "master"
    
    sGet = exeData("Create Database " & sDatabaseName)
    If sGet = "ok" Then
        CreateDatabase = True
    Else
        CreateDatabase = False
    End If
    
    dbName = sOldDbName
End Function

Sub initObject()
    Set pubConn = CreateObject("ADODB.Connection")
    Set rsPub = CreateObject("ADODB.Recordset")
    Set rsPub1 = CreateObject("ADODB.Recordset")
End Sub

Sub openConn()
    On Error GoTo err
    
    If isSql Then
        strConn = "Provider=sqloledb;user id=" & dbUser & ";password=" & dbPass & ";initial catalog=" & dbName & ";data source=" & dbServer & ";"
    Else
        strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbFile & ";Persist Security Info=False" '& "Jet OLEDB