【文章內(nèi)容簡介】 om 網(wǎng)頁招聘 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。顯示最后一條記錄 datanum = viewpagezhao ２２ pagezhaostate = True End If 39。網(wǎng)頁制作求職信息管理部分的設(shè)置 If pageqiustate = False Then sql = select * from 網(wǎng)頁求職 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。顯示最后一條記錄 datanum = viewpageqiu pageqiustate = True End If 39。軟件招聘信息管理部分的設(shè)置 If ruanzhaostate = False Then sql = select * from 軟件招聘 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。顯示最后一條記錄 datanum = viewruanzhao ruanzhaostate = True End If 39。軟件求職信息管理部分的設(shè)置 If ruanqiustate = False Then sql = select * from 軟件求職 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic 39。顯示最后一條記錄 datanum = viewruanqiu ruanqiustate = True End If 在代碼中為 TreeView 控件添加節(jié)點(diǎn)信息。 Dim nodX As Node Set nodX = (, , , 家教求職 ) Set nodX = (1, tvwChild, , 教師信息管理 ) Set nodX = (1, tvwChild, , 教師信息查詢 ) Set nodX = (, , , 家長求教 ) Set nodX = (4, tvwChild, , 學(xué)生信息管理 ) Set nodX = (4, tvwChild, , 學(xué)生信息查詢 ) Set nodX = (, , , 網(wǎng)頁制作 ) Set nodX = (7, tvwChild, , 招聘信息管理 ) Set nodX = (7, tvwChild, , 招聘信息查詢 ) Set nodX = (7, tvwChild, , 求職信息管理 ) ２３ Set nodX = (7, tvwChild, , 求職信息查詢 ) Set nodX = (, , , 軟件開發(fā) ) Set nodX = (12, tvwChild, , 程序員信息管理 ) Set nodX = (12, tvwChild, , 程序員信息查詢 ) Set nodX = (12, tvwChild, , 軟件信息管理 ) Set nodX = (12, tvwChild, , 軟件信息查詢 ) Set nodX = (, , , 系統(tǒng)設(shè)置 ) Set nodX = (17, tvwChild, , 更改口令 ) End Sub 實(shí)現(xiàn) TreeView 控件功 能 程序運(yùn)行的過程中，單擊 Treeview 控件將引發(fā) Treeview1_Click事件，該控件將作出相應(yīng)的反映。根據(jù)當(dāng)前單擊的節(jié)點(diǎn)名稱來執(zhí)行相應(yīng)的操作。這一部分的代碼設(shè)置如下： Private Sub TreeView1_Click() On Error GoTo clickerror Dim i As Integer Dim j As Integer Dim sql As String i = If 0 Then txttbl = If = True Then = False Else = True End If End If Select Case Case 教師信息管理 Picture2(0).Visible = True Picture2(1).Visible = False Picture2(2).Visible = False Picture2(3).Visible = False Picture2(4).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False ２４ Picture2(10).Visible = False state = 教師信息管理 = True Case 教師信息查詢 Picture2(1).Visible = True Picture2(0).Visible = False Picture2(2).Visible = False Picture2(3).Visible = False Picture2(4).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = 教師信息查詢 = False Case 學(xué)生信息管理 Picture2(2).Visible = True Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = False Picture2(4).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = 學(xué)生信息管理 = True Case 學(xué)生信息查詢 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = True Picture2(4).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False ２５ Picture2(11).Visible = False Picture2(10).Visible = False state = 學(xué)生信息查詢 = False Case 招聘信息管理 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = False Picture2(5).Visible = False Picture2(6).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Picture2(4).Visible = True state = 招聘信息管理 = True Case 招聘信息查詢 Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = True Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = 招聘信息查詢 = False Case 求職信息管理 Picture2(6).Visible = True Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = False