VFP程序设计基础.ppt

1、VFP程序设计基础要要 点点 Visual FoxPro Visual FoxPro的工作方式的工作方式 程序文件的建立与编辑程序文件的建立与编辑 程序的基本结构程序的基本结构 分支结构分支结构 循环结构循环结构Visual FoxProVisual FoxPro的工作方式的工作方式 Visual FoxProVisual FoxPro系统提供有三种工作方式：即系统提供有三种工作方式：即单命令方式、菜单方式及程序文件方式。单命令方式、菜单方式及程序文件方式。1.1.单命令方式单命令方式 2.2.菜单方式菜单方式3.3.程序文件方式程序文件方式 程序文件（简称程序）也叫做命令文件。运用程序文件（

2、简称程序）也叫做命令文件。运用程序文件方式进行数据库管理，是通过程序文件编程序文件方式进行数据库管理，是通过程序文件编辑工具，将对数据库资源进行操作管理的命令和对辑工具，将对数据库资源进行操作管理的命令和对系统环境进行设置的命令，集中在一个以（系统环境进行设置的命令，集中在一个以（.PRG.PRG）为扩展名的命令文件中，然后再通过菜单方式或命为扩展名的命令文件中，然后再通过菜单方式或命令方式运行该命令文件。所谓命令方式，即通过程令方式运行该命令文件。所谓命令方式，即通过程序文件中的命令完成不同的操作。序文件中的命令完成不同的操作。程序程序:是多条命令按一定规则组织成的一个有机是多条命令按一定规

3、则组织成的一个有机的序列的序列注释语句注释语句NOTENOTE *&注释整一行，注释整一行，NOTE后至少有一后至少有一个空格个空格可以注释在某条语句之后可以注释在某条语句之后对话开关语句对话开关语句【格式】【格式】SET TALK OFF|ONSET TALK OFF|ONclear&清屏清屏 set talk off&关闭对话显示关闭对话显示open data student&打开数据库打开数据库 use sc&打开打开SC表表(学号学号,课程号课程号,成绩成绩)listsum to array a&求和求和?总成绩：总成绩：,a&输出输出set talk on&开启对话显示开启对话显示c

4、lose data VFP VFP源程序源程序是用是用VFPVFP命令或程序中专用语命令或程序中专用语句编写的文本文件，其扩展名是句编写的文本文件，其扩展名是PRGPRG。VFPVFP专用程序编辑器专用程序编辑器方法一：方法一：“文件文件”菜单项菜单项“新建新建”选择选择“程序程序”“”“新建文件新建文件”。方法二：方法二：使用常用工具栏的使用常用工具栏的“新建新建”按钮。按钮。说明说明1 1：此方法可以此方法可以建立建立新程序文件，又新程序文件，又可可修改修改已有的程序文件。已有的程序文件。方法三：方法三：在命令窗口中执行命令：在命令窗口中执行命令：Modify Command 说明说明2

5、2：文件的扩展名可缺省，系统默认文件的扩展名可缺省，系统默认扩展名为扩展名为.PRG.PRG。方法四：方法四：在项目管理器中，进入在项目管理器中，进入“代码代码”选选项卡，选择项卡，选择“程序程序”，单击，单击“新建新建”。说明说明3 3：一个命令行中只能写一条命令，一个命令行中只能写一条命令，若一行写不下，需使用分行符若一行写不下，需使用分行符“;”。方法一：方法一：单击单击“文件文件”菜单项菜单项“保存保存”。方法二：方法二：单击单击“常用常用”工具栏里的工具栏里的“保存保存”按钮。按钮。方法三：方法三：按按 Ctrl+W Ctrl+W。方法四：方法四：关闭程序编辑器，系统提示是否保关闭程

6、序编辑器，系统提示是否保存文件。存文件。方法一方法一：“文件文件”菜单项菜单项“打开打开”“”“文文件类型件类型”为为“程序程序”选择文件选择文件“确定确定”方法二：方法二：单击单击“常用常用”工具栏里的工具栏里的“打开打开”按钮。按钮。方法三：方法三：在命令窗口中执行命令：在命令窗口中执行命令：Modify Command|?在在VFPVFP中，可以执行源程序、编译程序、中，可以执行源程序、编译程序、应用程序和可执行程序种程序文件。应用程序和可执行程序种程序文件。（1 1）源程序）源程序(PRG)(PRG)：源程序是文本文件，可源程序是文本文件，可以对其内容进行修改。只要有源程序文件，以对其

