📄 geocoder.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "ComDlg32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmGeocoder
BorderStyle = 3 'Fixed Dialog
Caption = "Addressmatch to the ___ layer (geocoder)"
ClientHeight = 5250
ClientLeft = 45
ClientTop = 330
ClientWidth = 5160
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5250
ScaleWidth = 5160
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin MSComDlg.CommonDialog cdlGeocoder
Left = 0
Top = 720
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin TabDlg.SSTab sstGeocoder
Height = 5055
Left = 120
TabIndex = 0
Top = 120
Width = 4935
_ExtentX = 8705
_ExtentY = 8916
_Version = 393216
TabHeight = 882
TabCaption(0) = "Make the layer matchable"
TabPicture(0) = "Geocoder.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblBaseFields(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lblBaseFields(1)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lblBaseFields(2)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lblBaseFields(3)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblBaseFields(4)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "lblBaseFields(5)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "lblBaseFields(6)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "lblBaseFields(7)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "lblBaseFields(8)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "lblBaseFields(9)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "lblBaseFields(10)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "lblInstructions"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "cboBaseFields(0)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "cboBaseFields(1)"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "cboBaseFields(2)"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "cboBaseFields(3)"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "cboBaseFields(4)"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "cboBaseFields(5)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "cboBaseFields(6)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "cboBaseFields(7)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "cboBaseFields(8)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "cboBaseFields(9)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "cboBaseFields(10)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "cmdBuildIndex"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "chkForce"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).ControlCount= 25
TabCaption(1) = "Match a single address"
TabPicture(1) = "Geocoder.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "lblSingleMatch(1)"
Tab(1).Control(1)= "lblSingleMatch(0)"
Tab(1).Control(2)= "cmdSingleMatch"
Tab(1).Control(3)= "fraAddress"
Tab(1).Control(4)= "cboSingleMatch(1)"
Tab(1).Control(5)= "cboSingleMatch(0)"
Tab(1).Control(6)= "picSingleMatch"
Tab(1).ControlCount= 7
TabCaption(2) = "Match a table of addresses"
TabPicture(2) = "Geocoder.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "cboBatchMatch(3)"
Tab(2).Control(1)= "cmdOutputShapefile"
Tab(2).Control(2)= "cboBatchMatch(2)"
Tab(2).Control(3)= "cmdOpenDatabase"
Tab(2).Control(4)= "cmdBatchMatch"
Tab(2).Control(5)= "cboBatchMatch(1)"
Tab(2).Control(6)= "cboBatchMatch(0)"
Tab(2).Control(7)= "picBatchMatch"
Tab(2).Control(8)= "lblBatchMatch(8)"
Tab(2).Control(9)= "lblBatchMatch(7)"
Tab(2).Control(10)= "lblBatchMatch(6)"
Tab(2).Control(11)= "lblBatchMatch(5)"
Tab(2).Control(12)= "lblBatchMatch(0)"
Tab(2).Control(13)= "lblBatchMatch(2)"
Tab(2).Control(14)= "lblBatchMatch(3)"
Tab(2).Control(15)= "lblBatchMatch(1)"
Tab(2).Control(16)= "lblBatchMatch(4)"
Tab(2).ControlCount= 17
Begin VB.CheckBox chkForce
Caption = "Force index build"
BeginProperty Font
Name = "Arial"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 53
Top = 4560
Width = 1455
End
Begin VB.ComboBox cboBatchMatch
Height = 315
Index = 3
Left = -71880
TabIndex = 50
Top = 2400
Visible = 0 'False
Width = 1455
End
Begin VB.CommandButton cmdOutputShapefile
Caption = "Output shapefile name and path"
Height = 375
Left = -73440
TabIndex = 47
Top = 2880
Visible = 0 'False
Width = 2535
End
Begin VB.ComboBox cboBatchMatch
Height = 315
Index = 2
Left = -74160
TabIndex = 41
Top = 2400
Visible = 0 'False
Width = 2055
End
Begin VB.CommandButton cmdOpenDatabase
Caption = "Open Database"
Height = 255
Left = -72720
TabIndex = 40
Top = 1080
Width = 1455
End
Begin VB.CommandButton cmdBatchMatch
Caption = "Batch Match Now"
Enabled = 0 'False
Height = 255
Left = -72960
TabIndex = 39
Top = 4680
Visible = 0 'False
Width = 1815
End
Begin VB.ComboBox cboBatchMatch
Height = 315
Index = 1
ItemData = "Geocoder.frx":0054
Left = -71160
List = "Geocoder.frx":0073
TabIndex = 38
Top = 4200
Visible = 0 'False
Width = 735
End
Begin VB.ComboBox cboBatchMatch
Height = 315
Index = 0
ItemData = "Geocoder.frx":0098
Left = -72960
List = "Geocoder.frx":00A8
TabIndex = 37
Top = 4200
Visible = 0 'False
Width = 1695
End
Begin VB.PictureBox picBatchMatch
BackColor = &H0000FFFF&
Height = 300
Left = -73680
ScaleHeight = 240
ScaleWidth = 555
TabIndex = 36
Top = 4200
Visible = 0 'False
Width = 615
End
Begin VB.PictureBox picSingleMatch
BackColor = &H0000FFFF&
Height = 300
Left = -74280
ScaleHeight = 240
ScaleWidth = 555
TabIndex = 33
Top = 3240
Width = 615
End
Begin VB.ComboBox cboSingleMatch
Height = 315
Index = 0
ItemData = "Geocoder.frx":00CD
Left = -73560
List = "Geocoder.frx":00DD
TabIndex = 32
Top = 3240
Width = 1695
End
Begin VB.ComboBox cboSingleMatch
Height = 315
Index = 1
ItemData = "Geocoder.frx":0102
Left = -71760
List = "Geocoder.frx":0121
TabIndex = 31
Top = 3240
Width = 735
End
Begin VB.Frame fraAddress
Caption = "Address to match"
Height = 975
Left = -74760
TabIndex = 26
Top = 1440
Width = 4335
Begin VB.TextBox txtAddress
Height = 285
Index = 1
Left = 3000
TabIndex = 28
Top = 600
Width = 1215
End
Begin VB.TextBox txtAddress
Height = 285
Index = 0
Left = 120
TabIndex = 27
Top = 600
Width = 2775
End
Begin VB.Label lblZone
Caption = "Zone"
Height = 255
Left = 3000
TabIndex = 30
Top = 360
Width = 495
End
Begin VB.Label lblStreetAddress
Caption = "Street address"
Height = 255
Left = 120
TabIndex = 29
Top = 360
Width = 1095
End
End
Begin VB.CommandButton cmdSingleMatch
Caption = "Find Now"
Height = 495
Left = -73440
TabIndex = 25
Top = 4080
Width = 1935
End
Begin VB.CommandButton cmdBuildIndex
Caption = "Build matching index"
Height = 375
Left = 1680
TabIndex = 24
Top = 4560
Width = 1815
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 10
Left = 2760
TabIndex = 22
Top = 4080
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 9
Left = 2760
TabIndex = 21
Top = 3780
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 8
Left = 2760
TabIndex = 20
Top = 3480
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 7
Left = 2760
TabIndex = 19
Top = 3180
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 6
Left = 2760
TabIndex = 18
Top = 2880
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 5
Left = 2760
TabIndex = 17
Top = 2580
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 4
Left = 2760
TabIndex = 16
Top = 2280
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 3
Left = 2760
TabIndex = 15
Top = 1980
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 2
Left = 2760
TabIndex = 14
Top = 1680
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 1
Left = 2760
TabIndex = 13
Top = 1380
Width = 1935
End
Begin VB.ComboBox cboBaseFields
Height = 315
Index = 0
Left = 2760
TabIndex = 2
Top = 1080
Width = 1935
End
Begin VB.Label lblBatchMatch
BackColor = &H00C0C0C0&
Caption = "Zone/Zip:"
Height = 255
Index = 8
Left = -71880
TabIndex = 52
Top = 2160
Visible = 0 'False
Width = 855
End
Begin VB.Label lblBatchMatch
BackColor = &H00C0C0C0&
Caption = "Street address:"
Height = 255
Index = 7
Left = -74160
TabIndex = 51
Top = 2160
Visible = 0 'False
Width = 1335
End
Begin VB.Label lblBatchMatch
Alignment = 2 'Center
BackColor = &H00FFFFFF&
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -