急求下面VB程序的注释,我不想浪费分数,谁会写我再加分。
Private Sub cmdClose_Click()
frm_main.Enabled = True
frm_main.Show
Unload Me
End Sub
Private Sub Form_Load()
Call InitTreeData
Call InitListView
End Sub
Private Sub InitTreeData()
' TreeView1.Nodes.Add , , "root", "悉尼大学"
' SqlBuMen = "select distinct 线路名称 from 线路管理表"
' Set RsBuMen = conn.Execute(SqlBuMen)
' While Not RsBuMen.EOF
' Combo1.AddItem Trim(RsBuMen("角色名称"))
' RsBuMen.MoveNext
' Wend
TreeView1.Nodes.Clear
TreeView1.Nodes.Add , , "Root", "大学煤矿"
Dim nodex As Node
Dim mrc As ADODB.Recordset
Dim mrc1 As ADODB.Recordset
Dim str As String
Dim a As String
a = "年级"
TreeView1.LineStyle = tvwRootLines
str = "select distinct 线路名称 from 线路管理表 "
Set mrc = conn.Execute(str)
str = "select distinct 地点名称,所属线路 from 地点管理表 "
Set mrc1 = conn.Execute(str)
mrc.MoveFirst
Do Until mrc.EOF
mrc1.MoveFirst
Set nodex = TreeView1.Nodes.Add("Root", tvwChild, a, mrc.Fields(0)) ',1, 1)
Do While Not mrc1.EOF
If mrc1.Fields(1) = mrc.Fields(0) Then
Set nodex = TreeView1.Nodes.Add(a, tvwChild, , mrc1.Fields(0)) ', 2, 2)
End If
mrc1.MoveNext
Loop
a = a & "1"
mrc.MoveNext
Loop
mrc1.Close
mrc.Close
Set mrc = Nothing
Set mrc1 = Nothing
End Sub
Private Sub InitListView()
SqlBuMen = "select distinct 地点名称 from 地点管理表 where 所属线路 is null or 所属线路=''"
Set RsBuMen = conn.Execute(SqlBuMen)
While Not RsBuMen.EOF
List1.AddItem Trim(RsBuMen("地点名称"))
RsBuMen.MoveNext
Wend
End Sub
Private Sub Form_Unload(Cancel As Integer)
Screen.MousePointer = vbDefault
frm_main.Enabled = True
frm_main.Show
End Sub
|