📄 土壤模糊评价.frm
字号:
End
Begin VB.ComboBox Combo1
Height = 300
Left = 2040
TabIndex = 3
Top = 360
Width = 1335
End
Begin VB.Label Label7
Caption = "Ⅴ"
Height = 255
Left = 2280
TabIndex = 14
Top = 1800
Width = 615
End
Begin VB.Label Label6
Caption = "Ⅳ"
Height = 255
Left = 2280
TabIndex = 12
Top = 1320
Width = 615
End
Begin VB.Label Label5
Caption = "Ⅲ"
Height = 255
Left = 2280
TabIndex = 11
Top = 840
Width = 495
End
Begin VB.Label Label4
Caption = "Ⅱ"
Height = 255
Left = 240
TabIndex = 9
Top = 1800
Width = 495
End
Begin VB.Label Label3
Caption = "Ⅰ"
Height = 375
Left = 240
TabIndex = 7
Top = 1320
Width = 615
End
Begin VB.Label Label2
Caption = "乡镇"
Height = 255
Left = 120
TabIndex = 5
Top = 840
Width = 615
End
Begin VB.Label Label1
Caption = "请选择要查找的乡镇"
Height = 255
Left = 120
TabIndex = 2
Top = 360
Width = 1695
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "土壤模糊评价.frx":0000
Height = 1935
Left = 120
TabIndex = 0
Top = 2880
Width = 7335
_ExtentX = 12938
_ExtentY = 3413
_Version = 393216
AllowUpdate = -1 'True
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "土壤环境模糊综合评价"
ColumnCount = 6
BeginProperty Column00
DataField = "乡镇"
Caption = "乡镇"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = "Ⅰ"
Caption = "Ⅰ"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column02
DataField = "Ⅱ"
Caption = "Ⅱ"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column03
DataField = "Ⅲ"
Caption = "Ⅲ"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column04
DataField = "Ⅳ"
Caption = "Ⅳ"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "Ⅴ "
Caption = "Ⅴ "
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
ColumnWidth = 1365.165
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 2085.166
EndProperty
BeginProperty Column03
ColumnWidth = 2085.166
EndProperty
BeginProperty Column04
ColumnWidth = 2085.166
EndProperty
BeginProperty Column05
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin MSAdodcLib.Adodc Adodc1
Height = 330
Left = 5400
Top = 0
Visible = 0 'False
Width = 1575
_ExtentX = 2778
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\岳子明\设计\土壤数据库\土壤模糊综合评价.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\岳子明\设计\土壤数据库\土壤模糊综合评价.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "土壤模糊综合评价"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.Menu bj
Caption = "编辑"
Begin VB.Menu tj
Caption = "添加"
End
Begin VB.Menu delete
Caption = "删除"
End
Begin VB.Menu save
Caption = "保存"
End
Begin VB.Menu print
Caption = "打印"
End
End
Begin VB.Menu pj
Caption = "评价"
Begin VB.Menu zhip
Caption = "指数评价"
End
Begin VB.Menu dam
Caption = "单因子模糊评价"
End
End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Combo1.AddItem "琉璃河镇"
Combo1.AddItem "长沟镇"
Combo1.AddItem "张坊镇"
Combo1.AddItem "大石窝镇"
Combo1.AddItem "良乡镇"
Combo1.AddItem "石楼镇"
Combo1.AddItem "城关镇"
Combo1.AddItem "阎村镇"
Combo1.AddItem "佛子庄乡"
Combo1.AddItem "霞云岭乡"
Combo1.AddItem "周口店镇"
Combo1.AddItem "韩村河镇"
Combo1.AddItem "长阳镇"
Combo1.AddItem "窦店镇"
Combo1.AddItem "蒲洼乡"
Combo1.AddItem "燕山地区"
Combo1.AddItem "南窑镇"
Combo1.AddItem "大安山镇"
Combo1.AddItem "史家营镇"
Combo1.AddItem "河北镇"
Combo1.AddItem "青龙湖镇"
Combo1.AddItem "十渡镇"
Combo2.AddItem "有机质"
Combo2.AddItem "pH值"
Combo2.AddItem "速效磷"
Combo2.AddItem "速效钾"
Combo2.AddItem "碱解氮"
Combo2.AddItem "Cu"
Combo2.AddItem "Pb"
Combo2.AddItem "Cr"
Combo2.AddItem "Cd"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -