《VFP6.0程序设计》.doc

VFP6.0程序设计实验指导第一部分 Visual FoxPro 6.0的基本操作1、建立个人文件夹：在Windows环境下，选择最后一个磁盘驱动器，在其中单击右键，选择“新建”命令，选择“文件夹”，输入个人的文件夹名。2、VFP的启动、退出与操作界面（1）启动VFP：在Windows环境下，单击“开始”菜单，选择“程序”，出现级联菜单，在下级级联菜单中选择“Visual FoxPro 6.0”，进入Visual FoxPro 6.0的工作界面。 启动Visual FoxPro后，系统显示Visual FoxPro的工作环境，如上图所示。Visual FoxPro的工作环境包括以下几个部分：l 标题栏。l 菜单栏。有8个系统菜单构成，每个下拉菜单包括一组菜单命令，完成大部分操作。l 工具栏。由一系列的按钮构成，每个按钮执行的操作对应于某个菜单命令。l 主窗口。工具栏下面的空白区域，用于显示命令的结果。l 命令窗口。输入、执行单个的命令，每条命令输入完毕，打回车。l 状态栏。显示当前操作的状态。（2）退出VFP：l 在Visual FoxPro的“文件”菜单中选择“退出”。l 在Visual FoxPro的命令窗口中敲入QUIT，打回车。l 单击Visual FoxPro系统窗口右上角的“关闭”按钮。3、设置工作环境（1）进入Visual FoxPro工作界面，选择“工具”菜单，选择“选项”命令，在打开的选项对话框中设置工作环境。l 默认目录的设置：选择“文件位置”选项卡，选中“默认目录”，选择“修改”按钮，出现“更改文件位置”对话框，在对话框中选中复选框，可在文本框中直接输入文件路径，如：F:WL，也可打开按钮 ，选择文件路径。注意：每次进入Visual FoxPro，都必须设置默认目录。l 日期格式的设置：在命令窗口输入? DATE(),打回车，显示日期格式。如果是标准格式，则不用设置；如果是严格的日期格式YYYY-MM-DD，则输入命令“SET STRICTDATE TO 0”，执行，取消严格格式。然后选择“工具”菜单，选择“选项”命令，在打开的选项对话框中选择“区域”选项卡，在“日期格式”下拉列表框中选择“美语”标准格式。4、建立项目l 选择“文件”菜单，选择“新建”命令，在新建对话框中设置文件类型为“项目”，单击“新建文件”按钮，打开“创建”对话框，在对话框中输入项目文件名XSGLPJX，单击“保存”按钮，打开项目XSGL的项目管理器。l 项目管理器中包含六个选项卡，是全部、数据、文档、类、代码、其他选项卡。全部选项卡管理一个项目中所有类型的文件。数据选项卡管理数据库、自由表、查询和视图类数据。文档选项卡管理表单文件、报表文件和标签文件。类选项卡管理类库文件。代码选项卡管理程序文件。其他选项卡管理除上述文件以外的文件，如：菜单文件、文本文件。5、通过项目管理器建立自由表l 建立表：选择“文件”菜单，选择“打开”命令，打开XSGL项目的项目管理器，选择“数据”选项卡，选中“自由表”，单击“新建”按钮，在随后出现的“新建表”对话框中选择“新建表”按钮，在“创建”对话框中输入表文件名“学生表”，单击“保存”按钮，打开“表设计器”，如图所示：在表设计器中分别输入各个字段的名字、类型、宽度以及小数位数，输入完毕后，单击“确定”按钮，在随后出现的对话框中选择“Y”，在随后出现的数据编辑窗口中输入记录，输入完毕后，可用Ctrl+W、单击“关闭”按钮、双击控制菜单图标等方法存盘。l 修改表结构、查看表：在项目管理器中，选择“自由表”，点开前面的+，选中学生表，单击右边的“修改”按钮，可以修改表的结构，如增加、修改、删除字段；单击“浏览”按钮，可查看、修改表中的记录，此时，如果要增加记录，打开菜单栏中的“表”菜单，选择“追加新记录”命令，就可追加新记录。6、命令方式建立自由表在命令窗口中输入命令：CREATE ，打回车，出现“创建”对话框，在“创建”对话框中输入表文件名“学生表”，单击“保存”按钮，打开“表设计器”。7、菜单方式建立自由表单击“文件”菜单的“新建”项，进入“新建”窗口，选择“表”选项，单击“新建文件”按钮，打开“新建文件”对话框，输入表名，单击“保存”按钮，打开“表设计器”。8、表的打开l 项目管理器方式：打开XSGL项目的项目管理器，选择“数据”选项卡，选中“自由表”，点开前面的+，选中学生表。l 命令方式：在命令窗口中输入命令：USE 表文件名， 打开自由表。l 菜单方式：在“文件”菜单中选择“打开”命令，出现“打开”对话框，在“文件类型”下拉列表框中选择“表”选项，在“文件名”文本框中输入表文件名。9、命令方式查看、修改记录l 在命令窗口中输入命令：BROWSE，打回车，出现数据浏览窗口，可以查看、修改记录。l 在命令窗口中输入命令：DISP ALL ，打回车，在主窗口中显示全部记录。10、命令方式添加、插入、删除记录l 在命令窗口中输入命令：APPEND，打回车，出现一个编辑窗口，输入新记录。l 在命令窗口中输入命令：INSERT BLANK，打回车，可在当前记录后面插入记录。l 在命令窗口中输入命令：DELETE命令，打回车，可以按条件删除记录。11、关闭自由表 在命令窗口中输入命令：USE 12、建立数据库l 命令方式：CREATE DATABASE ，出现数据库设计器窗口。l 菜单方式：单击“文件”菜单的“新建”命令，进入“新建”窗口，选择“数据库”选项，单击“新建文件”按钮，出现“创建”对话框，输入数据库名，单击“保存”按钮，出现数据库设计器窗口。l 项目管理器方式：打开XSGL项目的项目管理器，选择“数据”选项卡，选中“数据库”，单击右侧的“新建”按钮，选择“新建数据库”，输入数据库名，单击“保存”按钮，出现数据库设计器窗口。13、在数据库中建立、添加、移去表l 建立表：打开XSGL项目的项目管理器，选择“数据”选项卡，选定相应数据库文件的“表”选项，单击“新建”按钮，进入“新建”表窗口，单击“新建表”按钮，打开表设计器。l 添加表：打开XSGL项目的项目管理器，选择“数据”选项卡，选定相应数据库文件的“表”选项，单击“添加”按钮，进入“打开”窗口，选择要添加的表，单击“确定”按钮，所选定的表就被添加到打开的数据库中了。l 移去表：在项目管理器中，选定需要移去的数据库表文件，单击“移去”按钮，在随后出现的窗口中选择“移去”按钮即可。14、建立程序文件l 菜单方式：单击“文件”菜单中的“新建”选项，弹出“新建”对话框，选择“程序”选项，打开“程序编辑”窗口，在程序编辑窗口中输入并编辑程序。l 命令方式：在命令窗口中输入：MODIFY COMMAND 15、执行程序文件l 菜单方式：单击“程序”菜单中的“运行”选项，显示“运行”对话框，在“执行文件”文本框中输入程序名。l 命令方式：在命令窗口中输入： DO 16、建立表单l 使用表单向导创建表单：从“文件”菜单中选择“新建”选项，在“新建”对话框中选择“向导”按钮，出现“向导选取”对话框。选择“表单向导”，单击“确定”按钮，进入“表单向导”窗口。在“数据库和表”下拉列表中选取表，双击所需要的“可用字段”，选定的字段出现在“选定字段”中，单击“下一步”，进入“表单向导”窗口。在“表单向导”窗口中，选择样式和按钮类型，单击“下一步”，进入下一个窗口。选定排序的字段，单击“下一步”，进入下一个窗口。键入表单的标题，单击“完成”按钮，单击“预览”按钮，出现结果。l 使用表单设计器创建表单：在“项目管理器”窗口中选择“文档”选项卡，选定“表单”图标，选择“新建”按钮，出现“表单设计器”窗口。l 使用“快速表单”创建表单：启动表单设计器后，在“表单”菜单中选择“快速表单”，启动表单生成器，如图所示：单击表单生成器的“字段选取”选项卡的按钮，选择学生表。将“可用字段”下拉列表中的所有字段添加到“选定字段”下拉列表中。在“样式”选项卡中选择“浮雕”样式。单击确定，此时在表单中创建了和学生表的所有字段绑定的控件。l 使用命令创建表单：在命令窗口中输入如下的命令，可创建一个“查询”表单。 查询=createobject(form)modi form 查询17、执行表单l 命令方式：在命令窗口中输入： DO FORM l 菜单方式：在“表单”菜单中选择“执行表单”l 项目管理器方式：在项目管理器中选择“表单”，并运行。 第二部分VFP程序设计实验一、 实验教学目标实验目的在于更深入地理解和掌握课程教学中的有关基本概念，应用基本技术解决实际问题，从而进一步提高学生分析问题和解决问题的能力。VFP程序设计课程实验要求学生能熟练运用VFP的命令、程序设计方法、各种设计器和生成器，编写出解决实际问题的数据库应用程序。二、实验要求1) 实验准备：记忆VFP的函数、命令、程序设计语句，掌握分支程序、循环程序、子程序的设计方法，掌握表单设计器、报表设计器、菜单设计器的使用方法，掌握表单、报表、菜单的设计方法。2) 实验要求：每个学生在实验课前预习本课时内容和本章节的内容，认真阅读实验教材，理解实验要求和实验内容，独立编写程序代码。上机时，运行源代码，调试程序，输出正确的结果，完成实验目标。实验完成后，总结经验，认真填写实验报告。3) 考核要求：在规定的实验室和规定的时间内，按班级参加上级考试，随机抽取试题，按要求完成操作，根据结果正确性确定考核成绩 。三、实验课时安排序 号 实验名称 课 时 必（选）做 实验一函数和表达式的使用2必做 实验二建立学生管理数据库 2 必做 实验三表的维护2 必做实验四表的排序、索引、查询和统计2 必做 实验五多表使用2选做 实验六数据库的基本操作2必做 实验七程序设计基本命令2必做实验八分支程序设计2必做实验九循环程序设计2必做实验十子程序设计2必做实验十一查询与视图的创建2选做实验十二表单设计与控件使用（一）2必做实验十三表单设计与控件使用（二）2必做实验十四表单设计与控件使用（三）2必做实验十五报表设计2必做实验十六菜单设计2必做四、实验内容实验一 函数和表达式的使用实验目的：通过本次实验，掌握Visual FoxPro 6.0系统中常量、变量、表达式及函数的使用方法。实验准备：1. 阅读第3章中相关的内容；2. Windows环境下，在F盘的根目录下建立个人文件夹，启动Visual FoxPro 6.0系统，在“选项”对话框中设置默认的工作目录为F:个人文件夹名。实验内容：按顺序在命令窗口中输入以下的命令并执行，查看结果：1. 将“ABC”赋值给变量A,B,C；将12.4赋值给变量D。2. 显示已定义的A,B,C的值，查看这4个变量的数据类型。3. 定义一个二维数组Array1，要求该数组为3行3列，并给其中的数据赋不同类型的值。4. 显示数组Array1中各个元素的值。Disp memo like array1*5. 在命令窗口运行如下的命令：AA=“工程技术”BB=“计算机”CC=“2000”DD=AA+“ ”+BB+“ ”+CC？AA$DD,DD$BB？AA+CC？A+STR(3568.2356,7,1)+B？2*5=25 AND STR(2.5)=2？“ABC ”-“ DEF”=“ABCDEF” OR “ABC”$“AB”？ NOT “ABC”=“AB”6. 在命令窗口运行如下的命令：nl=24xb=“女”hf=.F.zc=“助教”gz=530.70？nl30.OR.gz30.OR.gz25.AND.NOT.xb=“男”？.NOT.hf.AND.xb=“女”7. 计算下列函数的值：LEN(“ABCDEF”+SPACE(6)SUBSTR(“Visual FoxPro 6.0程序设计”,5,6)DATE()YEAR(DATE()DTOC(DATE()ROUND(256.89,1)REPLICATE(“*”,6)LEN(STR(95643.5136,8,1)STR(95643.5136)STR(95643.5136,8,2)STR(95643.5136,8)STR(95643.5136,3)VAL(“25.5”)VAL(“123ABC”)VAL(“8769.3421”)实验小结：实验二 建立学生管理数据库实验目的：1. 掌握项目管理器的使用方法；2. 熟练掌握数据库表设计器的操作方法；3. 掌握表的创建和表记录输入方法。实验准备： 1. 阅读第4章中相关的内容；2. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名。实验内容：1. 启动项目管理器，在F:个人文件夹下创建一个项目文件，命名为XSGL.PJX。2. 在新建的项目XSGL中建立三个表，分别为学生表、课程表、成绩表。3. 按下图内容建立三个表的结构：学生表.dbf课程表.dbf成绩表.dbf4. 当出现下面的对话框时，选择Y，为学生表、课程表、成绩表输入20条记录。实验小结：实验三 表的维护实验目的：1. 熟练掌握修改表结构和浏览表记录；2. 掌握表记录的添加、编辑、删除、恢复、定位的方法；3. 掌握文件的复制、删除、更名；4. 掌握数组与表之间的数据交换。实验准备:1. 阅读第4章中相关的内容；2. 准备好前面实验所创建的项目和表文件；3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名。实验内容：1. 在命令窗口中输入 USE 学生表，打开表文件。2. 逐行输入、执行如下的命令，并观察、比较结果：BROWSEBROWSE FIELDS 姓名,学号,性别 FOR 性别=.T. FREE 姓名BROWSE FIELDS 姓名,学号,性别 FOR 性别=.T. FREE 姓名 LOCK 2BROWSE FIELDS 姓名,学号,性别 FOR 性别=.T. FREE 姓名 LOCK 2 NOMENUBROWSE FIELDS 姓名,学号,性别 FOR 性别=.T. FREE 姓名 LOCK 2 NOMENU PARTITION 1BROWSE FIELDS 姓名,学号,性别 FOR 性别=.T. FREE 姓名 LOCK 2 NOMENU PARTITION 3 LEDIT3. 在命令窗口中输入：DISPLAY ALL 命令,查看记录。4. 在命令窗口中使用APPEND命令，添加10条记录。5. 使用GO命令或SKIP移动指针到第8条记录，使用INSERT命令插入一条记录。6. 依次输入命令： GO BOTTOM，?EOF(),SKIP，?EOF()。7. 使用DELETE命令删除最后一条记录、使用RECALL命令恢复记录。8. 使用COPY FILE 命令复制任意文件、使用COPY TO 命令复制学生表文件到新表ABC中、使用COPY STRU 命令复制学生表结构到新表XYZ中，查看新表ABC的内容，查看新表XYZ的内容。9. 学生表的记录指针指向第8条，使用SCATTER 命令把学生表的当前记录的值传送给数组A，学生表尾追加一条新空白记录，再使用GATHER 命令把数组A中的值传送给学生表的当前记录。10. 使用REPLACE命令修改学生表，把姓名为“高大山”的同学的家庭住址改为上海市浦东区。 REPL 家庭住址 WITH 上海市浦东区 FOR 姓名=高大山BROW11. 使用CHANGE命令修改学生表，修改班级为“会计学”的同学的姓名、班级、家庭住址、电话。 CHANGE FIELDS 姓名,班级,家庭地址,电话 ALL FOR 班级=会计学12. 使用CREATE命令创建学生表1、课程表1、成绩表1，各个表的结构与实验二中给出的结构相同。实验小结：实验四 表的排序、索引、查询和统计实验目的：1. 掌握建立排序和索引的方法；2. 掌握几种索引的区别；3. 掌握使用索引快速查询的方法；4. 掌握使用LOCATE 命令查询的方法；5. 掌握表的统计与汇总的方法。实验准备:1. 阅读第4章中相关的内容；2. 准备好前面实验所创建的项目和表文件；3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名。实验内容：1. 使用USE命令打开学生表，按“班级”字段的升序进行排序，班级相同者，按“学号”字段的升序进行排序，显示排序文件的内容。2. 对学生表按班级建立单索引文件S1.IDX，按班级+学号建立单索引文件S2.IDX。3. 对学生表分别按学号、班级+姓名、班级+性别、姓名建立结构化复合索引文件的标识B1、B2、B3、B4。4. 关闭所有的文件。5. 用USE命令打开学生表，用SET INDEX TO 命令打开单索引文件S1和S2,用SET ORDER TO 命令设置主索引为B2，显示内容。6. 用SET ORDER TO 命令设置主索引为B1，显示其内容，用FIND命令查询学号为“20031105”的学生信息。7. 用SET ORDER TO 命令设置主索引为B4，用FIND命令查询姓名为“王光鑫”的学生信息。8. 用SET ORDER TO 命令设置主索引为B2，用SEEK命令查询班级为“会计学”、姓名为“孙立娟”的学生信息。9. 用LOCATE命令查找班级为“会计电算化”的所有学生信息，逐条显示。10. 统计所有学生的人数，班级为“会计学”的学生人数。11. 打开成绩表，统计学号为“20031101”学生的总分、平均分。12. 对成绩表中的成绩按学号进行分类汇总。实验小结：实验五 多表使用实验目的：1. 理解、掌握多工作区的概念；2. 掌握表之间临时关系的建立方法；3. 掌握表之间的连接方法；4. 掌握多工作区之间的表内容的更新。实验准备:1. 阅读第4章中相关的内容；2. 准备好前面实验所创建的项目和表文件；3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名。实验内容：1. 在1号工作区中打开学生表，在2号工作区中打开成绩表,选择1号工作区为当前工作区，以学号字段建立索引，选择2号工作区为当前工作区，以学号字段建立索引，选择1号工作区为当前工作区，用set relation命令建立关联。显示学号为“20031101”学生的学号，课程号，成绩。sele 1use 学生表sele 2use 成绩表sele 1index on 学号 to s1sele 2index on 学号 to s2sele 1set relat to 学号 into Blist 学号,b.课程号,b.成绩 for 学号=200311012. 把已存在的学生表和成绩表通过“学号”字段联接起来，生成新的表文件“学生成绩表”，新表中包含如下字段：学号，姓名，班级，课程号，成绩。 SELE 1USE 学生表SELE 2USE 成绩表SELE 1JOIN WITH B TO 学生成绩 FOR 学号=B.学号 FIELDS 学号，姓名，班级，B.课程号，B.成绩3. 用表设计器修改学生表结构，增加“总成绩”字段，用成绩表的成绩总和来更新学生表的“总成绩”字段值。SELE 1USE 学生表 index on 学号 to s1sele 2USE 成绩表index on 学号 to s2SELE 1UPDATE ON 学号 FROM B REPLACE 总成绩 WITH 总成绩+B.成绩DISP ALL实验小结：实验六 数据库的基本操作实验目的：1. 掌握项目管理器方式、菜单方式和命令方式创建数据库的方法；2. 熟练掌握在数据库中添加和移去表的操作；3. 完善表的有效性规则；4. 掌握建立表之间永久关系的方法；5. 掌握相关表之间数据参照完整性的设置方法。实验准备:1. 阅读第5章中相关的内容；2. 准备好前面实验所创建的项目和表文件；3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名；4. 打开XSGL项目的项目管理器。实验内容：1. 用命令方式创建数据库XSGL.DBC，再数据库中添加学生表、成绩表、课程表。2. 在成绩表的表设计器中设置字段的有效性规则，成绩字段的规则为：成绩=0 AND 成绩“20030000” AND 学号“20040000”。 检验一下触发器是否有效。5. 在数据库设计器窗口中，在学生表的设计器中以“学号”建立主索引，在成绩表的设计器中以“学号”建立普通索引，在学生表和成绩表之间建立永久关系。6. 设置学生表和成绩表的参照完整性。其中“更新规则”、“删除规则”、“插入规则”三个选项卡分别选择“级联”、“级联”、“限制”。实验小结：实验七 程序设计基本命令实验目的：1. 掌握交互式输入命令；2. 掌握格式化输入命令；3. 掌握程序设计的输出命令；4. 掌握格式化输出命令。实验准备:1. 阅读第6章中相关的内容；2. 准备好前面实验所创建的项目和表文件；3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名；4. 打开学生表。实验内容：1. 练习交互式输入命令INPUT：INPUT “请输入学生的姓名：” TO XMINPUT “请输入学生的班级：” TO BJINPUT “请输入学生的性别：” TO XB? XM,BJ,XB2. 练习交互式输入命令ACCEPT。 ACCEPT “请输入要打开的表文件名” TO BMUSE &BM3. 练习交互式输入命令WAIT。4. 练习格式化输入命令GETREAD，在学生表中追加一条空记录，用GET命令格式化输入各个字段的值。 USE 学生表 APPE BLANK 5, 8 SAY “请输入学号：” GET 学号 6, 8 SAY “请输入姓名：” GET 姓名 7, 8 SAY “请输入性别：” GET 性别 8, 8 SAY “请输入班级：” GET 班级 9, 8 SAY “请输入年龄：” GET 年龄 10, 8 SAY “请输入出生日期：” GET 出生日期 11, 8 SAY “请输入家庭住址：” GET 家庭住址 12, 8 SAY “请输入特长：” GET 特长 READ5. 练习格式化输出命令SAY，在屏幕上输出学生表的第二条记录。 USE 学生表GO 2 5, 8 SAY 学号 6, 8 SAY 姓名 7, 8 SAY 性别 8, 8 SAY 班级 9, 8 SAY 年龄 10, 8 SAY 出生日期 11, 8 SAY 家庭住址 12, 8 SAY 特长6. 格式化输入输出的练习（建立程序：LX1.PRG）A1=.F.A2=SPACE(15)A3=1234A4=DATE()2,10 SAY “输入逻辑”GET A12,10 SAY “编辑字符”GET A22,10 SAY “输入数据”GET A32,10 SAY “编辑日期”GET A4READ实验小结：实验八 分支程序设计实验目的：掌握结构化程序设计的分支结构程序设计。实验准备:1. 阅读第6章中相关的内容；2. 准备好前面实验所创建的项目和表文件；3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名；4. 打开学生表、成绩表。实验内容：1. 设计简单分支程序。在学生表文件中查询“刘利军”的基本情况，如果找到，显示信息。2. 设计选择分支程序，在成绩表文件中查找学号为“20031102”的学生的第一门成绩，若成绩大于60分，显示其学号、课程号、成绩；否则显示学号、课程号，并通知补考。3. 输入两个数按从大到小输出。input “第一个数：” to xinput “第二个数：” to y if xy k=x x=y y=kendif?x,yreturn4. 设计一个简单的菜单，包括对学生表记录的追加、修改和删除的功能。use 学生表?1. 增加记录?2. 修改记录?3. 删除记录?4. 退出wait 请选择菜单项(1,2,3,4) to sdo casecase s=1 appendcase s=2 browcase s=3 accept 请输入要删除学生姓名： to namedele for 姓名=nameaccept 确实要删除吗(y/n): to ynif upper(yn)=Y packendifcase s=4returnendcasereturn5. 根据键入的X值，计算下面的分段函数值，并显示结果。Y=5X2+6X-1 (X0)X2-4X+1 (020) 实验小结：实验九 循环程序设计实验目的：掌握结构化程序设计的循环结构程序设计。实验准备:1. 阅读第6章中相关的内容；2. 准备好前面实验所创建的项目和表文件；3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名。实验内容：1. 编程，求1+2+3+100的和。X=1S=0DO WHILE X=100 S=S+X X=X+1ENDDO?Sreturn2. 求1到100间所有偶数之和。 set talk offs=0k=0do while k=”。（2） 设置命令按钮的click事件代码如下: if thisform.optiongroup1.value=1 thisform.text3.value= thisform.text1.value* thisform.text2.valueelse thisform.text3.value= thisform.text1.value* thisform.text2.valueendif（3） 保存表单为FORM5.SCX，运行表单，输入5和2，选择option1，点击“=”，查看结果。再选择option2，点击“=”，查看结果。3. 如图所示，利用计时器控件TIMER1每隔1秒自动向下移动学生表中的记录，如果到最后一条记录，则移动到第一条记录。操作如下：（1） 新建表单，设置表单的Caption属性为“计时器”，在表单上创建2个文本框，在文本框旁边放置2个标签，另设一个标签，再设一个计时器，如图所示。（2） 在表单上单击右键，打开数据环境设计器，选择学生表。（3） 标签1的Caption属性为“学号”，标签2的Caption属性为“姓名”，标签3的Caption属性为“每隔一秒钟，自动向下移动一条记录，如果到最后一条记录，则移动到第一条记录。”。（4） 主要属性设置如下：THISFORM.TEXT1.CONTROLSOURCE=“学生表.学号” THISFORM.TEXT2.CONTROLSOURCE=“学生表.姓名” THISFORM.TIMER1.INTERVAL=1000 THISFORM.TIMER1.ENABLED=.T.（5） 计时器控件TIMER1的TIMER事件代码如下：IF RECNO()=RECCOUNT() GO TOP ELSESKIPENDIFTHISFORM.REFRESH（6） 保存表单为FORM6.SCX，运行表单，查看结果。4. 如下图所示，文本框TEXT1可以输入学号，列表框LIST1有三个选项，点击“执行”按钮可以执行列表框中对应的功能。操作如下：（1） 新建表单，设置表单的Caption属性为“查询及维护”，在表单上添加一个文本框、一个标签、一个列表框和一个命令按钮。（2） 在表单上单击右键，打开数据环境设计器，选择学生表。（3） 主要属性设置如下：THISFORM.LIST1.ROWSOURCETYPE=1THISFORM.LIST1.ROWSOURCE=“1.查找，2.删除，3.追加”（4） “执行”按钮的CLICK事件代码如下：A=SUBSTR(THISFORM.LIST1.VALUE,1,1)LOCATE FOR 学号=THISFORM.TEXT1.VALUEDO CASECASE A=1IF EOF()B=没找到ELSEB=已经找到ENDIFCASE A=2IF EOF()B=没找到ELSEDELETEB=已经删除ENDIF CASE A=3IF EOF()APPE BLAN REPL 学号 WITH THISFORM.TEXT1.VALUEB=已经追加ENDIFENDCASEMESSAGEBOX(B)（5） 保存表单为FORM7.SCX，运行表单，查看结果。实验小结：实验十四 表单设计与控件使用（三）实验目的：1. 熟练掌握利用表单生成器和设计器创建、设计表单；2. 熟练掌握常用表单控件的使用和使用控件生成器设计控件属性；3. 掌握表单中主要事件的设计。实验准备:1. 阅读第8章中相关的内容；2. 准备好前面实验所创建的项目、数据库和表文件；3. 启动Visual FoxPro 6.0系统，设置默认的工作目录为F:个人文件夹名。实验内容：1. 设计一个分页维护学生表的表单，如下图所示：操作步骤如下：（1） 创建新表单，将表单的caption属性设置为“学生表维护”，右键单击表单，选择“生成器”，单击表单生成器的“字段”选项卡的按钮，选择学生表。将“可用字段”下拉列表中的所有字段添加到“选定字段”下拉列表中。在“样式”选项卡中选择“浮雕”样式。单击确定，此时在表单中创建了和学生表的所有字段绑定的控件。（2） 在表单中创建一个命令按钮组commandgroup1,右键单击命令按钮组，选择“生成器”，在“生成器”的“按钮”选项卡中，设置如下图所示的属性，并在“布局”选项卡中设置按钮间隔为25个像素。（3） 在command1按钮的click事件中编写下列代码： go topthisform.refresh在command2按钮的click事件中编写下列代码：if recn()1skip-1thisform.refreshif recno()=1mand1.enabled=.f.endifif mand4.enabled=.f. mand4.enabled=.t.endifendif在command3按钮