第六章 程序设计基础(精品·公开课件).ppt

6.1 创建、修改和运行应用程序 一、创建应用程序 菜单： “文件”——“新建”——“程序” 项目管理器：“代码”——“程序” 命令： MODIFY COMMAND 文件名 ——默认扩展名为PRG 或MODIFY FILE 程序文件名.PRG ——扩展名不可省略 二、修改程序 MODIFY COMMAND 文件名 三、运行程序 DO 文件名 程序文件的扩展名：.prg 顺序结构程序. Clear Use 教师 Accept “请输入待查人编号:” to bh Loca for 编号=bh Disp Use retu 例： clear use rsk accept 输入姓名: to xm 输入姓名时,不要加界限符 input 输入姓名: to xm 输入姓名时,必须加界限符 locate for 姓名=xm disp ? 例：CLEAR USE RSK INPUT 输入基本工资: TO GZ LOCATE FOR 基本工资=GZ DISP ? 例： CLEAR USE RSK INPUT 输入工作日期: TO RQ 例:输入{^1972/04/30}或ctod(04/30/72) LOCATE FOR 工作日期=RQ DISP USE ? 例： clear use rsk input 婚否: to hf list for 婚否 =hf use 例7：暂停程序的运行，便于阅读显示。 clear use rsk list for 基本工资120 wait list for 性别=男 wait window at 10,10 list for 工作日期{^1970/01/01} use ? 例8： 输入信息，控制程序的执行方向。 clear wait 请输入班级号: to x list use 1、基本的输出命令 ？ 或 ？？ ? 和 ??命令都是输出指定的数据。??是接着上一行数据输出。 @ 行，列 SAY 数据 例：@ 10，10 SAY “在主窗口第10行第10列显示数据” CLEAR 在命令窗口中执行该命令，将清除主窗口。 格式化输入输出命令格式：@行,列 [SAY 表达式] [GET 变量] [DEFAULT 表达式]  [RANGE 表达式1,表达式2] [VALID 条件]功能：在屏幕上指定行、列位置输出指定表达式的值，并且（或者）获得所指定变量的值。 [例]定位输出命令编程举例。将人事数据表打开，新增加一条记录部分字段内容，增加完成后在浏览窗口显示数据表记录内容，关闭浏览窗口，屏幕出现等待信息窗口，5秒后，等待信息窗口关闭，清屏并关闭数据表，程序结束。该程序如下： CLEAR USE rsb APPEND BLANK @ 3,8 SAY 请输入新职工信息： @ 4,8 SAY 姓名： GET 姓名 @ 5,8 SAY 性别： GET 性别 VALID 性别=男 .or. 性别=女 @ 6,8 SAY 基本工资： GET 基本工资 RANGE 500,2500 READ BROWSE WAIT 程序将在8秒后关闭......。 WINDOWS AT 18,8 TIMEOUT 5 USE CLEAR RETURN 2、程序交互命令 WAIT [WINDOW] [提示信息] [TO 内存变量] 例： WAIT WINDOW “Input A:” TO n INPUT [提示信息] [TO 内存变量] 例： INPUT “Input A:” TO n 注：若输入字符型数据，则应在输入时加上引号。 ACCEPT [提示信息] [TO 内存变量] 注：只能接受字符型数据。输入时不加引号。 3、程序举例 例1：显示学生表中任一学生的姓名。 程序： clear use xs input “输入记录号： ” to n go n ? xm use 【例】 编写程序文件myprog2.prg，显示数据表XSDA.DBF指定日期后出生的学生学号、姓名、出生日期。 open database school use xsda in 0 clear input 请输入日期: to cxrq select 学号,姓名,出生日期 from xsda where 出生日期cxrq nowait close database return 例2：交换两个变量a和b的值。 程序： input 请输入a： to a input 请输入b： to b c=a a=b b=c ? “交换后的a和b的值为： ” ，a，b 【例】从键盘输入两个任意正数