管理系统中计算机应用上机题 、建立数据库 按下列要求建立职工数据库文件,TEST1。DBF存放考盘根目录下 GH(C, 4) XM(C, 8) XB(C, 2)HF(2, 1) CSNY(D, 8)JBGZ (N, 8, 2) 张 塞 男 F 08/08/71 800.00 李芳 04/10/73 1200.00 0003 朱卫国 12/08/55 2500.00 0004 男 T。 09/06/66 1500.00 0005 刘亚茹 女 F 10/21/51 2800.00 (其中:GH-工号,M-姓名,XB-性别,H一婚否,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) 等 数 2850.00 0002 大 英 1900.00 0003 大 文 1400.00 0004 数 据 库 技 术 25.00 2040.00 统 1900.00 (SH—书号,SM-书名,DJ-单价,CS-册数,J-金额) 按下列要求编制显示高于制定册数纪录的程序 TESTI。PRG,存入考盘根目录下: 1打开图书数据库文件C:\ts.dbf 2提示输入册数,显示高于此册数的所有记录 3程序应允许反复输入册数并做显示操作,直至输入“N”字母结束程序的运行 来不及了。先打这一道还有九道等我出去逛好街,吃好饭,晚上继续。老妈在催我呢! 而且现在网速实在不行 建立数据库 格式同上 数据库操作 1将第五条记录的婚否改为。T。基本工资改为3000元 2在基本工资字段后插入一个奖金字段(JJ,N,8,2),每位职工的奖金数是基本工资的10%
A 管理系统中计算机应用上机题 一、建立数据库 按下列要求建立职工数据库文件，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/71 800.00 0002 李 芳 女 。 T。 04/10/73 1200.00 0003 朱卫国 男 。 T。 12/08/55 2500.00 0004 杨 磊 男 。 T。 09/06/66 1500.00 0005 刘亚茹 女 。 F。 10/21/51 2800.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 50 1900.00 0003 大学语 文 20.00 70 1400.00 0004 数据库技 术 25.00 80 2040.00 0005 操作系 统 19.00 10 1900.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”字母结束运行 、同上 、数据库操作 将当前数据库文件中所有女职工的记录复制到考盘根目录下T3。DBF文件中 2物理删除第二条记录 3再数据库末尾添加一条新记录 0001 曹小英女 F 05/20/80 950.00 三。数据库格式同上 按下列要求编制修改某图书记录的程序TEST3。PRG存入考盘 1打开图书数据库文件 2提示并输入书号,若找到:将图书的单价及金额乘以0.9:若找不到:提示:“无此图书!” 程序应允许反复输入书号并做修改操作,直至输入“N”字母结束运行 第四篇 、同上 、数据库操作 1将当前数据库文件中所有女职工的记录复制到考盘根目录下T4。DBF文件中 2对所有女职工增加10%的基本工资 3逻辑删除第以条和第五条记录 数据库格式同上 按下列要求编制修改某图书记录的程序TEST3。PRG存入考盘 1打开图书数据库文件 2提示并输入书号,若找到:显示“该图书已存在,不能添加”;若找不到:再数据库末尾允许添 加该书号的图书新记录。 3程序应允许反复输入书号并做添加操作,直至输入“N”字母结束运行。 第五篇 二、1按姓名字段升序建立索引文件,结果存放再考盘根目录下T5。IDX文件中。 2再基本工资字段后增加一个平均工资字段(PJGZ,N,8,2) 3计算基本工资的平均值,并将计算结果存放到所有记录的平均工资字段中。 编制显示某图书记录的程序TEST。PR 1打开图书数据库文件 2提示并输入书号,若找到:显示该图书记录:若找不到:显示“无此图书! 3程序应允许反复输入学好并做显示操作,直至输入“N”字母结束运行 略 二数据库格式同前几篇 按工号字段降序建立排序文件,结果存放在考盘目录下T6。DBF文件中。 在数据库末尾插入一条空白记录 3计算基本工资的总额,并将计算结果存放到空白记录的基本工资字段中 、按下列要求编制删除某学生记录的程序TEST6。PRG 1打开学生数据库文件
B 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”字母结束运行。 数据库格式如下: ⅫH(C,4) XM(C,10) YW (N, 3) SX(N, 3) WY (N, 3) 0201 赵 芳 0202 小 华 郭 平 0205 黄 竣 75 第七篇 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逻辑删除所有未婚职工的记录。 在数据库末尾添加一条新记录 10曹小英女 05/20/75 950.00 编制修改某学生记录的程序TEST9。PRG 1打开数据库(格式略) 2提示并输入学号,若找到:允许修改该记录,若找不到:显示“查无此人!” C
C 2 提示并输入学号，若找到：逻辑删除该记录；若找不到：显示“查无此人！” 3 程序应允许反复输入学号并做删除操作，直至输入“N”字母结束运行。 数据库格式如下： XH（C，4） XM（C，10） YW（N，3） SX（N，3） WY（N，3） 0201 赵 一 芳 85 90 95 0202 李 小 洁 79 78 85 0203 陈 华 90 70 81 0204 郭 平 平 80 88 76 0205 黄 竣 68 75 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/75 950.00 三编制修改某学生记录的程序 TEST9。PRG 1 打开数据库（格式略） 2 提示并输入学号，若找到：允许修改该记录，若找不到：显示“查无此人！
3程序应允许反复输入学号,并做修改操作,直至输入“N”字母结束运行。 第十篇——最后一篇(终于结束啦。公德圆满啦!∽哈哈哈哈) 略(照着前几篇的来) 格式略(同上) 1删除“婚否”这个字段 2对70年12月31日之前出生的所有职工增加10%的基本工资 按基本工资字段升序建立索引文件。结果存放于T10。IDX文件中。 编制统计学生成绩的程序TEST10。PRG 打开数据库 2提示并输入学号,若找到:显示该学生的学号,姓名,及三门成绩的总分;若找不到:显示“查无 此人!”。 3程序应允许反复输入学号并做统计操作直至输入“N”字母结東运行。 管理信息系统计算机应用上机笔记 规划一一根据题目中给定的要求,先做规划 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,2 crea xsh(忘记的时候用:输入数据APPE) 3、编菜单程序 modi comm main set talk off X= 2,20say“学生系统 3,5 prompt‘查询 @3,15 prompt‘数据处理 @3,25 prompt‘统计 @3,35 prompt‘退出 menu to x Case x=1 (查询 D0CL(处理) Case x=3
D 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
D0TJ(统计) Case x= Clea Retu Endcase Enddo存盘退出 copy file main. prg to cl prg modi comm cl clea set taik off 4、输入程序 modi comm shr set taik off use 库名 e upple (X 小写值变大写 appe 5,10say‘是否继续输入(Y/N)’getx read enddo use clea retu 统计 CL TJ TJ1 TJ2 T]3 retu modl comm clea set taik off use库名 coun all for性别=‘男’tox coun all for性别=‘女’toy 5,5say‘男士人数为:’+str(x) 5,5say‘女士人数为:’+str(y) walt use retu modi comm T 3 set talk off E
E 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库名 aver all工资tox @5,5say‘平均工资:’+str(x) wait use retu CX1 CX2 CX3 CX4 N,5C,8 modi comm Cx1 set talk off use库名 5,10say‘请输入编号:’getx read姓名 loca all for编号 if. not. eof ( DO while. NoT. eof() Di Wait修改 Enddo El 5,10say“查无此人’ walt endif 5,10say‘是否继续查找(Y/N)’gety read修改 if uppe(y)<>‘Y use retu endif 题目:职工系统 要求:对职工进行输入、修改、查询、删除、统计计算等处理。 其中:修改要球能够按照编号、姓名、性别、工资进行
F 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、求男职工工资总额 求出工资最高的职工 4、按升序排序工资 部门DB(BM.DBF) 部门号C3 部门名C20 职工DB(ZHG.DBF) 编号N5 姓名C8 性别C2 学历C10 部门号C3 Wait修改 5,10say‘是否修改(Y/N)’getz re EDIT删除dele
G 删除要求能够按照姓名、编号进行 查询要求能够按照编号、姓名、部门进行 统计计算要求： 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
