m程序设计 【例】试编写按学号查询程序 按学号查询Play52,prgl 【例】试编写将工程师工资增加 SET TALK OFF 100元,然后显示的程序 USE STUDENT LOCATE FOR Sno=990101 Set talk off DISPLAY USE GZK RETU Repl工资with工资+100for职称-工程师 运行时在命令窗口输入: LIST for职称=工程师 plays DO pI RETU 假如只给几个人增加工资呢? 需要交互语句!! FoxproForWindowshttp://cc.synu.edu.cn 6
FoxPro For Windows http://cc.synu.edu.cn 6 FoxPro程序设计 【例】试编写按学号查询程序 *按学号查询 [Play52.prg] SET TALK OFF USE STUDENT LOCATE FOR sno='990101' DISPLAY RETU 运行时在命令窗口输入： DO play52 【例】试编写将工程师工资增加 100元，然后显示的程序。 Set talk off USE GZK Repl 工资 with 工资+100 for 职称=‘工程师’ LIST for 职称=‘工程师’ RETU 假如只给几个人增加工资呢？ 需要交互语句！！
m程序设计 输入输出程序设计 【例】 按学号查询 Iplay53.prgl SET TALK OFF 提示信息 USE STUDENT ACCEPT"请输入学号:" TO Sno1 LOCATE FOR Sno=Sno1 DISPLAY 2/Microsoft Visual FoxPro 文件(编辑E显示(格式Q工具(T程序P窗口帮助H RETURN D回回幽d 国同盛翻图? 请输入学号:990102 记录号Sm BIRTHDAY SCORE SCHOSHITP EXPERTENCE PHOTO 990102赵 12/03/81 140 只接受字符型数据! FoxproForWindowshttp://cc.synu.edu.cn 7
FoxPro For Windows http://cc.synu.edu.cn 7 FoxPro程序设计 【例】 *按学号查询 [play53.prg] SET TALK OFF USE STUDENT ACCEPT "请输入学号：" TO sno1 LOCATE FOR sno=sno1 DISPLAY RETURN 只接受字符型数据！！！ 提示信息 输入输出程序设计