Attribute VB_Name = "T_Public"
'ODBC 數據連接全局變量(聯機)
'----------------------------------------------------------------------------------------------------
'Public mConn As New ADODB.Connection                    'ODBC環境變量
Public Cmd As New ADODB.Command                        'ODBC環境變量
Public Rs, myRs As New ADODB.Recordset                 'ODBC環境變量

'ODBC 數據連接全局變量(脫機)
'------------------------------------
'Public TConn As New ADODB.Connection
Public CmdDB As New ADODB.Command
Public RsRec As New ADODB.Recordset


'----------------------------------------------------------------------------------------------------
'登錄附加信息全局變量
'----------------------------------------------------------------------------------------------------'
Public TOperatorName As String        '操作員姓名
Public TOperatorCards As String       '操作員卡號
Public TCompanyName As String         '公司名稱
Public LenResume As Integer           '卡號的長度
Public TCardsClass As Integer         '計算卡號的類型 (1-9999)為1類、
Public WorkDate As Date               '上班時間
Public CarColor(6)  As Long           '車顏色
Public CarK(6) As String             '車況
Public PreControl As Integer          '車況、車顏色的機號
Public FlyViDeo As Integer             '新老捕捉卡 0'新1'老
'----------------------------------------------------------------------------------------------------
Public LoginComputerName As String    '計算機名
Public TCardsYes As Integer           '已經掛失
Public FilePath As String             '文件存盤路徑
Public TComputerControl(500) As Integer '所有計算機的機號
Public TAllControlRecord As Integer   '所有成在的機號個數(包括所有計算機的機號)
Public TTempCome As Integer           '臨時卡入口
Public TPost(6) As Integer            '一口、二口、三口、四口
Public TCheckGob As Integer           '檢測口
Public TIsave As Integer              '圖像存盤
Public TNoImage As Integer            '有無圖像
Public Tpcom As Integer               '串口
Public TiSum As Integer               '總車位數
Public TpComeGo(6) As Integer         '出入
Public TcControl(6) As Integer        '機號
Public TpOpenGate(6) As Integer       '開閘
Public TCatch(6) As Integer           '捕捉卡設置
Public TcComeGoName(6) As String      '出入場名
Public TcControlKz(6) As Integer      '開閘機號
Public TPass As String                '系統管理員密碼
Public TcWorkCard As String           '操作員卡號
Public TRecord As Integer             '機口個數
Public TComeGoFlag As Boolean         '為True時調出入管理，為False時不調用
Public TSystemDelete As Boolean       '為True時調系統設置，為False時調用初始化
Public TWatch As Integer              '監控口
Public TBillPrint As Integer          '票據打印
Public TFulls As Integer              '滿位燈箱,
Public TFullsJh As Integer            '滿位機號
Public TCarPlace As Integer           '車位顯示
Public TDisScreen As Integer          '顧客顯示
Public TScreenComm As Integer         '顧客顯示COM口
Public TTempGo As Integer             '臨時卡出口
Public TInComeGoFlag As Integer       '出入口在出入管理內存在的標致(只有出口，只有入口，兩者都有)
Public TCheckControlOC As Boolean     '檢測機號是否聯通
Public TAddDate As Integer            '加載時間（是否）
Public TCriterionControl(128) As Integer '脫機運行機號
Public TCriterionComeGo(128) As Integer  '脫機運行機號出入口
Public TCriterionOpen As Boolean         '是否運行脫機機號
Public TCCRecord As Integer           '脫機運行機號個數
Public TFree As String                '有無免費車
Public TDCRC As Integer               '可多次入場
Public BigSmall(6) As Integer         '大小停車場
Public TPigDate As Date               '歸檔日期
Public TTempFree As Integer           '臨免車
Public TCertificate As Integer        '證件抓拍
Public TCertificateGob As Integer     '抓拍口
Public Txsd As Integer                '金額小數點
Public UnloadTimer As Integer
Public TAutoData As Integer           '自動上傳數據
Public TsyFlag As Boolean             '車場狀況
Public TCarSwaraj As Integer           '車位獨立

Public TImageData As Integer           '視頻個數
Public TWatchTwo As Integer            '視頻卡2的監控口

Public TTempMoneyA As Integer         '24小時最高收費
Public TTempMoneyB As Integer         '24小時最高收費
Public TTempMoneyC As Integer         '24小時最高收費

Public TTempThereA As Integer         '3小時收費
Public TTempThereB As Integer         '3小時收費
Public TTempThereC As Integer         '3小時收費

Public TTempHourA As Integer         '3小時

Public TFreeMinute As Integer         '免費分鐘

Public TMoneyISO As Integer

Public PCarNo(50) As String
Public PComeDate(50) As String
Public PGoDate(50) As String
Public PMoney(50) As String
Public PInt As Integer



''-------------------------------------------------------------------------------------------------------
''-                                    打開數據庫連接                                                   -
''-------------------------------------------------------------------------------------------------------
'Public Sub OpenServer()
''連接數據庫,初始化違章地點,違章性質數據
'On Error GoTo JoinError         '連接錯誤處理
'  '  Conn.Open "DSN=" & UserDSN & ";UID=" & UserId & ";" & "PWD=;DATABASE=" & DBN
'    Conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=jsoct;Data Source=jsnt"
'Exit Sub
'JoinError:
'    Debug.Print Err.Number
'    Debug.Print Err.Description
'    Debug.Print Err.Source
'    If Err.Number <> 0 Then
'        MsgBox Str(Err.Number) + Err.Description + Err.Source + "連接錯誤!", vbOKOnly + 16, "錯誤"
'        Screen.MousePointer = vbDefault
'        End  '退出所有程序
'    End If
'End Sub
'
''-------------------------------------------------------------------------------------------------------
''-                                    關閉數據庫連接                                                   -
''-------------------------------------------------------------------------------------------------------
'
'Public Sub CloseServer()
'    Conn.Close                        '斷開數據庫連接
'End Sub
'
'