7、内容进行修改。只要有源程序文件，就可以生成其他就可以生成其他3 3种程序文件。种程序文件。执行程序就是按照程序的内部控制结构执行程序就是按照程序的内部控制结构执行文件中的相关语句序列。执行文件中的相关语句序列。（2 2）编译程序）编译程序(FXP)(FXP)：每个源程序文件都有每个源程序文件都有对应的编译程序文件，执行编译程序比执行对应的编译程序文件，执行编译程序比执行源程序的速度快。源程序的速度快。（3 3）应用程序）应用程序(APP)(APP)：由多个文件（包括程由多个文件（包括程序、表单和菜单等）连接成一个应用程序文序、表单和菜单等）连接成一个应用程序文件。件。注意：注意：以上三以上三种

8、文件都是在种文件都是在VFPVFP环境下运行。环境下运行。（4 4）可执行程序）可执行程序(EXE)(EXE)：将多个文件（包括将多个文件（包括程序、表单和菜单等）连接成一个可执行程程序、表单和菜单等）连接成一个可执行程序文件序文件,此种文件可以此种文件可以VFPVFP环境运行。环境运行。当执行一个源程序时，系统自动将其编当执行一个源程序时，系统自动将其编译为编译程序译为编译程序(FXP)(FXP)。在。在VFPVFP中允许只编译而中允许只编译而不执行程序。不执行程序。方法一：方法一：在程序编辑器中，单击在程序编辑器中，单击“程序程序”菜单项菜单项“编译编译”。方法二：方法二：单击单击“程序程

9、序”菜单项菜单项“编编译译”选择选择“文件类型文件类型”为为“程序程序”选选择程序文件择程序文件“编译编译”编译方法为：编译方法为：方法二：方法二：“程序程序”菜单菜单“运行运行”选择选择“文件类型文件类型”为为“程序程序”选择或输入程选择或输入程序文件名序文件名“运行运行”。方法三方法三：在程序或命令窗口中执行：在程序或命令窗口中执行：Do 说明：说明：当源程序当源程序(PRG)(PRG)和编译程序和编译程序(FXP)(FXP)文件文件同时存在时，系统将执行距当前时间最近的同时存在时，系统将执行距当前时间最近的程序文件。程序文件。方法一方法一：在程序编辑器中在程序编辑器中，“程序程序”菜单菜

10、单“执行执行”或或“运行运行”常用工具常用工具输入字符串语句语句格式：语句格式：Accept To “字符表达式字符表达式”：作为执行到此语句时的提作为执行到此语句时的提示信息。若无此项，则不输出任何信息。示信息。若无此项，则不输出任何信息。内存变量：内存变量：用来接收输入的字符串。若不输用来接收输入的字符串。若不输入任何字符，则将入任何字符，则将空字符空字符赋值给内存变量。赋值给内存变量。例：例：Accept“Accept“请输入学号请输入学号:”To XH:”To XH?”?”输入的学号是：输入的学号是：”+XH”+XH 等待语句语句格式：语句格式：Wait To To Window At

11、 Window At,NowaitNowait Clear|NoclearTimeout Clear|NoclearTimeout “字符表达式字符表达式”：提示信息。若无此项，则提示信息。若无此项，则输出任何信息。输出任何信息。To To 内存变量：内存变量：用来接收输入的字符。若不输用来接收输入的字符。若不输入任何字符，则将入任何字符，则将空字符空字符赋值给内存变量。赋值给内存变量。说明：说明：允许输入任何类型的表达式。允许输入任何类型的表达式。InputInput输输入字符串时必须加上定界符。入字符串时必须加上定界符。可以输入字符型、数值型、逻辑型、可以输入字符型、数值型、逻辑型、日期型

12、和日期时间型等类型数据，而日期型和日期时间型等类型数据，而且可以是常量、变量、函数或表达式且可以是常量、变量、函数或表达式等形式，按回车键结束输入，系统将等形式，按回车键结束输入，系统将输入的数据赋值给输入的数据赋值给。输入表达式语句 语句格式：语句格式：Input To 例：例：N=2N=2Input Input 请输入数据：请输入数据：To M To M?M?M ACCEPT命令只能命令只能接受字符型数据接受字符型数据，不需，不需定界符，输入完毕按回车键结束；定界符，输入完毕按回车键结束；WAIT命令只能输入命令只能输入单个字符单个字符，且不需定界，且不需定界符，输入完毕不需按回车键；符，

