《VFP程序设计基础教学文案》由会员分享，可在线阅读，更多相关《VFP程序设计基础教学文案（54页珍藏版）》请在金锄头文库上搜索。
1、VFPVFP程序设计基础程序设计基础要点 Visual FoxPro的工作方式 程序文件的建立与编辑 程序的基本结构 分支结构 循环结构Visual FoxPro的工作方式 Visual FoxPro系统提供有三种工作方式：即单命令方式、菜单方式及程序文件方式。 1.单命令方式 3.程序文件方式 程序文件（简称程序）也叫做命令文件。运用程序文件方式进行数据库管理，是通过程序文件编辑工具，将对数据库资源进行操作管理的命令和对系统环境进行设置的命令，集中在一个以（.PRG）为扩展名的命令文件中，然后再通过菜单方式或命令方式运行该命令文件。所谓命令方式，即通过程序文件中的命令完成不同的操作。程序:
2、是多条命令按一定规则组织成的一个有机的序列注释语句NOTE * & 注释整一行，NOTE后至少有一个空格可以注释在某条语句之后对话开关语句【格式】SET TALK OFF|ONclear &清屏 set talk off &关闭对话显示open data student &打开数据库 use sc &打开SC表(学号,课程号,成绩)listsum to array a &求和?总成绩：,a &输出set talk on &开启对话显示close data VFP源程序是用VFP命令或程序中专用语句编写的文本文件，其扩展名是PRG。VFP专用程序编辑器建立源程序文件建立源程序文件方法一：“文件”
3、菜单项“新建”选择“程序”“新建文件”。方法二：使用常用工具栏的“新建”按钮。说明1：此方法可以建立新程序文件，又可修改已有的程序文件。方法三：在命令窗口中执行命令： ModifyCommand 说明2：文件的扩展名可缺省，系统默认扩展名为.PRG。方法四：在项目管理器中，进入“代码”选项卡，选择“程序”，单击“新建”。说明3：一个命令行中只能写一条命令，若一行写不下，需使用分行符“;”。 保存程序文件保存程序文件方法一：单击“文件”菜单项“保存”。方法二：单击“常用”工具栏里的“保存”按钮。方法三：按 Ctrl+W 。方法四：关闭程序编辑器，系统提示是否保存文件。方法一：“文件”菜单项“打开
4、”“文件类型”为“程序”选择文件“确定”方法二：单击“常用”工具栏里的“打开”按钮。方法三：在命令窗口中执行命令： ModifyCommand |? 打开程序文件打开程序文件 在VFP中，可以执行源程序、编译程序、应用程序和可执行程序种程序文件。（1）源程序(PRG)：源程序是文本文件，可以对其内容进行修改。只要有源程序文件，就可以生成其他3种程序文件。 执行程序就是按照程序的内部控制结构执行文件中的相关语句序列。 程序文件的类型程序文件的类型 （2）编译程序(FXP)：每个源程序文件都有对应的编译程序文件，执行编译程序比执行源程序的速度快。 （3）应用程序(APP)：由多个文件（包括程序、表
5、单和菜单等）连接成一个应用程序文件。注意：以上三种文件都是在VFP环境下运行。 （4）可执行程序(EXE)：将多个文件（包括程序、表单和菜单等）连接成一个可执行程序文件,此种文件可以脱离脱离VFP环境运行。 编译程序编译程序 当执行一个源程序时，系统自动将其编译为编译程序(FXP)。在VFP中允许只编译而不执行程序。方法一：在程序编辑器中，单击“程序”菜单项“编译”。方法二：单击“程序”菜单项“编译”选择“文件类型”为“程序”选择程序文件“编译”编译方法为：执行程序执行程序 方法二：“程序”菜单“运行”选择“文件类型”为“程序”选择或输入程序文件名“运行”。方法三：在程序或命令窗口中执行： D
6、o 说明：当源程序(PRG)和编译程序(FXP)文件同时存在时，系统将执行距当前时间最近的程序文件。 方法一：在程序编辑器中，“程序”菜单“执行”或“运行”常用工具输入字符串语句语句格式： Accept To “字符表达式”：作为执行到此语句时的提示信息。若无此项，则不输出任何信息。 内存变量：用来接收输入的字符串。若不输入任何字符，则将空字符赋值给内存变量。 例： Accept “请输入学号:” To XH? ”输入的学号是：”+XH 等待语句语句格式：Wait To Window At ,Nowait Clear|NoclearTimeout “字符表达式”：提示信息。若无此项，则输出任何
7、信息。 To 内存变量：用来接收输入的字符。若不输入任何字符，则将空字符赋值给内存变量。 说明：允许输入任何类型的表达式。Input输入字符串时必须加上定界符。可以输入字符型、数值型、逻辑型、日期型和日期时间型等类型数据，而且可以是常量、变量、函数或表达式等形式，按回车键结束输入，系统将输入的数据赋值给。输入表达式语句 语句格式： Input To 例：N=2Input 请输入数据： To M? M ACCEPT命令只能接受字符型数据，不需定界符，输入完毕按回车键结束； WAIT命令只能输入单个字符，且不需定界符，输入完毕不需按回车键； INPUT命令可接受数值型、字符型、逻辑型、日期型和日期
8、时间型数据，数据形式可以是常量、变量、函数和表达式，如果是字符串，需用定界符，输入完毕按回车键结束。三条输入命令的异同程序的基本结构 1顺序结构 顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。Visual FoxPro系统中的大多数命令都可以作为顺序结构中的语句。 2分支结构 分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。 3循环结构 循环结构则能够使某些语句或程序段重复执行若干次。 4过程结构 在许多应用程序中，有一些程序段需要反复执行多次，这些程序段不在一个固定的位置上，而是分散在程序的许多位置上重复执行，可将其与嵌
9、入它的程序分开，形成独立的程序序列，待使用时再调入程序中，以实现不同位置上的重复操作。【例】编写程序，在STUDENT数据库的STUD表中查找并显示任意一个学生的情况。OPEN DATABASE STUDENT USE STUDACCEPT 请输入学生的姓名: TO XMLOCA FOR 姓名=XM?学生 +XM+的基本情况如下:?学号:+学号?姓别:+性别?班级名: +班级名?地址:+地址?出生日期: +DTOC(出生日期)CLOSE DATABASE 【例】写程序P3.PRG:从键盘输入两个任意整数,计算这两个数的和、差、积、商。 CLEARINPUT 请输入第一个数： TO AINPUT
10、 请输入第二个数： TO B? 这两个数的和为： , A+B? 这两个数的差为： , A-B? 这两个数的积为： , A*B? 这两个数的商为： , A/B【例】从键盘输入两个任意正数，编程求以两数为边长的长方形面积。程序文件名为PROG4.PRGSETTALKOFFCLEARINPUT长方形一边的长为：TOAINPUT长方形另一边的长为：TOBS=A*B?长方形的面积为：,SSETTALKONRETURN练习： CLEARCREATE TABLE 学生成绩 (姓名 C(8),课程号 C(10),成绩 N(3)INSERT INTO 学生成绩 VALUES (张三,计算机,90)INSERT
11、INTO 学生成绩 VALUES (李四,英语,80)SELECT * FROM 学生成绩 1 编写程序文件P1.PRG，运行程序，观察结果。要求程序完成以下步骤： (1)用SQL语句中CREATE TABLE创建一个学生成绩表，其中包括如下字段：姓名C（8）、课程名C（10）、成绩N（3） (2)用SQL语句中INSERT INTO 添加如下数据 张三 计算机 90 李四 英语 80 (3)用SELECT查询语句查询所有记录。 语句格式： If Then Endif开始语句序列结束条件?YN分支结构后面语句单分支单分支IfIf语句语句Y其中IF-ENDIF必须配对出现。选择结构 例：例：In
12、put Input 请输入一个请输入一个N N： To N To NIf N0 If N0 N=-N N=-N EndifEndif? N? N的绝对值是：的绝对值是：, N, N双分支双分支IfIf语句语句 语句格式： If Then ELSE Endif开始语句序列1结束条件?YN语句序列2分支结构后面语句例，求两个数中较小值：Input X= To XInput Y= To YIf X0）0 （X=0）1 （X0Y=1ElseIf X=0Y=0ElseY=-1EndifEndif? Y控制程序是否继续执行控制程序是否继续执行 例 6.8：? DATE() & 输出系统日期CANCEL &
13、 结束本程序的执行? TIME() & 此语句得不到执行（1）Cancel：结束当前程序的运行。控制程序是否继续执行控制程序是否继续执行 （2）Suspend：暂停程序的执行。暂停期间可以在命令窗口中执行交互命令。（3）Resume：继续执行Suspend暂停的程序，从Suspend语句的下一条继续。 例:X=1SuspendY=2? X+Y条件函数 函数格式：函数格式： IifIif(,)2) 说明：若条件成立，则表达式1的值作为函数值；否则，表达式2的值作为函数值。例如：Input 输入一个数N： To N M=Iif(N0,-N, N) ? ”N的绝对值是：”, M开始语句序列1结束条件
14、1?YN语句序列2条件2?YN语句序列n条件n?YNOTHERWISE语句序列n+1.多分支结构多分支结构语句格式：DoCaseCase Case Case Otherwise Endcase说明1：执行时，系统从上向下依次对Case后面的条件进行判断，当条件不成立时，就判断下一个Case条件是否成立。一旦某个Case条件成立，就执行该Case与下一个Case（Otherwise或Endcase）之间的语句序列，然后执行Endcase后面的语句。说明2：若所有条件都不成立，而有Otherwise项，则执行语句序列n+1，然后执行Endcase后面的语句；若所有条件都不成立，且无Otherwis
15、e项，则直接执行Endcase后面的语句。 Input 请输入一个数： To XDo CaseCase X0Y=1Case X=0Y=0Otherwise Y=-1Endcase? Y1 （X0）0 （X=0） 1 （X0） Y=案例：S=1+2+3+4+5+6i=0S=s+isiS=S+ii=i+100010112123333646410510515615621循环结构程序设计循环结构循环结构指在执行程序过程中，重复执行某指在执行程序过程中，重复执行某程序段。程序段。在循环体中，可以利用在循环体中，可以利用ExitExit语句提前结束循语句提前结束循环，也可利用环，也可利用LoopLoop语
16、句提前结束本次循环语句提前结束本次循环。重复执行的程序段称为重复执行的程序段称为循环体循环体，重复执行的，重复执行的次数称为次数称为循环次数循环次数。DoWhile(当型)循环语句语句格式： DoWhile Enddo 开始语句序列结束条件?YN循环前的语句循环体后的语句语句序列Y说明：Do While与Enddo必须成对成对使用。例，求前100个自然数的和：S=0 N=1 Do While N=100 S=S+NN=N+1Enddo循环条件循环体S=1+2+3+4+100死循环死循环如果循环体中没有能执行到的、使条件趋于不成立的语句、结束循环或结束程序的语句，将永远执行不完循环体，即出现死循环。语句修改为：Do While Loop Exit EnddoDo While(当型)循环语句（2）Exit：一旦执行到Exit语句，就结束整个循环。（1）Loop：一旦执行到Loop语句，就提前结束本次循环。例，对键盘输入的每一个正数，输出其算术平方根；当输入的数小于或等于0时，结束程序。 开始循环体前语句循环体条件Y分支条件YLOOPN分支结构下面的语句N循环体下面的语句结束 无条件转向循环
