clssystemdata.cls

FLA-502控制、标定、分析用

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsSystemData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Dim strGearType As String
Dim bPrintStandReport As Boolean
'0:正式检测,1:培训,2:考试
Dim nRunMode As Integer
'0:为国家标准;1:为上海标准
Dim nUseLimitStandType As Integer
Private bIsDeviceTestType As Boolean
Dim nShowUserPasswordType As Integer
Dim b标定扭矩 As Boolean
Dim b标定速度 As Boolean
Dim b设置锁止 As Boolean
Dim b上车检测登录 As Boolean
Dim e当前用户类型  As vb用户类型
Dim b泄漏检查 As Boolean
Dim e电子环境测试仪失败类型 As vb电子环境测试仪失败类型
Dim b需要重新开始测试 As Boolean
Dim b放弃测试 As Boolean
Dim e用户类型 As vb用户类型
Dim b是否转速已经标定完成 As Boolean
Dim b返回修改车辆数据 As Boolean
Dim n使用系统次数 As Single
Dim n检测线锁止类型 As Integer
Dim str当前双燃料检测类型 As String
Dim str内部唯一性检测序列号 As String
Dim str检测员编号 As String
Dim str试验累积号 As String
Dim str检测顺序号 As String

Public Sub setGearType(pStrGearType As String)
     strGearType = pStrGearType
End Sub

Public Function isAutoGearType() As Boolean
    Dim bReturn As Boolean
    If Trim(strGearType) = "手动" Then
        bReturn = False
    Else
       bReturn = True
    End If
    isAutoGearType = bReturn
End Function

Public Sub setPrintStandReport(bpPrintStandReport As Boolean)
    bPrintStandReport = bpPrintStandReport
End Sub

Public Function isPrintStandReport() As Boolean
    isPrintStandReport = bPrintStandReport
End Function

Public Sub setRunMode(npRunMode As Integer)
    nRunMode = npRunMode
End Sub

Public Function getRunMode() As Integer
    getRunMode = nRunMode
End Function

Public Sub SetUseLimitStandType(npUseLimitStandType As Integer)
     nUseLimitStandType = npUseLimitStandType
End Sub

Public Function getUseLimitStandType() As Integer
    getUseLimitStandType = nUseLimitStandType
End Function

Public Sub SetDeviceTestType(pisDeviceTestType As Boolean)
    bIsDeviceTestType = pisDeviceTestType
End Sub

Public Function isDeviceTestType() As Boolean
    isDeviceTestType = bIsDeviceTestType
End Function

Public Sub SetShowUserPasswordType(npShowUserPasswordType As Integer)
    nShowUserPasswordType = npShowUserPasswordType
End Sub

Public Function GetShowUserPasswordType() As Integer
    GetShowUserPasswordType = nShowUserPasswordType
End Function

Public Sub 标定扭矩设置(bp标定扭矩 As Boolean)
    b标定扭矩 = bp标定扭矩
End Sub

Public Property Get 标定扭矩() As Boolean
    标定扭矩 = b标定扭矩
End Property

Public Sub 标定速度设置(bp标定速度 As Boolean)
    b标定速度 = bp标定速度
End Sub

Public Property Get 标定速度() As Boolean
    标定速度 = b标定速度
End Property

Public Sub 设置上车检测登录(bp上车检测登录 As Boolean)
    b上车检测登录 = bp上车检测登录
End Sub

Public Function 是否上车检测登录() As Boolean
    是否上车检测登录 = b上车检测登录
End Function

Public Sub 设置锁止(bp设置锁止 As Boolean)
    b设置锁止 = bp设置锁止
End Sub

Public Function 是否锁止() As Boolean
    是否锁止 = b设置锁止
End Function

Public Sub 设置当前用户类型(ep当前用户类型 As vb用户类型)
    e当前用户类型 = ep当前用户类型
End Sub

Public Function 获取当前用户类型() As vb用户类型
    获取当前用户类型 = e当前用户类型
End Function

Public Sub 设置电子环境测试仪当前自检失败类型(ep当前自检失败类型 As vb电子环境测试仪失败类型)
    e电子环境测试仪失败类型 = ep当前自检失败类型
End Sub

Public Function 获取电子环境测试仪当前自检失败类型() As vb电子环境测试仪失败类型
    获取电子环境测试仪当前自检失败类型 = e电子环境测试仪失败类型
End Function

Public Sub 设置泄漏检查(bp泄漏检查 As Boolean)
    b泄漏检查 = bp泄漏检查
End Sub

Public Function 是否泄漏检查() As Boolean
    是否泄漏检查 = b泄漏检查
End Function

Public Sub 设置需要重新开始测试(bp需要重新开始测试 As Boolean)
    b需要重新开始测试 = bp需要重新开始测试
End Sub

Public Function 是否需要重新开始测试() As Boolean
    是否需要重新开始测试 = b需要重新开始测试
End Function

Public Sub 设置放弃测试(bp放弃测试 As Boolean)
    b放弃测试 = bp放弃测试
End Sub

Public Function 是否放弃测试() As Boolean
    是否放弃测试 = b放弃测试
End Function

Public Sub 设置系统进入用户类型(ep用户类型 As vb用户类型)
    e用户类型 = ep用户类型
End Sub

Public Function 获取系统进入用户类型() As vb用户类型
    获取系统进入用户类型 = e用户类型
End Function

Public Sub 设置是否转速已经标定完成(bp是否转速已经标定完成 As Boolean)
    b是否转速已经标定完成 = bp是否转速已经标定完成
End Sub

Public Function 获取是否转速已经标定完成() As Boolean
    获取是否转速已经标定完成 = b是否转速已经标定完成
End Function

Public Sub 设置返回修改车辆数据(bp返回修改车辆数据 As Boolean)
    b返回修改车辆数据 = bp返回修改车辆数据
End Sub

Public Function 获取是否返回修改车辆数据() As Boolean
    获取是否返回修改车辆数据 = b返回修改车辆数据
End Function

Public Sub 使用系统次数设置(np使用系统次数 As Single)
    n使用系统次数 = np使用系统次数
End Sub

Public Property Get 使用系统次数() As Single
    使用系统次数 = n使用系统次数
End Property

Public Sub 检测线锁止类型设置(np检测线锁止类型 As Single)
    n检测线锁止类型 = np检测线锁止类型
End Sub

Public Property Get 检测线锁止类型() As Single
    检测线锁止类型 = n检测线锁止类型
End Property

Public Sub 当前双燃料检测类型设置(pstr当前双燃料检测类型 As String)
    str当前双燃料检测类型 = pstr当前双燃料检测类型
End Sub

Public Property Get 当前双燃料检测类型() As String
    当前双燃料检测类型 = str当前双燃料检测类型
End Property

Public Sub 内部唯一性检测序列号设置(pstr内部唯一性检测序列号 As String)
    str内部唯一性检测序列号 = pstr内部唯一性检测序列号
End Sub

Public Property Get 内部唯一性检测序列号() As String
    内部唯一性检测序列号 = str内部唯一性检测序列号
End Property

Public Sub 检测员编号设置(pstr检测员编号 As String)
    str检测员编号 = pstr检测员编号
End Sub

Public Property Get 检测员编号() As String
    检测员编号 = str检测员编号
End Property

Public Sub 试验累积号设置(pstr试验累积号 As String)
    str试验累积号 = pstr试验累积号
End Sub

Public Property Get 试验累积号() As String
    试验累积号 = str试验累积号
End Property

Public Sub 检测顺序号设置(pstr检测顺序号 As String)
    str试验累积号 = pstr检测顺序号
End Sub

Public Property Get 检测顺序号() As String
    检测顺序号 = str检测顺序号
End Property