管理系统中计算机应用上机题一、建立数据库按下列要求建立职工数据库文件，TEST1。DBF存放考盘根目录下
GH（C，4）XM（C，8） XB（C，2） HF（2，1） CSNY（D，8） JBGZ（N，8，2）
0001 张塞 男 。F。 08/08/71800.00
0002 李芳 女 。T。 04/10/731200.00
0003 朱卫国 男 。T。 12/08/552500.00
0004 杨磊 男 。T。 09/06/661500.00
0005 刘亚茹 女 。F。10/21/512800.00
（其中：GH--工号，XM--姓名，XB--性别，HF--婚否，GSNY--出生年月，JBGZ--基本工资）
二、数据库操作
1、按基本工资字段降序建立排序文件，结果存放在考盘根目录下T1。DBF文件中，数据库的结构只包括工号，姓名，基本工资这三个字段。
2、对所有职工增加10%的基本工资
3、逻辑删除所有未婚职工的纪录。
三编制程序有如下图书数据库（假设存放在C：、TS。DBF文件中）
SH（C，4）SM（C，10）DJ（N，5，2） CS（N，4） JE（N，8，2）
0001 高等数学28.50 100 2850.00
0002 大学英语38.00 501900.00
0003 大学语文20.00 701400.00
0004 数据库技术25.00 802040.00
0005 操作系统19.00 101900.00
（SH--书号，SM--书名，DJ-单价，CS-册数，JE-金额）
按下列要求编制显示高于制定册数纪录的程序TEST1。PRG，存入考盘根目录下：
1打开图书数据库文件C：\ts.dbf
2提示输入册数，显示高于此册数的所有记录
3程序应允许反复输入册数并做显示操作，直至输入“N”字母结束程序的运行。
来不及了。先打这一道还有九道等我出去逛好街，吃好饭，晚上继续。老妈在催我呢！~~~
而且现在网速实在不行·！~~~
继续：
一、建立数据库
格式同上二、数据库操作
1将第五条记录的婚否改为。T。基本工资改为3000元
2在基本工资字段后插入一个奖金字段（JJ，N，8，2），每位职工的奖金数是基本工资的10%。
3按出生年月字段升序建立索引文件，结果存放在考盘根目录下T2。IDX文件中
三、编程按下列要求编制删除某图书记录的程序TEST2。PRG存入考盘根目录下（格式同前）
1打开图书数据库文件
2提示并输入书号，若找到：逻辑删除该记录，若找不到：显示“无此图书！”。
3程序应允许反复输入书号并做删除操作，直至输入“N”字母结束运行。
一、同上二、数据库操作
1将当前数据库文件中所有女职工的记录复制到考盘根目录下T3。DBF文件中
2物理删除第二条记录
3再数据库末尾添加一条新记录
0001 曹小英 女。F。 05/20/80 950.00
三。数据库格式同上
按下列要求编制修改某图书记录的程序TEST3。PRG存入考盘
1打开图书数据库文件
2提示并输入书号，若找到：将图书的单价及金额乘以0.9；若找不到：提示：“无此图书！”
3程序应允许反复输入书号并做修改操作，直至输入“N”字母结束运行。
第四篇一、同上二、数据库操作
1将当前数据库文件中所有女职工的记录复制到考盘根目录下T4。DBF文件中
2对所有女职工增加10%的基本工资
3逻辑删除第以条和第五条记录
三。数据库格式同上
按下列要求编制修改某图书记录的程序TEST3。PRG存入考盘
1打开图书数据库文件
2提示并输入书号，若找到：显示“该图书已存在，不能添加”；若找不到：再数据库末尾允许添加该书号的图书新记录。
3程序应允许反复输入书号并做添加操作，直至输入“N”字母结束运行。
第五篇一、略二、1按姓名字段升序建立索引文件，结果存放再考盘根目录下T5。IDX文件中。
2再基本工资字段后增加一个平均工资字段（PJGZ，N，8，2）
3计算基本工资的平均值，并将计算结果存放到所有记录的平均工资字段中。
三、编制显示某图书记录的程序TEST。PRG
1打开图书数据库文件
2提示并输入书号，若找到：显示该图书记录；若找不到：显示“无此图书！”
3程序应允许反复输入学好并做显示操作，直至输入“N”字母结束运行。
一略二数据库格式同前几篇
1按工号字段降序建立排序文件，结果存放在考盘目录下T6。DBF文件中。
2在数据库末尾插入一条空白记录
3计算基本工资的总额，并将计算结果存放到空白记录的基本工资字段中。
三、按下列要求编制删除某学生记录的程序TEST6。PRG
1打开学生数据库文件
2提示并输入学号，若找到：逻辑删除该记录；若找不到：显示“查无此人！”
3程序应允许反复输入学号并做删除操作，直至输入“N”字母结束运行。
数据库格式如下：
XH（C，4） XM（C，10） YW（N，3） SX（N，3） WY（N，3）
0201 赵一芳8590 95
0202 李小洁7978 85
0203 陈华9070 81
0204 郭平平8088 76
0205 黄竣6875 80
第七篇一略二1删除“出生年月”这个字段
2对所有未婚职工增加10%的基本工资
3一性别为第一关键字升序排列，基本工资为第二关键字降序排列，产生新的数据库文件存放在考盘T7。DBF文件中。
三、按下列要求编制显示某学生记录的程序TEST7。PRG
1打开数据库
2提示并输入学好，若找到：显示该学生记录；若找不到：显示“查无此人！”
3程序应允许反复输入学号并做显示操作，直至输入“N”字母结束。
第八篇
一略（因为同前几篇一样地）
二格式略（因为同前几篇）
1按出生年月字段升序建立索引文件，结果放于T8。IDX中
2在基本工资字段后增加一个工资总额字段（GZZE，N，8，2）
3计算基本工资的总额，并将计算结果存放到所有记录的工资总额字段中。
三按下列要求编制添加某学生记录的程序TEST8。PRG（格式略同第六篇）
1打开数据库
2提示并输入学号，若找到：显示“该学生记录已存在，不能添加！”；若找不到：在数据库末尾允许添加该学号的学生记录。
3程序应允许反复输入学号，并做添加操作，直至输入“N”字母结束。
第九篇一略（原因啊。不用问了，看前面）
二格式略（原因：看上面）
1按出生年月字段降序建立排序文件，结果放于T9。DBF文件中
2逻辑删除所有未婚职工的记录。
3在数据库末尾添加一条新记录
0010 曹小英 女 。T。05/20/75950.00
三编制修改某学生记录的程序TEST9。PRG
1打开数据库（格式略）
2提示并输入学号，若找到：允许修改该记录，若找不到：显示“查无此人！”
3程序应允许反复输入学号，并做修改操作，直至输入“N”字母结束运行。
第十篇---最后一篇（终于结束啦。。公德圆满啦！~~~~~~哈哈哈哈）
一略（照着前几篇的来）
二格式略（同上）
1删除“婚否”这个字段
2对70年12月31日之前出生的所有职工增加10%的基本工资
3按基本工资字段升序建立索引文件。结果存放于T10。IDX文件中。
三编制统计学生成绩的程序TEST10。PRG
1打开数据库
2提示并输入学号，若找到：显示该学生的学号，姓名，及三门成绩的总分；若找不到：显示“查无此人！”。
3程序应允许反复输入学号并做统计操作直至输入“N”字母结束运行。
管理信息系统计算机应用上机笔记
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
GH（C，4）XM（C，8） XB（C，2） HF（2，1） CSNY（D，8） JBGZ（N，8，2）
0001 张塞 男 。F。 08/08/71800.00
0002 李芳 女 。T。 04/10/731200.00
0003 朱卫国 男 。T。 12/08/552500.00
0004 杨磊 男 。T。 09/06/661500.00
0005 刘亚茹 女 。F。10/21/512800.00
（其中：GH--工号，XM--姓名，XB--性别，HF--婚否，GSNY--出生年月，JBGZ--基本工资）
二、数据库操作
1、按基本工资字段降序建立排序文件，结果存放在考盘根目录下T1。DBF文件中，数据库的结构只包括工号，姓名，基本工资这三个字段。
2、对所有职工增加10%的基本工资
3、逻辑删除所有未婚职工的纪录。
三编制程序有如下图书数据库（假设存放在C：、TS。DBF文件中）
SH（C，4）SM（C，10）DJ（N，5，2） CS（N，4） JE（N，8，2）
0001 高等数学28.50 100 2850.00
0002 大学英语38.00 501900.00
0003 大学语文20.00 701400.00
0004 数据库技术25.00 802040.00
0005 操作系统19.00 101900.00
（SH--书号，SM--书名，DJ-单价，CS-册数，JE-金额）
按下列要求编制显示高于制定册数纪录的程序TEST1。PRG，存入考盘根目录下：
1打开图书数据库文件C：\ts.dbf
2提示输入册数，显示高于此册数的所有记录
3程序应允许反复输入册数并做显示操作，直至输入“N”字母结束程序的运行。
来不及了。先打这一道还有九道等我出去逛好街，吃好饭，晚上继续。老妈在催我呢！~~~
而且现在网速实在不行·！~~~
继续：
一、建立数据库
格式同上二、数据库操作
1将第五条记录的婚否改为。T。基本工资改为3000元
2在基本工资字段后插入一个奖金字段（JJ，N，8，2），每位职工的奖金数是基本工资的10%。
3按出生年月字段升序建立索引文件，结果存放在考盘根目录下T2。IDX文件中
三、编程按下列要求编制删除某图书记录的程序TEST2。PRG存入考盘根目录下（格式同前）
1打开图书数据库文件
2提示并输入书号，若找到：逻辑删除该记录，若找不到：显示“无此图书！”。
3程序应允许反复输入书号并做删除操作，直至输入“N”字母结束运行。
一、同上二、数据库操作
1将当前数据库文件中所有女职工的记录复制到考盘根目录下T3。DBF文件中
2物理删除第二条记录
3再数据库末尾添加一条新记录
0001 曹小英 女。F。 05/20/80 950.00
三。数据库格式同上
按下列要求编制修改某图书记录的程序TEST3。PRG存入考盘
1打开图书数据库文件
2提示并输入书号，若找到：将图书的单价及金额乘以0.9；若找不到：提示：“无此图书！”
3程序应允许反复输入书号并做修改操作，直至输入“N”字母结束运行。
第四篇一、同上二、数据库操作
1将当前数据库文件中所有女职工的记录复制到考盘根目录下T4。DBF文件中
2对所有女职工增加10%的基本工资
3逻辑删除第以条和第五条记录
三。数据库格式同上
按下列要求编制修改某图书记录的程序TEST3。PRG存入考盘
1打开图书数据库文件
2提示并输入书号，若找到：显示“该图书已存在，不能添加”；若找不到：再数据库末尾允许添加该书号的图书新记录。
3程序应允许反复输入书号并做添加操作，直至输入“N”字母结束运行。
第五篇一、略二、1按姓名字段升序建立索引文件，结果存放再考盘根目录下T5。IDX文件中。
2再基本工资字段后增加一个平均工资字段（PJGZ，N，8，2）
3计算基本工资的平均值，并将计算结果存放到所有记录的平均工资字段中。
三、编制显示某图书记录的程序TEST。PRG
1打开图书数据库文件
2提示并输入书号，若找到：显示该图书记录；若找不到：显示“无此图书！”
3程序应允许反复输入学好并做显示操作，直至输入“N”字母结束运行。
一略二数据库格式同前几篇
1按工号字段降序建立排序文件，结果存放在考盘目录下T6。DBF文件中。
2在数据库末尾插入一条空白记录
3计算基本工资的总额，并将计算结果存放到空白记录的基本工资字段中。
三、按下列要求编制删除某学生记录的程序TEST6。PRG
1打开学生数据库文件
2提示并输入学号，若找到：逻辑删除该记录；若找不到：显示“查无此人！”
3程序应允许反复输入学号并做删除操作，直至输入“N”字母结束运行。
数据库格式如下：
XH（C，4） XM（C，10） YW（N，3） SX（N，3） WY（N，3）
0201 赵一芳8590 95
0202 李小洁7978 85
0203 陈华9070 81
0204 郭平平8088 76
0205 黄竣6875 80
第七篇一略二1删除“出生年月”这个字段
2对所有未婚职工增加10%的基本工资
3一性别为第一关键字升序排列，基本工资为第二关键字降序排列，产生新的数据库文件存放在考盘T7。DBF文件中。
三、按下列要求编制显示某学生记录的程序TEST7。PRG
1打开数据库
2提示并输入学好，若找到：显示该学生记录；若找不到：显示“查无此人！”
3程序应允许反复输入学号并做显示操作，直至输入“N”字母结束。
第八篇
一略（因为同前几篇一样地）
二格式略（因为同前几篇）
1按出生年月字段升序建立索引文件，结果放于T8。IDX中
2在基本工资字段后增加一个工资总额字段（GZZE，N，8，2）
3计算基本工资的总额，并将计算结果存放到所有记录的工资总额字段中。
三按下列要求编制添加某学生记录的程序TEST8。PRG（格式略同第六篇）
1打开数据库
2提示并输入学号，若找到：显示“该学生记录已存在，不能添加！”；若找不到：在数据库末尾允许添加该学号的学生记录。
3程序应允许反复输入学号，并做添加操作，直至输入“N”字母结束。
第九篇一略（原因啊。不用问了，看前面）
二格式略（原因：看上面）
1按出生年月字段降序建立排序文件，结果放于T9。DBF文件中
2逻辑删除所有未婚职工的记录。
3在数据库末尾添加一条新记录
0010 曹小英 女 。T。05/20/75950.00
三编制修改某学生记录的程序TEST9。PRG
1打开数据库（格式略）
2提示并输入学号，若找到：允许修改该记录，若找不到：显示“查无此人！”
3程序应允许反复输入学号，并做修改操作，直至输入“N”字母结束运行。
第十篇---最后一篇（终于结束啦。。公德圆满啦！~~~~~~哈哈哈哈）
一略（照着前几篇的来）
二格式略（同上）
1删除“婚否”这个字段
2对70年12月31日之前出生的所有职工增加10%的基本工资
3按基本工资字段升序建立索引文件。结果存放于T10。IDX文件中。
三编制统计学生成绩的程序TEST10。PRG
1打开数据库
2提示并输入学号，若找到：显示该学生的学号，姓名，及三门成绩的总分；若找不到：显示“查无此人！”。
3程序应允许反复输入学号并做统计操作直至输入“N”字母结束运行。
管理信息系统计算机应用上机笔记
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
