【编者按】网学网VB类作品频道为大家收集整理了“基于VB职业招聘中介管理系统的设计“提供大家参考，希望对大家有所帮助!
1. 主界面设计:  主界面代码设计: Private Sub TreeView1_Click() On Error GoTo clickerror Dim i As Integer Dim j As Integer Dim sql As String i = TreeView1.SelectedItem.Index If TreeView1.SelectedItem.Children > 0 Then txttbl = TreeView1.SelectedItem.Text If TreeView1.SelectedItem.Expanded = True Then TreeView1.SelectedItem.Expanded = False Else TreeView1.SelectedItem.Expanded = True End If End If Select Case TreeView1.SelectedItem.Text 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 = "教师信息管理" Toolbar1.Buttons(1).Enabled = 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 = "教师信息查询" For j = 0 To 10 Toolbar1.Buttons(i).Enabled = False Next j Case "学生信息管理" 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 = "学生信息管理" Toolbar1.Buttons(1).Enabled = True Case "学生信息查询" 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 = "学生信息查询" For j = 0 To 10 Toolbar1.Buttons(i).Enabled = False Next j 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 = "招聘信息管理" Toolbar1.Buttons(1).Enabled = 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 Case "求职信息管理" Picture2(6).Visible = True Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(3).Visible = False Picture2(5).Visible = False Picture2(7).Visible = False Picture2(4).Visible = False Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False state = "求职信息管理" Toolbar1.Buttons(1).Enabled = True Case "求职信息查询" Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = True Picture2(8).Visible = False Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Case "程序员信息管理" Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Picture2(9).Visible = True state = "程序员信息管理" Case "程序员信息查询" Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = True Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False Case "软件信息管理" Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = False Picture2(11).Visible = False Picture2(9).Visible = False Picture2(10).Visible = True state = "软件信息管理" Case "软件信息查询" Picture2(2).Visible = False Picture2(0).Visible = False Picture2(1).Visible = False Picture2(5).Visible = False Picture2(4).Visible = False Picture2(6).Visible = False Picture2(3).Visible = False Picture2(7).Visible = False Picture2(8).Visible = True Picture2(9).Visible = False Picture2(11).Visible = False Picture2(10).Visible = False End Select Exit Sub clickerror: MsgBox Err.Description End Sub
|
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
