管理信息系统计算机应用上机笔记
编辑整理：东莞自考网 发表时间：2018-05-23 12:26:48 【大 中 小】
[添加招生老师微信]
立即购买
《自考视频课程》名师讲解，轻松易懂，助您轻松上岸！低至199元/科！
。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]
本文标签：东莞自考 工学类 管理信息系统计算机应用上机笔记
转载请注明：文章转载自（http://www.dongguanzikao.com）
《东莞自考网》免责声明：
1、由于考试政策等各方面情况的调整与变化，本网提供的考试信息仅供参考，最终考试信息请以省考试院及院校官方发布的信息为准。
2、本站内容部分信息均来源网络收集整理或来源出处标注为其它媒体的稿件转载，免费转载出于非商业性学习目的，版权归原作者所有，如有内容与版权问题等请与本站联系。联系邮箱：812379481@qq.com