【例6-2】编程从键盘输入某数据库的文件 名,要求打开该数据库并显示其内容。 程序文件名为PROG2.PRG MODI COMMAND PROG2 目录 SET TALK OFF CLEAR 上页 ACCEPT“请输入数据库名:”T0A OPEN DATABASE &AAA 下页 ACCEPT"请输入表名"T0BBB use &BBB 退出 LIST USE SET TALK ON RETURN
目录 上页 下页 退出 16 【例6-2】编程从键盘输入某数据库的文件 名，要求打开该数据库并显示其内容。 程序文件名为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
2.INPT命令 【格式】 INPUT[<提示信息>]T0<内存变量 目录【功能】在程序执行过程中,将用户交互式输入的内 容赋值给指定内存变量 上页【说明】可以输入字符型、数值型、逻辑型、日期型 和日期时间型等类型数据,而且可以是常量、 下页 变量、函数或表达式等形式,按回车键结束 输入,系统将输入的数据赋值给〈内存变量〉 退出 17
目录 上页 下页 退出 17 2．INPUT命令 【格式】INPUT [<提示信息>] TO <内存变量> 【功能】在程序执行过程中，将用户交互式输入的内 容赋值给指定内存变量。 【说明】可以输入字符型、数值型、逻辑型、日期型 和日期时间型等类型数据，而且可以是常量、 变量、函数或表达式等形式，按回车键结束 输入，系统将输入的数据赋值给<内存变量>
【例6-4】从键盘输入两个任意正数,编程求以两数为 边长的长方形面积。程序文件名为PROG4PRG SET TALK OFF 目录 CLEAR 上页 NPUT“长方形一边的长为:”TOA NPUT“长方形另一边的长为:”TOB 下页 S=A'B ?“长方形的面积为:”,S 退出 SET TALK ON RETURN 18
目录 上页 下页 退出 18 【例6-4】从键盘输入两个任意正数，编程求以两数为 边长的长方形面积。程序文件名为PROG4.PRG SET TALK OFF CLEAR INPUT “长方形一边的长为：” TO A INPUT “长方形另一边的长为：” TO B S=A*B ? “长方形的面积为：” , S SET TALK ON RETURN
3.WAI命令 【格式】WAIT提示信息>TO<内存变量> WINDOW AT<行>,<列>] INOWAIT CLEAR| NOCLEAR 目录 TIMEOUT<数值表达式 【功能】显示提示信息,暂停程序执行,直到用户按任意 键或单击鼠标时继续执行程序 上页 【说明】若选择可选项[TO<内存变量>],将输入的单个 字符作为字符型数据赋给指定的<内存变量 下页 若用户是按 Enter键或单击鼠标,<内存变量>的 值为空串。 退出 若省略所有可选项,屏幕显示“键入任意键继 续….”默认提示信息
目录 上页 下页 退出 19 3．WAIT命令 【格式】WAIT [<提示信息>][TO<内存变量>] [WINDOW [AT<行 > , <列 > ] ] [ NOWAIT] [CLEAR|NOCLEAR] [TIMEOUT<数值表达式>] 【功能】显示提示信息，暂停程序执行，直到用户按任意 键或单击鼠标时继续执行程序。 【说明】若选择可选项[TO <内存变量>]，将输入的单个 字 符 作 为 字 符 型 数 据 赋 给 指 定 的 < 内 存 变 量 > ； 若 用 户 是 按 Enter 键 或 单 击 鼠 标 ， < 内 存 变 量 > 的 值为空串。 若省略所有可选项，屏幕显示“键入任意键继 续……”默认提示信息
【例6-6】在 STUDENT数据库的STUD表中显示任意一个系学 的情况。程序文件名为PROG6.PRG SET TALK OFF CLEAR OPEN DATABASE STUDENT 目录 USE STUD WAIT“请输入待查学生的系号(1-3):”T0N 上页 IF VAL(N<1. OR. VAL (N)>3 WAIT“输入无效,结束程序运行!” WINDOW TIMEOUT 5 下页 RETURN ELSE 退出 STORE“0”+NT0AAA LIST FOR系别号=AAA ENDIF CLOSE DATABASE SET TALK ON RETURN 20
目录 上页 下页 退出 20 【例6-6】在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