📄 frmw1.frm
字号:
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 52
Top = 720
Width = 1095
End
Begin VB.CommandButton Command3
Caption = "地面浓度图"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 51
Top = 720
Width = 1215
End
Begin VB.Label Label8
Caption = "熏 烟 模 式"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 840
TabIndex = 74
Top = 240
Width = 2295
End
End
Begin VB.Frame Frame2
Height = 1335
Left = 5040
TabIndex = 71
Top = 8640
Width = 3975
Begin VB.CommandButton Command8
Caption = "某点浓度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2760
TabIndex = 50
Top = 720
Width = 1095
End
Begin VB.CommandButton Command5
Caption = "浓度列表"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 49
Top = 720
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "地面浓度图"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 48
Top = 720
Width = 1215
End
Begin VB.Label Label7
Caption = "小风,静风时(U10<1.5m/s)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 600
TabIndex = 72
Top = 240
Width = 3135
End
End
Begin VB.Frame Frame1
Height = 1335
Left = 720
TabIndex = 69
Top = 8640
Width = 3855
Begin VB.CommandButton Command7
Caption = "某点浓度"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2640
TabIndex = 47
Top = 720
Width = 1095
End
Begin VB.CommandButton Command4
Caption = "浓度列表"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 46
Top = 720
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "地面浓度图"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 45
Top = 720
Width = 1215
End
Begin VB.Label Label6
Caption = "有风时(U10>=1.5m/s)"
BeginProperty Font
Name = "楷体_GB2312"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 720
TabIndex = 70
Top = 240
Width = 2535
End
End
Begin VB.CommandButton cmdClose
Caption = "退出(&C)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 6960
TabIndex = 58
Top = 7800
Width = 1095
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 405
Left = 6960
TabIndex = 57
Top = 6000
Width = 1095
End
Begin VB.CommandButton cmdRefresh
Caption = "返回(&R)"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 6960
TabIndex = 56
Top = 7200
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 405
Left = 6960
TabIndex = 55
Top = 6600
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 405
Left = 6960
TabIndex = 54
Top = 5400
Width = 1095
End
Begin VB.Data Data1
Align = 2 'Align Bottom
Connect = "Access"
DatabaseName = "F:\我的文档\毕设\改版程序\W2.MDB"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 435
Left = 0
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "w1-1"
Top = 10320
Width = 14280
End
Begin VB.TextBox txtFields
DataField = "22"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 22
Left = 12600
Locked = -1 'True
MaxLength = 50
TabIndex = 22
Top = 960
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "15"
DataSource = "Data1"
Height = 285
Index = 15
Left = 4920
MaxLength = 50
TabIndex = 13
Top = 5160
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "14"
DataSource = "Data1"
Height = 285
Index = 14
Left = 4920
MaxLength = 50
TabIndex = 12
Top = 4800
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "13"
DataSource = "Data1"
Height = 285
Index = 13
Left = 4920
MaxLength = 50
TabIndex = 11
Top = 4440
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "12"
DataSource = "Data1"
Height = 285
Index = 12
Left = 4920
MaxLength = 50
TabIndex = 10
Top = 4080
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "11"
DataSource = "Data1"
Height = 285
Index = 11
Left = 4920
MaxLength = 50
TabIndex = 9
Top = 3720
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "10"
DataSource = "Data1"
Height = 285
Index = 10
Left = 4920
MaxLength = 50
TabIndex = 8
Top = 3360
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "9"
DataSource = "Data1"
Height = 285
Index = 9
Left = 4920
MaxLength = 50
TabIndex = 7
Top = 3000
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "8"
DataSource = "Data1"
Height = 285
Index = 8
Left = 4920
MaxLength = 50
TabIndex = 6
Top = 2640
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "6"
DataSource = "Data1"
Enabled = 0 'False
Height = 285
Index = 6
Left = 8520
MaxLength = 50
TabIndex = 5
Top = 7320
Visible = 0 'False
Width = 495
End
Begin VB.TextBox txtFields
DataField = "4"
DataSource = "Data1"
Height = 285
Index = 4
Left = 4920
MaxLength = 50
TabIndex = 4
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -