第八章（程序设计基础）.pptVIP

第八章 Visual FoxPro程序设计基础 8.1 面向过程程序设计 8.2 面向对象程序设计 8.3 调试过程 Set talk off Clear Use 学生 Append blank @6,30 say “学号”Get 学号 @6,50 say “姓名”Get 姓名 @8,30 say “性别”Get 性别 @8,40 say “出生年月”Get 出生年月 @10,30 say “入校总分”Get 入校总分 @10,50 say “三好生”Get 三好生 Read Clear Browse Set Talk on return *用日期查询某一天出生的学生的记录 set talk off close all clear use xuesheng2 ?出生日期的正确格式：mm/dd/yy input 请输入出生日期 to sd sd用于存放输入学生的出生日期 locate all for 出生年月=CTOD(sd) ?以下为查询的显示结果 @5,10 say 学号 @5,30 say 姓名 @7,10 say 性别 @7,20 say 出生年月 wait @10,10 say 入校总分 set talk on return 问题1：能不能输入 05/12/84 问题2： locate all for 出生年月=CTOD(sd) 能不能用SQL语句来代替？ set talk off clear text ##删除学生记录程序## endtext use xuesheng2 accept 请输入学生姓名 to sm locate all for 姓名=sm display wait 输入Y删除记录 delete ?? ,sn,学生记录已删除！ set talk on return Set talk off Clear Use teachers Browse last Locate all for 姓名=陈静 If 职称=讲师 Replace 职称 with 副教授 Endif Browse last Set talk on return set talk off clear use teachers locate all for 姓名=陈静 if .not.eof() Browse for 姓名=陈静 else @2,30 say 查无此人 endif set talk on return Set talk off Clear Text 数据表内容显示 1.学生表 2.教师表 3.课程表 Endtext Wait “请输入你的选择（1～3）to an Do case case an=“1” browse last case an=“2” use teachers browse last Otherwise ?”选择错误！“ endcase Set talk off clear use xuesheng2 nu=0 browse for 入校总分=580 do while .not.eof() if 入校总分＝580 NU＝nu+1 endif Skip Enddo @2,30 say “入校总分在580分以上的人数” @2,60 say NU set talk off do while .t. clear text 学生档案管理 **************** 1.查询 2.修改 3.统计 4.退出 endtext wait 请输入功能选择代号（1～4）to an do case case an=1 do 查询 case an=2 do 修改 case an=3 do 统计 case an=4 exit otherwise wait 选择错误，按任意键重新选择！ endcase enddo clear all set talk on set talk off clear use xuesheng2 count all to rnu go top nu=0 for i=1 to rnu s