clstestdevice.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 = "clsTestDevice"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'*************************
'检测设备信息
'*************************

Option Explicit
Dim str检测线编号 As String
Dim str设备认证编码 As String       '设备认证编码
Dim str设备名称 As String           '设备名称
Dim str设备型号 As String           '设备型号
Dim str底盘测功机 As String         '底盘测功机
Dim str排气分析仪 As String         '排气分析仪
Dim str设备供应商 As String         '整个设备制造厂,供应商

Dim str车牌号首字 As String         '车牌号首字
Dim n打印份数 As Integer            '打印份数
Dim n台架基准质量 As Single         '台架基准质量
Dim n台架允许最大总质量 As Single   '台架允许最大总质量

Public Sub 刷新检测设备数据()
    Dim rs As ADODB.Recordset
    Set rs = Database.取数据("select top  1 *  from EIS")
    If rs.EOF = False Then
        rs.MoveFirst
        str检测线编号 = rs!EIS_ID
        str设备认证编码 = getFieldValue(rs!SN)
        str设备名称 = getFieldValue(rs!设备名称)
        str设备型号 = getFieldValue(rs!EIS_MODEL)
        str底盘测功机 = getFieldValue(rs!CGJ_MODEL)
        str排气分析仪 = getFieldValue(rs!FXY_MODEL)
        Analyzer.排气分析仪 = str排气分析仪
        str设备供应商 = getFieldValue(rs!EIS_MANUFACTURE)

        n台架允许最大总质量 = getFieldValue(rs!MAX_MASS_ALLOWED)
        n台架基准质量 = getFieldValue(rs!TESTI)
        n打印份数 = getFieldValue(rs!PrintCopies)
        str车牌号首字 = getFieldValue(rs!车牌号首字)
        
        If getFieldValue(rs!VersionNumber) <> "" Then
            SystemData.SetUseLimitStandType (getFieldValue(rs!VersionNumber))
        Else
            SystemData.SetUseLimitStandType (0)
        End If

        If getFieldValue(rs!VersionNumber) <> "" Then
            '0或Null:国家标准;1:上海标准
            SystemData.SetUseLimitStandType (rs!VersionNumber)
        Else
            '0或Null:国家标准
            SystemData.SetUseLimitStandType (0)
        End If
        
        If Trim(getFieldValue(rs!RunMode)) <> "" Then
            SystemData.setRunMode (rs!RunMode)
        Else
            SystemData.setRunMode (0)
        End If
'        hyAdoio.Online = rs!CGJ_Online
'        Analyzer.Online = rs!FXY_Online
    End If
    rs.Close
    Set rs = Nothing
End Sub

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

Public Property Get 设备认证编码() As String
    设备认证编码 = str设备认证编码
End Property

Public Property Get 设备名称() As String
    设备名称 = str设备名称
End Property

Public Property Get 设备型号() As String
    设备型号 = str设备型号
End Property

Public Property Get 底盘测功机() As String
    底盘测功机 = str底盘测功机
End Property

Public Property Get 排气分析仪() As String
    排气分析仪 = str排气分析仪
End Property

Public Property Get 设备供应商() As String
    设备供应商 = str设备供应商
End Property

Public Property Get 车牌号首字() As String
    车牌号首字 = str车牌号首字
End Property

Public Property Get 打印份数() As String
    打印份数 = n打印份数
End Property

Public Property Get 台架基准质量() As String
    台架基准质量 = n台架基准质量
End Property

Public Property Get 台架允许最大总质量() As String
    台架允许最大总质量 = n台架允许最大总质量
End Property