基于VisualFoxPro6.0开发的教师管理系统毕业论文

《基于VisualFoxPro6.0开发的教师管理系统毕业论文》由会员分享，可在线阅读，更多相关《基于VisualFoxPro6.0开发的教师管理系统毕业论文（41页珍藏版）》请在装配图网上搜索。

1、课 题教师管理系统系 别计算机科学系专 业软件工程41 / 41开题报告一、学生：二、题 目：教师管理系统三、课题背景：在经济全球化的今天，越来越多的公司、企业开始在各地建立分支机构，开展业务，移动办公人员也随之剧增。学校也是一样的，所以教师管理系统应该能够为用户提供充足的信息和快捷的查询手段。一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点, 对于查找、更新和维护都带来了不少的困难。使用计算机对教师档案信息进行管理,具有着手工管理所无法比拟的优点.四、课题概述：教师管理系统是一个教育单位不可缺少的部分,它的容对于学校的决策者和管理者来说都至关重要,所以教师管理系统应该能

2、够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如:效率低、性差,另外时间一长,将产生大量的文件和数据,这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。而今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用于许多领域，计算机之所以如此流行的原因主要有以下几个方面：首先，计算机可以代替人工进行许多繁杂的劳动；其次，计算机可以节省许多资源；第三，计算机可以大大的提高人们的工作效率；第四，计算机可以使敏

3、感文档更加安全，等等。作为计算机应用的一部分,使用计算机对教师档案信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、性好、寿命长、成本低等。这些优点能够极提高教师档案管理的效率,也是企业的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情,由于系统还处于成长阶段，不足之处在所难免，请用户批评指正。教师管理系统摘要本文主要介绍了教师管理系统原理，并给出了具体案例的解决方案。随着技术时代的飞速发展，人们的脚步也加快了，一个企业一个公司来说更是如此。一套好的系统对于企业是显然易见的，即大解决了时间上的浪费，同时可以缩短了员

4、工的工作量，去处理其他事务。本系统为教师管理系统，采用VFP程序所编写。总体思路为：先建立一个项目，在此基础上创建一些有关此系统所要涉与到的表单，报表等各个模块，最后进行编译与制作安装盘，以便使用人员更能好好地使用这一套软件。经过一系列的调试与编辑，该系统还是比较稳定的，但也存在不足的地方，希望读者与专家批评指正并给出了解决方案以便今后的改进和提高。关键词计算机；数据库；VFP；表单；前言在经济全球化的今天，越来越多的公司、企业开始在各地建立分支机构，开展业务，移动办公人员也随之剧增。目录第一章 教师管理系统结构与数据管理 (智龙)1.1 教师管理系统结构1.2教师系统的数据管理第二章 主要程

5、序代码 (史少钢 王青帅)2.1系统主控程序2.2录入教师档案和教师任课档案2.2.1录入教师档案2.2.2录入教师任课档案2.3查询教师档案2.4查询教师任课2.5教学综合查询2.5.1教师任课查询2.5.2课程任教查询2.5.3班级课程查询第三章 流程图 (智龙)第一章 教师管理系统结构与数据管理开发一个应用软件，应在调查的基础上对系统进行分析，并做出总体设计，然后依据总体设计，做出详细设计和程序设计。其中，首先应明确系统的结构与数据管理。数据管理包括：项目、数据库、表、索引与关联的建立。1.1 教师管理系统结构 教师管理系统的任务是：用计算机管理和维护教师档案与教师任课档案，并提供各种查

6、询功能。下面介绍的系统是简化的教师管理系统。 教师管理系统的具体功能如下： 录入档案任课 其子菜单的功能是：录入教师档案和录入教师任课记录。 查询教师档案 按编号、查询教师档案。 查询教师任课 按编号、查询教师任课记录。 教学综合查询 其子菜单功能是：教师任课查询、教师任教查询和和班级课程查询。这里所提供的查询都具有综合性。 档案任课维护 其子菜单功能是：教师档案维护、教师任课维护、课名课号维护和班名班号维护。 该系统由面向对象事件驱动的主控程序和功能程序构成。主控程序完成功能选择，而功能程序完成相关数据处理。1.2 教师系统的数据管理 Visual FoxPro6.0 是面向对象事件驱动的关

7、系数据库操作平台，对数据的管理增添了许多大型数据库才具备的功能。如在开发中充分使用这些功能，将会显著地提高数据的使用效率与安全性。为此，在教师档案与任课管理系统设计中，首先通过可视性操作创建教师.PJX项目文件，随之系统将生成教师项目管理器。之后，在项目管理器管理下创建教师.DBC数据库管理文件。其后在数据库管理下，使用表设计器创建数据库表文件。创建表文件包括：定义表结构，设置字段属性，建立表索引和创建编辑表间关联。 通过分析，该系统至少应具备的表有：教师档案表、教师任课表、课名表和班名表。教师档案表用于存储教师档案数据，教师任课表用于存储教师任课数据，课名表用于存储课号与汉字课名对照数据，班

8、名表用于存储班号与汉字班名对照数据。下面就列出这些表的结构，所建的索引与关联。 教师档案表(教师档案.DBF) 该表用于存储每位教师的档案数据，其结构如下：表结构: C:电子VF教师档案.DBF数据记录数: 10 最近更新的时间: 07/28/00字段 字段名 类型 宽度 小数位 索引 排序 Nulls 1 编号 字符型 4 升序 PINYIN 否 2 字符型 6 升序 PINYIN 否 3 性别 逻辑型 1 否 4 职称 字符型 6 否 5 基本工资 数值型 5 否 6 出生日期 日期型 8 否 7 籍贯 字符型 10 否 6 简历 备注型 4 否 8 相片 通用型 4 否 * 总计 * 4

9、9 教师任课表(教师任课.DBF) 该表用于存储每位教师的任课数据，其结构如下：表结构: C:电子VF成绩档案.DBF数据记录数: 15 最近更新的时间: 07/18/00字段 字段名 类型 宽度 小数位 索引 排序 Nulls 1 编号 字符型 4 升序 PINYIN 否 2 课号 字符型 4 升序 PINYIN 否 3 班号 字符型 5 升序 PINYIN 否* 总计 * 14 课名表(课名.DBF) 该表用于存储课号与汉字课名对照数据，其结构如下：表结构: C:电子VF课名.DBF数据记录数: 11 最近更新的时间: 07/18/00字段 字段名 类型 宽度 小数位 索引 排序 Null

10、s1 课号 字符型 4 升序 PINYIN 否2 课名 字符型 20 升序 PINYIN 否* 总计 * 25 班名表(班名.DBF) 班名表用于存储班号与汉字班名对照数据，其结构如下：表结构: C:电子VF班名.DBF数据记录数: 8 最近更新的时间: 07/18/00字段 字段名 类型 宽度 小数位 索引 排序 Nulls 1 班号 字符型 5 升序 PINYIN 否 2 班名 字符型 7 升序 PINYIN 否* 总计 * 13 对以上各表所建索引与关联说明如下： 因为建立表索引是在数据库管理下使用表设计器完成的，因此所建索引皆属于数据库表的结构复合索引，并具有数据库管理下的特殊属性，如

11、指定为主索引、候选索引、普通索引等属性。该索引随表自动打开，并自动完成更新和维护。其各表所建索引与关键字如下： 表 名 主索引 候选索引 普通索引 唯一索引 教师档案.DBF 编号 教师任课.DBF 编号 课号、班号 课名.DBF 课号 课名 班名.DBF 班号 班名 因为建立表间关联是使用数据库设计器完成的，因此所建表间关联皆属于数据库表间部关联(Inner),并具有数据库管理下的特殊属性，如一对多关联。在教师数据库中所建关联如下： 关 联 表 索引关键字与类型 (一方) (多方) (一方) (多方) 教师档案.DBF_教师任课.DBF 编号 主索引 编号 普通索引 课名.DBF_教师任课.

