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:培訓(xùn),2:考試
Dim nRunMode As Integer
'0:為國家標(biāo)準(zhǔn);1:為上海標(biāo)準(zhǔn)
Dim nUseLimitStandType As Integer
Private bIsDeviceTestType As Boolean
Dim nShowUserPasswordType As Integer
Dim b標(biāo)定扭矩 As Boolean
Dim b標(biāo)定速度 As Boolean
Dim b設(shè)置鎖止 As Boolean
Dim b上車檢測登錄 As Boolean
Dim e當(dāng)前用戶類型  As vb用戶類型
Dim b泄漏檢查 As Boolean
Dim e電子環(huán)境測試儀失敗類型 As vb電子環(huán)境測試儀失敗類型
Dim b需要重新開始測試 As Boolean
Dim b放棄測試 As Boolean
Dim e用戶類型 As vb用戶類型
Dim b是否轉(zhuǎn)速已經(jīng)標(biāo)定完成 As Boolean
Dim b返回修改車輛數(shù)據(jù) As Boolean
Dim n使用系統(tǒng)次數(shù) As Single
Dim n檢測線鎖止類型 As Integer
Dim str當(dāng)前雙燃料檢測類型 As String
Dim str內(nèi)部唯一性檢測序列號 As String
Dim str檢測員編號 As String
Dim str試驗(yàn)累積號 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 標(biāo)定扭矩設(shè)置(bp標(biāo)定扭矩 As Boolean)
    b標(biāo)定扭矩 = bp標(biāo)定扭矩
End Sub

Public Property Get 標(biāo)定扭矩() As Boolean
    標(biāo)定扭矩 = b標(biāo)定扭矩
End Property

Public Sub 標(biāo)定速度設(shè)置(bp標(biāo)定速度 As Boolean)
    b標(biāo)定速度 = bp標(biāo)定速度
End Sub

Public Property Get 標(biāo)定速度() As Boolean
    標(biāo)定速度 = b標(biāo)定速度
End Property

Public Sub 設(shè)置上車檢測登錄(bp上車檢測登錄 As Boolean)
    b上車檢測登錄 = bp上車檢測登錄
End Sub

Public Function 是否上車檢測登錄() As Boolean
    是否上車檢測登錄 = b上車檢測登錄
End Function

Public Sub 設(shè)置鎖止(bp設(shè)置鎖止 As Boolean)
    b設(shè)置鎖止 = bp設(shè)置鎖止
End Sub

Public Function 是否鎖止() As Boolean
    是否鎖止 = b設(shè)置鎖止
End Function

Public Sub 設(shè)置當(dāng)前用戶類型(ep當(dāng)前用戶類型 As vb用戶類型)
    e當(dāng)前用戶類型 = ep當(dāng)前用戶類型
End Sub

Public Function 獲取當(dāng)前用戶類型() As vb用戶類型
    獲取當(dāng)前用戶類型 = e當(dāng)前用戶類型
End Function

Public Sub 設(shè)置電子環(huán)境測試儀當(dāng)前自檢失敗類型(ep當(dāng)前自檢失敗類型 As vb電子環(huán)境測試儀失敗類型)
    e電子環(huán)境測試儀失敗類型 = ep當(dāng)前自檢失敗類型
End Sub

Public Function 獲取電子環(huán)境測試儀當(dāng)前自檢失敗類型() As vb電子環(huán)境測試儀失敗類型
    獲取電子環(huán)境測試儀當(dāng)前自檢失敗類型 = e電子環(huán)境測試儀失敗類型
End Function

Public Sub 設(shè)置泄漏檢查(bp泄漏檢查 As Boolean)
    b泄漏檢查 = bp泄漏檢查
End Sub

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

Public Sub 設(shè)置需要重新開始測試(bp需要重新開始測試 As Boolean)
    b需要重新開始測試 = bp需要重新開始測試
End Sub

Public Function 是否需要重新開始測試() As Boolean
    是否需要重新開始測試 = b需要重新開始測試
End Function

Public Sub 設(shè)置放棄測試(bp放棄測試 As Boolean)
    b放棄測試 = bp放棄測試
End Sub

Public Function 是否放棄測試() As Boolean
    是否放棄測試 = b放棄測試
End Function

Public Sub 設(shè)置系統(tǒng)進(jìn)入用戶類型(ep用戶類型 As vb用戶類型)
    e用戶類型 = ep用戶類型
End Sub

Public Function 獲取系統(tǒng)進(jìn)入用戶類型() As vb用戶類型
    獲取系統(tǒng)進(jìn)入用戶類型 = e用戶類型
End Function

Public Sub 設(shè)置是否轉(zhuǎn)速已經(jīng)標(biāo)定完成(bp是否轉(zhuǎn)速已經(jīng)標(biāo)定完成 As Boolean)
    b是否轉(zhuǎn)速已經(jīng)標(biāo)定完成 = bp是否轉(zhuǎn)速已經(jīng)標(biāo)定完成
End Sub

Public Function 獲取是否轉(zhuǎn)速已經(jīng)標(biāo)定完成() As Boolean
    獲取是否轉(zhuǎn)速已經(jīng)標(biāo)定完成 = b是否轉(zhuǎn)速已經(jīng)標(biāo)定完成
End Function

Public Sub 設(shè)置返回修改車輛數(shù)據(jù)(bp返回修改車輛數(shù)據(jù) As Boolean)
    b返回修改車輛數(shù)據(jù) = bp返回修改車輛數(shù)據(jù)
End Sub

Public Function 獲取是否返回修改車輛數(shù)據(jù)() As Boolean
    獲取是否返回修改車輛數(shù)據(jù) = b返回修改車輛數(shù)據(jù)
End Function

Public Sub 使用系統(tǒng)次數(shù)設(shè)置(np使用系統(tǒng)次數(shù) As Single)
    n使用系統(tǒng)次數(shù) = np使用系統(tǒng)次數(shù)
End Sub

Public Property Get 使用系統(tǒng)次數(shù)() As Single
    使用系統(tǒng)次數(shù) = n使用系統(tǒng)次數(shù)
End Property

Public Sub 檢測線鎖止類型設(shè)置(np檢測線鎖止類型 As Single)
    n檢測線鎖止類型 = np檢測線鎖止類型
End Sub

Public Property Get 檢測線鎖止類型() As Single
    檢測線鎖止類型 = n檢測線鎖止類型
End Property

Public Sub 當(dāng)前雙燃料檢測類型設(shè)置(pstr當(dāng)前雙燃料檢測類型 As String)
    str當(dāng)前雙燃料檢測類型 = pstr當(dāng)前雙燃料檢測類型
End Sub

Public Property Get 當(dāng)前雙燃料檢測類型() As String
    當(dāng)前雙燃料檢測類型 = str當(dāng)前雙燃料檢測類型
End Property

Public Sub 內(nèi)部唯一性檢測序列號設(shè)置(pstr內(nèi)部唯一性檢測序列號 As String)
    str內(nèi)部唯一性檢測序列號 = pstr內(nèi)部唯一性檢測序列號
End Sub

Public Property Get 內(nèi)部唯一性檢測序列號() As String
    內(nèi)部唯一性檢測序列號 = str內(nèi)部唯一性檢測序列號
End Property

Public Sub 檢測員編號設(shè)置(pstr檢測員編號 As String)
    str檢測員編號 = pstr檢測員編號
End Sub

Public Property Get 檢測員編號() As String
    檢測員編號 = str檢測員編號
End Property

Public Sub 試驗(yàn)累積號設(shè)置(pstr試驗(yàn)累積號 As String)
    str試驗(yàn)累積號 = pstr試驗(yàn)累積號
End Sub

Public Property Get 試驗(yàn)累積號() As String
    試驗(yàn)累積號 = str試驗(yàn)累積號
End Property

Public Sub 檢測順序號設(shè)置(pstr檢測順序號 As String)
    str試驗(yàn)累積號 = pstr檢測順序號
End Sub

Public Property Get 檢測順序號() As String
    檢測順序號 = str檢測順序號
End Property