📄 frm_tpset.frm

📁 卧虎山水库监测管理程序：包含实时数据浏览、历史数据浏览以及曲线绘制
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
        Picture2.Enabled = True
        Txt_STCD.SetFocus
    Else
        Cmd_Add.Enabled = True
        Check1.Enabled = True   '修改
        Cmd_Save.Enabled = False
        Cmd_Del.Enabled = True
        Picture2.Enabled = False
    End If
End Sub

Private Sub Cmd_Add_Click()
    Picture2.Enabled = True
    Txt_STCD.SetFocus
    Cmd_Add.Enabled = False
    Cmd_Save.Enabled = True
    Check1.Enabled = False
    Cmd_Del.Enabled = False
    BZ = "Add"
    Q_start
'    TreeView1.Nodes.Add 1, 4, , "新站点"
End Sub

Private Sub Cmd_Del_Click()
    If MsgBox("确实要删除监测站[" & Txt_STNM.Text & "]？", vbYesNo + vbCritical) = vbYes Then
        Dim Table As String
        Table = Txt_STNM.Text
        Open_Data ("delete from ST_STBPRP_B where STNM='" & Txt_STNM.Text & "'")
        Open_Data ("select * from ST_STBPRP_B where STNM='" & Txt_STNM.Text & "'")
        If rs.RecordCount = 0 Then
            MsgBox ("监测站删除成功！")
            LoadDataToTree TreeView1
            Frm_Main.Load_ViewL Frm_Main.ListView1
        Else
            MsgBox ("监测站删除失败！")
        End If
    End If
End Sub

Private Sub Cmd_Ext_Click()
    Unload Me
End Sub

