📄 frmgarmin.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{92EDD531-0A9D-46A4-AFE0-A95FB2FE9F83}#8.0#0"; "NumericOcx.ocx"
Begin VB.Form frmGarmin
Caption = "巡检数据处理(Garmin数据文件)"
ClientHeight = 9600
ClientLeft = 60
ClientTop = 450
ClientWidth = 13695
Icon = "frmGarmin.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 9600
ScaleWidth = 13695
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command7
Caption = "生成报告(&P)"
Height = 405
Left = 6570
TabIndex = 25
Top = 6300
Width = 1215
End
Begin VB.Frame Frame3
Caption = "设备样式"
ForeColor = &H00FF0000&
Height = 1605
Left = 6570
TabIndex = 21
Top = 4080
Width = 1245
Begin VB.OptionButton Option1
Caption = "面设备"
Height = 285
Index = 2
Left = 180
TabIndex = 24
Top = 1170
Width = 945
End
Begin VB.OptionButton Option1
Caption = "线设备"
Height = 285
Index = 1
Left = 180
TabIndex = 23
Top = 750
Width = 945
End
Begin VB.OptionButton Option1
Caption = "点设备"
Height = 285
Index = 0
Left = 180
TabIndex = 22
Top = 330
Value = -1 'True
Width = 945
End
End
Begin NumericOcx.NumericText NumericText1
Height = 315
Left = 12210
TabIndex = 20
Top = 1110
Width = 945
_ExtentX = 1667
_ExtentY = 556
End
Begin VB.ComboBox Combo2
Height = 300
Left = 9210
Style = 2 'Dropdown List
TabIndex = 17
Top = 1110
Width = 2085
End
Begin VB.Frame Frame2
Caption = "[分析结果评价]"
ForeColor = &H00FF0000&
Height = 7665
Left = 7920
TabIndex = 14
Top = 1620
Width = 5745
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Height = 525
Left = 90
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 16
Top = 270
Width = 5595
End
Begin MSComctlLib.ListView ListView2
Height = 6735
Left = 60
TabIndex = 15
Top = 840
Width = 5625
_ExtentX = 9922
_ExtentY = 11880
View = 3
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
End
Begin VB.CommandButton Command5
Caption = "巡检分析(&T)"
Height = 405
Left = 6570
TabIndex = 13
Top = 5790
Width = 1215
End
Begin MSComctlLib.ListView ListView1
Height = 6765
Left = 30
TabIndex = 12
Top = 2460
Width = 6435
_ExtentX = 11351
_ExtentY = 11933
View = 3
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 315
Left = 0
TabIndex = 11
Top = 9285
Width = 13695
_ExtentX = 24156
_ExtentY = 556
Style = 1
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 1
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
EndProperty
End
Begin VB.CommandButton Command2
Caption = "处理(&D)"
Height = 405
Left = 6570
TabIndex = 10
Top = 2550
Width = 1215
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1290
Style = 2 'Dropdown List
TabIndex = 8
Top = 1140
Width = 2115
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 6510
Top = 30
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command4
Caption = "退出(&E)"
Height = 405
Left = 6570
TabIndex = 5
Top = 8700
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "显示轨迹(&S)"
Height = 405
Left = 6570
TabIndex = 4
Top = 3030
Width = 1215
End
Begin VB.Frame Frame1
Caption = "源数据[Garmin数据文件]"
Height = 825
Left = 30
TabIndex = 2
Top = 1620
Width = 7845
Begin VB.TextBox Text1
BackColor = &H8000000F&
Height = 315
Left = 150
Locked = -1 'True
TabIndex = 6
Top = 300
Width = 6285
End
Begin VB.CommandButton Command1
Caption = "打开文件(&O)"
Height = 375
Left = 6540
TabIndex = 3
Top = 270
Width = 1215
End
End
Begin VB.PictureBox Picture1
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 1035
Left = -30
ScaleHeight = 1035
ScaleWidth = 13725
TabIndex = 0
Top = -30
Width = 13725
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "对GPS设备所巡检的目标路线进行数据处理，并且处理结果写入信息库。"
Height = 180
Left = 930
TabIndex = 9
Top = 720
Width = 5670
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "巡检数据处理(Garmin数据文件)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 150
TabIndex = 1
Top = 180
Width = 5310
End
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "缓冲半径: (米)"
Height = 180
Left = 11370
TabIndex = 19
Top = 1170
Width = 2160
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "2.巡检设备层:"
Height = 180
Left = 8010
TabIndex = 18
Top = 1170
Width = 1170
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "1.GPS终端号:"
Height = 180
Left = 180
TabIndex = 7
Top = 1200
Width = 1080
End
End
Attribute VB_Name = "frmGarmin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mX() As Single, mY() As Single
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim lstItem As MSComctlLib.ListItem
Dim bShowTrackLine As Boolean
''################刘登杰
Dim bchuli As Boolean ''是否处理文件
''################刘登杰
Private Sub Combo1_Click()
'选择GpsID
Dim sGpsID As String, sTableName As String
sGpsID = Me.Combo1.Text
sTableName = Me.Combo2.Text
If sGpsID = "" Then Exit Sub
If sTableName = "" Then Exit Sub
'根据GpsID和设备层加载绑定的巡检设备号
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -