clssyspara.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 = "clsSysPara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'*********************
'环保局可更改参数
'*********************
Option Explicit
Dim n操作员密码和设备密码输入的极限次数 As Integer
Dim n不向VID传送数据的次数 As Single
Dim n允许测试最大次数 As Single

Dim n底盘测功机加载滑行有效期限 As Single
Dim n底盘测功机转速传感器标定有效期限 As Single
Dim n扭力传感器标定有效期限 As Single
Dim n五气体分析仪标定有效期限 As Single
Dim n五气体分析仪检查有效期限 As Single
Dim n流量计标定有效期限 As Single
Dim n流量计检查有效期限 As Single
Dim n流量计准确度检查有效期限 As Single
Dim n气象站标定有效期限 As Single
Dim n底盘测功机加载滑行允许次数 As Single
Dim n底盘测功机转速传感器测试允许次数 As Single
Dim n工况电惯量模拟允许偏差 As Single
Dim n工况加载功率允许偏差kW As Single
Dim n检测设备锁止指令 As String
Dim n检测设备解锁指令 As String
Dim n稀释氧传感器标定有效期限 As Single
Dim n稀释尾气压力传感器标定有效期限 As Single
Dim n稀释尾气温度传感器标定有效期限 As Single
Dim n自动档允许速度累计超差最大次数 As Single
Dim n手动档允许速度累计超差最大次数 As Single
Dim n允许速度连续超差最大次数 As Single

Dim n上车前环境气HC限值 As Single
Dim n上车前环境气NOx限值 As Single
Dim n上车前环境气CO限值 As Single




'环保局可更改参数
Public Sub 刷新可更改参数表数据()
    Dim strSql As String
    Dim rs As ADODB.Recordset
    strSql = "select * from 可更改参数表  "
    Set rs = Database.取数据(strSql)
    If rs.EOF = False Then
        rs.MoveFirst
        Do While (rs.EOF = False)
            Select Case getFieldValue(rs!可更改参数)
            Case "操作员密码和设备密码输入的极限次数"
                n操作员密码和设备密码输入的极限次数 = getFieldValue(rs!可更改参数值)
            Case "不向VID传送数据的次数"
                n不向VID传送数据的次数 = getFieldValue(rs!可更改参数值)
            Case "上车前环境气HC限值"
                n上车前环境气HC限值 = getFieldValue(rs!可更改参数值)
            Case "上车前环境气NOx限值"
                n上车前环境气NOx限值 = getFieldValue(rs!可更改参数值)
            Case "上车前环境气CO限值"
                n上车前环境气CO限值 = getFieldValue(rs!可更改参数值)
            
            
            
            End Select
            rs.MoveNext
        Loop
    End If
End Sub

Public Property Get 操作员密码和设备密码输入的极限次数() As Integer
    操作员密码和设备密码输入的极限次数 = n操作员密码和设备密码输入的极限次数
End Property

Public Property Get 不向VID传送数据的次数() As Single
    不向VID传送数据的次数 = n不向VID传送数据的次数
End Property

Public Property Let 允许测试最大次数(np允许测试最大次数 As Single)
    n允许测试最大次数 = np允许测试最大次数
End Property

Public Property Get 允许测试最大次数() As Single
    允许测试最大次数 = n允许测试最大次数
End Property



Public Property Get 上车前环境气HC限值() As Single
    上车前环境气HC限值 = n上车前环境气HC限值
End Property


Public Property Get 上车前环境气NOx限值() As Single
    上车前环境气NOx限值 = n上车前环境气NOx限值
End Property



Public Property Get 上车前环境气CO限值() As Single
    上车前环境气CO限值 = n上车前环境气CO限值
End Property