湖北大学自考老师微信
![湖北大学自考老师微信](/images/zkwxq.png)
(扫-扫上方二维码添加)学历相关问题请添加老师微信,湖北大学自考老师将免费为您解答
湖北大学自考热门
管理信息系统计算机应用上机笔记
来源:湖北大学自考 发布时间:2011-05-28 查看:120次
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