VB+access教师考核管理系统论文

1摘要教师考核管理系统是每一个高等学校管理教师的不可缺少的一个管理信息系统，它的内容对于高等学校的管理者来说是至关重要的，所以教师考核管理系统应该能够为每一个高等学校的管理者提供充足的信息和快捷的查询手段，大大的方便高等学校的管理者。根据学校的教务人员提供的教师考核管理的信息，开发的管理系统的达到的功能如下：教师基本信息管理、教师任课情况管理、教师发表论文情况管理、教师科研经费管理、系统维护。关键字：教师考核 教师管理 任课 论文 MIS VB2SummaryEachahighetc.schoolthatteacherinvestigatetomanagethesystemamanagementinformationofisanindispensabilityingtomanagetheteachersystem,itscontentsthegovernorofhighetc. schoolcomesayingtoistothepassimportance of,thereforetheteacherinvestigatetomanagethesystemtoshouldcanbefortheampleinformationofgovernorofferingthateachahighetc.schoolwiththefastsearchmeans,consumedly ofhighetc.schoolofconvenienceofgovernor.Accordingtotheteacherthattheschoolthateducationaladministrationpersonnelprovideinformationthatinvestigatethemanagement,developmentofmanagementsystemoffunctionasfollowsthatattain:Basicinformationofteachermanagement,teachertermlessoncircumstance themanagement,teacherannouncethesiscircumstancemanagement,teachersectionbudgetmanagement,systemmaintenance.Keyword:TheteacherinvestigatestheteachermanagementthetermthelessonthesisMIStheVB3目 录第一章 绪 论.311课题简介.312开发的意义.313团队构成.4第二章 开发环境及实现技术.521开发环境.522开发工具简介.5第三章 系统设计.731概要设计.732详细设计.8第四章 数据库设计.1041数据库ACCESS简介. 1042数据库需求分析.1143表的详细结构说明.1244测试用例.15第五章 系统的实现.1651系统登录模块的实现.1652主界面的实现.2053教师信息管理模块的实现.22531教师信息维护模块的实现.22532教师信息查询模块的实现.2654教师任课管理模块的实现.29541教师任课信息维护模块的实现. 29542教师任课信息查询模块的实现. 3055论文信息管理模块的实现.32551论文信息维护模块的实现.32552论文信息查询模块的实现.3356科研经费管理模块的实现.34561科研经费的收支与维护模块的实现. 34562科研经费收支查询模块的实现. 4157辅助功能模块的实现.4458密码管理模块的实现.4659打印管理模块的实现.48第六章 系统使用说明.5061使用说明.5062运行环境.50第七章 设计心得.514参考文献.525第一章 绪 论11课题简介教师考核管理系统是每一个高等学校管理教师的不可缺少的一个管理信息系统，它的内容对于高等学校的管理者来说是至关重要的，所以教师考核管理系统应该能够为每一个高等学校的管理者提供充足的信息和快捷的查询手段，大大的方便高等学校的管理者。随着科学技术的不断提高，计算机科学日渐成熟，网络管理的迅速发展，其强大的功能已为人们深刻认识，它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分，使用计算机对教师考核进行管理，具有着手工管理所无法比拟的优点，如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高教师考核管理的效率，也是高等学校管理的科学化、正规化管理，与先进科学技术接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情，对于我们即将计算机专业毕业的学员来说，也是一次将计算机应用于现实管理的一次很有意义的实践活动。12开发的意义1计算机已经成为我们学习和工作的得力助手，使用其可方便的管理教师考核今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域。现在我国的教师考核管理水平绝大部分还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用专业的毕业生，希望可以在这方面有所贡献。改革的总设计师邓小平同志说过“科学技术是第一生产力”，我希望能用我所学的知识编制出一个实用的程序来帮助高等学校进行教师考核管理。开发这一系统的好处大约有以下几点：第一、可以存储历年教师考核的信息，安全、高效；第二、只需一到二名档案录入员即可操作系统，节省人力；第三、可以迅速查到教师考核的情况。2为将来高等学校上网做好准备6跟据2003年中国电信的调查报告显示我国的上网人数已达到1870万，互联网已经十分普及，本系统为高等学校将来的上网作了先期工作，比如计算机的财务管理模式的建立。13团队构成指导教师：*成员：*7第二章 开发环境及实现技术21开发环境硬件系统：奔腾100以上CPU、64M以上内存、1G以上硬盘、光驱。软件系统：Windows9x或更高版本、VisualBasic6.0中文版、Access数据库。22开发工具简介微软公司的VisualBasic 6.0是Windows应用程序开发工具，使目前最为广泛的、易学易用的面向对象的开发工具。VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。故而，实现本系统VB是一个相对较好的选择。Access2000就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于Excel的电子表格，可以使数据库一目了然。另外，Access允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及VisualBasic来访问数据库并对其进行各种操作。VisualBasic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA控件在数据库中的信息与将信息显示给用户看的VisualBasic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用那个数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。8ADO是Mcrosoft提出的第三种数据库访问对象，是Microsoft数据库访问技术的一个主要发展方向，ADO将OLE DB封装在一个数据对象中，使得VB程序中以方便地实现对数据库的访问。具体的与数据库的关系如下：VB数据库应用程序一般由用户界面、数据库引擎和数据仓库三大部分组成。1用户界面:用户界面是指应用程序与用户进行交互的界面，包括用于交互的所有界面元素和代码。它可以显示数据并提供查看或更新数据的所有对象，比如数据作业窗体，添加、删除记录或执行查询的VB代码等，这些对象隐含着用来请求数据库服务的属性、事件和方法。2数据库引擎:所谓数据库引擎，是一种管理数据怎样被存储和检索的软件系统，是应用程序与物理数据库之间的桥梁。它把应用程序的请求翻译成对各种类型数据库的物理操作,并向应用程序返回结果。3数据仓库:数据仓库是包含数据库表的一个或多个文件，是存放数据的地方。对于本地的VB数据库来说，就是.mdb格式文件；对于不同的数据库，它可能具备其它格式。VB访问数据库通常有三种途径:1.使用数据控件和数据绑定控件访问数据库；2.通过VB提供的数据访问变量编程访问；3.通过ODBC接口访问ODBCAPI函数。VB程序的数据访问通过数据访问接口来实现。在VB中，主要的数据访问接口有三种：数据存取对象(DataAccessObject；DAO)、远程数据对象(RemoteData Object；RDO)、ActiveX数据对象(ActiveXDataObjects；ADO)。VB通过数据库引擎可以访问的数据库分如下三类:内部数据库、外部数据库和 ODBC数据库。9第三章 系统设计31概要设计1、概要设计阶段的主要任务系统分析员审查软件计划、软件需求分析提供的文档，提出最佳推荐方案，用系统流程图，组成系统物理元素清单，成本效益分析，系统的进度计划，供指导教师审定，审定后进入设计。确定模块结构，划分功能模块，将软件功能需求分配给所划分的最小单元模块。确定模块间的联系，确定数据结构、文件结构、数据库模式，确定测试方法与策略。编写概要设计说明书，用户手册，测试计划，选用相关的软件工具来描述软件结构，结构图是经常使用的软件描述工具。选择分解功能与划分模块的设计原则，例如模块划分独立性原则，信息隐蔽原则等。2、概要设计的过程概要设计要先进行系统设计，复审系统计划与需求分析，确定系统具体的实施方案；然后进行结构设计，确定软件结构。3、概要设计的原则将软件划分成若干独立成分的依据。如何表示不同的成分内的功能细节和数据结构。如何统一衡量软件设计的技术质量。4、系统功能分析根据学校的教务人员提供的教师考核管理的信息，开发的管理系统的达到的功能如下：1、教师基本信息管理2、教师任课情况管理3、教师发表论文情况管理4、教师科研经费管理5、系统维护6、退出系统10根据以上分析，该系统考虑将整个系统分解成如图3-1模块结构图:图3-1模块结构图并且在系统的开发过程中，我尽量注意模块的高内聚、低耦合，使得系统的整体性能提高，并且也有利于投入使用后的系统维护。32详细设计1、详细设计的任务详细设计就是要在概要设计的结果的基础上，考虑“怎样实现”这个软件系统，直到对系统中的每个模块给出足够详细的过程性描述。主要任务如下：为每个模块确定采用的算法，选择某种适当的工具表达算法的过程，写出模块的详细过程性描述；确定每一模块使用的数据结构；确定模块接口的细节，包括对系统外部的接口和用户界面，对系统内部其它模块的接口，以及模块输入数据、输出数据及局部数据的全部细节。要为每一个模块设计出一组测试用例，以便在编码阶段对模块代码（即程序）进行预定的测试，模块的测试用例是软件测试计划的重要组成部分，通常应包括输入数据，期望输出等内容。主界面教师基本信息管理 教师任课信息管理 教师发表论文管理 辅助功能教师科研经费管理登录112、详细设计的方法程序流程图、N-S图、PAD图、IPO图本系统在开发过程中所采用的详细设计方法为IPO图：1、教师考核的信息录入模块IPO图：2、教师考核信息的查询模块IPO图：3、辅助功能模块IPO图：4、密码修改模块IPO图：I OP考核教师的各项信息 提供相应的界面供操作人员录入 保存到表I OP设置查询条件 提供相应的界面供操作人员操作 1显示查询的结果2统计相关信息I OP各类维护信息 提供相应的界面供操作人员操作 保存到收入/支出项目表I OP原密码新密码确认密码 提供相应的界面供操作人员操作 保存到用户管理表12第四章 数据库设计41数据库Access简介Access中文版是MicrosoftOffice2000套装软件的数据库管理系统软件，是目前比较流行的小型桌面数据库管理系统，它适用于小型企业、学校、个人等用户，可以通过多种方式实现对数据收集、分类、筛选处理，提供用户查询或打印报表。Access具有良好的界面，采用了与Windows和MicrosoftOffice系列软件完全一致的风格，用户可以通过菜单和对话框操作，不用编写任何命令便能有效地实现各种功能的操作，完成数据管理任务。MicrosoftOffice的一个集成化的程序设计语言是VBA(VisualBasicforApplications)，使用VBA可以创建非常实用的数据库应用系统。Access可以作为个人计算机终端和大型主机系统之间的桥梁。通过如SQL、ODBC等特定技术，方便地存储、检索和处理服务器平台上的关键信息，提供了灵活、可靠、安全的客户/服务器解决方案。Access可以接受多种格式的数据，从而方便了用户在不同系统之间进行数据转换。随着Internet网络应用的发展，Access还增加了使用信息发布Web向导和用HTML格式导出对象的功能。数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。新建一个数据库创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1标识需要的数据；2收集被标识的字段到表中；3标识主关键字字段；4绘制一个简单的数据图表；5规范数据；6标识指定字段的信息；137创建物理表。修改已建的数据库数据库的修改分为：添加、编辑和删除记录。这三种操作均可由VisualBasic 创建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。42数据库需求分析根据调查有关单位的教师考核管理的实际情况，分析得到如下的数据库结构。以科研经费管理的表为例，其余的表的信息参见目录下的“教师考核.mdb”数据库。教师考核收支表：收入/支出项目表：14用户管理表：43表的详细结构说明教师考核收支表的详细信息：15收入项目表的详细结构为：16支出项目表的详细结构为：用户管理表的详细结构为：1744测试用例教师考核收支表的测试用例：收入项目表的测试用例：支出项目表的测试用例：18第五章 系统的实现51系统登录模块的实现1流程图2界面：界面包括的控件有标签、文本框、命令按钮等控件。3实现过程：第一步将所需的控件放到窗体的相应位置；方法：首先在“工具箱”中选中所需的控件图标，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到窗体上。如下图：YN 开始输入登录密码是否正确主界面19第二步，选择窗体或控件进行属性设置，如图为窗体的属性设置界面:第三步双击相应的控件，在控件的相应过程中编写代码：如此窗体上“进入”与“退出”按钮的代码如下：20PrivateSubCommand1_Click()SQL=select*from 用户管理whereuser=&Trim(Text1.Text)&Data1.RecordSource=SQLData1.RefreshIfData1.Recordset.EOFThenMsgBox没有此用户！,提示Data1.RecordSource=用户管理Data1.RefreshElseIfTrim(Text2.Text)=Trim(Text3.Text)ThenForm4.ShowForm1.HideElseMsgBox密码错误！,提示EndIfEndIfEndSubPrivateSubCommand2_Click()UnloadMeEndSub此程序段中，“IF”语句的作用是判断用户输入的用户名与密码和数据库的是否相同，如果相同，则执行Form1.hide（隐藏当前的窗体）和Form4.show（调出系统主界面），如果用户名或密码输入错误，则提示：使用户重新输入用户名或密码。Unloadme语句的作用是下载窗体。21此窗体上另外还有Data1、Text3二个控件在程序运行时是看不到的，它们的作用是使VB与Access数据库相连，然后判断用户输入的用户名与密码是否与数据库中的一致，如果一致，则允许用户进入系统。此三个控件的创建方法如下：首先，将Data、Text控件拖放到窗体上，其次，设置它们的属性：（1）Data1控件的属性设置如下：Data1.DatabaseName = App.Path & 教师考核.mdb此属性的作用是保证Data控件与数据库相连。Visible属性是使此控件运行时在窗体上不显示。（2）Text3控件的属性设置如下：数据库的名称运行时是否隐藏22Visible属性的设置同Data1控件。52主界面的实现主界面是用菜单形式表现的，如图：菜单的制作过程如下：此数据控件绑定到何数据库此数据控件绑定到何字段23首先通过“工具”菜单中的“菜单编辑器”调出菜单编辑器，然后进行菜单的设置，如下图：此过程中要注意各菜单的名称唯一，还要注意菜单的级别，另外此设计过程中我们还可以给菜单加快捷键。最后设置如下的代码（只要单击菜单即可设置各菜单代码），部分代码如下：PrivateSubexit_Click()EndEndSubPrivateSubSRWF_Click()form2.ShowEndSubPrivateSubZCWF_Click()Form3.ShowEndSubPrivateSubszwf_Click()Form5.ShowEndSubPrivateSubszcx_Click()Form6.Show调节菜单的级别 设置快捷键24EndSubPrivateSubYFGL_Click()Form9.ShowEndSub主要是通过Show方法调用相应的窗体。53教师信息管理模块的实现531教师信息维护模块的实现1、流程图：2、运行界面：3、实现过程：第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先NY 开始增加删除等操作是否继续退出25选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到表单上,如上图：包括的控件主要有：标签、文本框、命令按钮、组合框等。第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。第三步双击相应的控件，在控件的相应过程中编写程序。数据库的连接方法同5.1，主要代码如下：PrivateSubCombo1_Click()Text1(1).Text=Combo1.TextEndSubPrivateSubCommand1_Click()Command1.Enabled= FalseCommand2.Enabled= FalseCommand3.Enabled= FalseCommand4.Enabled= TrueCommand5.Enabled= TrueCombo1.Visible=TrueDataCombo1.Visible=TrueDataCombo2.Visible=TrueDataCombo3.Visible=TrueData1.Recordset.AddNewText1(1).Text=Combo1.TextFori=0To5Text1(i).Enabled=TrueNextText1(0).SetFocusEndSubPrivateSubCommand2_Click() 增加记录26IfMsgBox(确认删除当前记录吗？,vbYesNo,确认窗口)=vbYesThenCommand4.Enabled=FalseCommand5.Enabled=FalseData1.Recordset.DeleteData1.Recordset.MoveNextIfData1.Recordset.EOFThenData1.Recordset.MoveLastEndIfEndIfEndSubPrivateSubCommand3_Click()Command1.Enabled= FalseCommand2.Enabled= FalseCommand3.Enabled= FalseCommand4.Enabled= TrueCommand5.Enabled= TrueCombo1.Visible=TrueDataCombo1.Visible=TrueDataCombo2.Visible=TrueDataCombo3.Visible=TrueData1.Recordset.EditFori=0To5Text1(i).Enabled=TrueNextText1(0).SetFocusEndSubPrivateSubCommand4_Click()Combo1.Visible=FalseDataCombo1.Visible=False删除记录修改记录27DataCombo2.Visible=FalseDataCombo3.Visible=FalseData1.Recordset.UpdateData1.Recordset.MoveLastFori=0To5Text1(i).Enabled=FalseNextCommand1.Enabled= TrueCommand2.Enabled= TrueCommand3.Enabled= TrueCommand4.Enabled= FalseCommand5.Enabled= FalseEndSubPrivateSubCommand5_Click()Combo1.Visible=FalseDataCombo1.Visible=FalseDataCombo2.Visible=FalseDataCombo3.Visible=FalseData1.Recordset.CancelUpdateCommand1.Enabled= TrueCommand2.Enabled= TrueCommand3.Enabled= TrueCommand4.Enabled= FalseCommand5.Enabled= FalseEndSubPrivateSubCommand6_Click()UnloadMeEndSubPrivateSubDataCombo1_Click(Area AsInteger)更新记录取消更新28Text1(3).Text=DataCombo1.TextEndSubPrivateSubDataCombo2_Click(Area AsInteger)Text1(4).Text=DataCombo2.TextEndSubPrivateSubDataCombo3_Click(Area AsInteger)Text1(5).Text=DataCombo3.TextEndSubPrivateSubForm_Load()Combo1.AddItem男Combo1.AddItem女Data1.DatabaseName=App.PathPersist SecurityInfo=FalseAdodc2.RecordSource=系别Adodc2.RefreshAdodc3.ConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=Persist SecurityInfo=FalseAdodc3.RecordSource=任教班级Adodc3.RefreshEndSub 实现与数据库的连接实现与数据库中的表的连接29532教师信息查询模块的实现1、流程图：2、运行界面：3、实现过程：第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到表单上,如上图：包括的控件主要有：标签、文本框、单选命令、表格等。第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。第三步双击相应的控件，在控件的相应过程中编写程序。“查询”的主要代码如下：NY 开始设置查询条件查询是否继续退出30PrivateSubCommand1_Click()IfOption1.ValueThenSQL=select*from教师基本情况where 教师编号=&Trim(Text1.Text)&Data1.RecordSource=SQLData1.RefreshIfData1.Recordset.EOFThenMsgBox没有此编号的教师情况！,提示Data1.RecordSource=select*from教师基本情况Data1.RefreshEndIfEndIfIfOption2.ValueThenSQL=select*from教师基本情况where 教师姓名=&Trim(Text1.Text)&Data1.RecordSource=SQLData1.RefreshIfData1.Recordset.EOFThenMsgBox没有该教师的情况！,提示Data1.RecordSource=select*from教师基本情况Data1.RefreshEndIfEndIfIfOption3.ValueThenSQL=select*from教师基本情况where 系别=&Trim(Text1.Text) & Data1.RecordSource=SQLData1.RefreshIfData1.Recordset.EOFThen31MsgBox没有该系别的教师情况！,提示Data1.RecordSource=select*from教师基本情况Data1.RefreshEndIfEndIfEndSub54教师任课管理模块的实现541教师任课信息维护模块的实现1、流程图：2、运行界面：3、实现过程：第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选NY 开始增加删除等操作是否继续退出32取的控件生成的对象添加到表单上,如上图：包括的控件主要有：标签、文本框、命令按钮、DATA等。第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。第三步双击相应的控件，在控件的相应过程中编写程序。代码同5.3。542教师任课信息查询模块的实现1、流程图：2、运行界面： NY 开始设置查询条件查询是否继续退出333、实现过程：第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到表单上,如上图：包括的控件主要有：命令按钮、文本框、单选按钮、表格等。第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。第三步双击相应的控件，在控件的相应过程中编写程序。代码如下：PrivateSubCommand1_Click()Label2.Caption= Label1.Visible= TrueIfOption1.Value ThenSQL= select*from教师基本情况 where 教师编号=& Trim(Text1.Text)&Data1.RecordSource= SQLData1.RefreshIfData1.Recordset.EOFThenMsgBox没有此编号的教师情况！, 提示Data1.RecordSource=select* from教师基本情况Data1.RefreshLabel1.Visible=FalseElsebh =Trim(Text2.Text)EndIfEndIfIfOption2.Value ThenSQL= select*from教师基本情况 where 教师姓名 =& Trim(Text1.Text)&Data1.RecordSource= SQLData1.RefreshIfData1.Recordset.EOFThenMsgBox没有该教师的情况！, 提示Data1.RecordSource=select* from教师基本情况Data1.RefreshLabel1.Visible=FalseElsebh=Trim(Text2.Text)EndIf34EndIfSQL=select* from任课情况 where 教师编号= & bh& Data2.RecordSource= SQLData2.RefreshIfData2.Recordset.EOFThenMsgBox没有此教师任课情况！,提示Data2.RecordSource=select* from任课情况Data2.RefreshLabel1.Visible=FalseElsec= Data2.Recordset.RecordCountData2.Recordset.MoveFirstForn= 1Toca =a +Data2.Recordset(总课时数)Data2.Recordset.MoveNextNextLabel2.Caption =aEndIfEndSub55论文信息管理模块的实现551论文信息维护模块的实现1、流程图：2、运行界面： NY 开始增加删除等操作是否继续退出353实现过程：第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到表单上,如上图：包括的控件主要有：标签、文本框、命令按钮、组合框等。第二步，选择窗体或控件进行属性设置，先选取中需要设置属性的对象，然后在属性窗口里显示了该控件对象的所有属性、事件和方法。第三步双击相应的控件，在控件的相应过程中编写程序。552论文信息查询模块的实现1、流程图：2、运行界面： NY 开始设置查询条件查询是否继续退出363实现过程：第一步将所需的控件放到表单的相应位置；方法：首先在“表单控件”工具栏先选中所需的控件图件，然后在表单的恰当位置上单击鼠标并拖动鼠标，即可把由所选取的控件生成的对象添加到表单上,如上图：包括