管理信息系统计算机应用上机笔记
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
如果您对“管理信息系统计算机应用上机笔记”还有疑问，可立即咨询武汉大学自考招生网的客服老师：点击咨询
 |
|
新
更
新
- 2023年下半年武汉大学自学考试计算机化考试网上报名须知
- 武汉大学自考本科毕业生能否参加公务员考试呢？自考本科考编容易被刷吗？
- 武汉大学自考实践课必须考吗？自考实践课程难度大吗？
- 武汉大学自考可以先答辩再考没过的吗？
- 2023年下半年武汉大学自考转考须知
- 武汉大学自考学位英语考试要怎么准备？
点
推
荐
版权所有：武汉大学自考招生网 Copyright 2008-2023 All rights reserved
声明：武汉大学自考招生网提供武汉大学自考助学,武汉大学自考专升本助学的信息网站，非武汉大学官方网站，最新武汉大学自考动态请各位考生以学校官网通知为准。如有侵权，请联系我们删除。
