管理信息系统计算机应用上机笔记

来源：湖北自考网时间：2013-04-24

1、规划——根据题目中给定的要求，先做规划
　　
　　Main.prg
　　
　　cx.prg cl.prg tj.prg retu
　　
　　shr.prg xg.prg shch.prg retu
　　
　　注：如果没有给出“退出”，自己添加。
　　
　　2、建库、输入数据
　　
　　BM.DBF XSH.DBF
　　
　　部门号N ，，2编号：N，5
　　
　　部门名C，20姓名：C，8
　　
　　性别：C，2
　　
　　工资：N，10
　　
　　部门号：N，2
　　
　　。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