您的位置:自考365 > 复习指导 > 笔记串讲 > 公共课 > 管理信息系统计算机应用上机笔记

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

2005-06-10 00:00  自考365.COM·魔剑 【 】【我要纠错
    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
  
  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
  

本文转载链接:管理信息系统计算机应用上机笔记

分享到:
  • 站内搜索
  • 课程搜索
  • 试题搜索

热门搜索:教材 报名 查分 免考 考试计划