12、DBF 课号 主索引 课号 普通索引 班名.DBF_教师任课.DBF 班号 主索引 班号 普通索引第二章 主要程序代码2.1系统主控程序 主控模块主要用于选择系统功能，通常是一个菜单程序，其含有一、二级菜单选择功能。一级菜单包括：录入档案任课、查询教师档案、查询教师任课、教学综合查询和档案任课维护五项。其中，第一、四、五项一级菜单还包括其相应的二级菜单，如录入档案任课一级菜单项有两个二级菜单项：录入教师档案和录入教师任课，教学综合查询一级菜单项有三个二级菜单项：教师任课查询、课程任教查询和班级课程查询，而档案任课维护一级菜单项有四个二级菜单项：教师档案维护、教师任课维护、课名课号维护和班名班号

13、维护。 在主控程序中，首先创建表单，并在表单中添加包容器(Contail)。 之后激活并显示表单。在主程序后面，先定义表单和包容器，然后在包容器中添加录入档案任案、查询教师档案、查询教师任课、教学综合查询、档案任课维护和确定按钮与退出按钮等用于功能选择的命令按钮。这些按钮的功能相当于一级菜单功能。其中有的按钮获取焦点后还将显示二级菜单，为此需要添加相应的二级选择按钮，二级选择显示于方框中，方框仅用于装饰。 此外，在主控程序中，还要对被添加的对象指派相应的事件，并添写其事件程序代码。这些事件程序代码，有的用于调用相应的数据处理程序，有的用于建立对象间联锁关系，还有的用于释放表单并退出运行。更详细

14、的介绍请参阅主控程序中的注释。 主控程序JSDARKGL.PRG如下：* 主程序用于创建表单，添加包容器对象。public darkdark=createobject(darkclass)dark.addobject(cnt1,contai1)dark.show()retu* 定义表单define class darkclass as form caption=教师档案任课管理系统 height=300 width=600 autocenter=.t. name=jsglenddefine* 定义包容器。define class contai1 as container top=30 left

15、=90 height=230 width=420 visible=.t. specialeffect=0 包容器显示样式属性，值0三维样式 name=cnt1* 在包容器中添加标签，用于显示系统标题。 add object label1 as label with; caption=教师档案任课管理系统,; left=130,; top=20,; height=20,; width=200,; forecolor=rgb(255,0,0),; fontsize=12,; visible=.t.,; name=label1* 在包容器中添加方框，框中将添加二级菜单。 add object sha

16、pe1 as shape with; specialeffect=0,; left=200,; top=60,; height=85,; width=150,; visible=.t.,; name=shape1* 在包容器中添加录入档案任课一级菜单项按钮。 add object cmd11 as CommandButton with; caption=录入档案任课,; left=60,; top=60,; height=24,; width=100,; name=cmd11* 当该按钮获取焦点时，触发gotfocus事件，其过程代码用于显式相应二级菜单。procedure cmd11.got

17、focus this.parent.opti11.visible=.t. this.parent.opti12.visible=.t. this.parent.opti11.value=.f. this.parent.opti12.value=.f. this.parent.opti41.visible=.f. this.parent.opti42.visible=.f. this.parent.opti43.visible=.f. this.parent.opti51.visible=.f. this.parent.opti52.visible=.f. this.parent.opti53.

18、visible=.f. this.parent.opti54.visible=.f. endproc* 添加录入档案任课一级菜单项的录入教师档案二级菜单项选择按钮。 add object opti11 as optionbutton with; left=225,; top=80,; height=20,; width=100,; caption=录入教师档案,; visible=.f.,; name=opti11* 单击录入教师档案二级菜单项选择按钮事件，其过程代码主要用于调用录入教师档案程序（lrjsda.prg）,执行录入教师档案操作。 procedure opti11.click th

