📄 frm_datalr.frm
字号:
Begin VB.TextBox Txt
Height = 375
Index = 11
Left = 5160
MaxLength = 2
TabIndex = 4
Top = 2823
Width = 2055
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 = 33
Top = 1967
Width = 630
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 = 3960
TabIndex = 32
Top = 1482
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 = 31
Top = 2440
Width = 630
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 = 3960
TabIndex = 30
Top = 1956
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 = 12
Left = 3960
TabIndex = 29
Top = 2430
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 = 120
TabIndex = 28
Top = 2913
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 = 3960
TabIndex = 27
Top = 2904
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 = 120
TabIndex = 26
Top = 3390
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 = 3960
TabIndex = 25
Top = 3382
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 = 24
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 = 3960
TabIndex = 23
Top = 60
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 = 3960
TabIndex = 22
Top = 534
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 = 2
Left = 120
TabIndex = 21
Top = 548
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 = 3960
TabIndex = 20
Top = 1008
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 = 6
Left = 120
TabIndex = 19
Top = 1494
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 = 18
Top = 1021
Width = 1050
End
End
End
End
Begin MSComctlLib.TreeView TreeView1
Height = 10335
Left = 120
TabIndex = 0
Top = 120
Width = 2895
_ExtentX = 5106
_ExtentY = 18230
_Version = 393217
Indentation = 529
LabelEdit = 1
LineStyle = 1
Style = 7
BorderStyle = 1
Appearance = 0
End
End
Attribute VB_Name = "Frm_DataLR"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Node_Name As String
Dim Node_CD As String
Private Sub Cmd_Del_Click()
On Error GoTo Err:
Dim DT_SDate As Date
DT_SDate = Format(DTPicker1.Value, "YYYY-MM-DD") & " 8:00:00"
vbMsg = MsgBox("您确定要删除此条记录吗？", vbYesNo, "删除数据")
If vbMsg = vbYes Then '用户确定删除时删除监测点的信息及数据
Open_Data ("delete from ST_River_R where stcd='" & Txt(0).Text & "' and tm='" & DT_SDate & "'")
MsgBox "删除成功!", vbOKOnly, "提示"
Ref_l
End If
Err:
End Sub
Private Sub Cmd_Ext_Click()
Unload Me
End Sub
Private Sub Cmd_Save_Click()
On Error GoTo Err:
Dim DT_SDate As Date
DT_SDate = Format(DTPicker1.Value, "YYYY-MM-DD") & " 8:00:00"
Open_Data ("select * from ST_River_R where stcd='" & Txt(0).Text & "' and tm='" & DT_SDate & "'")
If rs.RecordCount > 0 Then
If MsgBox(Txt(1).Text & "：" & DT_SDate & " 的数据已经存在，确定要覆盖原来数据？", vbOKCancel, "数据更新") = vbOK Then
Open_Data ("update ST_River_R set Z='" & Val(Txt(2).Text) & "',Q='" & Val(Txt(3).Text) & "',XSA='" & Val(Txt(4).Text) & "',XSAVV='" & Val(Txt(5).Text) & "',XSMXV='" & Val(Txt(6).Text) & "',FLWCHRCD='" & Combo1.Text & "',WPTN='" & Txt(7).Text & "',MSQMT='" & Txt(8).Text & "',MSAMT='" & Txt(9).Text & "',MSVMT='" & Txt(10).Text & "',GTOPNUM='" & Val(Txt(11).Text) & "',GTOPHGT='" & Val(Txt(12).Text) & "',GTQ='" & Val(Txt(13).Text) & "' where stcd='" & Txt(0).Text & "' and tm='" & DT_SDate & "'")
MsgBox "更新成功!", vbOKOnly, "提示"
Ref_l
End If
Else
If MsgBox("确定要添加此条数据？", vbOKCancel, "数据添加") = vbOK Then
Open_Data ("insert into ST_River_R values('" & Txt(0).Text & "','" & DTPicker1.Value & "','" & Val(Txt(2).Text) & "','" & Val(Txt(3).Text) & "','" & Val(Txt(4).Text) & "','" & Val(Txt(5).Text) & "','" & Val(Txt(6).Text) & "','" & Combo1.Text & "','" & Trim(Txt(7).Text) & "','" & Trim(Txt(8).Text) & "','" & Trim(Txt(9).Text) & "','" & Trim(Txt(10).Text) & "','" & Val(Txt(11).Text) & "','" & Val(Txt(12).Text) & "','" & Val(Txt(13).Text) & "')")
MsgBox "保存成功!", vbOKOnly, "提示"
Ref_l
End If
End If
Err:
End Sub
Private Sub Form_Load()
LoadDataToTree TreeView1
If TreeView1.Nodes.Count > 1 Then TreeView1_NodeClick TreeView1.Nodes(2)
End Sub
Private Sub ListView1_Click()
For i = 0 To 13
Txt(i).Text = ""
Next i
Txt(0).Text = Node_CD
Txt(1).Text = Node_Name
If ListView1.ListItems.Count > 0 Then
DTPicker1.Value = ListView1.SelectedItem.SubItems(1)
For i = 2 To 6
Txt(i).Text = ListView1.SelectedItem.SubItems(i)
Next
Combo1.Text = ListView1.SelectedItem.SubItems(7)
For i = 7 To 13
Txt(i).Text = ListView1.SelectedItem.SubItems(i + 1)
Next
End If
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Node_Name = Node.Text
Ref_l
End Sub
Public Sub Ref_l()
On Error GoTo Err:
Open_Data ("select STCD from ST_STBPRP_B where ST_STBPRP_B.STNM='" & Node_Name & "'")
Node_CD = rs.Fields(0)
ListView1.ListItems.Clear
Open_Data ("select * from ST_River_R where STCD='" & Node_CD & "' order by tm")
If rs.RecordCount > 0 Then
Node_CD = rs.Fields(0)
i = 1
Do While Not rs.EOF
Set ite = ListView1.ListItems.Add(, , i)
For j = 1 To 14
ListView1.ListItems(i).SubItems(j) = Trim(rs.Fields(j) & "")
If j = 1 Then ListView1.ListItems(i).SubItems(j) = Format(ListView1.ListItems(i).SubItems(j), "yyyy-mm-dd hh:mm")
Next j
rs.MoveNext
i = i + 1
Loop
Else
End If
ListView1_Click
Err:
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -