Visual FoxPro程序设计初步课件.ppt

第7章 FoxPro程序设计;Visual FoxPro的工作方式;7.1.1 程序的概念;7.1.2 程序文件的建立、修改与执行;3．执行程序 程序文件建立后，可以用多种方式、多次执行它。下面是两种常用的方式。 （1）菜单方式 ① 单击【程序】|【运行】菜单项，打开“运行”对话框； ② 从文件列表框中选择要运行的程序文件，并单击“运行”命令按钮，启动运行该程序文件 （2）命令方式 【格式】DO [盘符][路径\]文件名 【功能】执行指定盘符、路径下的程序文件 注：执行程序文件时，将依次执行文件中的命令，直到所有命令执行完毕，或者执行到以下命令： ① CANCAL：终止程序运行，清除所有的私有变量，返回命令窗口； ② RETURN：结束程序执行，返回调用它的上级程序，若无上级程序则返回命令窗口； ③ QUIT：结束程序执行并退出Visual FoxPro???统，返回操作系统 ;7.1.3 简单的输入输出命令;【例】编程从键盘输入某数据库的文件名，要求打开该数据库并显示其内容。程序文件名为PROG2.PRG。 MODI COMMAND PROG2 SET TALK OFF CLEAR ACCEPT “请输入数据库名：” TO AAA OPEN DATABASE AAA ACCEPT 请输入表名 TO BBB USE BBB LIST USE SET TALK ON RETURN (p1.prg);【例】从键盘输入两个任意正数，编程求以两数为边长的长方形面积。程序文件名为PROG4.PRG SET TALK OFF CLEAR INPUT “长方形一边的长为：” TO A INPUT “长方形另一边的长为：” TO B S=A*B ? “长方形的面积为：” , S SET TALK ON RETURN (p2.prg);3．WAIT命令 【格式】WAIT [提示信息][TO内存变量] [WINDOW [AT行,列]] [NOWAIT] [CLEAR|NOCLEAR] [TIMEOUT数值表达式] 【功能】显示提示信息，暂停程序执行，直到用户按任意键或单击鼠标时继续执行程序。 若选择可选项[TO 内存变量]，将输入的单个字符作为字符型数据赋给指定的内存变量；若用户是按Enter键或单击鼠标，内存变量的值为空串。 若省略所有可选项，屏幕显示“键入任意键继续……”默认提示信息 ;【例】在STUDENT数据库的STUD表中显示任意一个系学生的情况。程序文件名为PROG6.PRG SET TALK OFF CLEAR OPEN DATABASE STUDENT USE STUD WAIT “请输入待查学生的系号（1—3）：” TO N IF VAL(N)1 .OR. VAL(N)3 WAIT “输入无效，结束程序运行！” WINDOW TIMEOUT 5 RETURN ELSE STORE “0”+N TO AAA LIST FOR 系别号=AAA ENDIF CLOSE DATABASE SET TALK ON RETURN ;4．三条输入命令的异同 ACCEPT命令只能接受字符型数据，不需定界符，输入完毕按回车键结束； WAIT命令只能输入单个字符，且不需定界符，输入完毕不需按回车键； INPUT命令可接受数值型、字符型、逻辑型、日期型和日期时间型数据，数据形式可以是常量、变量、函数和表达式，如果是字符串，需用定界符，输入完毕按回车键结束。;程序的基本结构;分支结构;【例】编写一密码校验程序（假设密码为ABC）。程序文件名为P3.PRG。 SET TALK OFF CLEAR ACCEPT “请输入您的密码：” TO AAA IF AAA=”ABC” CLEAR ? ”欢迎使用本系统！” ELSE ?”密码错误！” WAIT QUIT ENDIF SET TALK ON (p3.prg);【例】编写一查询学生基本情况的程序，P4.PRG。 set talk off open database jsjdjks use t_bmb clear accept 请输入学生的准考证号: to zzz locate for zkzh=zzz if .not. eof() ?姓名： + xm ?性别： + IIF(xb,男,女) ?出生日期： + DTOC(csrq,1) else ?查无此人!!! endif close database return;3．多向分支 多向分支语句，即根据多个条件表达式的值，选择执行多个操作中的一个对应执行 。 语句格式：