📄 frmshowtrack.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmShowTrack
Caption = "轨迹回放"
ClientHeight = 3150
ClientLeft = 60
ClientTop = 450
ClientWidth = 4515
Icon = "frmShowTrack.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 3150
ScaleWidth = 4515
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton Command4
Caption = "清除轨迹"
Height = 375
Left = 2250
TabIndex = 16
Top = 2670
Width = 1065
End
Begin VB.CommandButton Command1
Caption = "回放(&S)"
Height = 375
Left = 90
TabIndex = 15
Top = 2670
Width = 1065
End
Begin VB.CommandButton Command3
Caption = "退出(&E)"
Height = 375
Left = 3330
TabIndex = 14
Top = 2670
Width = 1065
End
Begin VB.CommandButton Command2
Caption = "暂停"
Height = 375
Left = 1170
TabIndex = 13
Top = 2670
Width = 1065
End
Begin VB.Frame Frame1
Height = 2565
Left = 90
TabIndex = 0
Top = 0
Width = 4365
Begin VB.Timer Timer1
Left = 3240
Top = 120
End
Begin MSComctlLib.Slider Slider1
Height = 495
Left = 60
TabIndex = 6
Top = 1620
Width = 4245
_ExtentX = 7488
_ExtentY = 873
_Version = 393216
Max = 50
SelStart = 25
Value = 25
TextPosition = 1
End
Begin VB.Frame Frame2
Caption = "时间限定"
ForeColor = &H00FF0000&
Height = 1035
Left = 180
TabIndex = 3
Top = 540
Width = 4005
Begin MSComCtl2.DTPicker DTPicker1
Height = 315
Index = 0
Left = 960
TabIndex = 7
Top = 210
Width = 1545
_ExtentX = 2725
_ExtentY = 556
_Version = 393216
Format = 21823489
UpDown = -1 'True
CurrentDate = 38443
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 315
Index = 0
Left = 960
TabIndex = 8
Top = 570
Width = 1545
_ExtentX = 2725
_ExtentY = 556
_Version = 393216
Format = 21823489
UpDown = -1 'True
CurrentDate = 38443
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 315
Index = 1
Left = 2550
TabIndex = 11
Top = 210
Width = 1335
_ExtentX = 2355
_ExtentY = 556
_Version = 393216
Format = 21823490
CurrentDate = .333333333333333
End
Begin MSComCtl2.DTPicker DTPicker2
Height = 315
Index = 1
Left = 2550
TabIndex = 12
Top = 570
Width = 1335
_ExtentX = 2355
_ExtentY = 556
_Version = 393216
Format = 21823490
CurrentDate = .833333333333333
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "结束时间:"
Height = 180
Index = 1
Left = 120
TabIndex = 5
Top = 630
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "开始时间:"
Height = 180
Index = 0
Left = 120
TabIndex = 4
Top = 270
Width = 810
End
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1140
Style = 2 'Dropdown List
TabIndex = 2
Top = 150
Width = 2025
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "快"
Height = 180
Left = 4020
TabIndex = 10
Top = 2190
Width = 180
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "慢"
Height = 180
Left = 180
TabIndex = 9
Top = 2190
Width = 180
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "GPS终端号:"
Height = 180
Left = 210
TabIndex = 1
Top = 210
Width = 900
End
End
End
Attribute VB_Name = "frmShowTrack"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim rs As ADODB.Recordset
Dim m_TrackCount As Long
Dim I As Long
Dim sGpsID As String
'记录前一点的信息
Dim m_preLong As Single, m_preLat As Single
Dim bDeleteTrackLine As Boolean '清除轨迹线标志
Private Sub Combo1_Click()
Me.Command1.Enabled = True
Me.Command2.Enabled = True
End Sub
Private Sub Command1_Click()
''''''''''''''''刘登杰
On Error Resume Next
Kill (App.Path + "\Track.tmp")
'''''''''''''''''''''刘登杰
'回放
Dim mDate1 As String, mTime1 As String
Dim mDate2 As String, mTime2 As String
Dim sStartTime As String, dDT1 As Double
Dim sEndTime As String, dDT2 As Double
Dim strSql As String
Dim lngPtCount As Long
m_preLong = 0
m_preLat = 0
I = 0
Me.Slider1.Enabled = False
sGpsID = Me.Combo1.Text
dDT1 = Val(CStr(Format(Me.DTPicker1(0).Value, "YYYYMMDD") & Format(Me.DTPicker1(1).Value, "HHMMSS")))
dDT2 = Val(CStr(Format(Me.DTPicker2(0).Value, "YYYYMMDD") & Format(Me.DTPicker2(1).Value, "HHMMSS")))
If dDT1 > dDT2 Then
MsgBox "日期和时间设置有误！", vbInformation, "提示"
Exit Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -