毕业设计-教务信息系统发布子系统论文.doc

毕 业 论 文 论文题目：教务信息系统发布子系统学 院： 专 业： 年 级： 姓 名： 指导教师： 职 称： 教务信息系统发布子系统摘 要：教务管理系统应用计算机在数据处理和数据整理保存方面的优异性能，帮助工作人员提高工作的效率、减少出错情况。它能提供快速的查询检索功能以及按要求进行成绩单的打印的功能。我们采用microsoft visual basic和access数据库开发工具，开发了本系统。本系统包括以下几部分：(1)成绩查询；(2)教材查询；(3)教师网上成绩打印系统；(4)课表查询关键字： 管理系统；查询；数据库the information system of the educational administration releases the subsystemabstract：the administrative system of the educational administration uses the computer to put the excellent performance which is kept the respect in order in data processing and data, help staff member raise efficiency, reduce the situation of making mistakes. it can offer fast inquiry search function and carry on function typed of school report on request at the same time.we develop it with microsoft visual basic and access database.this system includes several following parts:(1)inquiry of marks of the examination of the grades; (2)teaching material inquiry; (3)mr. online score types the system; (4)school timetable inquiry key words: administrative system of the educational administration; inquiry; database目 录1 系统的分析与定义11.1 需求分析 11.2 系统的开发思路 21.2.1编程环境的选择 21.2.2关系型数据库的实现 31.2.3 二者的结合(dba)32系统总体规划 32.1 系统功能 32.2 数据库建立 43 系统具体实现 73.1 主控模块mdi窗体的设计73.1.1主控模块功能73.1.2 建立界面73.1.3 设置对象属性.83.1.4 代码设计 83.2 成绩查询模块的设计.83.2.1 查询模块的功能 83.2.2 建立界面 83.3 教材查询模块的设计123.3.1 教材查询模块的功能123.3.2 建立界面123.3.3 设计对象属性133.4 课程表查询模块133.4.1课程表查询模块的功能133.4.2 建立界面133.5 考试安排模块的查询143.5.1考试安排模块的功能143.5.2建立界面143.6打印模块的设计153.6.1打印模块的功能153.6.2功能实现153.7 程序调试与异常处理15结束语16参考文献16致谢17附 录18前 言教务管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以该系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、保密性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生信息管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。我们结合实际工作需要，采用microsoft visual basic 6.0和access数据库技术开发了综合教务管理子系统，本系统该系统界面友好，操作简便，能完成查询成绩、考场安排、统计数据、打印成绩单及系课表查询等功能。使用该系统，可以大大提高工作效率，减少差错。本系统设计时采用了常用的自顶向下的瀑布式结构化设计方法。各子系统具有独立的数据库结构，设计时力求简单易用，便于维护。各模块为平行关系，彼此间无直接的参数联系，也无库的交叉关联，从而保证各子系统可以单独运行。以适应各个方向的查询需要。1.系统的分析与定义1.1 需求分析“百年大计，教育为本。”可见教育在国家的建设与发展中起着重要的作用，占据着重要的战略地位，特别是今年来科学地位的快速发展，学校的教育管理水平不断地提高，积极地推动了我国教育事业的发展，计算机的引用与普及进一步加快了学校的信息化管理。在传统模式下利用人工进行学生信息管理，存在着较多的缺点，如：效率底，保密性差，时间一长将产生大量的文件和数据，更不便于查找，更新，维护等。诸如这些情况，令学校管理者对学生的信息管理带来了很大困难，严重影响了教育工作者的工作效率，针对这些情况，我们可使用日趋成熟的计算机技术来代替传统的人工模式，来实现学生信息的现代化管理，这一技术具有手工管理所无法比拟的优点，如：检索迅速，查找方便，可靠性高，存储量大，保密性好，寿命长，成本底等。这些优点能够极大地提高学生信息管理的效率，使我们的学校在市场经济的发展过程中具有一定的竞争优势，也是企业实现科学化，正规化，现代化的重要条件。用计算机制作的学生信息化管理系统还可以通过功能强大的internet网及时的向学生的家长传递该生在校的最新成绩，有助于学校与家长的信息互动，为更好地把握学校的教育方针起到了一定的促进作用。1.2系统开发思路1.2.1编程环境的选择微软公司visual basic 6.0是windows应用程序开发工具，是目前最为广泛的易学易用的面向对象的开发工具。visual basic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统vb是一个相对较好的选择。windows下的 visual是一种操作方便，使用简单的新工具。visual basic应用程序基本的构建块是用户所创建的对象，每一个对象都具有一些特性和行为（属性事件和方法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可通用性可扩展性和强有力的功能。 visual basic应用由一个系列对象组成，包括在函数菜单结构和数据窗口用户对象用户事件等等，对象中又包含若干控件如命令按钮单行编辑器等这些对象和控件都可在许多应用中重复使用。visual basic是一个强大的windows平台上的开发工具，从开发个人或小组使用的小工具，到大型企业应用系统，甚至遍及全球分布式应用程序，都可在visual basic提供的工具中各取所需。visual basic之所以在这么广泛的用途是因为它具有以下特点： 面向对象编程，使开发人员在维护系统运行时只需修改很小的代码，同时也加快了系统开发的速度。 可视化的编程方法，以及向导的功能，使开发人员几乎不用加入太多代码就可以开发出标准的windows程序。 数据访问特性允许对microsoft sql server包括和其他企业数据库在内的大部分数据库格式建立数据库和前端应用程序。 通过activex技术可使用其他应用程序提供的功能，例如microsoft word 字处理器，microsoft excel电子数据表及其他windows应用程序，甚至可以直接使用visual basic创建的应用程序和对象。 internet能力强大，使得在应用程序容易通过internet访问文档和应用程序。 已完成的应用程序是真正的.exe文件，供运行时的可自由发布的动态链接库（ddl）1.2.2关系型数据库的实现access数据库能汇集各种信息以供查询存储和检索。access的优点在于能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于的电子表格，可以使数据库一目了然。另外，access允许创建自定义报表用于打印或输出数据库中的信息。access也提供了存储库，可以使用数据库文件把数据库文件置于网络文件服务器，与其它网络用户共享数据库。access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。它可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。access 具有较多的优点： 文件单一，文件单一便于计算机硬盘上的文件管理，在其他程序中达不到这个效果，这些程序在文件管理上容易造成混乱。 windows 下的长文件名，并且可以在文件名内加空格。这样可以使用叙述性标题，使文件便于理解、查找。 免于dos的束缚，自行处理构成数据库的个别元素。 强大的网络功能。 简便，用户无需了解太多的编程语言，就可以轻松地设计和开发数据库应用程序。 处理多种数据信息，例如文本文件以及其他一些数据库管理系统的数据库文件。1.2.3 二者的结合（dba）微软的jet数据库引擎提供了与数据库打交道的途径，我是通过它以及来访问数据库并对其进行各种操作。visual basic access以及其他微软的软件产品都是通过共用jet数据库引擎，从而给用户提供了丰富的数据类型。2.系统总体规划2.1系统功能2.1.1查询学生成绩里面包括的有四、六级成绩的查询，计算机等级的查询，专接本的查询，期末考试的查询，并带有打印成绩单的功能2.1.2教材信息当学生输入自己所在的专业，就可以查询到目前所开设的课程2.1.3课程表信息当学生想要查询本专业或者想选修其他专业的课程时，就可以很方便的了解到上课所需的信息，包括时间、地点等需求。2.1.4考试安排学生可浏览基本的考试信息情况，便于查询考试的时间、地点、专业等2.1.5系统的维护和安全教务系统业务流程图（如：图1）综合教务系统信息发布子系统顶层数据流程图（如：图2）2.2数据库建立根据对系统功能分析，画出系统功能模块结构图：（如：图3）使用vb60所提供的“可视化数据管理器”建立数据库以及其中的数据表：(1).建立数据库（cet4）在vb集成环境中启动数据管理器：单击“外接程序”菜单下的“可视化数据管理器”命令，打开可视化数据管理器“visdata”窗口。选择“文件”菜单中的“新建”项，在“新建”子菜单中，选择“microsoft access”子菜单中“version 7.0 mdb”，在创建数据库对框中选择保存数据库的路径和库文件名（cet4）后保存。教务系统业务流程图：（图1）注释：教务处面向学生和老师发布关于课表查询、考试安排、成绩查询和教材统计方面的信息，并且可以对于详细情况进行打印.综合教务系统信息发布子系统顶层数据流程图：（图 2）注释：在业务流程图分析的基础上，从系统的科学性、管理的合理性、实际运行的可行性角度出发，绘制出此系统的数据流图的顶层图。其中，信息查询功能又可分为四个模块，包括成绩查询、教材查询、课表查询、还有考试安排查询。教务处课表安排课表发布教师学生打印课表考试安排发布教师学生成绩统计成绩表发布教师学生打印考试安排表打印成绩单教材统计教材发布教师学生打印教材表教材科图1教务系统业务流程图教务处信息查询学生老师图2综合教务系统信息发布子系统顶层数据流程图所建数据库（cet4）的结构为：字段名称类型字段长度 班级名称文本 50 所学院系文本 50(2) 建立表：打开已经建立的access数据库，用鼠标右键单击数据库窗口，在快捷菜单中选择“新建表”，打开“表结构”对话框，输入表名称（cet4），通过“添加字段”进行添加字段，添加完后在“表结构”对话框中单击“生成表”按钮生成表。表1： cet4数据字典字段名称类型字段长度准考证号数字单精度型姓名文本20成绩数字单精度型表2: cet6数据字典字段名称类型字段长度准考证号数字单精度型姓名文本20成绩数字单精度型表3:班级数据字典字段名称类型字段长度班级名称文本20所在院系文本20表4: 教材数据字典字段名称类型字段长度专业名称文本20所学课程文本20表5: 课程表数据字典字段名称类型字段长度班级名称文本20星期文本20上课时间文本20任课教师名称文本20上课地点文本20课程名称文本20表6: 考试安排数据字典字段名称类型字段长度院文本20班级文本20科目文本20时间文本20教室数字20表7: 计算机等级数据字典字段名称类型字段长度准考证号数字单精度型姓名文本20笔试成绩数字单精度型机试成绩数字单精度型是否合格文本20表8: 期末考试数据字典字段名称类型字段长度班级名称文本20学号数字单精度型姓名文本20所学专业文本20成绩数字单精度型3.系统具体实现查询操作流程图:3.1主控模块mdi窗体的设计3.1.1主控模块功能 用户进入系统后，进行人机对话的一个界面。3.1.2建立界面打开visual basic 6.0软件，弹出对话框，选择“标准exe”文件，。进入工程1，对form1.frm窗体进行编辑。首先，点击form1.frm的标题栏，在名称 属性中改为“zhuchuangti ”开始登录界面面判断输入条件是否正确输入？查询模块输入查询条件输出查询结果退出nyn然后，在“工具”菜单中，选择“菜单编辑器”，弹出对话框，在标题栏中输入“成绩查询”，名称栏也输入为“成绩查询”，然后单击“下一个”按纽，在标题栏中输入“四级”，名称为“cet4”,再单击“”符号，于是在“四级”前出现.,这说明四级就成为它的子菜单了。同理，在成绩查询下填加“六级，计算机等级，专生本，期末考试”子菜单。 依次，再增加“教材查询”、“课程表查询”、“考试安排”和“退出系统”菜单。至此，主菜单的界面设计完成。3.1.3设置对象属性修改窗体的属性：caption改为：子系统picture 改为：桌面放置的已修改好的图片设置适当的 font属性。3.1.4代码设计3.2成绩查询模块的设计3.2.1查询模块的功能为方便学生对各个方向的成绩（如：四、六级的成绩，计算机等级成绩，考试成绩、专接本成绩等）查询，该系统不仅提供了单一条件的查询功能，还提供了一个完善的组合查询功能，在不知道准确的单一条件时，可以通过多条件组合进行交叉查询能准确地获得所需要的数据集(基本信息、学生成绩、获奖情况等)。3.2.2建立界面cet-4成绩查询界面和cet-6成绩查询界面的设计.cet-4成绩查询界面在“工程”菜单中选择“添加窗体”对话框，新建“cet4对话框”。它包含有3个标签，2个文本框，3个控制按钮，1个adodc控件设置对象属性为：label1的caption改为属性：cet-4成绩查询 label2的caption改为属性：输入准考证号label3的caption改为属性：成绩text1的text属性设为空text2的text属性设为空修改控件数组command1(1) command1(3)的属性：caption依次、重新查询、返回在cet4窗体适当位置填加adodc控件设置适当的 font属性。在工程中添加“数据环境”在工程中添加“数据环境”的步骤为：在“工程”菜单中，选择“添加data environment”，打开数据环境设计器，同时也为工程添加了一个数据环境dataenvironment1。中包含一个连接对象connection1。用鼠标右键单击“conection1”对象，在弹出的快捷菜单中选择“属性”，打开“数据链接属性”对话框。在“提供者”选项卡中，选择“microsoft jet 3.51 ole db provider”。在“连接”选项中选择所需的数据库路径和名字（cet4），其他设置不变。测试成功后，回到数据环境设计器中。在“connection1”对象中添加一个命令对象command1，打开“command1属性”对话框。在“数据库对象”下拉列表框中选择“表”，在“对象”下拉列表框中选择“cet4”，单击“确定”按钮，返回数据环境设计器，关闭“属性”对话框。程序运行界面为：.cet-6成绩查询界面它的设计和cet-4界面设计一样，这里就不再赘述了代码设计见附录2.计算机等级考试界面在“工程”菜单中选择“添加窗体”对话框，新建“.计算机等级考试”对话框。它包含有3个标签，2个文本框，2个控制按钮，1个adodc控件设置对象属性为：label1的caption改为属性：.计算机等级考试一级 label2的caption改为属性：请输入准考证号label3的caption改为属性：成绩text1的text属性设为空text2的text属性设为空修改控件数组command1(1) command1(3)的属性：caption查询、返回设置适当的 font属性。在“计算机等级考试一级”窗体适当位置填加ado控件程序运行界面为：连接数据源：与连接cet4的方法一样，不过，就是所连表不一样，这次连的表是“nrc1chengji”，以下的连数据库的方法都是这样，但是所需连接的表不一样。其它的“计算机等级成绩查询”的界面和“一级”的设计是类似的，这里就不详谈了代码设计 3.专接本成绩查询界面：在“工程”菜单中选择“添加窗体”对话框，新建“专接本对话框”。它包含有2个标签，1个文本框，3个控制按钮，1个adodc控件，1个datagrid控件设置对象属性为：label1的caption改为属性：. 专接本成绩查询label2的caption改为属性：请输入准考证号text1的text属性设为空text2的text属性设为空修改控件数组command1(1) command1(3)的属性：caption确定、打印、返回设置适当的 font属性。在“专接本”窗体适当位置填加adodc控件和datagrid控件。所连表为“zhuanjieben” 程序运行界面为：代码设计 4.期末考试成绩查询界面在“工程”菜单中选择“添加窗体”对话框，新建“期末考试成绩对话框”。它包含有2个标签，1个文本框，2个控制按钮，1个下拉列表，1个adodc控件和1个datagrid控件。设置对象属性为： label1的caption改为属性：. 期末考试成绩查询 label2的caption改为属性：请输入学号text1的text属性设为空combo的list属性填加有：资环，信管和动物科学修改控件数组command1(1) command1(3)的属性：caption确定、返回设置适当的 font属性。在期末考试成绩查询窗体适当位置填加adodc控件和datagrid控件。所连表为”qimokaoshi”程序运行界面为：代码设计 3.3教材查询模块的设计3.3.1教材查询模块的功能 学生可利用该模块进行教材的浏览和查询，方便预定和使用。3.3.2建立界面在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“jiaocai.frm”。在窗体中增加一个标签组lable1(1) lable1(3)和一个命令按钮控件数组command1(1)command1(3)，一个文本框，一个adodc控件和datagrid控件3.3.3设置对象属性label1的caption改为属性：. 教材查询 label2的caption改为属性：专业label3的caption改为属性：教材 text1的text属性设为空修改控件数组command1(1) command1(3)的属性：caption确定、重新查询、返回设置适当的 font属性。在教材查询窗体适当位置填加adodc控件和datagrid控件。所连表为”jiaocai chaxun”程序运行界面为：3.3.4代码设计见附录3.4课程表查询模块3.4.1课程表查询模块的功能 课程表查询功能是实现学生对课表信息的全面查询，可按班级、星期、任课教师、上课时间、上课地点、课程进行查询。3.4.2建立界面在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“kebiaozong .frm”。设置对象属性在窗体中增加一个单选框组option(1) option(6)和一个标签，在其中增加一个adodc1和一个datagrid控件，然后围绕单选框增加一个框架。属性设置为：label1的caption改为属性：总课程表查询修改单选框组option(1) option(6)的caption属性依次为：按班级查询、按星期查询、按任课教师查询、按上课时间查询、按上课地点查询、按课程查询。设置适当的 font属性。在课程表查询窗体适当位置填加adodc控件和datagrid控件。所连表为”kechengbiao”程序运行界面为：3.5考试安排模块的查询3.5.1考试安排模块的功能 考试安排模块的功能是实现学生对考试信息的全面了解，根据其系统中的任一条件就可搜索到所有考试信息。3.5.2建立界面在“工程”菜单中选择“添加窗体”，打开“添加窗体”对话框，选择添加“窗体”。并将新窗体保存为“考试安排.frm”。在窗体中增加一个标签组lable(1) lable(5)和一个文本框控件数组text(1) text(6),一个frame控件，一个adodc和datagrid控件。2.设置属性为：label1的caption改为属性：考试安排总表 label2的caption改为属性：院label3的caption改为属性：科目label4的caption改为属性：时间label5的caption改为属性：班级label6的caption改为属性：教室修改控件数组command1(1) command1(3)的属性：caption确定、重置、返回设置适当的font属性3.在窗体的适当位置填加adodc控件和datagrid控件。所连表为”last_test”程序运行界面为：3.5.3代码设计见附录3.6打印模块的设计3.6.1打印模块的功能：用于打印考生成绩及其他详细内容，方便用户保留。3.6.2功能实现选择工程菜单的更多“active x”设计器选项，在出现的下拉菜单中选择“dataenvironment”选项。在“connection1”上单击鼠标右键，选择“属性”。出现“data link properties”对话框。在该对话框上选择“microsoft ole db provider for odbc drivers”选项,单击确定。在“connection1”上单击鼠标右键,选择添加命令，连接cet4数据源,出现“command1”属性对话框，设置数据库对象为表，对象名称为”zhuanjieben”.这样就建立好了dataenvironment1.再选择工程菜单中的“添加data report”选项，启动vb报表设计器。将“datareport”报表的datasource属性设置为“dataenvironment1”,datamember属性设为“command1”.这时，专接本的成绩单就可以打印了。3.7 程序调试与异常处理在应用程序的设计过程中，无论是初学者还是编程老手，在编写程序的时候总避免不了各式各样错误的发生。查找应用程序中的错误并修改程序的过程称为调试。vb6.0提供了一组方便的调试工具，开发人员可以方便快捷地找到应用程序中存在的问题，开发出满意的应用程序。为了能够快速确定错误的原因，尽快地排除程序逻辑错误，通常把程序错误划分为三种类型：语法错误,运行错误和逻辑错误。在本次教务管理子系统的程序设计中，也发现了一些错误，通过查阅参考文献资料和老师的精心指导，逐一改正了错误，使程序基本达到了设计意图和设计功能。结束语经过三个多月的设计，教务管理子系统基本设计完毕。其功能基本符合要求，能够完成学生四六级，计算机等级，专接本，期末考试的成绩查询和打印的功能，并包含有教材、课表、考试安排等信息的查询。由于毕业设计时较短，所该系统还有许多不尽如人意的地方，比如用户界面不够美观，出错处理不够等多方面问题。这些都有进一步改善。参考文献1 吴会丛，秦敏，赵玲玲高校教务管理信息系统的设计与实现.河北工业科技2001 (6)2 庄卫华，宗平，张乐基于网络环境教务管理信息系统的几点技术探讨.研究与设计2000 (10)3 冯亚丽，高升，李春生，王庆东基于oracle web的网上选课系统的设计与实现，大庆石油学院学报, 2001 (2)4 李旭东，程仁洪，涂奉生. 基于internet的网上选课系统设计与实现.电脑开发与应用, 2000 (7)5 刑喜荣，张旭东. 面向对象的管理信息系统分析与设计现代电子技术, 1999(10) 6 李听，吕义，王丽艳. 基于c/s模式学分制教务管理系统辽宁工学院学报(白然科学版),2000,（1） 7 陈琦基于校园网的高校教务管理系统的研究2001,38 万小云面向对象知识库管理系统中知识对象模烈的设计上海海运学院学报，2000,19 潘蕾.网上教务管理系统的设计与实践实验室研究与探索,2000,210 金汉均，王林平，刘建清等. 基于网络环境的计算机选课系统的设计与实现.华中师范大学学报，1999 (1)11 庄卫华,宗平,张乐基于网络环境教务管理信息系统的几点技术探讨.研究与设计 2000 (10)12 黎连业,李淑春,管理信息系统设计与实施.第1版清华大学出版社，1998.1013 清华大学.建立21世纪初的大学管理体制和运行机制，清华大学教育研究.1999.214 吴应良,劲平, 高校管理信息系统发展现状和对策.管理信息系统.1999.215 上海市计算机应用能力考核办公室编. 计算机应用教程一visual basic 6.0基础上海,复旦大学出版社，2000.16 王华，叶爱亮，祁立学，曹凌云著visual c+ 6.0编程实例与技巧北京机械工业出版社，1999.17 贾岚.中文access数据库应用教程-数据库开发师北京希望电子出版社200118 美奥莱公司著 潇湘工作室译 中文access2000快速培训教程 出版社：机械工业出版社1999.6致谢在本次毕业设计中，我从指导老师身上学到了很多东西。赵老师认真负责的工作态度，严谨的治学精神深厚的理论水平都使我收益匪浅。他无论在理论上还是实践中，都给与我很大帮助，使得到不少的提高，这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。另外，同组的同学同样给与我不少帮助，这里一并表示感谢。附 录主窗口代码：private sub form_load()end subprivate sub jiaocai_click()unload mejiaocaichaxun.showend subprivate sub kaoshianpai_click()unload meform1.showend subprivate sub kebiao_click()unload mekebiao_zong.showend subprivate sub nrc1_click(index as integer)unload menrc1chengji.showend subprivate sub nrc2_click(index as integer)unload menrc2chengji.showend subprivate sub nrc3_click(index as integer)unload menrc3chengji.showend subprivate sub nrc4_click(index as integer)unload menrc4chengji.showend subprivate sub qimo_click(index as integer)unload meqimokaoshi.showend subprivate sub zhuanben_click(index as integer)unload mezhuanjieben.showend subcet4成绩查询窗口代码：private sub command1_click()text1.text = text2.text = text1.setfocusend subprivate sub command2_click()unload mezhuchuangti.showend subprivate sub command3_click()dim mesql as stringdim mymyconn as adodb.connectiondim myrst as adodb.recordsetset mymyconn = new adodb.connectionset myrst = new adodb.recordsetmymyconn.connectionstring = provider=microsoft.jet.oledb.4.0;data source= & app.path & cet4.mdb;persist security info=falsemesql = select * from score_cet4 where 准考证号= & text1.text & mymyconn.openset myrst.activeconnection = mymyconnmyrst.open mesqlif text1.text 14460130 or text1.text 14460101 then msgbox 没有这个考生，请继续查询, vbokonly + vbexclamation, 信息提示else with myrst myrst.movefirst xx = myrst.fields(成绩) text2.text = xx end with mymyconn.closeend ifend subprivate sub form_load()end sub教材查询窗口代码:dim myrst as adodb.recordsetset mymyconn = new adodb.connectionset myrst = new adodb.recordsetmysql = select * from jiaocai where 专业= & text1.text & strconn = provider=microsoft.jet.oledb.4.0;data source= & app.path & cet4.mdb;persist security info=falsemymyconn.cursorlocation = aduseclient mymyconn.open strconn set datagrid1.datasource = nothing if myrst.state adstateclosed then rs.close myrst.open mysql, mymyconn, adopenkeyset, adlockoptimisticset datagrid1.datasource = myrstdatagrid1.refreshdatagrid1.visible = trueif text1.text = then msgbox 请输入查询条件, , 警告else if datagrid1.approxcount = 0 then msgbox 没有这个专业！ end ifend ifend subprivate sub command2_click()unload mezhuchuangti.showend subprivate sub command3_click()text1.text = end subprivate sub form_load()end sub以下窗口代码见系统，就可以看到程序了，这里就不详谈了。 anyway, i was here in amber some years ago. not doing much of anything. just visiting and being a nuisance. dad was still around, and when i noticed that he was getting into one of his grumpy moods, i decided it was time to take a walk. a long one. i had often noticed that his fondness for me tended to increase as an inverse function of my proximity. he gave me a fancy riding crop for a going-away present-to hasten the process of affection, i suppose. still, it was a very nice crop-silver-chased, beautifully tooled-and i made good use of it. i had decided to go looking for an assemblage of all my simple pleasures in one small nook of shadow. it was a long ride-i will not bore you with the details-and it was pretty far from amber, as such things go. this time, i was not looking for a place where i would be especially important. that can get either boring or difficult fairly quickly, depending on how responsible you want to be. i wanted to be an irresponsible nonentity and just enjoy myself. texorami was a wide open port city, with sultry days and long nights, lots of good music, gambling around the clock, duels every morning and in-between mayhem for those who couldnt wait. and the air currents were fabulous. i had a little red sail plane i used to go sky surfing in, every coupl