第7章 结构化程序设计.ppt

【例7-7】在学生表（学生.DBF）中查找指定学号所对应的该学生，按格式显示并可修改姓名、性别和出生日期三个字段的信息。学生表信息如上图7-10所示第30页，共64页，星期日，2025年，2月5日程序如下：SETTALKOFFCLEARUSE学生ACCEP请输入学生学号:TOxhLOCATEALLFORALLTRIM(学号)=xh@2,2SAY********显示学生信息********@3,2SAY学生姓名:GET姓名@3,20SAY性别:GET性别@4,2SAY学号:GET出生年月READ@5,2SAY******显示结束********USESETTALKONRETURN【程序说明】要求用户从键盘上输入学号。然后执行定位查询语句找到该学生，然后用定位输出语句显示提示和字段内容。其中特别要注意函数alltrim()的使用。第31页，共64页，星期日，2025年，2月5日7.3分支结构程序设计在例7-7中，我们已经能够实现一个简单的查询程序，但该例中没有对语句“LOCATEALLFORALLTRIM(学号)=xh“的执行情况进行判断，这里可能存在两种情况：1.该记录存在2.该记录不存在。因此，下面执行的语句将会根据情况的不同而不同。要解决这个问题，我们将引入新的结构---分支结构。所谓分支结构，是指在程序执行时，根据不同的条件选择执行不同的程序语句。VisualFoxPro提供了以下3种分支结构语句：单向分支语句：IF—ENDIF双向分支语句：IF—ELSE—ENDIF多向分支语句：DOCASE–ENDCASE第32页，共64页，星期日，2025年，2月5日1．单向分支语句【命令】IF条件表达式命令行序列ENDIF【功能】首先计算条件表达式的值，若其值为真，执行命令行序列中的各条命令，然后执行ENDIF后面的命令；若其值为假，则直接执行ENDIF后面的命令。【说明】（1）单向分支语句的执行流程图见图7-2分图左边所示。（2）ENDIF是语句结束的标志，不能缺少第33页，共64页，星期日，2025年，2月5日【例7-8】输入一个数，如果大于0则显示为正程序如下:INPUT请输入一个数TOnumIFnum0?该数是正数ENDIFWAIT按任意键结束程序RETURN【程序说明】该程序运行时，要求用户从键盘上输入一个数，然后程序根据所输入的数判断是否大于0，是的话则执行语句?“该数是正数”，接着顺序执行ENDIF后的语句WAIT按任意键结束程序。第34页，共64页，星期日，2025年，2月5日【例7-9】在学生表（学生.DBF）中输入学生学号，如果存在则按格式显示该学生的姓名、性别和出生日期、入校成绩，并可对出生日期和入校成绩做修改。学生表信息如上图7-10所示【程序说明】该程序运行时，要求用户从键盘上输入学号，然后程序根据所输入的学号在表中查找该学生。如果找到的话（即函数found()的值为真），就按指定的格式显示并修改该学生的相关信息第35页，共64页，星期日，2025年，2月5日程序如下:SETTALKOFFCLEARUSE学生ACCEPT请输入学生学号TOxhLOCATEALLFORALLTRIM(学号)=xhIFFOUND()@2,2SAY********显示学生信息********@3,2SAY学生姓名:+姓名@3,20SAY性别:+性别@4,2SAY出生年月:GET出生年月@4,20SAY入校成绩:GET入校成绩@ROW()+1,COL()SAY******显示结束********READENDIFUSESETTALKONRETURN第36页，共64页，星期日，2025年，2月5日2．双向分支语句【命令】IF条件表达式命令行序列1ELSE命令行序列2ENDIF【功能】首先计算条件表达式的值，若其值为真，执行命令行序列1，然后执行ENDIF后面的命令；若其值为假，执行命令行序列2，然后执行ENDIF后面的命令。【说明】双向分支语句的执行流程图如图7-2分支图右边所示。第37页，共64页，星期日，2025年，2月5日【例7-10】输入一个数，如果大于0则显示“该数为正”，