准考证打印入口

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

发布日期: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.zikao.jx.cn

本文地址:http://www.zikao.jx.cn/cj_gxl/5172.html



《江西自考网》免责声明:

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

2、本网信息来源为其他媒体的稿件转载,免费转载出于非商业性学习目的,版权归原作者所有,如有内容与版权问题等请与本站联系。联系邮箱:812379481@qq.com

江西自考便捷服务