19、is.value=.t. this.parent.opti12.value=.f. this.parent.opti41.value=.f. this.parent.opti42.value=.f. this.parent.opti43.value=.f. do lrjsda endproc* 添加录入档案任课一级菜单项的录入教师任课二级菜单项选择按钮。 add object opti12 as optionbutton with; left=225,; top=110,; height=20,; width=100,; caption=录入教师任课,; visible=.f.,; name=

20、opti12* 单击录入教师任课二级菜单项选择按钮事件，其过程代码主要用于调用录入教师任课程序（lrjsrk.prg）,执行录入教师任课记录操作。 procedure opti12.click this.value=.t. this.parent.opti11.value=.f. this.parent.opti41.value=.f. this.parent.opti42.value=.f. this.parent.opti43.value=.f. do lrjsrk endproc* 添加教学综合查询一级菜单项的教师任课查询二级菜单项选择按钮。 add object opti41 as o

21、ptionbutton with; left=220,; top=75,; height=20,; width=100,; caption=教师任课查询,; visible=.f.,; name=opti41* 单击教师任课查询二级菜单项选择按钮事件，其过程代码主要用于调用教师任课查询程序（jsrjcx.prg）,执行教师档案任课查询操作。procedure opti41.click this.value=.t. this.parent.opti42.value=.f. this.parent.opti43.value=.f. do jsrjcx endproc* 添加教学综合查询一级菜单项的

22、课程任教查询二级菜单项选择按钮。 add object opti42 as optionbutton with; left=220,; top=95,; height=20,; width=100,; caption=课程任教查询,; value=.f.,; visible=.f.,; name=opti42* 单击课程任教查询二级菜单项选择按钮事件，其过程代码主要用于调用课程任教查询程序（kcrjcx.prg）,执行课程任教教师情况查询操作。 procedure opti42.click this.value=.t. this.parent.opti41.value=.f. this.par

23、ent.opti43.value=.f. do kcrjcx endproc* 添加教学综合查询一级菜单项的班级课程查询二级菜单项选择按钮。 add object opti43 as optionbutton with; left=220,; top=115,; height=20,; width=100,; caption=班级课程查询,; value=.f.,; visible=.f.,; name=opti43* 单击班级课程查询二级菜单项选择按钮事件，其过程代码主要用于调用班级课程查询程序（bjkccx.prg）,执行班级任课教师情况查询操作。 procedure opti43.cli

24、ck this.value=.t. this.parent.opti41.value=.f. this.parent.opti42.value=.f. do bjkccx endproc* 添加档案任课维护一级菜单项的教师档案维护二级菜单项选择按钮。 add object opti51 as optionbutton with; left=220,; top=67,; height=20,; width=100,; caption=教师档案维护,; visible=.f.,; name=opti51* 单击教师档案维护二级菜单项选择按钮事件，其过程代码主要用于调用教师档案维护程序（jsdawh

25、.prg）,执行教师档案维护操作。 procedure opti51.click this.value=.t. this.parent.opti52.value=.f. this.parent.opti53.value=.f. this.parent.opti54.value=.f. do jsdawh endproc* 添加档案任课维护一级菜单项的教师任课维护二级菜单项选择按钮。 add object opti52 as optionbutton with; left=220,; top=85,; height=20,; width=100,; caption=教师任课维护,; value=

26、.f.,; visible=.f.,; name=opti52* 单击教师任课维护二级菜单项选择按钮事件，其过程代码主要用于调用教师任课维护程序（jsrkwh.prg）,执行教师任课情况维护操作。 procedure opti52.click this.value=.t. this.parent.opti51.value=.f. this.parent.opti53.value=.f. this.parent.opti54.value=.f. do jsrkwh endproc* 添加档案任课维护一级菜单项的课名课号维护二级菜单项选择按钮。 add object opti53 as optio

