?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -