?? 土壤模糊評價.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 + -