📄 mdimain.frm
字号:
EndProperty
End
Begin VB.PictureBox Picture1
Align = 1 'Align Top
Height = 1200
Left = 0
ScaleHeight = 1140
ScaleWidth = 8820
TabIndex = 0
Top = 855
Visible = 0 'False
Width = 8880
Begin MSCommLib.MSComm oComm1
Left = 3960
Top = 0
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
RThreshold = 1
RTSEnable = -1 'True
End
Begin MSWinsockLib.Winsock Winsock1
Left = 1080
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer Timer1
Interval = 3000
Left = 6960
Top = 480
End
Begin VB.Timer LTimer
Enabled = 0 'False
Interval = 3000
Left = 10440
Top = 480
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "FoxPro 3.0;"
DatabaseName = "G:\"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Enabled = 0 'False
Exclusive = 0 'False
Height = 345
Left = 3840
Options = 0
ReadOnly = 0 'False
RecordsetType = 0 'Table
RecordSource = "Map110"
Top = 720
Width = 2295
End
Begin MCI.MMControl MMControl1
Height = 330
Left = 4920
TabIndex = 5
Top = 0
Width = 3540
_ExtentX = 6244
_ExtentY = 582
_Version = 393216
DeviceType = ""
FileName = "C:\Gps\WAV\车警.WAV"
End
Begin MapEngineLib.SpaDB oSpaDB
Height = 375
Left = 0
TabIndex = 4
Top = 0
Width = 375
_Version = 65536
_ExtentX = 661
_ExtentY = 661
_StockProps = 0
End
Begin VB.Timer TimerCheckEnable
Interval = 60000
Left = 11160
Top = 600
End
Begin VB.Timer TimerRefresh
Interval = 1000
Left = 7440
Top = 480
End
Begin VB.Timer TimerCheck
Enabled = 0 'False
Interval = 10000
Left = 6480
Top = 480
End
Begin VB.Timer TimerCall
Enabled = 0 'False
Interval = 3000
Left = 9960
Top = 600
End
Begin VB.Timer TimerReplay
Enabled = 0 'False
Left = 10800
Top = 600
End
Begin MSComDlg.CommonDialog oCommonDialog
Left = 480
Top = 0
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
Filter = "轨迹文件(.trk)|*.trk"
End
Begin MSCommLib.MSComm oComm2
Left = 3000
Top = 0
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 2
DTREnable = -1 'True
RThreshold = 100
RTSEnable = -1 'True
End
Begin ComctlLib.ImageList ImgToolBar1
Left = 8640
Top = 0
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483638
ImageWidth = 16
ImageHeight = 16
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 36
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":08CA
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":09D4
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":0AE6
Key = "PollQuery"
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":0E38
Key = "Single"
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":118A
Key = "Lock"
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":14DC
Key = "Unlock"
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":182E
Key = "Onduty"
EndProperty
BeginProperty ListImage8 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":1B80
Key = "Pause"
EndProperty
BeginProperty ListImage9 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":1ED2
Key = "Stop"
EndProperty
BeginProperty ListImage10 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":2224
Key = "Replay"
EndProperty
BeginProperty ListImage11 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":2336
Key = ""
EndProperty
BeginProperty ListImage12 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":2448
Key = ""
EndProperty
BeginProperty ListImage13 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":255A
Key = ""
EndProperty
BeginProperty ListImage14 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":266C
Key = ""
EndProperty
BeginProperty ListImage15 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":277E
Key = "Zoomin"
EndProperty
BeginProperty ListImage16 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":2888
Key = "Zoomout"
EndProperty
BeginProperty ListImage17 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":2992
Key = "Pan"
EndProperty
BeginProperty ListImage18 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":2EC4
Key = "Redraw"
EndProperty
BeginProperty ListImage19 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":317E
Key = "Whole"
EndProperty
BeginProperty ListImage20 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3438
Key = ""
EndProperty
BeginProperty ListImage21 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":354A
Key = "Layer"
EndProperty
BeginProperty ListImage22 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":365C
Key = ""
EndProperty
BeginProperty ListImage23 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":376E
Key = ""
EndProperty
BeginProperty ListImage24 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3880
Key = ""
EndProperty
BeginProperty ListImage25 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3992
Key = ""
EndProperty
BeginProperty ListImage26 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3AA4
Key = ""
EndProperty
BeginProperty ListImage27 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3BB6
Key = "Query"
EndProperty
BeginProperty ListImage28 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3CC8
Key = ""
EndProperty
BeginProperty ListImage29 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3DDA
Key = ""
EndProperty
BeginProperty ListImage30 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3EEC
Key = ""
EndProperty
BeginProperty ListImage31 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":3FFE
Key = ""
EndProperty
BeginProperty ListImage32 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":4110
Key = "Exit"
EndProperty
BeginProperty ListImage33 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":4222
Key = "Alert"
EndProperty
BeginProperty ListImage34 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":4574
Key = "Normal"
EndProperty
BeginProperty ListImage35 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":48C6
Key = "Null"
EndProperty
BeginProperty ListImage36 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "MDIMain.frx":4C18
Key = "NoAnwser"
EndProperty
EndProperty
End
End
Begin VB.Menu mnuFile
Caption = "&F文件"
Begin VB.Menu mnu_file_openspadb
Caption = "打开图库"
End
Begin VB.Menu mnu_file_opencmp
Caption = "打开地图"
End
Begin VB.Menu mnu_file_s1
Caption = "-"
End
Begin VB.Menu mnu_file_quit
Caption = "退出系统"
End
End
Begin VB.Menu mnu_mode
Caption = "&M工作方式"
Begin VB.Menu DuiLie
Caption = "轮呼"
End
Begin VB.Menu mnuMode_Singlecall
Caption = "单呼"
Index = 1
End
Begin VB.Menu mnuMode_Singlecall
Caption = "单呼自动"
Index = 2
Visible = 0 'False
End
Begin VB.Menu mnuMode_Singlecall
Caption = "记录回放"
Index = 3
Visible = 0 'False
End
Begin VB.Menu mnuMode_Singlecall
Caption = "通话"
Index = 5
End
Begin VB.Menu UNlock
Caption = "解锁"
End
Begin VB.Menu Lock
Caption = "锁车"
End
Begin VB.Menu Dd
Caption = "巡检"
End
Begin VB.Menu jt
Caption = "监听"
End
Begin VB.Menu AlermApply
Caption = "报警应答"
Visible = 0 'False
End
Begin VB.Menu ChangeChanels
Caption = "频道变更1-2"
Visible = 0 'False
End
Begin VB.Menu ChangeChanels2
Caption = "频道变更2-1"
Visible = 0 'False
End
Begin VB.Menu callby1s
Caption = "启用串口1呼车"
Visible = 0 'False
End
Begin VB.Menu callby2s
Caption = "启用串口2呼车"
Visible = 0 'False
End
Begin VB.Menu mnuMode_s1
Caption = "-"
End
Begin VB.Menu cf
Caption = "重放"
End
Begin VB.Menu mnuMode_s2
Caption = "-"
End
Begin VB.Menu mnumode_pause
Caption = "暂停"
End
Begin VB.Menu shh
Caption = "守侯"
End
Begin VB.Menu mnuMode_None
Caption = "停止工作"
Visible = 0 'False
End
End
Begin VB.Menu Swork
Caption = "&K固定点监控"
Begin VB.Menu adduser
Caption = "添加用户"
End
Begin VB.Menu askuser
Caption = "查询用户"
End
Begin VB.Menu closeuser
Caption = "屏蔽用户"
End
Begin VB.Menu interval
Caption = "-"
End
Begin VB.Menu bank
Caption = "商业银行分布"
End
Begin VB.Menu deleteuser
Caption = "删除用户"
End
End
Begin VB.Menu mnu_replay
Caption = "&R重播"
Begin VB.Menu mnu_replay_pause
Caption = "暂停"
Shortcut = ^P
End
Begin VB.Menu mnu_replay_step
Caption = "步进"
Shortcut = ^S
End
Begin VB.Menu mnu_replay_continuous
Caption = "循环"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -