📄 frmgps_jc.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 frmGps_JC
Caption = "巡检数据处理(GPS监测数据文件)"
ClientHeight = 9600
ClientLeft = 60
ClientTop = 450
ClientWidth = 13695
Icon = "frmGps_JC.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 = "源数据[GPS监测数据文件]"
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 = "巡检数据处理(GPS监测数据文件)"
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 = 5475
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 = "frmGps_JC"
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
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和设备层加载绑定的巡检设备号
Load_EquipmentByGpsID ByVal sGpsID, ByVal sTableName
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -