8-5.txt

来自「超市进销存管理系统 学生学籍管理系统 1、把源代码解压到适当的目录下（教材讲」· 文本 代码 · 共 16 行

【例8.5】建立程序EXAM8-5.PRG，功能是编辑学生情况表的有关信息。
* 功能说明：SCAN…ENDSCAN循环结构举例
SET TALK OFF
OPEN DATABASE "C:\VISUAL FOXPRO 项目\学生学籍管理系统\学籍管理数据库.dbc"
USE xsqk.dbf       &&打开表，此时当前记录号为1
SCAN
CLEAR
@ 5,10 SAY "学号:" GET no
@ 7,10 SAY "姓名:" GET name
    @ 9,10 SAY "性别:" GET sex
    @ 11,10 SAY "出生日期:" GET birth
    READ
ENDSCAN
USE
SET TALK ON