VB+ACCESS兼职中介管理系统论文

兼职中介管理系统【摘要】 随着市场经济不断活跃，中介在帮助供需双方进行更好的信息交流方面作用越来越多。目前，随着单位职工人员流动量的不断增加，越来越多的应聘者和招聘者需要沟通，其中中介的作用是不可忽视的。本系统是专门为大学生寻找兼职而开发的中介管理系统，其中包括找家教、网页制作兼职、软件开发兼职、硬件设计兼职等，从而对供需双方进行交流提供非常有效的服务。每一部分都包括招聘者信息和求职者信息以及招聘信息和求职信息的查询功能。本系统以中文版VisualBasic6.0为前台开发工具，用中文版Access2000作为后台数据库。VisualBasic6.0，它是由美国微软公司推出的小型数据库开发语言，由于其使用方便，硬件要求不高，易学等特点，它还提供强有力的应用程序开发工具，为将来的维护提供必要的基础。系统的操作对人员的素质的要求不高，只需对他们稍加培训便能胜任。【关键字】中介，数据库，VB6.0目 录摘要11、第一章系统设计与分析.31.1可行性研究31.2系统功能分析研究41.3系统功能设计62、第二章数据库设计.83、第三章主窗体设计.174、第四章家教求职管理模块设计.305、第五章学生信息管理模块设计.376、第六章数据报表功能设计 .437、第七章系统测试.488、第八章结论与体会.549、参考文献.55兼职中介管理系统的开发与实现第一章 系统设计与分析1.1可行性研究计算机管理的意义：在各大企事业单位中，用计算机管理信息已经越来越普遍了。用计算机不但可以提高工作效率，而且还节省了许多人力物力，增强了资料的安全性。提高了管理能力，为此，用计算机来管理信息，是非常必要的。我作为一个计算机信息管理专业的大学生，希望能有所贡献。用我五年的所学编制了一个实用的兼职中介管理系统。可行性研究：目的：可行性研究的目的是用最小的代价在尽可能的时间内确定问题是否能够解决。经济上可行性：现在，计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开发，为中介管理人员工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：第一，本系统的运行可以代替人工进行许多繁杂的劳动；第二，本系统的运行可以节省许多资源；第三，本系统的运行可以大大的提高中介工作人员的工作效率；第四，本系统可以使敏感文档更加安全，等等。所以，本系统在经济上是可行的。技术上可行性：为本系统的开发我特地对*市九鼎中介和*市诚信中介进行了深入的调查研究。本系统的开发具有一定的实用价值。运行上可行性：本系统作为一个小型的中介管理系统，所耗费的资源非常的小，单位内部的电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。法律可行性：本系统为本人毕业设计，在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。1.2系统功能分析通过对用户需求的具体调研和分析，确定本系统应具备的功能包括家教信息管理、网页制作信息管理、软件开发信息管理、系统信息管理等，具体主要包括如下功能模块：1、系统主窗体运行本系统程序，首先出现登录界面，输入正确的用户名和密码后进入主窗体。这个系统只用到了一个窗体，在这个窗体中完成所有的管理和查询功能。其中所有的管理功能都分布在不同的模块内。系统主窗体主要由菜单栏、工具栏和主界面组成。其中菜单栏包括“业务”和“系统”两个菜单。工具栏上有10个按钮，分别是“增加”、“修改”、“删除”、“确定”、“取消”、“打印”、“上一条”、“下一条”、“第一条”、“最后一条”。单击这10个按钮分别对应相应的功能。2、家教信息管理模块在系统主窗体左侧的列表中，单击“家教求职”节点，选择“教师信息管理”分支节点，此时打开教师信息管理模块。这一模块左侧部分为当前教师信息，右侧部分为数据库中还没有找到教师的学生信息，如果选择某条学生信息，然后单击“=”按钮，即可将此学生与教师信息搭配，从而完成一对信息的组合。选择“教师信息查询”分支节点，此时打开教师信息查询模块。3、家长求教信息管理模块在系统主窗体左侧的列表中，单击“家长求教”节点，选择“学生信息管理”分支节点，此时打开学生信息管理模块。这一模块左侧部分为当前学生信息，右侧部分为数据库中还没有找到学生的教师信息，如果选择某条教师信息，然后单击“=”按钮，即可将此学生与教师信息搭配，从而完成一对信息的组合。选择“学生信息查询”分支节点，此时打开学生信息查询模块。4、网页制作信息管理模块在系统主窗体左侧的列表中，单击“网页制作”节点，选择“招聘信息管理”分支节点，此时打开网页制作招聘信息管理模块。这一模块左侧部分为当前招聘信息，右侧部分为数据库中还没有找到工作的学生信息，如果选择某条学生信息，然后单击“=”按钮，即可将此学生与招聘信息搭配，从而完成一对信息的组合。选择“招聘信息查询”分支节点，此时打开招聘信息查 询 模块。5、网页制作信息管理模块在系统主窗体左侧的列表中，单击“网页制作”节点，选择“求职信息管理”分支节点，此时打开网页制作求职信息管理模块。这一模块左侧部分为当前学生求职信息，右侧部分为数据库中还没有找到学生的招聘信息，如果选择某条招聘信息，然后单击“=”按钮，即可将此学生与招聘信息搭配，从而完成一对信息的组合。选择“求职信息查询”分支节点，此时打开求职信息查询模块。6、程序员信息管理模块在系统主窗体左侧的列表中，单击“软件开发”节点，选择“程序员信息管理”分支节点，此时打开程序员求职信息管理模块。选择“程序员信息查询”分支节点，此时打开程序员求职信息查询模块。7、软件信息管理模块在系统主窗体左侧的列表中，单击“软件开发”节点，选择“软件信息管理”分支节点，此时打开软件信息管理模块。选择“软件信息查询”分支节点，此时打开软件信息查询模块。1.3系统功能模块设计通过对用户需求的具体调研和分析，确定本系统应具备的功能包括家教信息管理、网页制作信息管理、软件开发信息管理、系统信息管理，系统具体的模块组织结构如图1所示。图1 系统总体功能设计兼职中介管理系统家教信息管理 网页操作信息管理 软件开发信息管理 系统信息管理家教信息登记 家教信息查询 学生信息登记 学生信息查询 网页信息登记 网页信息查询 网页应聘登记 网页应聘查询 软件开发登记 软件开发查询 软件应聘登记 软件应聘查询 修改密码 退出系统第二章 数据库设计数据库在一个管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。对于数据库应用程序来说，数据库的设计与创建是进行程序设计的基石，对于VisualFoxpro来说，其数据库的创建一般要包括数据库的设计和数据库的创建两个步骤。2.1设计数据库通过前面的分析可知，本系统的数据库应当包括如下的几部分： 教师信息表 用来保存找家教兼职的学生信息，即“教师”信息； 学生信息表 用来保存家教信息； 网页招聘表 用来保存公司希望寻找能够参与网页制作工作的兼职人员； 网页求职表 用来保存希望从事网页制作方向兼职的学生的信息； 软件信息表 用来保存公司希望寻找能够参与软件开发工作的兼职人员； 软件求职表 用来保存希望从事软件开发方向兼职的学生的信息； 系统信息表 用来保存用户名和密码以及访问权限等信息。1、教师信息表教师信息表包括教师编号、教师姓名、性别、年龄、籍贯、学校、专业、年级、职务、高考成绩、特长、爱好、联系电话、身份证号码、通信地址、当前状态、受理人、受理费用、学生编号、出生日期、登记日期等字段。各个字段的属性设置如表1所示。表1 教师信息表字段名 数据类型 说明 是否为主键教师编号 文本 字段大小50 是教师姓名 文本 字段大小10 否性别 文本 字段大小30 否年龄 文本 字段大小10 否籍贯 文本 字段大小25 否学校 文本 字段大小50 否专业 文本 字段大小50 否年级 文本 字段大小6 否职务 文本 字段大小200 否高考成绩 文本 字段大小50 否特长 数字 长整型 否爱好 文本 字段大小50 否联系电话 文本 字段大小10 否身份证号码 数字 长整型 否通信地址 文本 字段大小50 否当前状态 文本 字段大小5 否受理人 文本 字段大小5 否受理费用 文本 字段大小5 否学生编号 文本 字段大小5 否出生日期 日期/时间 无 否登记日期 日期/时间 无 否2、学生信息表学生信息表应包含学生编号、学生姓名、性别、年龄、学校、年级、平时成绩、学习状况、希望辅导科目、预期目标、家庭住址、联系电话、愿付报酬、联系人、身份证号码、状态、教师编号、受理人、收费、受理日期等字段。各字段的属性设置如表2所示。表2 学生信息表字段名 数据类型 说明 是否为主键学生编号 文本 字段大小50 是学生姓名 文本 字段大小10 否性别 文本 字段大小50 否年龄 文本 字段大小20 否学校 文本 字段大小5 否年级 文本 字段大小5 否平时成绩 文本 字段大小50 否学习状况 文本 字段大小50 否希望辅导科目 文本 字段大小20 否预期目标 文本 字段大小5 否家庭住址 文本 字段大小5 否联系电话 文本 字段大小50 否愿付报酬 文本 字段大小20 否联系人 文本 字段大小5 否身份证号码 文本 字段大小5 否状态 文本 字段大小50 否教师编号 文本 字段大小50 否受理人 文本 字段大小20 否收费 文本 字段大小20 否受理日期 日期/时间 无 否3、网页招聘表网页招聘表包括收件号、公司名称、网站类型、主要工作、工作地点、工作时间、报酬、招聘对象、需要的技术、完成时间、联系人、联系电话、身份证号码、备注、受理人、受理费用、状态、学生收件号、登记日期等字段，字段属性设置如表3所示。表3 网页招聘表字段名 数据类型 说明 是否为主键收件号 文本 字段大小50 是公司名称 文本 字段大小10 否网站类型 文本 字段大小50 否主要工作 文本 字段大小20 否工作地点 文本 字段大小5 否工作时间 文本 字段大小5 否报酬 文本 字段大小50 否招聘对象 文本 字段大小50 否需要的技术 文本 字段大小20 否完成时间 文本 字段大小5 否联系人 文本 字段大小5 否联系电话 文本 字段大小50 否身份证号码 文本 字段大小20 否备注 文本 字段大小5 否受理人 文本 字段大小5 否受理费用 文本 字段大小50 否状态 文本 字段大小50 否学生收件号 文本 字段大小20 否登记日期 日期/时间 无 否4、网页求职表网页求职表包括收件号、学生姓名、性别、年龄、籍贯、学校、专业、年级、职务、特长、爱好、联系电话、身份证号码、通信地址、当前状态、受理人、受理费用、项目收件号、登记日期等字段。字段属性设置如表4所示。表4 网页求职表字段名 数据类型 说明 是否为主键收件号 文本 字段大小50 是学生姓名 文本 字段大小10 否性别 文本 字段大小50 否年龄 文本 字段大小20 否籍贯 文本 字段大小5 否学校 文本 字段大小5 否专业 文本 字段大小50 否年级 文本 字段大小50 否职务 文本 字段大小20 否特长 文本 字段大小5 否爱好 文本 字段大小5 否联系电话 文本 字段大小50 否身份证号码 文本 字段大小20 否通信地址 文本 字段大小5 否当前状态 文本 字段大小5 否受理人 文本 字段大小50 否受理费用 文本 字段大小50 否项目收件号 文本 字段大小20 否登记日期 日期/时间 无 否5、软件信息表软件信息表包括收件号、公司名称、软件类型、主要工作、工作地点、工作时间、报酬、招聘对象、需要的技术、完成时间、联系人、联系电话、身份证号码、备注、受理人、受理费用、状态、学生收件号、登记日期等字段。字段属性设置如表5所示。字段名 数据类型 说明 是否为主键收件号 文本 字段大小50 是公司名称 文本 字段大小10 否软件类型 文本 字段大小50 否主要工作 文本 字段大小20 否工作地点 文本 字段大小5 否工作时间 文本 字段大小5 否报酬 文本 字段大小50 否招聘对象 文本 字段大小50 否需要的技术 文本 字段大小20 否完成时间 文本 字段大小5 否联系人 文本 字段大小5 否联系电话 文本 字段大小50 否身份证号码 文本 字段大小20 否备注 文本 字段大小5 否受理人 文本 字段大小5 否受理费用 文本 字段大小50 否状态 文本 字段大小50 否学生收件号 文本 字段大小20 否登记日期 日期/时间 无 否6、软件求职表软件求职表包括收件号、学生姓名、性别、年龄、籍贯、学校、专业、年级、职务、语言特长、爱好、曾有作品、联系电话、身份证号码、通信地址、当前状态、受理人、受费费用、项目收件号、登记日期等字段。字段属性设置如表6所示。表6 软件求职表字段名 数据类型 说明 是否为主键收件号 文本 字段大小50 是学生姓名 文本 字段大小10 否性别 文本 字段大小50 否年龄 文本 字段大小20 否籍贯 文本 字段大小5 否学校 文本 字段大小5 否专业 文本 字段大小50 否年级 文本 字段大小50 否职务 文本 字段大小20 否语言特长 文本 字段大小5 否爱好 文本 字段大小5 否曾有作品 文本 字段大小5 否联系电话 文本 字段大小50 否身份证号码 文本 字段大小20 否通信地址 文本 字段大小5 否当前状态 文本 字段大小5 否受理人 文本 字段大小50 否受理费用 文本 字段大小50 否项目收件号 文本 字段大小20 否登记日期 日期/时间 无 否7、系统信息表对于系统信息表，字段名称为用户名、密码、权限。具体字段设置如表7所示。表7 系统信息表字段名 数据类型 说明 是否为主键用户名 文本 字段大小20 否密码 文本 字段大小20 否权限 文本 字段大小20 否第三章 主窗体设计3.1界面设计打开VisualBasic6.0，系统将自动建立一个Form窗体，然后使用菜单编辑系统主菜单，如图2所示。菜单的Caption和Name属性如表8所示。表8 菜单属性设置Caption Name业务 Yewu教师信息管理 Jiaoshiman教师信息查询 Jiaoshifind学生信息管理 Chushouman学生信息查询 Chushoudanfind网页招聘信息管理 Pagezhaoman网页招聘信息查询 Pagezhaofind网页求职信息管理 Pageqiuman网页求职信息查询 Pageqiufind软件招聘信息管理 Ruanjianzhaoman软件招聘信息查询 Ruanjianzhaofind软件求职信息管理 Ruanjianqiuman软件求职信息查询 Ruanjianqiufind系统 Sys修改密码 Changepwd退出系统 exitsys窗体中添加一个Picture控件，并选择一幅图片作为此窗体的背景图片。设计中的系统左边为一树型目录，单击某一管理或查询模块，则在右侧主要部分显示相应模块的内容，因此，所有的控件都要添加到这个主窗体。添加TreeView控件，放置到窗体的左侧。添加该控件的步骤如下：（1）依次选择“工程” “部件”菜单，打开“部件”对话框如图3所示。图3 部件对话框（2）在“控件”选项卡中的列表内选中“MicrosoftWindowsCommonControls6.0(SP4)复选框，单击“确定”按钮，在工具箱内出现TreeView控件的图标。（3）单击TreeView控件图标，按住鼠标左键不放并将其施放到合适的位置即可。此时，TreeView控件添加完毕。再添加一个Picture控件，这个控件将是所有管理和查询模块的基础。以后所有的管理模块都位于一组Picture控件数组上。Picture数组含有12个元素，如果要创建该数组就应包含12个管理及查询模块。 单击Picture控件，然后复制，单击Picture控件外的任何地方，粘贴刚才复制的Picture控件，这时会提示是否要建立控件数组，单击“是”按钮。用同样的方法，粘贴11个Picture控件， 这时就构成了一个含有12个元素的Picture控件数组。所有Picture控件的具体设置，如位置，是否可见等，都将在代码中进行。在每一个Picture控件中添加相应的Label控件和Text控件。如在教师信息管理模块中需要用到的Picture2(0)控件上，添加含有18个元素的文本框控件、Label控件表格控件、按钮控件和一个Dtpicker控件，按钮控件命名为cmdjiaoshi。对于教师信息查询模块，添加OptionBox控件，按钮控件和表格控件，添加好控件的窗体如图4所示。3.2添加模块为工程添加一个模块，在该模块内定义这个全局变量。OptionExplicitPublicconnAsNewADODB.Connection 标记连接对象PublicuserIDAsStringPublicusernameAsString3.3通用变量声明首先在程序的通用变量声明部分定义几个本系统中需要用到的变量，包括与各个数据表相对应的数据访问对象，标记各个数据表状态的变量，标记选定表格内收件号码的变量等。OptionExplicitDimtxttblAsStringDimrs_jiaoshiAsNewADODB.Recordset 教师数据对象Dimrs_xueshengAsNewADODB.Recordset 学生数据对象Dimrs_pagezhaoAsNewADODB.Recordset网页制作招聘数据对象Dimrs_pageqiuAsNewADODB.Recordset 网页制作求职数据对象Dimrs_ruanzhaoAsNewADODB.Recordset 软件开发招聘数据对象Dimrs_ruanqiu As New ADODB.Recordset 软件开发求职数据对象 DimdatanumAsInteger 选定的编号DimstateAsString 标记状态DimnumjiaoshiAsString 当前选择的教师编号DimnumstuAsString 当前选择的学生编号DimnumpagexueAsString 当前选择的寻找网页制作工作的学生编号DimnumpagejobAsString 当前选定的公司编号DimnumruanxueAsString 当前选择的寻找软件开发工作的学生编号DimnumruanjobAsString 当前选定的公司编号DimjiaoshistateAsBooleanDimxueshengstateAsBooleanDimpagezhaostateAsBooleanDimpageqiustateAsBooleanDimruanzhaostateAsBooleanDimruanqiustateAsBooleanDim savestate As Integer 新建保存为1，修改保存为2，出租保存为3，出售保存为4DimsavebackAsBoolean3.4窗体加载窗体加载的时候，首先设置各个Picture控件的位置，然后设置TreeView控件的节点，同时打开各个数据表。首先设置Picture控件的位置和状态。具体代码如下：然后打开各个数据表。在打开数据表之前应先检查该数据表是否已经打开，如果重复打开将会出现错误操作。打开学生求职表之前，应检查变量jiaoshistate的值是否为False，如果为False表示未打开数据表，此时可以打开，并调用过程viewjiaoshibiao显示数据信息。具体代码如下：学生求职管理部分的设置Ifjiaoshistate=FalseThensql=select*from 教师信息rs_jiaoshi.CursorLocation=adUseClientrs_jiaoshi.Opensql,conn,adOpenKeyset,adLockPessimisticrs_jiaoshi.MoveLast 显示最后一条记录datanum=rs_jiaoshi.RecordCountviewjiaoshibiaojiaoshistate=TrueEndIf学生找家教管理部分的设置Ifxueshengstate=FalseThensql=select*from 学生信息rs_xuesheng.CursorLocation=adUseClientrs_xuesheng.Opensql,conn,adOpenKeyset,adLockPessimisticrs_xuesheng.MoveLast 显示最后一条记录datanum=rs_xuesheng.RecordCountviewxueshengbiaoxueshengstate=TrueEndIf网页招聘信息管理部分的设置Ifpagezhaostate=FalseThensql=select*from 网页招聘rs_pagezhao.CursorLocation=adUseClientrs_pagezhao.Opensql,conn,adOpenKeyset,adLockPessimisticrs_pagezhao.MoveLast 显示最后一条记录datanum=rs_pagezhao.RecordCountviewpagezhaopagezhaostate=TrueEndIf网页制作求职信息管理部分的设置Ifpageqiustate=FalseThensql=select*from 网页求职rs_pageqiu.CursorLocation=adUseClientrs_pageqiu.Opensql,conn,adOpenKeyset,adLockPessimisticrs_pageqiu.MoveLast 显示最后一条记录datanum=rs_pageqiu.RecordCountviewpageqiupageqiustate=TrueEndIf软件招聘信息管理部分的设置Ifruanzhaostate=FalseThensql=select*from 软件招聘rs_ruanzhao.CursorLocation=adUseClientrs_ruanzhao.Opensql,conn,adOpenKeyset,adLockPessimisticrs_ruanzhao.MoveLast 显示最后一条记录datanum=rs_ruanzhao.RecordCountviewruanzhaoruanzhaostate=TrueEndIf软件求职信息管理部分的设置Ifruanqiustate=FalseThensql=select*from 软件求职rs_ruanqiu.CursorLocation=adUseClientrs_ruanqiu.Opensql,conn,adOpenKeyset,adLockPessimisticrs_ruanqiu.MoveLast 显示最后一条记录datanum=rs_ruanqiu.RecordCountviewruanqiuruanqiustate=TrueEndIf在代码中为TreeView控件添加节点信息。DimnodXAsNodeSetnodX=TreeView1.Nodes.Add(,家教求职)SetnodX=TreeView1.Nodes.Add(1,tvwChild,教师信息管理)SetnodX=TreeView1.Nodes.Add(1,tvwChild,教师信息查询)SetnodX=TreeView1.Nodes.Add(,家长求教)SetnodX=TreeView1.Nodes.Add(4,tvwChild,学生信息管理)SetnodX=TreeView1.Nodes.Add(4,tvwChild,学生信息查询)SetnodX=TreeView1.Nodes.Add(,网页制作)SetnodX=TreeView1.Nodes.Add(7,tvwChild,招聘信息管理)SetnodX=TreeView1.Nodes.Add(7,tvwChild,招聘信息查询)SetnodX=TreeView1.Nodes.Add(7,tvwChild,求职信息管理)SetnodX=TreeView1.Nodes.Add(7,tvwChild,求职信息查询)SetnodX=TreeView1.Nodes.Add(,软件开发)SetnodX=TreeView1.Nodes.Add(12,tvwChild,程序员信息管理)SetnodX=TreeView1.Nodes.Add(12,tvwChild,程序员信息查询)SetnodX=TreeView1.Nodes.Add(12,tvwChild,软件信息管理)SetnodX=TreeView1.Nodes.Add(12,tvwChild,软件信息查询)SetnodX=TreeView1.Nodes.Add(,系统设置)SetnodX=TreeView1.Nodes.Add(17,tvwChild,更改口令)EndSub3.5实现TreeView控件功能程序运行的过程中，单击Treeview控件将引发Treeview1_Click事件，该控件将作出相应的反映。根据当前单击的节点名称来执行相应的操作。这一部分的代码设置如下：PrivateSubTreeView1_Click()OnErrorGoToclickerrorDimiAsIntegerDimjAsIntegerDimsqlAsStringi=TreeView1.SelectedItem.IndexIfTreeView1.SelectedItem.Children0Thentxttbl=TreeView1.SelectedItem.TextIfTreeView1.SelectedItem.Expanded=TrueThenTreeView1.SelectedItem.Expanded=FalseElseTreeView1.SelectedItem.Expanded=TrueEndIfEndIfSelectCaseTreeView1.SelectedItem.TextCase教师信息管理Picture2(0).Visible=TruePicture2(1).Visible=FalsePicture2(2).Visible=FalsePicture2(3).Visible=FalsePicture2(4).Visible=FalsePicture2(5).Visible=FalsePicture2(6).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=FalsePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=Falsestate=教师信息管理Toolbar1.Enabled=TrueCase教师信息查询Picture2(1).Visible=TruePicture2(0).Visible=FalsePicture2(2).Visible=FalsePicture2(3).Visible=FalsePicture2(4).Visible=FalsePicture2(5).Visible=FalsePicture2(6).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=FalsePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=Falsestate=教师信息查询Toolbar1.Enabled=FalseCase学生信息管理Picture2(2).Visible=TruePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(3).Visible=FalsePicture2(4).Visible=FalsePicture2(5).Visible=FalsePicture2(6).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=FalsePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=Falsestate=学生信息管理Toolbar1.Enabled=TrueCase学生信息查询Picture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(3).Visible=TruePicture2(4).Visible=FalsePicture2(5).Visible=FalsePicture2(6).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=FalsePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=Falsestate=学生信息查询Toolbar1.Enabled=FalseCase招聘信息管理Picture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(3).Visible=FalsePicture2(5).Visible=FalsePicture2(6).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=FalsePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=FalsePicture2(4).Visible=Truestate=招聘信息管理Toolbar1.Enabled=TrueCase招聘信息查询Picture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(5).Visible=TruePicture2(4).Visible=FalsePicture2(6).Visible=FalsePicture2(3).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=FalsePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=Falsestate=招聘信息查询Toolbar1.Enabled=FalseCase求职信息管理Picture2(6).Visible=TruePicture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(3).Visible=FalsePicture2(5).Visible=FalsePicture2(7).Visible=FalsePicture2(4).Visible=FalsePicture2(8).Visible=FalsePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=Falsestate=求职信息管理Toolbar1.Enabled=TrueCase求职信息查询Picture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(5).Visible=FalsePicture2(4).Visible=FalsePicture2(6).Visible=FalsePicture2(3).Visible=FalsePicture2(7).Visible=TruePicture2(8).Visible=FalsePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=Falsestate=求职信息查询Toolbar1.Enabled=FalseCase程序员信息管理Picture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(5).Visible=FalsePicture2(4).Visible=FalsePicture2(6).Visible=FalsePicture2(3).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=FalsePicture2(9).Visible=Truestate=程序员信息管理Toolbar1.Enabled=TrueCase程序员信息查询Picture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(5).Visible=FalsePicture2(4).Visible=FalsePicture2(6).Visible=FalsePicture2(3).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=TruePicture2(9).Visible=FalsePicture2(11).Visible=FalsePicture2(10).Visible=Falsestate=程序员信息查询Toolbar1.Enabled=FalseCase软件信息管理Picture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(5).Visible=FalsePicture2(4).Visible=FalsePicture2(6).Visible=FalsePicture2(3).Visible=FalsePicture2(7).Visible=FalsePicture2(8).Visible=FalsePicture2(11).Visible=FalsePicture2(9).Visible=FalsePicture2(10).Visible=Truestate=软件信息管理Toolbar1.Enabled=TrueCase软件信息查询Picture2(2).Visible=FalsePicture2(0).Visible=FalsePicture2(1).Visible=FalsePicture2(5).Visible=FalsePicture2(4).Visible=FalsePicture2(6).Visible=FalsePicture2(3).Visible=FalsePicture2(7).Visible=FalsePicture2(11).Visible=TruePicture2(9).Visible=FalsePicture2(8).Visible=FalsePicture2(10).Visible=Falsestate=软件信息查询Toolbar1.Enabled=FalseCase更改口令frmchangepwd.ShowEndSelectExitSubclickerror:MsgBoxErr.DescriptionEndSub3.6实现工具栏的功能由于主窗体用到了工具栏，因此需要对这个工具栏内的按钮响应进行设置。PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.Key按关键字选择Casebt_new 新建按钮datanewButton.Enabled=FalseToolbar1.Buttons(2).Enabled=FalseToolbar1.Buttons(3).Enabled=FalseToolbar1.Buttons(4).Enabled=TrueToolbar1.Buttons(5).Enabled=Truesavestate=1Casebt_modify 修改按钮Toolbar1.Buttons(1).Enabled=FalseToolbar1.Buttons(2).Enabled=FalseToolbar1.Buttons(3).Enabled=FalseToolbar1.Buttons(4).Enabled=TrueToolbar1.Buttons(5).Enabled=Truesavestate=2modifyCasebt_delete 删除按钮datadeleteCasebt_save 保存按钮datasaveIfsaveback=FalseThenButton.Enabled=FalseToolbar1.Buttons(1).Enabled=TrueToolbar1.Buttons(2).Enabled=TrueToolbar1.Buttons(3).Enabled=TrueToolbar1.Buttons(5).Enabled=FalseEndIfCasebt_cancel 取消按钮datacancelButton.Enabled=FalseToolbar1.Buttons(1).Enabled=TrueToolbar1.Buttons(2).Enabled=TrueToolbar1.Buttons(3).Enabled=TrueToolbar1.Buttons(4).Enabled=FalseCasebt_print 打印按钮dataprintCasebt_first 移动到第一条按钮dataMoveFirstCasebt_previous 移动到前一条按钮dataMovePreviousCasebt_next 移动到下一条按钮datamovenextCasebt_last 移动到最后一条按钮datamovelaseEndSelectEndSub 第四章 实现家教求职管理模块4.1实现显示教师信息功能根据上面的介绍，打开教师信息管理模块后，首先调用viewjiaoshibiao过程显示教师信息。viewjiaoshibiao过程分为两个部分，一部分用来在文本框中显示每一条教师信息，另外一部分用来在表格中显示目前没有找到教师的学生信息。具体的代码如下：PublicSubviewjiaoshibiao()DimiAsInteger显示教师信息Fori=0To18IfNotIsNull(rs_jiaoshi.Fields(i)Thentxtstuqiu(i).Text=rs_jiaoshi.Fields(i)txtstuqiu(i).Enabled=FalseElse txtstuqiu(i).Text=EndIfNextiIfNotIsNull(rs_jiaoshi.Fields(19)ThenDTPicker1.Value=rs_jiaoshi.Fields(19)EndIfIfNotIsNull(rs_jiaoshi.Fields(20)ThenDTPicker2.Value=rs_jiaoshi.Fields(20)EndIf显示表格中的学生信息Dimrs_stuAsNewADODB.RecordsetDimsqlAsStringsql=select 学生编号,学生姓名,希望辅导科目 from 学生信息 where 状态=未找到教师rs_stu.CursorLocation=adUseClientrs_stu.Opensql,conn,adOpenKeyset,adLockPessimisticWithMSHFlexGrid1.ScrollBars=flexScrollBarBoth.FixedCols=1.Rows=rs_stu.RecordCount+1.Cols=3.SelectionMode=flexSelectionByRowFori=0To.Rows-1.RowHeight(i)=315NextFori=0To.Cols-1.ColWidth(i)=1300Nexti下面设置表头.Row=0.Col=0.Text=学生编号.Col=1.Text=学生姓名.Col=2.Text=希望辅导科目IfNotrs_stu.EOFThenrs_stu.MoveFirstEndIfWhileNotrs_stu.EOF.Row=.Row+1.Col=0.Text=rs_stu.Fields(0).Col=1.Text=rs_stu.Fields(1).C