VFP第4章程序设计基础(2).ppt

数据库中表的永久性关联 (共同字段) ;2;Chap4-3: 从屏幕上输入a,b,c三个正数，计算三角形的面积 (通过命令文件实现 modi command ) ;Chap4-3: 从屏幕上输入a,b,c三个正数，计算三角形的面积 (通过表单实现) ;对象;（3）编写事件代码： “计算”命令按钮Command1的Click事件中代码如下： Clear Set talk off A=thisform.text1.value B=thisform.text2.value C=thisform.text3.value T=(A+B+C)/2 S=SQRT(t*(t-a)*(t-b)*(t-c)) Thisform.text4.value=str(S,6,2) Return （4）运行表单 ( do form 表单文件名) Chap4-3.SCX;2、VFP程序的基本结构和流程图 VFP和其他的结构化程序设计语言一样，也提供了三种基本结构： 顺序结构、分支结构和循环结构。 理论上可以把任何复杂的问题分解为这三种基本结构的组合，然后用相应的程序代码（或称程序语句）完成对问题的求解。 ; 传统流程图 ;4.3 顺序结构程序设计;一、程序设计辅助命令;【说明】格式一、格式二一般放在程序的开头，格式三一般放在语句的后面，注释内容可以是汉字、汉语拼音或英语等。 例如： 1） * 主程序 2） NOTE 这是主程序 3） Use Rsda 打开Rsda数据表 ;3. 清屏命令 【格式】CLEAR 【功能】清除当前屏幕上的所有信息。但不清除内存变量。 4. 信息显示开关命令 【格式】SET TALK ON|OFF 【功能】默认情况为ON，在执行一些非输出命令时，把一些信息显示出来。如COUNT、SUM等命令将结果自动显示出来。在程序中一般只希望显示要求的输出结果。所以一般在程序开头使用SET TALK OFF，在程序的最后恢复为ON。 ;5、返回命令 命令格式： Return 命令功能：结束一个程序的执行。如果程序被另一个程序调用，则返回到调用程序；否则返回到命令窗口 ;输出命令 VFP提供的输出命令很多，本章中主要使用?和??命令，其格式和用法已在前面已介绍过，这里不再赘述。 ?? 在当前行显示 ？在下一行的第一列显示 ;二、顺序结构程序设计及步骤;顺序结构程序: SET TALK OFF Input “请输入X的值:” to X 从键盘上输入的是0 X=X+1 X=X+2 X=X+3 X=X+4 ? X Return ;例chap4-4：从键盘上输入姓名（或编号），将人事信息??RSDA.DBF中新评为高工的员工，其职称一栏改为高工(用表单实现:) ;Question: 如果数据表中没有满足条件的记录，执行完Locate 语句后，当前指针为？;4.4 分支结构程序设计;4.4.1 分支结构程序设计 4.4.2 分支结构的嵌套 4.4.3 多重分支条件语句 ;一、简单分支语句(IF－ENDIF);【例】修改前面的表单Chap4-3.SCX中的事件代码：;在上面程序中如果出现两边之和小于第三边，应在屏幕上输出：两边之和小与第三边. 计算按钮(Command1)Click事件中的代码如下： Clear Set talk off A=thisform.text1.value B=thisform.text2.value C=thisform.text3.value If (a+b)c and (a+c)b and (c+b)a T=(A+B+C)/2 S=SQRT(t*(t-a)*(t-b)*(t-c)) Thisform.text4.value=str(S,6,2) else Messagebox(“两边之和小与第三边，重输！”) endif ;分支结构分类： 简单分支(IF－ENDIF) 选择分支(IF－ELSE－ENDIF) 结构分支（DO CASE—ENDCASE）;选择分支结构程序设计;功能】： 如果逻辑表达式的值为.T.(条件满足)，则执行语句组1，然后执行ENDIF后的语句； 而当条件不满足且具有ELSE语句时，执行语句组2； ;对例chap4-4.prg 进行修改： clear set talk off xm=Alltrim(thisform.text1.value) locate for 姓名=xm If found() replace 职称 with 高工 Else Messagebox(找不到,无法替换!) Endif