📄 frm_tpset.frm
字号:
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "拼音码："
ForeColor = &H80000008&
Height = 210
Index = 22
Left = 4080
TabIndex = 52
Top = 4725
Width = 840
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "集水面积："
ForeColor = &H80000008&
Height = 210
Index = 21
Left = 4080
TabIndex = 51
Top = 4260
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "测站岸别："
ForeColor = &H80000008&
Height = 210
Index = 20
Left = 4080
TabIndex = 50
Top = 3795
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "管理机构："
ForeColor = &H80000008&
Height = 210
Index = 19
Left = 4080
TabIndex = 49
Top = 3330
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "截报年月："
ForeColor = &H80000008&
Height = 210
Index = 18
Left = 4080
TabIndex = 48
Top = 2865
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "行政区划码："
ForeColor = &H80000008&
Height = 210
Index = 8
Left = 120
TabIndex = 47
Top = 3779
Width = 1260
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "站 址："
ForeColor = &H80000008&
Height = 210
Index = 7
Left = 120
TabIndex = 46
Top = 3316
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "基面名称："
ForeColor = &H80000008&
Height = 210
Index = 11
Left = 120
TabIndex = 45
Top = 5168
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "修正参数："
ForeColor = &H80000008&
Height = 210
Index = 10
Left = 120
TabIndex = 44
Top = 4705
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "修正基值："
ForeColor = &H80000008&
Height = 210
Index = 9
Left = 120
TabIndex = 43
Top = 4242
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "基面高程："
ForeColor = &H80000008&
Height = 210
Index = 12
Left = 4080
TabIndex = 42
Top = 75
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "站 类："
ForeColor = &H80000008&
Height = 210
Index = 13
Left = 4080
TabIndex = 41
Top = 540
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "拍报段次："
ForeColor = &H80000008&
Height = 210
Index = 14
Left = 4080
TabIndex = 40
Top = 1005
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "拍报项目："
ForeColor = &H80000008&
Height = 210
Index = 15
Left = 4080
TabIndex = 39
Top = 1470
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "报汛等级："
ForeColor = &H80000008&
Height = 210
Index = 16
Left = 4080
TabIndex = 38
Top = 1935
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "始报年月："
ForeColor = &H80000008&
Height = 210
Index = 17
Left = 4080
TabIndex = 37
Top = 2400
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "测站编码："
ForeColor = &H80000008&
Height = 210
Index = 0
Left = 120
TabIndex = 36
Top = 75
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "测站名称："
ForeColor = &H80000008&
Height = 210
Index = 1
Left = 120
TabIndex = 35
Top = 538
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "水系名称："
ForeColor = &H80000008&
Height = 210
Index = 3
Left = 120
TabIndex = 34
Top = 1464
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "河流名称："
ForeColor = &H80000008&
Height = 210
Index = 2
Left = 120
TabIndex = 33
Top = 1001
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "经 度："
ForeColor = &H80000008&
Height = 210
Index = 5
Left = 120
TabIndex = 32
Top = 2390
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "纬 度："
ForeColor = &H80000008&
Height = 210
Index = 6
Left = 120
TabIndex = 31
Top = 2853
Width = 1050
End
Begin VB.Label Lab_T_Lab
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "流域名称："
ForeColor = &H80000008&
Height = 210
Index = 4
Left = 120
TabIndex = 30
Top = 1927
Width = 1050
End
End
End
End
Begin MSComctlLib.TreeView TreeView1
Height = 7695
Left = 120
TabIndex = 58
Top = 120
Width = 2895
_ExtentX = 5106
_ExtentY = 13573
_Version = 393217
Indentation = 529
LabelEdit = 1
LineStyle = 1
Style = 7
BorderStyle = 1
Appearance = 0
End
End
Attribute VB_Name = "Frm_TPSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Str_Name As String
Dim BZ As String
Dim P_class As String '站类
Private Sub Check1_Click()
If Check1.Value = 1 Then
Cmd_Add.Enabled = False
Check1.Enabled = False '修改
Cmd_Save.Enabled = True
Cmd_Del.Enabled = False
BZ = "Update"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -