文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学的各位小编整理了VB类作品-基于VB的大学生兼职中介管理系统的设计的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！
3.2添加模块 为工程添加一个模块，在该模块内定义这个全局变量。 Option Explicit Public conn As New ADODB.Connection ''标记连接对象 Public userID As String Public username As String 3.3通用变量声明 首先在程序的通用变量声明部分定义几个本系统中需要用到的变量，包括与各个数据表相对应的数据访问对象，标记各个数据表状态的变量，标记选定表格内收件号码的变量等。 Option Explicit Dim txttbl As String Dim rs_jiaoshi As New ADODB.Recordset ''教师数据对象 Dim rs_xuesheng As New ADODB.Recordset ''学生数据对象 Dim rs_pagezhao As New ADODB.Recordset ''网页制作招聘数据对象 Dim rs_pageqiu As New ADODB.Recordset ''网页制作求职数据对象 Dim rs_ruanzhao As New ADODB.Recordset ''软件开发招聘数据对象 Dim rs_ruanqiu As New ADODB.Recordset ''软件开发求职数据对象 Dim datanum As Integer ''选定的编号 Dim state As String ''标记状态 Dim numjiaoshi As String ''当前选择的教师编号 Dim numstu As String ''当前选择的学生编号 Dim numpagexue As String ''当前选择的寻找网页制作工作的学生编号 Dim numpagejob As String ''当前选定的公司编号 Dim numruanxue As String ''当前选择的寻找软件开发工作的学生编号 Dim numruanjob As String ''当前选定的公司编号 Dim jiaoshistate As Boolean Dim xueshengstate As Boolean Dim pagezhaostate As Boolean Dim pageqiustate As Boolean Dim ruanzhaostate As Boolean Dim ruanqiustate As Boolean Dim savestate As Integer ''新建保存为1，修改保存为2，出租保存为3，出售保存为4 Dim saveback As Boolean 3.4窗体加载 窗体加载的时候，首先设置各个Picture控件的位置，然后设置TreeView控件的节点，同时打开各个数据表。 首先设置Picture控件的位置和状态。具体代码如下： 然后打开各个数据表。在打开数据表之前应先检查该数据表是否已经打开，如果重复打开将会出现错误操作。 打开学生求职表之前，应检查变量jiaoshistate的值是否为False，如果为False表示未打开数据表，此时可以打开，并调用过程viewjiaoshibiao显示数据信息。具体代码如下： ''学生求职管理部分的设置 If jiaoshistate = False Then sql = "select * from 教师信息" rs_jiaoshi.CursorLocation = adUseClient rs_jiaoshi.Open sql, conn, adOpenKeyset, adLockPessimistic rs_jiaoshi.MoveLast ''显示最后一条记录 datanum = rs_jiaoshi.RecordCount viewjiaoshibiao jiaoshistate = True End If ''学生找家教管理部分的设置 If xueshengstate = False Then sql = "select * from 学生信息" rs_xuesheng.CursorLocation = adUseClient rs_xuesheng.Open sql, conn, adOpenKeyset, adLockPessimistic rs_xuesheng.MoveLast ''显示最后一条记录 datanum = rs_xuesheng.RecordCount viewxueshengbiao xueshengstate = True End If ''网页招聘信息管理部分的设置 If pagezhaostate = False Then sql = "select * from 网页招聘" rs_pagezhao.CursorLocation = adUseClient rs_pagezhao.Open sql, conn, adOpenKeyset, adLockPessimistic rs_pagezhao.MoveLast ''显示最后一条记录 datanum = rs_pagezhao.RecordCount viewpagezhao pagezhaostate = True End If ''网页制作求职信息管理部分的设置 If pageqiustate = False Then sql = "select * from 网页求职" rs_pageqiu.CursorLocation = adUseClient rs_pageqiu.Open sql, conn, adOpenKeyset, adLockPessimistic rs_pageqiu.MoveLast ''显示最后一条记录 datanum = rs_pageqiu.RecordCount viewpageqiu pageqiustate = True End If ''软件招聘信息管理部分的设置 If ruanzhaostate = False Then sql = "select * from 软件招聘" rs_ruanzhao.CursorLocation = adUseClient rs_ruanzhao.Open sql, conn, adOpenKeyset, adLockPessimistic rs_ruanzhao.MoveLast ''显示最后一条记录 datanum = rs_ruanzhao.RecordCount viewruanzhao ruanzhaostate = True End If ''软件求职信息管理部分的设置 If ruanqiustate = False Then sql = "select * from 软件求职" rs_ruanqiu.CursorLocation = adUseClient rs_ruanqiu.Open sql, conn, adOpenKeyset, adLockPessimistic rs_ruanqiu.MoveLast ''显示最后一条记录 datanum = rs_ruanqiu.RecordCount viewruanqiu ruanqiustate = True End If 在代码中为TreeView控件添加节点信息。 Dim nodX As Node Set nodX = TreeView1.Nodes.Add(, , , "家教求职") Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "教师信息管理") Set nodX = TreeView1.Nodes.Add(1, tvwChild, , "教师信息查询") Set nodX = TreeView1.Nodes.Add(, , , "家长求教") Set nodX = TreeView1.Nodes.Add(4, tvwChild, , "学生信息管理") Set nodX = TreeView1.Nodes.Add(4, tvwChild, , "学生信息查询") Set nodX = TreeView1.Nodes.Add(, , , "网页制作") Set nodX = TreeView1.Nodes.Add(7, tvwChild, , "招聘信息管理") Set nodX = TreeView1.Nodes.Add(7, tvwChild, , "招聘信息查询") Set nodX = TreeView1.Nodes.Add(7, tvwChild, , "求职信息管理") Set nodX = TreeView1.Nodes.Add(7, tvwChild, , "求职信息查询") Set nodX = TreeView1.Nodes.Add(, , , "软件开发") Set nodX = TreeView1.Nodes.Add(12, tvwChild, , "程序员信息管理") Set nodX = TreeView1.Nodes.Add(12, tvwChild, , "程序员信息查询") Set nodX = TreeView1.Nodes.Add(12, tvwChild, , "软件信息管理") Set nodX = TreeView1.Nodes.Add(12, tvwChild, , "软件信息查询") Set nodX = TreeView1.Nodes.Add(, , , "系统设置") Set nodX = TreeView1.Nodes.Add(17, tvwChild, , "更改口令") End Sub 
|
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