Private Sub Cmd_Save_Click()
On Error GoTo Err:
    Dim P_Level As String  '判断报汛等级
    Dim P_Place As String  '判断测站岸别 0左岸 1右岸 否则为空

    If Trim(Txt_STCD.Text) = "" Then
        MsgBox "测站编码不能为空！"
        Txt_STCD.SetFocus
        Exit Sub
    End If

    If Trim(Txt_STNM.Text) = "" Then
        MsgBox "测站名称不能为空！"
        Txt_STNM.SetFocus
        Exit Sub
    End If
    
    If Cbl_Area.Text = "" Then
        MsgBox "所属区域不能为空！"
        Cbl_Area.SetFocus
        Exit Sub
    End If
    
    Plot_Class '判断站类
    
    Select Case Trim(Cbl_FRGRD.Text)
        Case "中央报汛站": P_Level = "1"
        Case "向省水文局（信息中心）或流域机构水文局（信息中心）报汛": P_Level = "2"
        Case "不属于以上两级的其它报汛站": P_Level = "3"
        Case Else: P_Place = ""
    End Select
    
    Select Case Trim(Cbl_STBK.Text)
        Case "河流的左岸": P_Place = "0"
        Case "河流的右岸": P_Place = "1"
        Case Else: P_Place = ""
    End Select
    
    If BZ = "Add" Then
        Open_Data ("select * from ST_STBPRP_B where STNM='" & Txt_STNM.Text & "'")
        If rs.RecordCount = 0 Then
            Open_Data ("insert into ST_STBPRP_B values('" & Txt_STCD.Text & "','" & Txt_STNM.Text & "','" & Txt_RVNM.Text & "','" & Txt_HNNM.Text & "','" & Txt_BSNM.Text & "','" & Txt_LGTD.Text & "','" & Txt_LTTD.Text & "','" & Txt_STLC.Text & "','" & Txt_ADDVCD.Text & "'," & Val(Txt_MDBZ.Text) & "," & Val(Txt_MDPR.Text) & ",'" & Txt_DTMNM.Text & "'," & Val(Txt_DTMEL.Text) & ",'" & P_class & "'," & Val(Txt_DFRTMS.Text) & ",'" & Txt_FRITM.Text & "','" & P_Level & "','" & Txt_BGFRYM.Text & "','" & Txt_EDFRYM.Text & "','" & Txt_ADMAUTH.Text & "','" & P_Place & "'," & Val(Txt_DRNA.Text) & ",'" & Txt_PHCD.Text & "','" & Txt_No.Text & "','" & Cbl_Area.Text & "')")
            Open_Data ("select * from ST_STBPRP_B where STNM='" & Txt_STNM.Text & "'")
            If rs.RecordCount <> 0 Then
                Picture2.Enabled = False
                Cmd_Add.Enabled = True
                Check1.Enabled = True
                Cmd_Del.Enabled = True
                Cmd_Save.Enabled = False
                
                LoadDataToTree TreeView1
                Frm_Main.Load_ViewL Frm_Main.ListView1
            Else
                MsgBox "终端添加失败！"
            End If
        ElseIf rs.RecordCount = 1 Then
            MsgBox "此测站名称已经存在！"
            Txt_STNM.SetFocus
            Exit Sub
        End If
    ElseIf BZ = "Update" Then
        If Txt_STNM.Text <> Str_Name Then  '如果修改名字则同时修改所有子表
            Open_Data ("select * from ST_STBPRP_B where STNM='" & Txt_STNM.Text & "'")
            If rs.RecordCount <> 0 Then
                MsgBox "此测站名称已经存在！"
                Txt_STNM.SetFocus
                Exit Sub
            End If
        End If
        
        Open_Data ("update ST_STBPRP_B set STCD='" & Txt_STCD.Text & "',STNM='" & Txt_STNM.Text & "',RVNM='" & Txt_RVNM.Text & "',HNNM='" & Txt_HNNM.Text & "',BSNM='" & Txt_BSNM.Text & "',LGTD='" & Txt_LGTD.Text & "',LTTD='" & Txt_LTTD.Text & "',STLC='" & Txt_STLC.Text & "',ADDVCD='" & Txt_ADDVCD.Text & "',MDBZ=" & Val(Txt_MDBZ.Text) & ",MDPR=" & Val(Txt_MDPR.Text) & ",DTMNM='" & Txt_DTMNM.Text & "',DTMEL=" & Val(Txt_DTMEL.Text) & ",STTP='" & P_class & "',DFRTMS=" & Val(Txt_DFRTMS.Text) & ",FRITM='" & Txt_FRITM.Text & "',FRGRD='" & P_Level & "',BGFRYM='" & Txt_BGFRYM.Text & "',EDFRYM='" & Txt_EDFRYM.Text & "',ADMAUTH='" & Txt_ADMAUTH.Text & "',STBK='" & P_Place & "',DRNA=" & Val(Txt_DRNA.Text) & ",PHCD='" & Txt_PHCD.Text & "',ClientNO='" & Txt_No.Text & "',A_Name='" & Cbl_Area.Text & "' where STNM='" & Str_Name & "'")
        Open_Data ("select * from ST_STBPRP_B where STNM='" & Txt_STNM.Text & "'")
        If rs.RecordCount <> 0 Then
            MsgBox "终端修改成功！"
            BZ = ""
            Picture2.Enabled = False
            Cmd_Add.Enabled = True
            Check1.Enabled = True
            Cmd_Del.Enabled = True
            Cmd_Save.Enabled = False
            Check1.Value = 0
            LoadDataToTree TreeView1
            Frm_Main.Load_ViewL Frm_Main.ListView1
        Else
            MsgBox "终端修改失败！"
        End If
        Set rs = Nothing
    End If
    Exit Sub
Err:
End Sub

Private Sub Form_Load()
    Open_Data ("select SK_Name from ST_SKInfo ")
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        While Not rs.EOF
            Cbl_Area.AddItem rs.Fields(0)
            rs.MoveNext
        Wend
    End If
    Call LoadDataToTree(TreeView1)
    Q_fuzhi " "
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
    If Node.Text = "所有水库终端" Then
    ElseIf Node.Parent = "所有水库终端" Then
    Else
        Str_Name = Node.Text
    End If
    Q_fuzhi Node.Text
