t_public.bas

停车场源代码。集成了很多功能

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
'
'