VFP与表操作相关程序设计Word文档格式.docx
- 文档编号:21242910
- 上传时间:2023-01-28
- 格式:DOCX
- 页数:12
- 大小:17.75KB
VFP与表操作相关程序设计Word文档格式.docx
《VFP与表操作相关程序设计Word文档格式.docx》由会员分享,可在线阅读,更多相关《VFP与表操作相关程序设计Word文档格式.docx(12页珍藏版)》请在冰豆网上搜索。
ENDIF
SKIP
ENDD
LIST
*-------------------------------------------------------
*【程序改错】
*题目:
已有数据库djks.dbf。
请编写程序modi1.PRG,在程序中首
*先通过复制djks.dbf生成一个具有考号、姓名、笔试及上
*机四个字段的数据库文件aaa.dbf(只有结构),然后再修改
*其结构,把考号字段改为数值型8个字符宽、姓名字段改为
*8个字符宽。
要求必须使用:
copyto<
结构文件名>
*structureextended和create<
生成库文件名>
from<
结*构文件名>
命令实现,使用其它方法不得分。
*注意:
不可以增加或删除程序行,也不可以更改程序的结构。
settalkoff
clear
closdata
usedjks
copystrutoaaafiel考号,姓名,笔试,上机
USEAAA
***********FOUND**********
COPYSTRUTOBBB
USEBBB
LOCAFORFIELD_NAME='
考号'
REPLTYPEWITH'
N'
FIELD_LENWITH8
姓名'
REPLFIELD_LENWITH8
CREATEAAAtoBBB
useaaa
liststru
settalkon
1).COPY★STRU★TO★BBB★EXTENDED
2).R★EPLF★IELD_TYPE★WITH★'
FIELD_LEN★WITH★8
3).CREATE★AAA★FROM★BBB
显示XSDB.DBF中每个学生的姓名、计算机成绩和等级;
等
*级划分如下:
计算机成绩大于等于90显示"
;
60到89
*(包括60和89)之间显示"
及格"
60分以下显示"
补考"
。
*如显示:
张丽娜90优秀。
USEXSDB
DOWHIL.NOT.EOF()
LIST姓名,计算机
DOCASE
CASE计算机>
=90
?
?
'
优秀'
=60
及格'
OTHERWISE
补考'
ENDCASE
GONEXT
ENDDO
USE
1).?
姓名,计算机或DISP姓名,计算机或DISPLAY姓名,计算机
2).SKIP
统计RSH.dbf中职称是教授、副教授、讲师和助教的人数。
USERSH
STORE1TOA,B,C,D
DOWHILE.NOT.EOF()
DOCASE
CASE职称="
教授"
A=A+1
副教授"
B=B+1
讲师"
C=C+1
助教"
D=D+1
NEXT1
USE
A,B,C,D
1).STORE★0TOA,B,C,D
用循环程序计算XSDB.DBF中法律系学生的计算机平均成绩、
*英语平均成绩和奖学金总额。
STORE0TOJSJ,YY,JXJ,RS
LOCAFOR系别="
法律"
DOWHILEFIND()
JSJ=JSJ+计算机
YY=YY+英语
JXJ=JXJ+奖学金
RS=RS+1
CONT
JSJ,YY,JXJ
1).do★while★FOUN()或do★while★.NOT.EOF()或do★while★!
EOF()或do★while★NOTEOF()或do★while★FOUND()
2).?
JSJ/RS,★YY/RS,JXJ
打开表XSDB.DBF,统计姓张、姓王、姓李这三个姓的学生
*人数并显示。
C=0
LOCA姓名="
张"
.AND."
王"
李"
DOWHILEFOUN()
C=C+1
COUN
C
1).LOCATE★FOR姓名="
★.OR.★姓名="
2).CONTINUE
从键盘输入一个表名,打开该表文件,移动记录指针到
*文件头,输出当前记录号;
在移动记录指针到文件尾,
*输出当前记录号。
ACCEPTTOA
**********FOUND**********
FINDA
GOTOP
NEXT
RECNO()
GOBOTTOM
NEXT-1
1).USE(A)或USE&
A
2).SKIP-1
3).SKIP
根据姓名查询RSH.dbf中的职工情况,如果有则显示该职工的
*工资和职称,否则显示"
查无此人!
"
XM="
赵红"
LOCATEFOR姓名=XM
IFBOF()
WAIT"
"
ELSE
工资+职称"
1).IFEOF()或IF.NOT.FOUN()
工资,职称或?
STR(工资)+职称
*【程序填空】
下面程序根据XSDB.DBF数据表中的计算机和英语成绩对奖
*学金做相应调整:
双科90分以上(包括90)的每人增加30元;
*双科75分以上(包括75)的每人增加20元;
其他人增加10元。
*请在【】处
*添上适当的内容,使程序完整。
***********SPACE**********
DOWHILE【?
】
CASE计算机>
=90.AND.英语>
REPLACE奖学金WITH奖学金+30
=75.AND.英语>
=75
REPLACE奖学金WITH奖学金+20
【?
REPLACE奖学金WITH奖学金+10
ENDCASE
1)..not.eof()或noteof()或!
eof()
2).OTHERWISE或CASE★.NOT.★(计算机>
=90★.AND★.英语★>
=90)★.OR.★NOT.★(计算机★>
=75★.AND.★英语★>
=75)
〖第4题〗『程序填空』(5分)(题号:
63)
在XSDB.DBF数据表中查找学生王迪,如果找到,则显示:
*学号、姓名、英语,生年月日,否则提示"
查无此人!
*请在【】处添上适当的内容,使程序完整。
王迪"
】姓名=XM
IFFOUN()
【?
】学号,姓名,英语,生年月日
RETURN
1).USE★XSDB
2).locate★for
3).display或?
或display★off
对表XSDB.DBF中的计算机和英语都大于等于90分以上的学
*生奖学金进行调整:
法律系学生奖学金增加12元、英语系学生
*奖学金增加15元、中文系学生奖学金增加18元,其他系学生奖
*学金增加20元。
请在【】处添上适当的内容,使程序完整。
CASE系别="
ZJ=12
英语"
ZJ=15
中文"
ZJ=18
ZJ=20
REPL奖学金WITH奖学金+ZJ
1).LOCA★FOR★计算机★>
=90★.AND.★英语★>
=90或LOCA★FOR★90<
=★计算机★.AND.★90<
=英语或LOCA★FOR★90<
=★计算机★.AND.★英语★>
=90或LOCA★FOR★计算机★>
=90★.AND.★90<
=★英语
2).OTHERWISE
3).CONT
依次显示XSDB.DBF数据表中的记录内容。
请在【】处添上适当
*的内容,使程序完整。
DOWHILE【?
DISP
1).use★xsdb
2)..not.eof()或!
找出XSDB.DBF中奖学金最高的学生记录并输出。
请在【】
*处添上适当的内容,使程序完整。
MAX=0
IFMAX<
奖学金
JLH=RECN()
ENDIF
SKIP
MAX
DISPFORRECN()=JLH
2).!
EOF()或.NOT.★EOF()
3).STOR★奖学金TO★MAX或MAX=★奖学金
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VFP 操作 相关 程序设计
![提示](https://static.bdocx.com/images/bang_tan.gif)