📄 frmwopcl_m.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form frmWOPCL_M
Caption = "遥感监测分析系统"
ClientHeight = 8265
ClientLeft = 60
ClientTop = 630
ClientWidth = 6465
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8265
ScaleWidth = 6465
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton Command1
Caption = "运行[&S]"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4920
TabIndex = 88
Top = 7680
Width = 975
End
Begin VB.TextBox txtWLM_DES
DataField = "WLM_DES"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 960
TabIndex = 87
Top = 6600
Width = 5295
End
Begin VB.TextBox txtWLM_SOVAME
DataField = "WLM_SOVAME"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5520
TabIndex = 85
Top = 6240
Width = 735
End
Begin VB.TextBox txtWLM_SOVAM
DataField = "WLM_SOVAM"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 4080
TabIndex = 83
Top = 6240
Width = 735
End
Begin VB.TextBox txtWLM_SNCN
DataField = "WLM_SNCN"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 2040
TabIndex = 81
Top = 6240
Width = 615
End
Begin VB.TextBox txtWLM_SOVAE
DataField = "WLM_SOVAE"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5520
TabIndex = 79
Top = 5880
Width = 735
End
Begin VB.TextBox txtWLM_SOVA
DataField = "WLM_SOVA"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 4080
TabIndex = 77
Top = 5880
Width = 735
End
Begin VB.TextBox txtWLM_SON
DataField = "WLM_SON"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 2040
TabIndex = 75
Top = 5880
Width = 615
End
Begin VB.TextBox txtWLM_MFVAE
DataField = "WLM_MFVAE"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5520
TabIndex = 73
Top = 5520
Width = 735
End
Begin VB.TextBox txtWLM_MFVA
DataField = "WLM_MFVA"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 4080
TabIndex = 71
Top = 5520
Width = 735
End
Begin VB.TextBox txtWLM_MFN
DataField = "WLM_MFN"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1920
TabIndex = 69
Top = 5520
Width = 1095
End
Begin VB.TextBox txtWLM_EFVAE
DataField = "WLM_EFVAE"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5520
TabIndex = 67
Top = 5160
Width = 735
End
Begin VB.TextBox txtWLM_EFVA
DataField = "WLM_EFVA"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 4080
TabIndex = 65
Top = 5160
Width = 735
End
Begin VB.TextBox txtWLM_EFN
DataField = "WLM_EFN"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 63
Top = 5160
Width = 1575
End
Begin VB.TextBox txtWLM_SFVAE
DataField = "WLM_SFVAE"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5520
TabIndex = 61
Top = 4800
Width = 735
End
Begin VB.TextBox txtWLM_SFVA
DataField = "WLM_SFVA"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 4080
TabIndex = 59
Top = 4800
Width = 735
End
Begin VB.TextBox txtWLM_SFN
DataField = "WLM_SFN"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 57
Top = 4800
Width = 1575
End
Begin VB.TextBox txtWLM_CFVAE
DataField = "WLM_CFVAE"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5520
TabIndex = 55
Top = 4440
Width = 735
End
Begin VB.TextBox txtWLM_CFVA
DataField = "WLM_CFVA"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 4080
TabIndex = 53
Top = 4440
Width = 735
End
Begin VB.TextBox txtWLM_CFM
DataField = "WLM_CFM"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 51
Top = 4440
Width = 1575
End
Begin VB.TextBox txtWLM_SVAE
DataField = "WLM_SVAE"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5520
TabIndex = 49
Top = 4080
Width = 735
End
Begin VB.TextBox txtWLM_SVA
DataField = "WLM_SVA"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 4080
TabIndex = 47
Top = 4080
Width = 735
End
Begin VB.TextBox txtWLM_UUVA
DataField = "WLM_UUVA"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1920
TabIndex = 45
Top = 4080
Width = 855
End
Begin VB.TextBox txtWLM_SCUN
DataField = "WLM_SCUN"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1560
TabIndex = 43
Top = 3720
Width = 4695
End
Begin VB.TextBox txtWLM_SSIG
DataField = "WLM_SSIG"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 3840
TabIndex = 41
Top = 3360
Width = 2415
End
Begin VB.TextBox txtWLM_SCN
DataField = "WLM_SCN"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1680
TabIndex = 39
Top = 3360
Width = 735
End
Begin VB.TextBox txtWLM_USIG
DataField = "WLM_USIG"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 3840
TabIndex = 37
Top = 3000
Width = 2415
End
Begin VB.TextBox txtWLM_USCN
DataField = "WLM_USCN"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1680
TabIndex = 35
Top = 3000
Width = 735
End
Begin VB.TextBox txtWLM_FP
DataField = "WLM_FP"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1320
TabIndex = 33
Top = 2640
Width = 4935
End
Begin VB.TextBox txtWLM_CLTN
DataField = "WLM_CLTN"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5160
TabIndex = 31
Top = 2280
Width = 735
End
Begin VB.ComboBox cboWLM_CLT
Enabled = 0 'False
Height = 300
Left = 2400
TabIndex = 27
Top = 2280
Width = 975
End
Begin VB.TextBox txtWLM_OGDM
DataField = "WLM_VGDM"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 5520
TabIndex = 20
Top = 1320
Width = 735
End
Begin VB.TextBox txtWLM_VGDM
DataField = "WLM_OGDM"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 3480
TabIndex = 18
Top = 1320
Width = 735
End
Begin VB.TextBox txtWLM_WGDM
DataField = "WLM_WGDM"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 16
Top = 1320
Width = 735
End
Begin VB.ComboBox cboMM_SC
Enabled = 0 'False
Height = 300
Left = 5280
TabIndex = 12
Top = 960
Width = 975
End
Begin VB.ComboBox cboMM_LC
Enabled = 0 'False
Height = 300
Left = 2160
TabIndex = 9
Top = 960
Width = 975
End
Begin VB.TextBox txtWLM_ION
DataField = "WLM_ION"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 4920
TabIndex = 8
Top = 600
Width = 1095
End
Begin VB.TextBox txtWLM_AD
DataField = "WLM_AD"
DataSource = "datInput"
Enabled = 0 'False
Height = 270
Left = 1440
TabIndex = 7
Top = 600
Width = 1455
End
Begin VB.Data datInput
Caption = "No more recoreds"
Connect = "Access"
DatabaseName = "D:\VB\麦最优分类_1\麦最优_1.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -