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

发布日期:2018-05-23 编辑整理:山东自考网 【字体: 】  【加入自考交流群】
   
  
  。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.sdzk.sd.cn

本文地址:http://www.sdzk.sd.cn/zl_gxl/5172.html







《山东自考网》免责声明:

1、由于各方面情况的调整与变化,本网提供的考试信息仅供参考,考试信息以省考试院及院校官方发布的信息为准。

2、本站内容信息均来源网络收集整理,标注来源为其它媒体的稿件转载,免费转载出于非商业性学习目的,版权归原作者所有,如有内容与版权问题等请与本站联系,本站将第一时间尽快处理删除。联系邮箱:812379481@qq.com。



山东自考-便捷服务