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