。crea xsh（忘记的时候用：输入数据APPE）
　　
　　3、编菜单程序
　　
　　。modi comm main
　　
　　clea
　　
　　set talk off
　　
　　DO while .T.
　　
　　X=0
　　
　　@ 2，20 say‘学生系统’
　　
　　@ 3，5 prompt‘查询’
　　
　　@ 3，15 prompt‘数据处理’
　　
　　@ 3，25 prompt‘统计’
　　
　　@ 3，35 prompt‘退出’
　　
　　menu to x
　　
　　DO case
　　
　　Case x=1
　　
　　DO cx（查询）
　　
　　Case x=2
　　
　　DO CL（处理）
　　
　　Case x=3
　　
　　DO TJ（统计）
　　
　　Case x=4
　　
　　Clea
　　
　　Retu
　　
　　Endcase
　　
　　Enddo存盘退出
　　
　　。copy file main.prg to cl.prg
　　
　　。modi comm cl
　　
　　clea
　　
　　set taik off
　　
　　4、输入程序
　　
　　。modi comm shr
　　
　　clea
　　
　　set taik off
　　
　　use库名
　　
　　x=‘Y’
　　
　　DO while upple（x）=‘Y’
　　
　　小写值变大写
　　
　　appe
　　
　　clea
　　
　　@ 5，10 say‘是否继续输入（Y/N）’get x
　　
　　read
　　
　　enddo
　　
　　use
　　
　　clea
　　
　　retu
　　
　　统计：
　　
　　CL TJ
　　
　　TJ1 TJ2 TJ3 retu
　　
　　。modi comm TJ1
　　
　　clea
　　
　　set taik off
　　
　　use库名
　　
　　x=0
　　
　　y=0
　　
　　coun all for性别=‘男’to x
　　
　　coun all for性别=‘女’to y
　　
　　@ 5，5 say‘男士人数为：’+ str（x）
　　
　　@ 5，5 say‘女士人数为：’+ str（y）
　　
　　wait
　　
　　use
　　
　　retu
　　
　　。modi comm TJ3
　　
　　clea
　　
　　set talk off
　　
　　use库名
　　
　　x=0
　　
　　aver all工资to x
　　
　　@ 5，5 say‘平均工资：’+ str（x）
　　
　　wait
　　
　　use
　　
　　retu
　　
　　—————————————————————————————
　　
　　CX1 CX2 CX3 CX4
　　
　　N，5 C，8
　　
　　。modi comm CX1
　　
　　clea
　　
　　set talk off
　　
　　use库名
　　
　　DO while .T.
　　
　　X=0
　　
　　Clea
　　
　　@ 5，10 say‘请输入编号：’get x
　　
　　read姓名
　　
　　loca all for编号=x
　　
　　if .NOT. eof（）
　　
　　DO while .NOT. eof（）
　　
　　Disp
　　
　　Wait修改
　　
　　Cont
　　
　　Enddo

[1]