- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Cgiwwqs计算机二级
七夕,古今诗人惯咏星月与悲情。吾生虽晚,世态炎凉却已看透矣。情也成空,且作“挥手袖底风”罢。是夜,窗外风雨如晦,吾独坐陋室,听一曲《尘缘》,合成诗韵一首,觉放诸古今,亦独有风韵也。乃书于纸上。毕而卧。凄然入梦。乙酉年七月初七。啸之记。
1. .USE RSDA
.SKIP -8
A.记录指针移到-7号记录 B.记录指针移至 1 号记录
C.记录指针移到0号记录 D.记录指针保持原位
2.DISP
A.显示库结构 B.修改库结构 C.显示当前记录 D.显示全部记录
3.APPEND BLANK
A.追加记录 B.追加文件 C.追加结构 D.追加空记录
4.LIST FOR 工作时间CTOD(01/02/78)
A.显示78年2月1日前参加工作的记录 B.显示78年1月2日前参加工作的记录
C.打印78年2月1日前参加工作的记录 D.打印78年1月2日前参加工作的记录
5.USE
A.打开文件 B.建立新文件 C.关闭当前库文件 D.查找文件
1. USE LX
A.打开LX.TXT B.打开LX.IDX C.打开LX.DBF D.建立LX.DBF
2.DISP STRU
A.显示库结构 B.修改库结构 C..显示当前记录 D.显示全部记录
3.REPL 工资 WITH 工资 +40
A.用工资+40 替换当前记录工资 B.用工资+40 替换全部记录工资
C.用工资替换全部记录工资+40 D.用工资替换当前记录工资+40
4. .GO BOTTOM
.? RECNO( )
A. .F. B. .T. C.1 D.当前库最大记录号
5.CLOSE ALL
A.关闭所有的数据库文件 B.删除各种类型文件
C.关闭各工作区中的所有类型文件,不释放内存变量
D.关闭各工作区中的所有类型文件,并释放内存变量
1、通过对职工姓名的选择(并参考职工号),显示所查职工的姓名、
职工号、性别、出生年月、职称及基本工资。(不考虑分页显示)
代码如下:
set talk off
use zgjk
w=Y
do while .t.
clear
go top
i=3
_____________1
j=1
do while j=6.and..not.eof()
@i,(j-1)*10+3 prompt 姓名 message 职工号
skip
j=j+1
enddo
i=i+1
enddo
_______________2
menu to p
go p
display 职工号,姓名,性别,出生日期,职称,基本工资
wait是否结束(Y/N) to w
if upper(w)=Y
exit
endif
enddo
_____________3
set talk on
2、下列程序是实现工资数据查询的。
代码如下:
set talk off
sele 1
use gzj
accept请输入工号: to gh
__________________4
if .not.found()
?没有此记录!
endif
sele 3
use gzd
index on 工号 to gzd
sele 1
set relation to 工号 into c
disp 工号,姓名,基本工资,附加工资,交通费,c- 房费,c-水费,c- 电费
_______________5
set talk on
1 A do while .not..t. B do while .not.
C do while .not.eof() D do while .not.bof()
2 A set default to 14 B set message to 14
C set index to 14
文档评论(0)