欢迎访问湖北大学自考辅导培训网!主要为自考考生提供资讯服务,及培训辅导,网站信息仅供学习交流使用,官方报考信息以湖北大学继续教育学院官网为准。
  • 咨询电话:027-86646545
湖北自考辅导报名入口已开通
湖北大学自考网 >院校动态 > 管理信息系统计算机应用上机笔记

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

整编:湖北大学自考    2011-05-28    阅读:118

     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#p#分页标题#e#
  
  Else
  
  @ 5,10 say‘查无此人’
  
  wait
  
  endif
  
  clea
  
  y=‘’
  
  @ 5,10 say‘是否继续查找(Y/N)’get y
  
  read修改
  
  if uppe(y)< >‘Y’
  
  use
  
  clea
  
  retu
  
  endif
  
  enddo
  
  —————————————————————————————
  
  题目:职工系统
  
  要求:对职工进行输入、修改、查询、删除、统计计算等处理。
  
  其中:修改要球能够按照编号、姓名、性别、工资进行
  
  删除要求能够按照姓名、编号进行
  
  查询要求能够按照编号、姓名、部门进行
  
  统计计算要求:
  
  1、求所有人平均工资
  
  2、求男职工工资总额
  
  3、求出工资最高的职工
  
  4、按升序排序工资
  
  —————————————————————————————
  
  部门DB(BM.DBF)
  
  部门号C 3
  
  部门名C 20
  
  职工DB(ZHG.DBF)
  
  编号N 5
  
  姓名C 8
  
  性别C 2
  
  民族C 8
  
  学历C 10
  
  工资N 8,2
  
  部门号C 3
  
  Wait修改
  
  Z=‘’
  
  @ 5,10 say‘是否修改(Y/N)’get z
  
  read
  
  if uppe(z)=‘Y’
  
  EDIT删除dele
  
  endif

湖北大学自考提升便捷服务

【本月重点:辅导报名】

距湖北大学自考辅导报名截止

001

湖北自考报名系统 湖北自考考前培训

【请广大考生提前备考】

湖北大学自考人手一份上岸资料包

限时免费领取!

真题

自考英语单词必备(猜词方法)

真题

2022年(近代史纲要)真题

真题

2022年(毛泽东思想概论)真题

2023湖北自考报名免费真题指导

自考各科课程思维导图

自考历年真题汇总

专升本真题

  • 考生交流群

  • 微信公众号

扫一扫加入微信交流群

与考生自由互动、并且能直接与专业老师进行交流、解答。

声明:本站为湖北自考民间交流网站,湖北大学自考动态请各位考生以教育考试院、自考办通知为准。
电话咨询 在线咨询