module1.bas

卧虎山水库监测管理程序：包含实时数据浏览、历史数据浏览以及曲线绘制

Attribute VB_Name = "Module1"
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Dim connstring As String


Public Sub Open_Data(Sel As String)
On Error GoTo Err:
    If rs.State = adStateOpen Then
        rs.Close
    End If
'
    If conn.State <> adStateOpen Then
        conn.CursorLocation = adUseClient
        connstring = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=WaterMang;"
        conn.Open connstring
    End If
    Set rs.ActiveConnection = conn
    rs.Open Sel
    Exit Sub
Err:
    Frm_OtherSet.Show
    Unload Frm_Login
End Sub


Public Sub LoadDataToTree(Tree As TreeView)
On Error GoTo Err:

    Dim tNode As Node
    Dim TemNode As Node
    Dim S_node() As Node
    Dim Node_Num As Integer
    Tree.Nodes.Clear
    Set Tree.ImageList = Frm_Main.ImageList2   '设置节点图标
    Set TemNode = Tree.Nodes.Add(, , "所", "所有监测点")
    Tree.Nodes(Tree.Nodes.Count).Image = 1
'    For i = 1 To 16
'        str1 = "监测点" & i
'        Set tNode = Tree.Nodes.Add(1, 4, , CStr(str1))
'        Tree.Nodes(Tree.Nodes.Count).Image = 3
'    Next
    
    Open_Data ("select * from ST_STBPRP_B order by STCD ")
    If rs.RecordCount > 0 Then rs.MoveFirst
    Do While Not rs.EOF '遍历所有终端
        Set tNode = Tree.Nodes.Add(1, 4, , CStr(rs.Fields(1)))
        Tree.Nodes(Tree.Nodes.Count).Image = 3
        rs.MoveNext   ' 移动到下一个终端记录。
    Loop
    Tree.Nodes(1).Expanded = True
Err:
End Sub