27、nbutton with; left=220,; top=103,; height=20,; width=100,; caption=课名课号维护,; value=.f.,; visible=.f.,;name=opti53* 单击课名课号维护二级菜单项选择按钮事件，其过程代码主要用于调用课名课号维护程序（kmkhwh.prg）,执行课名课号维护操作。procedure opti53.click this.value=.t. this.parent.opti51.value=.f. this.parent.opti52.value=.f. this.parent.opti54.value=.f

28、. do kmkhwh endproc* 添加档案任课维护一级菜单项的班名班号维护二级菜单项选择按钮。add object opti54 as optionbutton with; left=220,; top=122,; height=20,; width=100,; caption=班名班号维护,; value=.f.,; visible=.f.,; name=opti54* 单击班名班号维护二级菜单项选择按钮事件，其过程代码主要用于调用班名班号维护程序（bmbhwh.prg）,执行班名班号维护操作。 procedure opti54.click this.value=.t. this.p

29、arent.opti51.value=.f. this.parent.opti52.value=.f. this.parent.opti53.value=.f. do bmbhwh endproc* 添加查询教师档案一级菜单项的选项按钮。add object cmd22 as CommandButton with; caption=查询教师档案,; left=60,; top=88,; height=24,; width=100,; name=cmd22* 单击查询教师档案一级菜单选项按钮事件，其过程代码主要用于调用查询教师档案程序（jsdacx.prg）,执行教师档案查询操作。 proced

30、ure cmd22.click this.parent.opti11.visible=.f. this.parent.opti12.visible=.f. this.parent.opti41.visible=.f. this.parent.opti42.visible=.f. this.parent.opti43.visible=.f. do jsdacx endproc* 添加查询教师任课一级菜单项的选项按钮。 add object cmd33 as CommandButton with; caption=查询教师任课,; left=60,; top=116,; height=24,; w

31、idth=100,; name=cmd33* 单击查询教师任课一级菜单选项按钮事件，其过程代码主要用于调用查询教师任课程序（jsrkcx.prg）,执行教师任课查询操作。 procedure cmd33.click this.parent.opti11.visible=.f. this.parent.opti12.visible=.f. this.parent.opti41.visible=.f. this.parent.opti42.visible=.f. this.parent.opti43.visible=.f. do jsrkcx endproc* 添加教学综合查询一级菜单项的选项按钮

32、。 add object cmd44 as CommandButton with; caption=教学综合查询,; left=60,; top=144,; height=24,; width=100,; name=cmd44* 教学综合查询一级菜单项选项按钮获取焦点事件，将显示其相应的二级菜单。procedure cmd44.gotfocus this.parent.opti11.visible=.f. this.parent.opti12.visible=.f. this.parent.opti41.visible=.t. this.parent.opti42.visible=.t. th

33、is.parent.opti43.visible=.t. this.parent.opti41.value=.f. this.parent.opti42.value=.f. this.parent.opti43.value=.f. this.parent.opti51.visible=.f. this.parent.opti52.visible=.f. this.parent.opti53.visible=.f. this.parent.opti54.visible=.f. endproc* 添加档案任课维护一级菜单项的选项按钮。 add object cmd55 as CommandButt

34、on with; caption=档案任课维护,; left=60,; top=172,; height=24,; width=100,; name=cmd55* 档案任课维护一级菜单项选项按钮获取焦点事件，将显示其相应的二级菜单。 procedure cmd55.gotfocus this.parent.opti11.visible=.f. this.parent.opti12.visible=.f. this.parent.opti41.visible=.f. this.parent.opti42.visible=.f. this.parent.opti43.visible=.f. thi

35、s.parent.opti51.visible=.t. this.parent.opti52.visible=.t. this.parent.opti53.visible=.t. this.parent.opti54.visible=.t. this.parent.opti51.value=.f. this.parent.opti52.value=.f. this.parent.opti53.value=.f. this.parent.opti54.value=.f. endproc * 添加退出按钮 add object cmd1 as commandbutton with; caption

