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