13、输入完毕不需按回车键；INPUT命令可接受命令可接受数值型、字符型、逻辑数值型、字符型、逻辑型、日期型和日期时间型数据型、日期型和日期时间型数据，数据形式，数据形式可以是常量、变量、函数和表达式，如果可以是常量、变量、函数和表达式，如果是字符串，需用定界符，输入完毕按回车是字符串，需用定界符，输入完毕按回车键结束。键结束。三条输入命令的异同三条输入命令的异同程序的基本结构程序的基本结构 1 1顺序结构顺序结构 顺序结构是在程序执行时，根据程序中顺序结构是在程序执行时，根据程序中语句的书写顺序依次执行的命令序列。语句的书写顺序依次执行的命令序列。Visual FoxProVisual FoxPr

14、o系统中的大多数命令都可以作系统中的大多数命令都可以作为顺序结构中的语句。为顺序结构中的语句。2 2分支结构分支结构 分支结构是在程序执行时，根据不同的分支结构是在程序执行时，根据不同的条件，选择执行不同的程序语句，用来解决条件，选择执行不同的程序语句，用来解决有选择、有转移的诸多问题。有选择、有转移的诸多问题。3 3循环结构循环结构 循环结构则能够使某些语句或程序段重循环结构则能够使某些语句或程序段重复执行若干次。复执行若干次。4 4过程结构过程结构 在许多应用程序中，有一些程序段需要在许多应用程序中，有一些程序段需要反复执行多次，这些程序段不在一个固定的反复执行多次，这些程序段不在一个固定

15、的位置上，而是分散在程序的许多位置上重复位置上，而是分散在程序的许多位置上重复执行，可将其与嵌入它的程序分开，形成独执行，可将其与嵌入它的程序分开，形成独立的程序序列，待使用时再调入程序中，以立的程序序列，待使用时再调入程序中，以实现不同位置上的重复操作。实现不同位置上的重复操作。【例】编写程序，在STUDENT数据库的STUD表中查找并显示任意一个学生的情况。OPEN DATABASE STUDENT OPEN DATABASE STUDENT USE STUDUSE STUDACCEPT ACCEPT 请输入学生的姓名请输入学生的姓名:TO XM:TO XMLOCA FOR LOCA FO

16、R 姓名姓名=XM=XM?学生学生+XM+XM+的基本情况如下的基本情况如下:?学号学号:+:+学号学号?姓别姓别:+:+性别性别?班级名班级名:+:+班级名班级名?地址地址:+:+地址地址?出生日期出生日期:+DTOC(:+DTOC(出生日期出生日期)CLOSE DATABASE CLOSE DATABASE【例】【例】写程序写程序P3.PRG:P3.PRG:从键盘输入两个任从键盘输入两个任意整数意整数,计算这两个数的和、差、积、商。计算这两个数的和、差、积、商。CLEARCLEARINPUT INPUT 请输入第一个数：请输入第一个数：TO A TO AINPUT INPUT 请输入第二个

17、数：请输入第二个数：TO B TO B?这两个数的和为：这两个数的和为：,A+B,A+B?这两个数的差为：这两个数的差为：,A-B,A-B?这两个数的积为：这两个数的积为：,A,A*B B?这两个数的商为：这两个数的商为：,A/B,A/B【例】从键盘输入两个任意正数，编程求以【例】从键盘输入两个任意正数，编程求以两数为边长的长方形面积。程序文件名为两数为边长的长方形面积。程序文件名为PROG4.PRGSET TALK OFFCLEARINPUT 长方形一边的长为：长方形一边的长为：TO AINPUT 长方形另一边的长为：长方形另一边的长为：TO BS=A*B?长方形的面积为：长方形的面积为：,

18、SSET TALK ONRETURN练习：CLEARCREATE TABLE 学生成绩(姓名 C(8),课程号 C(10),成绩 N(3)INSERT INTO 学生成绩 VALUES(张三,计算机,90)INSERT INTO 学生成绩 VALUES(李四,英语,80)SELECT*FROM 学生成绩 1 1 编写程序文件编写程序文件P1.PRGP1.PRG，运行程序，观察结，运行程序，观察结果。要求程序完成以下步骤：果。要求程序完成以下步骤：(1)(1)用用SQLSQL语句中语句中CREATE TABLECREATE TABLE创建一个学创建一个学生成绩表，其中包括如下字段：姓名生成绩表，

19、其中包括如下字段：姓名C C（8 8）、课）、课程名程名C C（1010）、成绩）、成绩N N（3 3）(2)(2)用用SQLSQL语句中语句中INSERT INTO INSERT INTO 添加如下数添加如下数据据 张三张三 计算机计算机 90 90 李四李四 英语英语 80 80 (3)(3)用用SELECTSELECT查询语句查询所有记录。查询语句查询所有记录。语句格式：语句格式：If Then Then 1 Endif开始开始语句语句序列序列结束结束条件条件?YN分支结构分支结构后面语句后面语句Y其中其中IF-ENDIFIF-ENDIF必须必须配对出现。配对出现。选择结构选择结构 语句

20、格式：语句格式：If Then Then 1 ELSE Endif开始开始语句序列语句序列1 1结束结束条件条件?Y YNN语句序列语句序列2 2分支结构分支结构后面语句后面语句例，求两个数中较小值：例，求两个数中较小值：Input X=To XInput X=To XInput Y=To YInput Y=To YIf XYIf X0）0 （X=0）1（X0If X0Y=1Y=1ElseElseIf X=0If X=0Y=0Y=0ElseElseY=-1Y=-1EndifEndifEndifEndif?Y?Y例例 6.8 6.8：?DATE()&?DATE()&输出系统日期输出系统日期CAN

21、CEL&CANCEL&结束本程序的执行结束本程序的执行?TIME()&?TIME()&此语句得不到执行此语句得不到执行（1 1）CancelCancel：结束当前程序的运行。结束当前程序的运行。（2 2）SuspendSuspend：暂停程序的执行。暂停期间暂停程序的执行。暂停期间可以在命令窗口中执行交互命令。可以在命令窗口中执行交互命令。（3 3）ResumeResume：继续执行继续执行SuspendSuspend暂停的程暂停的程序，从序，从SuspendSuspend语句的下一条继续。语句的下一条继续。例例:X=1X=1SuspendSuspendY=2Y=2?X+Y?X+Y条件函数 说

22、明：说明：若条件成立，则表达式若条件成立，则表达式1 1的值作为函的值作为函数值；否则，表达式数值；否则，表达式2 2的值作为函数值。的值作为函数值。例如：例如：Input Input 输入一个数输入一个数N N：To N To N M M=Iif(N0,-N,N)Iif(N0,-N,N)?”N?”N的绝对值是：的绝对值是：”,M”,M开始开始语句语句序列序列 1结束结束条件条件1?YN语句序列语句序列 2条件条件2?YN语句序列语句序列 n条件条件n?YNOTHERWISE语句序列语句序列 n+1.语句格式：语句格式：Do CaseCase 1 1Case 2 2Case n n Other

23、wise n+1 Endcase说明说明1 1：执行时，系统从上向下依次对执行时，系统从上向下依次对CaseCase后后面的条件进行判断，当条件不成立时，就判断面的条件进行判断，当条件不成立时，就判断下一个下一个CaseCase条件是否成立。一旦某个条件是否成立。一旦某个CaseCase条件条件成 立，就 执 行 该成 立，就 执 行 该 C a s eC a s e 与 下 一 个与 下 一 个 C a s eC a s e（OtherwiseOtherwise或或EndcaseEndcase）之间的语句序列，然）之间的语句序列，然后执行后执行EndcaseEndcase后面的语句。后面的语

24、句。说明说明2 2：若所有条件都不成立，而有若所有条件都不成立，而有OtherwiseOtherwise项，则执行语句序列项，则执行语句序列n+1n+1，然后执行，然后执行EndcaseEndcase后后面 的 语 句；若 所 有 条 件 都 不 成 立，且 无面 的 语 句；若 所 有 条 件 都 不 成 立，且 无OtherwiseOtherwise项，则直接执行项，则直接执行EndcaseEndcase后面的语句。后面的语句。Input Input 请输入一个数：请输入一个数：To X To XDo CaseDo CaseCase X0Case X0Y=1Y=1Case X=0Case

25、X=0Y=0Y=0Otherwise Otherwise Y=-1Y=-1EndcaseEndcase?Y?Y1 （X0）0 （X=0）1（X0）Y=案例：案例：S=1+2+3+4+5+6S=1+2+3+4+5+6i=0S=s+isiS=S+ii=i+100010112123333646410510515615621循环结构程序设计循环结构程序设计 Do While(当型当型)循环语句循环语句 语句格式：语句格式：Do While Enddo 开始开始语句序列语句序列 结束结束条件条件?YN循环前的语句循环前的语句循环体后的语句循环体后的语句语句序列语句序列 Y说明：说明：Do WhileDo

26、 While与与EnddoEnddo必须必须使用。使用。例，求前例，求前100100个自然数的和：个自然数的和：S=0 S=0 N=1 N=1 Do While N=100 Do While N=100 S=S+NS=S+NN=N+1N=N+1EnddoEnddo循环条件循环体S=1+2+3+4+100S=1+2+3+4+100如果循环体中没有能执行到的、使条件趋于如果循环体中没有能执行到的、使条件趋于不成立不成立的语句、结束循环或结束程序的语句，将永远执行的语句、结束循环或结束程序的语句，将永远执行不完循环体，即出现死循环。语句修改为：不完循环体，即出现死循环。语句修改为：Do While

27、Do While LoopLoop 2 ExitExit 3 EnddoEnddoDo While(当型)循环语句（2 2）ExitExit：一旦执行到一旦执行到ExitExit语句，就结束整语句，就结束整个循环个循环。（1 1）LoopLoop：一旦执行到一旦执行到LoopLoop语句，就提前语句，就提前结束本次循环。结束本次循环。例例，对键盘输入的每一个正数，输出其算术，对键盘输入的每一个正数，输出其算术平方根；当输入的数小于或等于平方根；当输入的数小于或等于0 0时，结束程时，结束程序。序。开始开始循环体前语句循环体前语句循环体条件循环体条件Y分支条件分支条件YLOOPN分支结构下面的语

28、句分支结构下面的语句N循环体下面的语句循环体下面的语句结束结束 无条件转向循环无条件转向循环 语句格式语句格式(以当型循环为例以当型循环为例)DO WHILE IF LOOP ENDIF ENDDO 例例:计算计算1100的奇数和。的奇数和。说明：说明：int(N):取整函数取整函数 此处用于判断此处用于判断i的奇偶性的奇偶性思考：利用思考：利用mod(N1,N2)如何如何 判断奇偶性？判断奇偶性？*Ex3.prgstore 0 to i,tdo while i100 i=i+1 if int(i/2)=i/2 loop endif t=t+ienddo?1100奇数和为：,t开始开始循环体前

29、语句循环体前语句循环体条件循环体条件Y分支条件分支条件NEXITY分支结构下面的语句分支结构下面的语句N循环体下面的语句循环体下面的语句结束结束 无条件跳出循环无条件跳出循环 语句格式语句格式(以当型循环为例以当型循环为例)DO WHILE IF EXIT ENDIF ENDDO For(步长型步长型)循环语句循环语句语句格式：语句格式：ForFor =ToTo StepStep EndforEndfor|NextNext 说明说明2 2：若步长缺省，默认值为若步长缺省，默认值为1 1。说明说明1 1：初初值、终值和步长应为数值型表达式值、终值和步长应为数值型表达式例例:求前求前100100个

30、自然数的和个自然数的和;S=0For N=1 To 100 S=S+NEndfor?1+2+3+98+99+100=,SScan(扫描)循环语句语句格式：语句格式：ScanScan ForFor 1WhileWhile 2 EndscanEndscan说明说明1 1：ScanScan和和EndscanEndscan必须成对使用。此循环语句用必须成对使用。此循环语句用于处理与数据表有关的循环问题，功能等效于：于处理与数据表有关的循环问题，功能等效于：结构嵌套结构嵌套为实现复杂的功能，为实现复杂的功能，VFPVFP允许相互嵌套。但不允许相互嵌套。但不允许交叉嵌套，即一个结构必须完整地包含允许交叉嵌

31、套，即一个结构必须完整地包含在另一个结构中。在另一个结构中。例如：例如：For M=1 To 9For M=1 To 9For N=M To 9For N=M To 9?Space(2),Str(M,1),?Space(2),Str(M,1),*,?Str(N,1),=,Str(M?Str(N,1),=,Str(M*N,2)N,2)Endfor Endfor?EndforEndfor 外层循环外层循环内层循环内层循环CLEAR ALLCLEAR ALLCLEARCLEARa=1a=1DO WHILE a=9DO WHILE a=9b=1b=1?&用于换行输出用于换行输出DO WHILE b=aDO WHILE b=a?SPACE(2)+STR(a,1)+?SPACE(2)+STR(a,1)+STR(b,+STR(b,1)+=+STR(a1)+=+STR(a*b,2)b,2)b=b+1b=b+1ENDDOENDDOa=a+1a=a+1ENDDOENDDORETURNRETURN