36、=退出按钮,; top=170,; height=25,; left=240,; width=80,; forecolor=rgb(255,0,0),; name=cmd1* 出按钮单击事件，其过程代码将释放主控程序表单，结束程序执行。procedure cmd1.click release thisform sele 1 endprocenddefine2.2 录入教师档案和教师任课档案 当一级菜单录入档案任课选项按钮获取焦点时，将显示其相应的二级菜单。二级菜单包括两个菜单项：录入教师档案和录入教师任课档案。单击二级菜单选择按钮将调用其相应程序，完成录入操作。下面先介绍录入教师档案，然后介绍

37、录入教师任课档案。2.2.1 录入教师档案单击一级菜单录入档案任课的录入教师档案二级菜单选择按钮时，将调用录入教师档案程序（lrjsda.prg）执行录入操作。程序十分简单，即通过BROWSE浏览窗口操作完成。 录入教师档案程序（lrjsda.prg）清单如下： open data 教师 sele 11 use 教师档案 activate screen browse title 录入教师档案记录 Ctrl+Y追加记录 Ctrl+W存盘 Ctrl+Q废弃 use sele 12.2.2. 录入教师任课档案单击一级菜单录入档案任课的录入教师任课二级菜单选择按钮时，将调用录入教师任课程序（lrjsr

38、k.prg）执行录入操作。程序十分简单，也是通过BROWSE浏览窗口操作完成。 录入教师任课程序（lrjsrk.prg）清单如下： open data 教师 sele 11 use 教师任课 activate screen browse title 录入教师任课记录 Ctrl+Y追加记录 Ctrl+W存盘 Ctrl+Q废弃 use sele 12.3 查询教师档案单击查询教师档案一级菜单选项按钮时，触发其单击事件，执行其事件程序代码，调用并执行查询教师档案程序（jsdacx.prg），完成查询档案操作。 查询教师档案程序清单jsdacx.prg如下：* 主程序，打开教师数据库与教师档案表，并创

39、建表单。public dacxopen data 教师sele 11use 教师档案dacx=createobject(dacxClass)dacx.show()retu* 定义表单。define class dacxclass as Form caption=按编号、查询教师档案 height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表单中添加方框，用于放置选择按编号或查询教师档案。add object shape1 as shape with; specialeffect=0,; lef

40、t=50,; top=20,; height=130,; width=300,; visible=.t.,; name=shape1* 在表单中添加标签，用于指明选择按编号或进行查询操作。 add object label1 as label with; caption=选择编号、,; left=70,; top=40,; height=20,; width=120,; fontsize=10,; forecolor=rgb(255,0,0),; visible=.t.* 在表单中添加编号选择按钮，用于选择按编号查询教师档案。 add object opti1 as optionbutton

41、with; caption=编号,; left=80,; top=70,; height=20,; width=60,; fontsize=10,; value=.t.,; name=opti1* 在表单中添加选择按钮，用于选择按查询教师档案。 add object opti2 as optionbutton with; caption=,; left=80,; top=100,; height=20,; width=60,; fontsize=10,; value=.f.,; name=opti2* 在表单中添加一文本框，用于输入待查询教师编号。 add object txbox1 as t

42、extbox with; value= ,; style=0,; left=150,; top=70,; height=20,; width=35,; maxlenth=4,; name=txbox1* 在表单中添加一文本框，用于输入待查询教师。 add object txbox2 as textbox with; value= ,; style=0,; left=150,; top=100,; height=20,; width=60,; enabled=.f.,; maxlenth=8,; name=txbox2* 在表单中添加确定按钮，用于执行查询程序。 add object cmd1

43、as commandbutton with; caption=确定按钮,; top=60,; height=20,; left=260,; width=60,; forecolor=rgb(255,0,0),; name=cmd1* 在表单中添加退出按钮，用于结束程序执行。 add object cmd2 as commandbutton with; caption=退出按钮,; top=100,; height=20,; left=260,; width=60,; name=cmd2* 输入待查教师编号的文本框初始化事件，用于初次进入查询时获取焦点。 procedure txbox1.ini

