管理信息系统计算机应用上机笔记
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
【管理信息系统计算机应用上机笔记】相关文章:
★ 2016年自考“马克思主义基本原理概论”考点:矛盾发展的不平衡性
★ 自考《马克思主义基本原理概论》真题练习:影响资本周转速度的因素
★ 自考《思想道德修养与法律基础》真题练习:公民道德建设实施纲要
热点推荐:
公共课
- 2020-11-17【公共课】自考《概率论与数理统计(经管类)》真题练习:二项分布的概率
- 2020-11-17【公共课】自学考试高等数学(工本)模拟试卷第一部分
- 2020-11-17【公共课】自学考试高等数学(工本)模拟试卷第二部分
- 2020-11-17【公共课】自学考试高等数学(工本)模拟试卷参考答案
- 2020-11-17【公共课】2012年10月自考时事政治考前练习(1)
- 2020-11-17【公共课】2012年10月自考时事政治考前练习(2)
- 2020-11-17【公共课】2012年10月自考时事政治考前练习(3)
- 2020-11-17【公共课】2012年10月自考时事政治考前练习(4)
其他最新资讯
- 2023-12-29【自考政策】广西自考网络助学平台新增61门课程
- 2020-12-04【免考问题】哪些证书可以免考自考相关课程?
- 2020-12-04【免考问题】自考免考有哪些条件?
- 2020-12-04【综合问题】自考本科文凭有用吗?
- 2020-12-04【综合问题】自考本科需要考多少门课?
- 2020-11-17【综合问题】江苏省高等教育自学考试网上报名常见问题及解答
- 2020-11-17【经济学】2012年自考“中国税制”笔记串讲(8)
- 2020-11-17【自考政策】全国自考办领导:未来自考将大力发展网络助学
网友关注
- 【考务考籍】广东自考主考院校联系方式
- 【考务考籍】湖北省自考主考院校联系方式
- 【考务考籍】云南各地自考办联系方式
- 【考务考籍】内蒙古乌海市自考办联系方式
- 【考务考籍】吉林省各地自考办联系方式
- 【考务考籍】重庆自考主考院校联系方式
- 【考务考籍】(内蒙古)包头市2005年10月自考本科生可不考外语
- 【考务考籍】西藏日喀则地区自考办联系方式
网友关注视频
- 化学九年级下册全册同步 人教版 第25集 生活中常见的盐(二)
- 【部编】人教版语文七年级下册《逢入京使》优质课教学视频+PPT课件+教案,安徽省
- 《空中课堂》二年级下册 数学第一单元第1课时
- 8.练习八_第一课时(特等奖)(苏教版三年级上册)_T142692
- 冀教版小学数学二年级下册第二单元《有余数除法的简单应用》
- 【部编】人教版语文七年级下册《过松源晨炊漆公店(其五)》优质课教学视频+PPT课件+教案,辽宁省
- 8 随形想象_第一课时(二等奖)(沪教版二年级上册)_T3786594
- 【部编】人教版语文七年级下册《老山界》优质课教学视频+PPT课件+教案,安徽省