VFP及其应用系统开发试验讲义.doc

be6d0bf08e1035174d35c62ed76de32d.pdfVisual FoxPro及其应用系统开发 实 验 指 导 书实验一：基本表的建立1、实验目的：掌握建立基本表的方法(表设计器的使用) 应掌握的命令：CREATE USE APPEND2、实验内容：建立如下所示的商品表：表名：SP。DBF结构：SP（货号C（6），品名C（8），迸口L，单价N（7，2），数量N（2），开单日期D，生产单位C（18），摘要M，商标G)记录内容：货号 品名 进口 单价 数量 开单日期 生产单位 备注 商标LX-750 影碟机 T 5900.00 4 08/10/96 松下电器公司YU-120 彩电 F 8700.00 4 10/10/96 上海电视机厂AX-120 音响 T 3100.00 5 11/10/95 日立电器公司DV-430 影碟机 T 2680.00 3 09/30/96 三星公司 96年9月1日起调价FZ-901 取暖器 F 318.00 6 09/05/96 中国富利电器厂LB-133 音响 T 4700.00 8 12/30/95 松下电器公司SY-701 电饭锅 F 258.00 10 08/19/96 上海电器厂 本产品属改进型NV-920 录放机 T 1750.00 6 07/Z0/96 先锋电器公司3、操作要求：（1）在 Visual FoxPro 的界面下，设置默认的文件夹和日期的格式（2）用表设计器建立表的结构（3）建立SP。DBF的结构后，立即输人前6个记录的数据，其中头两个记录的商标字段，由读者在Windows环境下选两个图标分别输人。数据输人后存盘退出。（4）打开SP。DBF，分别查看其结构与记录，包括备注字段与商标字段的数据。（5）追加最后两个记录，结束后分别以浏览格式和编辑格式查看数据。（6）分别用链接、嵌人方法为SB。DBF的轿车增加“商标”，图形文件自选。实验二：表达式、函数、子句1、实验目的： 掌握常量、内存变量、字段变量、函数、表达式的概念和计算方法； 掌握对表操作命令中的范围、条件、字段子句的应用 应掌握的命令： = LIST | DISPLAY MEMORY LIKE RELEASE ALL | LIKE | EXCEPT GO TOP | BOTTOM | SKIPLIST | DISPLAY FOR FIELDS 2、实验内容： 内存变量的赋值、显示、清除； 各种类型数据的运算符与运算规则； 函数的验证； 表达式的计算； LIST、DISPLAY命令的使用3、操作要求：（1）在 Visual FoxPro 的界面下，设置默认的文件夹和日期的格式（2）变量的赋值：请把万大兵、12345.789、2002-10-01、.T.四个常量分别赋值给ma、mb、mc、md四个内存变量。再把ma、mb、mc、md四个内存变量的值分别赋值给xa、xb、xc、xd四个内存变量。（3）字段变量的使用：打开sp.dbf表；把品名、单价、数量、开单日期、 生产单位等五个字段变量的值分别赋值给内存变量za,zb,zc,zd,ze；把记录指针指向第五号记录，显示品名、单价、数量、开单日期、 生产单位等五个字段变量的值。（4）用显示内存变量的命令，验证对内存变量赋值的结果。（5）使用已有的内存变量进行字符串、数值、日期、关系和逻辑运算。例如：? ma + xa ? mc + 220（6）对一学过的函数进行验证。例如：l A.取整函数：INT()l B.取余函数：MOD( , )l C.四舍五入函数：ROUND( , )l D.字符串查找函数：AT(， ,)l E.取字符串子串函数：SUBSTR( ， ，)l F.测字符串长度函数：LEN()l G.系统日期函数：DATE()l H.从日期中取出其中的年份函数：YEAR()l I.测试当前表的当前记录的记录号函数：RECNO()l J.测试表达式数据类型函数：TYPE()（7）打开sp.dbf 表，练习对表操作时范围、条件、字段三种子剧的使用。分别用LIST和DISPLAY命令完成以下操作：A.显示第5个记录。B.显示第3个记录开始的5个记录。C.显示第3个记录到第5个记录。D.显示数量少于5的商品的货号、品名与生产单位。E.显示进口商品或95年开单的商品信息。F.显示上海商品信息。G.显示单价大于4000的进口商品信息或单价大于5000的国产商品信息。H.列出95年开单的商品的货号、品名、单价与开单日期，其中单价按9折显示。I.列出单价小于2000以及单价大于5000的进口商品信息。J.显示从第3个记录开始的所有国产商品信息。K.列出货号的后3位为“120”的全部商品信息。L.列出货号第1个字母为“L”或者第2个字母为“v”的全部商品信息。M.列出公司生产的单价大于3000的所有商品信息。（8）用清除内存变量的命令清除以m打头的内存变量。并验证之。实验三：表的复制、更新1、实验目的： 掌握复制表的各种方法； 掌握向表中追加记录；修改数据；逻辑删除和物理删除记录的方法。 应掌握的命令：COPY FILE TO COPY TO FOR FIELDS APPEND BLANKAPPEND FROM FOR FIELDS BROWSE REPLACE WITH , WITH FOR MODIFY STRUCTUREDELETE FOR SET DELETE on | OFFRECALL FOR PACK2、实验内容： 复制sp.dbf； 向sp.dbf表中追加记录； 修改表中数据； 逻辑删除和物理删除表中记3、操作要求：（1）在 Visual FoxPro 的界面下，设置默认的文件夹和日期的格式（2）对表SP。DBF按如下要求进行复制，写出命令序列。A.复制SP。DBF的结构，并将复制后的表结构显示出来。B.复制一个仅有货号、品名、单价、数量等4个字段的表结构SPS.DBF。C.将SP。DBF复制为表SP3。D.复制具有货号、品名、数量、生产单位等4个字段的表SP4。E.将第2到第6个记录中单价不小于3000的进口商品复制为表SP5。F.将96年1月1日及以后开单的商品复制为表SP6。G.将表SP.DBF按系统数据格式复制为文本文件SP.TXT，再将SP.TXT中的数据添加到表SP6中去。（3）打开SP1DBF；显示结构与记录数据；修改结构，增加总价N(8,2)字段。（4）将表SPl。DBF中的总价字段值用单价数量进行替换。（5）追加一个空记录，并自行确定一些数据填人该空记录中。（6）在第3号记录与第7号记录上分别加上删除标记；打开逻辑删除开关，验证第3号记录与第7号记录已被逻辑删除。关闭逻辑删除开关，验证第3号记录与第7号记录依然存在。撤消第3个记录上的删除标记并将第7个记录从表中物理删除。（7）将SP。DBF的全部记录追加到SP1。DBF中去，并查看经追加后的记录。实验四：表的索引和查询1、实验目的： 掌握物理排序和逻辑排序的概念； 掌握建立结构化复合索引和指定主控索引的方法； 掌握顺序查询和索引查询的方法。INDEX ON TAG USE ORDER TAG ASCENDING | DESCENDINGSET ORDER TO LOCATE FOR CONTINIUESEEK SET FILTER TO 2、实验内容： 对表进行物理排序。 以不同的索引表达式建立结构化复合索引。 指定主控索引 对表进行顺序查询和索引查询在今后的实验中，我们将使用以下四个表：一、系代码表: DEPARTMENT.DBF 的结构字段 字段名 类型 宽度 小数位 说明 1 DIPARTMENT 字符型 2 系代码（主索引） 2 NAME 字符型 12 系名 3 DIRECTOR 字符型 8 系主任名二、学生基本档案表: STUDENT.DBF 的结构 字段 字段名 类型 宽度 小数位 说明 1 CODE 字符型 6 学号（主索引） 2 NAME 字符型 8 姓名 3 SEX 字符型 2 性别 4 BIRTHDAY 日期型 8 生日 5 NATION 字符型 12 民族 6 NATIVE 字符型 30 籍贯 7 PARTY 字符型 12 参加党派 8 MARRIAGE 逻辑型 1 婚否9 HISTORY 备注型 4 简历10 DIPARTMENT 字符型 2 系代码三、课程代码表:COURSE.DBF 的结构字段 字段名 类型 宽度 小数位 说明 1 COURSE 字符型 3 课程编号（主索引） 2 NAME 字符型 24 课程名 3 HOUR 整型 4 学时 4 UPCOURSE 字符型 3 前导课程编号四、学生选课表:SC.DBF 的结构字段 字段名 类型 宽度 小数位 说明1 CODE 字符型 6 学号 2 COURSE 字符型 3 课程编号 3 MARK 数值型 6 2 分数（成绩）3、操作要求：（1）在 Visual FoxPro 的界面下，设置默认的文件夹和日期的格式（2）打开学生基本档案表(student.dbf)，（3）使用表设计器建立以学号为索引关键字，以code为索引标识名的候选索引。（4）使用表设计器建立以姓名为索引关键字，以name为索引标识名的普通索引。（5）使用命令建立以生日为索引关键字，以birthday为索引标识名的普通索引。（6）使用命令建立以年龄为索引关键字，以year为索引标识名的普通索引。（7）使用命令建立以年龄为索引关键字，以year为索引标识名的普通索引。（8）分别指定上述所建立的索引为主控索引，用浏览方式观察记录排列的顺序。（8）用顺序查询的方法查询山西籍的男学生，显示查询结果；再继续查第二个。（9）用索引查询的方法查询山西籍的男学生，显示查询结果；再继续查第二个。（10）用筛选查询的方法查询山西籍的男学生，显示查询结果。（11）比较上述三种查寻方法有和不同？ 实验五：数据库和多表查询1、实验目的： 掌握工作区的概念，能够在多个工作区打开多个表。 掌握数据库的概念，能够使用数据库设计器对数据库中的表进行添加、移出、建立表之间的联系等操作。 掌握SQL查询语句，能够进行多表查询。 掌握统计、求和、求平均的方法。 应掌握的命令：CREATE DATABASE MODIFY DATABASEOPEN DATABASE CLOSE DATABASE SELECT | USE IN ALIAS SELECT FROM WHERE 格式：COUNT FOR TO SUM FOR TO AVERAGE FOR TO CALCULATE FOR TO 2、实验内容： 在多个工作区打开多个表的练习。 建立一个项目管理器。 建立一个数据库 用SQL查询语句进行多表查询。 进行统计、求和、求平均的练习。3、操作要求：（1）选择不同的工作区，打开student.dbf、department.dbf、course.dbf、sc.dbf四个表，为每个表起一个别名。（2）通过别名选择工作区，对该工作区的表进行操作。（3）建立一个名为student的项目管理器。（4）在项目管理其中建立一个名为st.dbc的数据库，把。student.dbf、department.dbf、course.dbf、sc.dbf四个表添加到数据库中。（5）使用数据库设计器，建立表之间的联系。（6）在命令窗口，打开st.dbc数据库（7）使用SQL查询语句，对st.dbc数据库中的表进行查询：A.查询年龄大于 23 岁学生的全部信息。B.查询每一位学生选修的各门课程的课程名和成绩。C.查询选修了各门课程的学生人数，按课程号排序。D.查询计算机系97级学生各门课程的平均成绩实验六：程序设计基础（一）1、实验内容和目的： 掌握程序文件的建立方法 掌握运行一个程序的方法 掌握顺序结构、选择结构和循环结构程序的一般设计方法 应掌握的命令：MODIFY COMMAND DO RETURN CLEAR SAY SAY GET READWAIT TO IF ENDIFDO CASE ENDCASE DO WHILE ENDDOFOR ENDFOR SCAN ENDSCAN2、操作要求：(1) 阅读程序举例，按举例程序建立程序文件并运行之* 程序名: chx1.prg* 功 能: 屏幕显示字符字体,字号,风格的控制CLEARmm = 和平、民主、自由、平等。 0,0 SAY 宋体: + mm FONT 宋体,28 COLOR RGB(255,255,255,0,0,255) 1,0 SAY 黑体: + mm FONT 黑体,28 COLOR RGB(255,255,255,0,0,255) 2,0 SAY 仿宋: + mm FONT 仿宋_GB2312,28 COLOR RGB(255,255,255,0,0,255) 3,0 SAY 楷体: + mm FONT 楷体_GB2312,28 COLOR RGB(255,255,255,0,0,255) 4,0 SAY 加粗: + mm FONT 楷体_GB2312,28 STYLE B 5,0 SAY 倾斜: + mm FONT 楷体_GB2312,28 STYLE I 6,0 SAY 倾斜: + mm FONT 楷体_GB2312,28 STYLE BI 7,0 SAY 下划线,加粗: FONT 楷体_GB2312,36 STYLE BU ROW(),COL()+1 SAY 删除线,加粗: FONT 楷体_GB2312,36 STYLE B-RETURN-* 程序名：CHX2.PRG* 功能：输入一个正整数，若是奇数，用红色显示；若是偶数，用蓝色显示。CLEARMODIFY WINDOWS SCREEN FONT 宋体,16 & 设置屏幕显示字符的属性mm = 0 3,10 SAY 请输入一个正整数： FONT 宋体,16 GET mm FONT 宋体,16READIF INT(mm/2) * 2 = mm 4,10 SAY 你输入的是一个偶数：+STR(mm) FONT 宋体,16； COLOR RGB(0,0,255,255,255,255)ELSE 4,10 SAY 你输入的是一个奇数：+STR(mm) FONT 宋体,16； COLOR RGB(255,0,0,255,255,255)ENDIFRETURN-* 程序名：计算手续费的程序：CHX3.PRG* 功 能：按照如下规则，计算手续费。* 每股售价 14 元 Q = W * 8.4 % * (1 + 6 %)* 交易额 每股售价 14 元 Q = W * 8.4 % * (1 + 4 %)* 每股售价 28 元 Q = W * 8.4 % * (1 + 2 %)* * 每股售价 交易额1000 元 28元每股售价14 元 Q=( W * 5 % + 34 ) * (1 + 4 %)* 每股售价 28 元 Q=( W * 5 % + 34 ) * (1 + 2 %)* * 每股售价 10000 元 28元每股售价14 元 Q=( W * 4 % + 134 ) * (1 + 4 %)* 每股售价 28 元 Q=( W * 4 % + 134 ) * (1 + 2 %)CLEARMODIFY WINDOWS SCREEN FONT 宋体,24 & 设置屏幕显示字符的属性W = 0pp = 0 2,10 SAY 请输入交易额： GET W 4,10 SAY 请输入每股售价： GET pp READDO CASE CASE W = 1000 .AND. pp = 14 Q = W * 0.084 * (1 + 0.06) CASE W 14 .AND. pp = 28 Q = W * 0.084 * (1 + 0.04) CASE W 28 Q = W * 0.084 * (1 + 0.02) CASE W 1000 .AND. W = 10000 .AND. pp 1000 .AND. W 14 .AND. pp 1000 .AND. W 28 Q = (W * 0.05 + 34) * (1 + 0.02) CASE W 10000 .AND. pp 10000 .AND. pp 14 .AND. pp 10000 .AND. pp 28 Q = (W * 0.04 + 134) * (1 + 0.02)ENDCASE 6,10 SAY 手续费是：+STR(Q) COLOR RGB(0,0,255,255,255,255)RETURN-* 程序名：CHX4.PRG* 功 能：求自然数的前N项和，即：给定一个正整数n,求：S=1+2+.+nCLEARMODIFY WINDOWS SCREEN FONT 宋体,28 & 设置屏幕显示字符的属性n = 0 3,2 SAY 请输入一个正整数： GET n READmi = 1s = 0DO WHILE mi = n s = s + mi mi = mi + 1ENDDO 4,2 SAY 1 + 2 + .+ + ALLTRIM(STR(n) + = + ALLTRIM(STR(s)RETURN-* 程序名：CHX5.PRG* 功 能：给定一个正整数n,求：S=1*2*.*nCLEARMODIFY WINDOWS SCREEN FONT 宋体,28n = 0 3,2 SAY 请输入一个正整数： GET n READmi = 1s = 1DO WHILE mi = n s = s * mi mi = mi + 1ENDDO 4,2 SAY 1*2* .* + ALLTRIM(STR(n) + = + ALLTRIM(STR(s)RETURN-* 程序名：CHX6.PRG* 功 能：在屏幕上显示出男学生的姓名、性别、年龄、民族和籍贯，每显示十名学生的信息后，提示用户按任意键继续，直到所有学生的信息显示完毕。CLEAR ALLUSE studentmm = 1MODIFY WINDOWS SCREEN FONT 宋体,16 & 设置屏幕显示字符的属性CLEAR 0,2 SAY 姓名 性别 年龄 民族 籍贯 FONT ,16SCAN ALL FOR sex = 男 nl = STR(DATE() - birthday) / 365,4,1) ROW() + 1,2 SAY name + + sex + + nl + + nation + + native FONT ,16 IF mm 10 mm = mm + 1 ELSE WAIT 按任意键继续. mm = 1 CLEAR 0,2 SAY 姓名 性别 年龄 民族 籍贯 FONT ,16 ENDIFENDSCANUSERETURN-(2)、按照题目要求，进行程序设计，建立程序文件，运行、调试。 给定一个正整数，求小于这个数的所有奇数的和 编写一个程序，在屏幕上显示如下图所示的平行四边形图案实验七：程序设计基础（二）1、实验内容和目的： 掌握带参数的程序设计和调用方法 掌握用户自定义函数的设计方法 掌握多模块程序设计中变量的作用域 应掌握的命令：DO WITH PARAMETERS RETURN | TO MASTER | TO PUBLIC PRIVATE LOCAL 2、操作要求：（1）阅读程序举例，按举例程序建立程序文件并运行之* 程序名：CHX7.PRG* 功 能：检测student.dbf表中同年同月同日生的学生，* 把他们的学号、姓名、性别、生日等信息显示出来。CLEAR ALLCLEARMODIFY WINDOWS SCREEN FONT 宋体,16 & 设置屏幕显示字符的属性USE studentmxss = RECC() & 求出学生总数mxsjlh = 1mp = DO WHILE mxsjlh = mxss GO mxsjlh mname = name msex = sex mcode = code mbirthday = birthday mi = 0 SCAN ALL FOR code mcode IF mbirthday = birthday IF mi = 0 ? mcode + mname + msex + DTOC(mbirthday) ENDIF ? code + name + sex + DTOC(birthday) mi = mi + 1 ENDIF ENDSCAN IF mi 0 ? 与+mname+同年同月同日生的学生有 +ALLTRIM(STR(mi)+ 人 WAIT 按任一键继续，按 P 键退出. TO mp ENDIF IF mp = p .OR. mp = P EXIT ENDIF mxsjlh = mxsjlh + 1ENDDOUSERETURN-* 程序名：CHX8.PRG* 功 能：输入两个正整数，求在这两个数之间的质数ma = 0mb = 0MODIFY WINDOWS SCREEN FONT 宋体,16 & 设置屏幕显示字符的属性CLEAR 1,4 SAY 请输入第一个正整数： FONT 宋体,16 GET ma 3,4 SAY 请输入第二个正整数： FONT 宋体,16 GET mbREADIF ma mb mc = ma ma = mb mb = mcENDIFFOR mi = ma TO mb myn = .T. FOR mj = 2 TO mi/2 IF INT(mi/mj) = mi/mj myn = .F. EXIT ENDIF ENDFOR IF myn = .T. ? mi ENDIFENDFORRETURN-* 自定义函数：QZS()* 返回值：给定的不是自然数，返回一个空字符串；给定的不是质数，返回.F.；给定的是质数，返回.T.LOCAL mj,mk,mynLPARAMETE maIF NOT(ma 0 .AND. INT(ma) = ma) RETURN ENDIFmk = INT(SQRT(ma)myn = .T.FOR mj = 2 TO mk IF INT(ma/mj) = ma/mj myn = .F. EXIT ENDIFENDFORIF myn = .T. RETURN .T.ENDIFRETURN .F.-* 用户自定义函数: dtocc.prg* 调用格式: dtocc()* 返 回 值: 日期的汉字表达字符串,若参数为非法的日期, 则返回空串PARAMETERS rqIF TYPE(rq)D.OR.EMPTY(rq) RETURN SPACE(0)ENDIFmn = STR(YEAR(rq),4)+年my = MONTH(rq)mr = DAY(rq)my = IIF(my10,0+STR(my,1),STR(my,2) + 月mr = IIF(mr10,0+STR(mr,1),STR(mr,2) + 日mrq = mn + my + mrRETURN mrq-* 自定义函数: name.prg* 函数调用格式: name()* 返回值: 一个字符串符合以下条件为有效的姓名:* 1. 由两个或两个以上的汉字组成，不能超过四个汉字。* 2. 汉字与汉字之间可以有空格符，不能含有其它字符。* 若字符串符为有效的姓名，返回值为真(.T.)* 若字符串符为无效的姓名，返回值为假(.F.)* 功 能: 对一个字符串是否是一个姓名进行有效性检查。FUNCTION namePARAMETERS nmIF TYPE(nm) C RETURN .F.ENDIFmyn = .T. & 若发现字符串中有非汉字字符, 就把它置为.F.nm = LTRIM(TRIM(nm) & 移去字符串首尾空格ml = LEN(nm) & 测字符串的长度mi = 1 & 循环变量mzs = 0 & 对字符串中的汉字计数DO WHILE mi = 176 & 测汉字区号 IF ASC(SUBSTR(nm,mi+1,1) = 161 & 测汉字位号 mzs = mzs + 1 mi = mi + 2 ELSE myn = .F. EXIT ENDIF ELSE IF ASC(SUBSTR(nm,mi,1) = 32 mi = mi + 1 ELSE myn = .F. EXIT ENDIF ENDIFENDDOIF mzs 4 myn = .F.ENDIFRETURN myn(2)、按照题目要求，进行程序设计，建立程序文件，运行、调试。 设计一个用户自定义函数，求给定一个正整数的阶乘。 设计一个用户自定义函数，用于判定一个性别字符串的有效性。实验八：表单设计基础（一）1、实验内容和目的： 掌握使用表单向导设计表单的方法 掌握表单设计的步骤 掌握表单设计中对象属性的设置方法（在属性窗口设置和以编程的方式设置） 掌握表单设计中事件代码的编写方法 应掌握的命令：MODIFY FORM DO FORM 2、操作要求：（1）使用表单向导建立一个对学生基本档案表进行操作的单表表单。（2）使用表单向导建立一个对学生基本档案表和学生选课表进行操作的一队夺的表单。（3）设计一个密码输入的表单：设计一个用于检查用户身份的密码输入表单，当用户输入的密码正确时，单击确定按钮调用另一个表单（如:欢迎.SCX），如果用户输入的口令不正确，则不能去调用另一个表单，用户只有三次输入口令的机会设计这个表单的步骤如下：、调出表单设计器、在表单上放置一个标签，一个文本框，两个按钮，共四个控件（对象）。、为每个控件设置属性。方法：选定一个控件，在属性窗口对该控件的属性进行设置。(1) 在属性窗口设置标签的属性：对象的标题文本 Caption 属性为：请输入密码显示文本的字体名 FontName属性为：楷体_GB3212显示文本的字体大小 FontSize属性为：24显示文本的对齐方式 Alignment属性为：中央(2) 在属性窗口设置文本框的属性：显示文本的字体名 FontName属性为：楷体_GB3212显示文本的字体大小 FontSize属性为：24文本框内显示的占位符 PasswoldChar 属性为： *(3) 在属性窗口设置确定按钮的属性：对象的标题文本 Caption 属性为：确定显示文本的字体名 FontName属性为：楷体_GB3212显示文本的字体大小 FontSize属性为：24对用户引发的事件是否响应 Enabled 属性为： .F.(4) 在属性窗口设置退出按钮的属性：对象的标题文本 Caption 属性为：退出显示文本的字体名 FontName属性为：楷体_GB3212显示文本的字体大小 FontSize属性为：24、为表单和控件的事件编写事件代码：(1) 当输入密码时（文本框获得焦点的事件发生时）* 文本框的 When 事件代码 *THIS.Value = SPACE(0) & 使文本框的当前值为空字符串THIS.Refresh & 使文本框刷新一次RETURN .T. & 返回值为逻辑真(2) 当输入完密码时（文本框失去焦点的事件发生时）记下户输入密码的次数检查用户输入的密码是否正确，若正确，则允许用户去按动确定按钮；若不正确，检查用户输入密码的次数，若不足三次，告诉用户输入的密码错误，应重新输入；若用户输入密码的次数已经三次，则提示用户，不允许用户按动确定按钮，只能按动退出按钮。* 文本框的 Valid 事件代码 *THIS.Tag = THIS.Tag + A & 每输入一次密码，属性 Tag 增加一个AIF THIS.Value = 123456 & 判断文本框的当前值等于123456吗？ THISFORM.Label1.Caption = 密码正确！ THIS.Enabled = .F. & 使文本框不能响应用户的事件 THISFORM.Command1.Enabled = .T. & 使确定按钮响应用户的事件ELSE THISFORM.Label1.Caption = 密码错！请重新输入： IF THIS.Tag = AAA THISFORM.Label1.Caption = 三次密码错误，再见！ THISFORM.Text1.Enabled = .F. ENDIFENDIFTHISFORM.Refresh & 使表单和控件刷新一次RETURN .T. & 返回值为逻辑真(3) 当用户用鼠标点击确定按钮时* 确定按钮的 Click 事件代码 *THISFORM.Release & 释放当前的表单DO FORM 欢迎 & 调用另一个名为欢迎的表单(4) 当用户用鼠标点击退出按钮时* 退出按钮的 Click 事件代码 *THISFORM.Release & 释放表单、关闭表单设计器，为表单命名，把所设计的表单存盘、运行表单实验九：表单设计基础（二）1、实验内容和目的： 掌握表单设计中事件代码的编写方法 掌握表单设计中方法程序的调用和事件、方法程序的参数传递 掌握标签、图像、文本框等控件的主要属性和设计方法2、操作要求：（1）设计一个表单，能分别在这个表单上输出文本、画圆、矩形、直线和曲线。设计这个表单的步骤如下：、调出表单设计器、在表单上放置五个按钮。、在属性窗口为五个按钮设置属性：他们的Caption属性分别为：同心圆、矩形、直线、曲线和退出。、为表单和控件的事件编写事件代码：* 当表单被激活时Activate事件代码，在表单上输出文本 *THIS.FontSize = 24THIS.ForeColor = RGB(255,0,0) & 设置表单上文本和图形的前景色THIS.CurrentX = 20 & 设置光标的横坐标值THIS.CurrentY = 60 & 设置光标的纵坐标值THIS.Print(这是一个演示方法调用的表单) &用方法程序 Print输出文本THIS.FontSize = 3