record.cls

来自「gps 源码 vb+access 其他地方很难找到 很详细的说明」· CLS 代码 · 共 29 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CRecord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public nID As Integer
Public dTime As Date
Public bAlert As Boolean
Public fLongitude As Double
Public fLatitude As Double
Public fSpeed As Double
Public fDirection As Double

Public Sub CopyRecord(ByVal oRecord As CRecord)
    With oRecord
        nID = .nID
        fLongitude = .fLongitude
        fLatitude = .fLatitude
        bAlert = .bAlert
        dTime = .dTime
        fSpeed = .fSpeed
        fDirection = .fDirection
    End With
End Sub