44、t this.setfocus endproc* 按编号查询按钮单击事件，其过程代码用于设置按编号查询环境。 procedure opti1.click this.value=.t. this.parent.opti2.value=.f. this.parent.txbox1.enabled=.t. this.parent.txbox1.setfocus this.parent.txbox2.enabled=.f. endproc* 按查询按钮单击事件，其过程代码用于设置按查询环境。 procedure opti2.click this.value=.t. this.parent.opti1.

45、value=.f. this.parent.txbox1.enabled=.f. this.parent.txbox2.enabled=.t. this.parent.txbox2.setfocus endproc* 定按钮单击事件，其过程代码区分按编号或查询不同情况，按输入的教师编号或通过相应索引定位查询。procedure cmd1.click temp1=this.parent.opti1.value temp2=this.parent.opti2.value value1=this.parent.txbox1.value value2=this.parent.txbox2.value

46、sele 11 do case case temp1 set order to 编号 置当前索引标记为编号 seek value1 按编号查找 activate screen browse noedit title 查看教师档案记录 Esc键返回&显示按编号查询结果 case temp2 set order to seek value2 activate screen browse noedit title 查看教师档案，按Esc键返回 endc endproc* 退出按钮单击事件，其过程代码用于释放表单，结束程序执行。 procedure cmd2.click rele thisform s

47、ele 1 endprocenddefine2.4 查询教师任课 单击查询教师任课一级菜单选项按钮时，触发其单击事件，执行其事件程序代码，调用并执行查询教师任课程序（jsrkcx.prg），完成查询教师任课档案操作。 查询教师任课程序（jsrkcx.prg）清单如下：* 主程序，打开教师数据库与教师档案表和教师任课表，并创建表单。public rkcxopen data 教师sele 11use 教师档案sele 12use 教师任课rkcx=createobject(rkcxClass)rkcx.show()retu* 定义表单。define class rkcxclass as Form

48、caption=按编号、查询教师任课 height=180 width=400 maxbutton=.f. Minbutton=.t. closable=.t. autocenter=.t.* 在表单中添加方框，用于放置选择按编号或查询教师任课情况。 add object shape1 as shape with; specialeffect=0,; left=50,; top=20,; height=130,; width=300,; visible=.t.,; name=shape1* 在表单中添加标签，用于指明选择按编号或进行查询操作。add object label1 as label

49、 with; caption=选择编号、,; left=70,; top=40,; height=20,; width=120,; fontsize=10,; forecolor=rgb(255,0,0),; visible=.t.* 在表单中添加编号选择按钮，用于选择按编号查询教师任课。add object opti1 as optionbutton with; caption=编号,; left=80,; top=70,; height=20,; width=60,; fontsize=10,; value=.t.,; name=opti1* 在表单中添加选择按钮，用于选择按查询教师任课。

50、 add object opti2 as optionbutton with; caption=,; left=80,; top=100,; height=20,; width=60,; fontsize=10,; value=.f.,; name=opti2* 在表单中添加一文本框，用于输入待查询教师编号。 add object txbox1 as textbox with; value= ,; style=0,; left=150,; top=70,; height=20,; width=35,; maxlenth=4,; name=txbox1* 在表单中添加一文本框，用于输入待查询教师

51、。 add object txbox2 as textbox with; value= ,; style=0,; left=150,; top=100,; height=20,; width=60,; enabled=.f.,; maxlenth=8,; name=txbox2* 在表单中添加确定按钮，用于执行查询程序。 add object cmd1 as commandbutton with; caption=确定按钮,; top=60,; height=20,; left=260,; width=60,; forecolor=rgb(255,0,0),; name=cmd1* 在表单中添加退出按钮，用于结束程序执行。 add object cmd2 as commandbutton with; caption=退出按钮,; top=100,; height=20,; left=260,; width=60,; name=cmd2* 输入待查教师编