module1.bas

广州收费标准自动化测试程序

Attribute VB_Name = "Module1"
Public Indate As Date                  '入场时间
Public OldIndate As Date                  '原始入场时间
Public Outdate As Date                 '出场时间
Public OldOutdate As Date                 '原始出场时间
Public StopTimeDay As Integer          '停留天
Public StopTime As Long                '除了整天剩余的秒
Public TemLong As Long
Public FreeTime As Integer             ' 免费分钟
Public Charge As Single                '收费金额
Public Max As Single                   '没12小时最大收费
Public HourMax As Single
Public CarType As Integer              '1小车，2大车，3摩托三轮车，4残疾人车


Public Cmd As New ADODB.Command

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public sSql As String
Public Sub Main()
Cn.ConnectionString = "Driver={sql server};server=192.168.1.11;uid=sa;pwd=;database=SIYKTgzsf" '"Driver={sql server};server=softtest;uid=sa;pwd=;database=siykto"
'Cn.ConnectionString = "Driver={sql server};server=.;uid=sa;pwd=;database=snh" '"Driver={sql server};server=softtest;uid=sa;pwd=;database=siykto"
Cn.CommandTimeout = 10
Cn.CursorLocation = adUseClient
If Cn.State <> 1 Then
      Cn.Open
End If
Form1.Show
End Sub