【例6-2】编程从键盘输入某数据库的文件名,要求打开该数据库并显示 其内容。程序文件名为PROG2PRG MODI COMMAND PROG2 上一页 SET TALK OFF 下一页 CLEAR ACCEPT“请输入数据库名:”TOAA 退出 OPEN DATABASE&AA ACCEPT"请输入表名" TO BBB USE &BBB LIST USE SET TALK ON RETURN
目 录 上一页 下一页 退 出 11 【例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.NPUT命令 【格式】NPUT〖提示信息习T0<内存变量> 上一页【功能】在程序执行过程中,将用户交互式输入的内容赋值给 下一页 指定内存变量 可以输入字符型、数值型、逻辑型、日期型和日期时间型 退出等类型数据,而且可以是常量、变量、函数或表达式等形式, 按回车键结束输入,系统将输入的数据赋值给<内存变量>
目 录 上一页 下一页 退 出 12 2．INPUT命令 【格式】INPUT [<提示信息>] TO <内存变量> 【功能】在程序执行过程中，将用户交互式输入的内容赋值给 指定内存变量 可以输入字符型、数值型、逻辑型、日期型和日期时间型 等类型数据，而且可以是常量、变量、函数或表达式等形式， 按回车键结束输入，系统将输入的数据赋值给<内存变量>
【例64】从键盘输入两个任意正数,编程求以两数为边长的长 方形面积。程序文件名为PROG4PRG SET TALK OFF 上一页 CLEAr 下页NPUT“长方形一边的长为:”T0A 退出NPUT“长方形另一边的长为:”T0B S=AB ?“长方形的面积为:”,S SET TALK ON RETURN
目 录 上一页 下一页 退 出 13 【例6-4】从键盘输入两个任意正数，编程求以两数为边长的长 方形面积。程序文件名为PROG4.PRG SET TALK OFF CLEAR INPUT “长方形一边的长为：” TO A INPUT “长方形另一边的长为：” TO B S=A*B ? “长方形的面积为：” , S SET TALK ON RETURN
3.WAT命令 【格式】WATK提示信息丬0<内存变量习 WINDOW (AT<行入 列习]NOWA门 CLEARINOCLEAR![ TIMEOUT<数值表达式习 上一页【功能】显示提示信息,暂停程序执行,直到用户按任意键 下一页 或单击鼠标时继续执行程序 若选择可选项[T0<内存变量习,将输入的单个字符作为字 退出符型数据赋给指定的<内存变量>;若用户是按Ee键健或单击 鼠标,<内存变量>的值为空串。 々若省略所有可选项,屏幕显示“键入任意键继续.° 认提示信息
目 录 上一页 下一页 退 出 14 3．WAIT命令 【格式】WAIT [<提示信息>][TO<内存变量>] [WINDOW [AT<行>,< 列>]] [NOWAIT] [CLEAR|NOCLEAR] [TIMEOUT<数值表达式>] 【功能】显示提示信息，暂停程序执行，直到用户按任意键 或单击鼠标时继续执行程序。 若选择可选项[TO <内存变量>]，将输入的单个字符作为字 符型数据赋给指定的<内存变量>；若用户是按Enter键或单击 鼠标，<内存变量>的值为空串。 若省略所有可选项，屏幕显示“键入任意键继续……”默 认提示信息
【例66】在 STUDENT数据库的STUD表中显示任意一个系学生的 情况。程序文件名为PROG6PRG SET TALK OFF CLEAR 目录 OPEN DATABASE STUDENT USE STUD WA|T“请输入待查学生的系号(1-3):”TON 上一页FWLN<1oRⅦA(N>3 下一页1WAT输入无效,结束程序运行!” WINDOW TIMEOUT5 RETURN 退出 ELSE STORE“0”+ NTO AAA LIST FOR系别号=AAA ENDIF CLOSE DATABASE SET TALK ON RETURN
目 录 上一页 下一页 退 出 15 【例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