管理信息系统计算机应用上机笔记
来源:江苏自考网
时间:2018-05-23 12:26:48
。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]
欢迎关注“江苏自考网”微信公众平台 (自考资讯,一手掌握!) |
欢迎加入“江苏自考网”微信交流群 (扫码进群,领取《 |
8888人已通过
江苏自考网》免责声明:
(一)由于考试政策等各方面情况的不断调整与变化,本网站所提供的考试信息仅供参考,请以省考试院及院校官方发布公布的正式信息为准。
(二)本站文章内容信息来源出处标注为其他平台的稿件均为转载稿,免费转载出于非商业性学习目的,版权归原作者所有。如您对内容、版权等问题存在异议请与本站联系,我们会及时进行处理解决,联系邮箱:952056566@qq.com。