兼职中介管理系统的设计与实现

家教信息管理模块
在系统主窗体左侧的列表中，单击“家教求职”节点，选择“教师信息管理”分支节点，此时打开教师信息管理模块。
这一模块左侧部分为当前教师信息，右侧部分为数据库中还没有找到教师的学生信息，如果选择某条学生信息，然后单击“《==”按钮，即可将此学生与教师信息搭配，从而完成一对信息的组合。
选择“教师信息查询”分支节点，此时打开教师信息查询模块。
3、家长求教信息管理模块
在系统主窗体左侧的列表中，单击“家长求教”节点，选择“学生信息管理”分支节点，此时打开学生信息管理模块。
这一模块左侧部分为当前学生信息，右侧部分为数据库中还没有找到学生的教师信息，如果选择某条教师信息，然后单击“〈〈==”按钮，即可将此学生与教师信息搭配，从而完成一对信息的组合。
选择“学生信息查询”分支节点，此时打开学生信息查询模块。
4、网页制作信息管理模块
在系统主窗体左侧的列表中，单击“网页制作”节点，选择“招聘信息管理”分支节点，此时打开网页制作招聘信息管理模块。
这一模块左侧部分为当前招聘信息，右侧部分为数据库中还没有找到工作的学生信息，如果选择某条学生信息，然后单击“〈〈==”按钮，即可将此学生与招聘信息搭配，从而完成一对信息的组合。
选择“招聘信息查询”分支节点，此时打开招聘信息 查询模块。
5、网页制作信息管理模块
在系统主窗体左侧的列表中，单击“网页制作”节点，选择“求职信息管理”分支节点，此时打开网页制作求职信息管理模块。
这一模块左侧部分为当前学生求职信息，右侧部分为数据库中还没有找到学生的招聘信息，如果选择某条招聘信息，然后单击“〈〈==”按钮，即可将此学生与招聘信息搭配，从而完成一对信息的组合。
选择“求职信息查询”分支节点，此时打开求职信息查询模块。
6、程序员信息管理模块
在系统主窗体左侧的列表中，单击“软件开发”节点，选择“程序员信息管理”分支节点，此时打开程序员求职信息管理模块。
选择“程序员信息查询”分支节点，此时打开程序员求职信息查询模块。
7、软件信息管理模块
在系统主窗体左侧的列表中，单击“软件开发”节点，选择“软件信息管理”分支节点，此时打开软件信息管理模块。
选择“软件信息查询”分支节点，此时打开软件信息查询模块。
数据库设计
数据库在一个管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。 内容来自think58 [资料来源：THINK58.com]
对于数据库应用程序来说，数据库的设计与创建是进行程序设计的基石，对于Visual Foxpro来说，其数据库的创建一般要包括数据库的设计和数据库的创建两个步骤。
2.1设计数据库
通过前面的分析可知，本系统的数据库应当包括如下的几部分：
 教师信息表   用来保存找家教兼职的学生信息，即“教师”信息；
 学生信息表   用来保存家教信息；
 网页招聘表   用来保存公司希望寻找能够参与网页制作工作的兼职人员；
 网页求职表   用来保存希望从事网页制作方向兼职的学生的信息；
 软件信息表   用来保存公司希望寻找能够参与软件开发工作的兼职人员；
 软件求职表  用来保存希望从事软件开发方向兼职的学生的信息；
 系统信息表  用来保存用户名和密码以及访问权限等信息。
添加模块
为工程添加一个模块，在该模块内定义这个全局变量。
Option Explicit
Public conn As New ADODB.Connection     '标记连接对象
Public userID As String
Public username As String
3.3通用变量声明 [资料来源：http://www.THINK58.com]
首先在程序的通用变量声明部分定义几个本系统中需要用到的变量，包括与各个数据表相对应的数据访问对象，标记各个数据表状态的变量，标记选定表格内收件号码的变量等。
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            '当前选择的教师编号

本文来自think58

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控件的位置和状态。具体代码如下：
然后打开各个数据表。在打开数据表之前应先检查该数据表是否已经打开，如果重复打开将会出现错误操作。 本文来自think58

[资料来源：www.THINK58.com]

打开学生求职表之前，应检查变量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 [来源：http://think58.com]
            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

本文来自think58 [来源：http://www.think58.com]

  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      '显示最后一条记录 内容来自think58
            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 [资料来源：http://www.THINK58.com]
            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, , "程序员信息查询") think58好，好think58 [来源：http://www.think58.com]
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