国家工信部网站备案实名:湖北自考网 为考生提供湖北自考信息服务,仅供学习交流使用,官方信息以湖北教育考试院为准。
湖北自考在线 湖北学位英语培训班 湖北成人高考报名 湖北网络教育报名
湖北自考网 > 湖北自考主考院校 > 江汉大学自考 > 江汉大学自考院校新闻 > 管理信息系统计算机应用上机笔记网站地图

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

来源:湖北自考网 时间:2013-04-24 17:07:58

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

相关推荐:

  • 北京自考商务管理(专科)(中英合作)专业课程设置表-自考
  • 北京自考商务管理(专科)(中英合作)专业课程设置表-自考
  • 结束
    特别声明:1.凡本网注明稿件来源为“湖北自考网”的,转载必须注明“稿件来源:湖北自考网(www.hbzkw.com)”,违者将依法追究责任;
    2.部分稿件来源于网络,如有不实或侵权,请联系我们沟通解决。最新官方信息请以湖北省教育考试院及各教育官网为准!
    微信公众号 考生交流群
    湖北自考微信公众号

    湖北自考网微信公众号

    随时获取自考政策、通知、公告及各类学习资料、学习方法、课件。

    成考院校 自考院校 专升本院校 资格证 其它热门栏目