End Sub
Private Sub Q_fuzhi(RName As String)
    If Trim(RName) = "" Then
        Open_Data ("select * from ST_STBPRP_B order by STCD")
    Else
        Open_Data ("select * from ST_STBPRP_B where STNM='" & RName & "'")
    End If
    If rs.RecordCount > 0 Then
        rs.MoveFirst
        If IsNull(rs.Fields(0)) Then
            Txt_STCD.Text = ""
        Else
            Txt_STCD.Text = rs.Fields(0)
        End If
        If IsNull(rs.Fields(1)) Then
            Txt_STNM.Text = ""
        Else
            Txt_STNM.Text = rs.Fields(1)
        End If
        If IsNull(rs.Fields(2)) Then
            Txt_RVNM.Text = ""
        Else
            Txt_RVNM.Text = rs.Fields(2)
        End If
        If IsNull(rs.Fields(3)) Then
            Txt_HNNM.Text = ""
        Else
            Txt_HNNM.Text = rs.Fields(3)
        End If
        If IsNull(rs.Fields(4)) Then
            Txt_BSNM.Text = ""
        Else
            Txt_BSNM.Text = rs.Fields(4)
        End If
        If IsNull(rs.Fields(5)) Then
            Txt_LGTD.Text = ""
        Else
            Txt_LGTD.Text = rs.Fields(5)
        End If
        If IsNull(rs.Fields(6)) Then
            Txt_LTTD.Text = ""
        Else
            Txt_LTTD.Text = rs.Fields(6)
        End If
        If IsNull(rs.Fields(7)) Then
            Txt_STLC.Text = ""
        Else
            Txt_STLC.Text = rs.Fields(7)
        End If
        If IsNull(rs.Fields(8)) Then
            Txt_ADDVCD.Text = ""
        Else
            Txt_ADDVCD.Text = rs.Fields(8)
        End If
        If IsNull(rs.Fields(9)) Then
            Txt_MDBZ.Text = ""
        Else
            Txt_MDBZ.Text = rs.Fields(9)
        End If
        If IsNull(rs.Fields(10)) Then
            Txt_MDPR.Text = ""
        Else
            Txt_MDPR.Text = rs.Fields(10)
        End If
        If IsNull(rs.Fields(11)) Then
            Txt_DTMNM.Text = ""
        Else
            Txt_DTMNM.Text = rs.Fields(11)
        End If
        If IsNull(rs.Fields(12)) Then
            Txt_DTMEL.Text = ""
        Else
            Txt_DTMEL.Text = rs.Fields(12)
        End If
        If IsNull(rs.Fields(13)) Then
            Cbl_STTP.Text = ""
        Else
            Select Case Trim(rs.Fields(13))
                Case "MM": Cbl_STTP.Text = "气象站"
                Case "PP": Cbl_STTP.Text = "雨量站"
                Case "BB": Cbl_STTP.Text = "蒸发站"
                Case "ZZ": Cbl_STTP.Text = "河道水位水文站"
                Case "DD": Cbl_STTP.Text = "堰闸水文站"
                Case "RR": Cbl_STTP.Text = "水库水文站"
                Case "TT": Cbl_STTP.Text = "潮位站"
                Case "ZG": Cbl_STTP.Text = "地下水站"
                Case "DP": Cbl_STTP.Text = "泵站"
                Case "ZB": Cbl_STTP.Text = "分洪水位站"
                Case "SS": Cbl_STTP.Text = "墒情站"
                Case Else: Cbl_STTP.Text = ""
            End Select
        End If
        If IsNull(rs.Fields(14)) Then
            Txt_DFRTMS.Text = ""
        Else
            Txt_DFRTMS.Text = rs.Fields(14)
        End If
        If IsNull(rs.Fields(15)) Then
            Txt_FRITM.Text = ""
        Else
            Txt_FRITM.Text = rs.Fields(15)
        End If
        If IsNull(rs.Fields(16)) Then
            Cbl_FRGRD.Text = ""
        ElseIf Trim(rs.Fields(16)) = "" Then
            Cbl_FRGRD.Text = ""
        Else
            Cbl_FRGRD.Text = Cbl_FRGRD.List(Val(rs.Fields(16)) - 1)
        End If
        If IsNull(rs.Fields(17)) Then
            Txt_BGFRYM.Text = ""
        Else
            Txt_BGFRYM.Text = rs.Fields(17)
        End If
        If IsNull(rs.Fields(18)) Then
            Txt_EDFRYM.Text = ""
        Else
            Txt_EDFRYM.Text = rs.Fields(18)
        End If
        If IsNull(rs.Fields(19)) Then
            Txt_ADMAUTH.Text = ""
        Else
            Txt_ADMAUTH.Text = rs.Fields(19)
        End If
        If IsNull(rs.Fields(20)) Then
            Cbl_STBK.Text = Cbl_STBK.List(2)
        ElseIf Trim(rs.Fields(20)) = "" Then
            Cbl_STBK.Text = Cbl_STBK.List(2)
        Else
            Cbl_STBK.Text = Cbl_STBK.List(Val(rs.Fields(20)))
        End If
        If IsNull(rs.Fields(21)) Then
            Txt_DRNA.Text = ""
        Else
            Txt_DRNA.Text = rs.Fields(21)
        End If
        If IsNull(rs.Fields(22)) Then
            Txt_PHCD.Text = ""
        Else
            Txt_PHCD.Text = rs.Fields(22)
        End If
        If IsNull(rs.Fields(23)) Then
            Txt_No.Text = ""
        Else
            Txt_No.Text = rs.Fields(23)
        End If
        If IsNull(rs.Fields(24)) Then
            Cbl_Area.Text = ""
        Else
            Cbl_Area.Text = rs.Fields(24)
        End If
    End If
End Sub

Private Sub Q_start()
    Txt_STCD.Text = ""
    Txt_STNM.Text = ""
    Txt_RVNM.Text = ""
    Txt_HNNM.Text = ""
    Txt_BSNM.Text = ""
    Txt_LGTD.Text = ""
    Txt_LTTD.Text = ""
    Txt_STLC.Text = ""
    Txt_ADDVCD.Text = ""
    Txt_MDBZ.Text = ""
    Txt_MDPR.Text = ""
    Txt_DTMNM.Text = ""
    Txt_DTMEL.Text = ""
    Cbl_STTP.Text = "水库水文站"
    Txt_DFRTMS.Text = ""
    Txt_FRITM.Text = ""
'    Cbl_FRGRD.Text = ""
    Txt_BGFRYM.Text = ""
    Txt_EDFRYM.Text = ""
    Txt_ADMAUTH.Text = ""
    Cbl_STBK.Text = ""
    Txt_DRNA.Text = ""
    Txt_PHCD.Text = ""
    Txt_No.Text = ""
'    Cbl_Area.Text = ""
End Sub

Private Sub Plot_Class()
    Select Case Trim(Cbl_STTP.Text)
        Case "气象站": P_class = "MM"
        Case "雨量站": P_class = "PP"
        Case "蒸发站": P_class = "BB"
        Case "河道水位水文站": P_class = "ZZ"
        Case "堰闸水文站": P_class = "DD"
        Case "水库水文站": P_class = "RR"
        Case "潮位站": P_class = "TT"
        Case "地下水站": P_class = "ZG"
        Case "泵站": P_class = "DP"
        Case "分洪水位站": P_class = "ZB"
        Case "墒情站": P_class = "SS"
        Case Else: P_class = ""
    End Select
End Sub
上一页 1 23
💿 文件大小 3061 K
👤 上传用户 zyz5925629
📂 所属分类数据库系统
🏷️ 相关标签

#水库 #实时数据 #数据 #监测管理
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -