- 365网友提供计算机信息管理试题
- 发布日期时间：2007-1-14 来源：网络 点击数： 作者：佚名
> 或？SEEK？STXM .？
可以通过FOUND（）或EOF（）函数来判断是否查到记录。
查到时，记录指针总是指向第一个满足条件的记录，此时FOUND（）函数为真， EOF（）函数为假。
未找到，记录指针指向库文件尾部， FOUND（）函数为假， EOF（）函数为真。
参考程序如下：
SET TALK OFF
CLEAR
DEFINE WINDOW WINB FROM 10，15 TO 20，65 FONT 'T黑体'，11 TITLE‘姓名查询’
ACTIVATE WINDOW WINB
USE ST1
ACCEPT‘请输入学号’TO STXH
LOCATE FOR XH=STXH
IF .NOT. EOF（）
CLEAR
@2，2 SAY‘姓？名：’+XM
@2，25 SAY‘出生日期：’+DTOC（CS）
@4，2 SAY‘数据库：’+STR（SJK，3）
@4，25 SAY‘管理信息：’+STR（GLXX，3）
ELSE
？‘无此学号’
ACCEPT‘请输入姓名’TO STXM
INDEX ON XM TO STID
FIND &STXM
IF .NOT. EOF（）
CLEAR
@2，2 SAY‘姓？名：’+XM
@2，25 SAY‘出生日期：’+DTOC（CS）
@4，2 SAY‘数据库：’+STR（SJK，3）
@4，25 SAY‘管理信息：’+STR（GLXX，3）
ELSE
？‘查无此学生’
ENDIF
ENDIF
？
WAIT
USE
RELEASE WINDOW WINB
SET TALK ON
RETURN
（三）屏幕设计
1.利用屏幕生成器，设计一个如下图所示的屏幕文件P4.SPR .
屏幕要求：标题——‘欢迎’
文本‘欢迎你参加自学考试’——字体为隶书，字号为22，颜色为红色
进入按钮——功能设定为执行命令：？WAIT WINDOW？‘该功能进入系统’
退出按钮——功能设定为退至FOXPRO主窗口？
「解答」
操作要点如下：
①打开屏幕设计窗口
用命令CREATE SCREEN P4，或系统菜单File / New / Screen，单击New，打开屏幕生成器窗口。
②设计屏幕
单击文本工具？创建文本对象？‘欢迎你参加自学考试’
Object / Font？设置字体，字号
Object / Pen Color？设置颜色
Screen / Layout / Title？设置标题？欢迎
单击命令按钮工具？设置‘进入’按钮
Push button Prompts：？进入
Variable…？JR
Valid…？WAIT WINDOW？‘该功能进入系统’
单击命令按钮工具？设置‘退出’按钮
Push button Prompts：？退出
Variable…？TC
Options：？选Terminate READ On Selection
③保存
File / Save？
保存，生成屏幕信息的数据库文件P4.SCX及屏幕信息的备注文件P4.SCT.
④生成屏幕程序
Program / Generate
在弹出的对话框中，选Options…，可以设置设计者的注释信息，如姓名、单位、地址、邮编等，
它们自动产生在屏幕程序的开头。最后，单击Generate ，生成屏幕程序文件P4.SPR.
⑤运行屏幕程序
DO P4.SPR？显示出题意所要求的屏幕程序文件P4.SPR.
2.利用屏幕生成器，设计一个如下图所示的逐条显示数据库ST1记录的屏幕文件P5.SPR .
屏幕要求：标？题——‘显示记录’
上一条按钮——功能为显示上一条记录
下一条按钮——功能为显示下一条记录
退出按钮——功能为退至FOXPRO主窗口
「解答」
操作要点如下：
①打开屏幕设计窗口
用命令CREATE SCREEN P5 ；或用系统菜单File / New / Screen，单击New，打开屏幕生成器窗口。
②设计屏幕
Screen / Layout / Title？设置标题？显示记录
单击文本工具？创建文本对象？姓名？
单击字段工具？设置字段对象？XM
Input…？ST1.XM
类似方法可设置文本对象：学号、管理信息、数据库；？字段对象XH、GLXX、SJK
单击画矩形工具？将上述对象围绕在矩形框内
单击命令按钮工具？设置上一条按钮
Push button Prompts：？上一条
Variable…？SYT
Valid…？输入下列代码：
IF .NOT. BOF（）
SKIP–1
ELSE
GO BOTTOM
ENDIF
SHOW GETS
RETURN？
单击命令按钮工具
可以通过FOUND（）或EOF（）函数来判断是否查到记录。
查到时，记录指针总是指向第一个满足条件的记录，此时FOUND（）函数为真， EOF（）函数为假。
未找到，记录指针指向库文件尾部， FOUND（）函数为假， EOF（）函数为真。
参考程序如下：
SET TALK OFF
CLEAR
DEFINE WINDOW WINB FROM 10，15 TO 20，65 FONT 'T黑体'，11 TITLE‘姓名查询’
ACTIVATE WINDOW WINB
USE ST1
ACCEPT‘请输入学号’TO STXH
LOCATE FOR XH=STXH
IF .NOT. EOF（）
CLEAR
@2，2 SAY‘姓？名：’+XM
@2，25 SAY‘出生日期：’+DTOC（CS）
@4，2 SAY‘数据库：’+STR（SJK，3）
@4，25 SAY‘管理信息：’+STR（GLXX，3）
ELSE
？‘无此学号’
ACCEPT‘请输入姓名’TO STXM
INDEX ON XM TO STID
FIND &STXM
IF .NOT. EOF（）
CLEAR
@2，2 SAY‘姓？名：’+XM
@2，25 SAY‘出生日期：’+DTOC（CS）
@4，2 SAY‘数据库：’+STR（SJK，3）
@4，25 SAY‘管理信息：’+STR（GLXX，3）
ELSE
？‘查无此学生’
ENDIF
ENDIF
？
WAIT
USE
RELEASE WINDOW WINB
SET TALK ON
RETURN
（三）屏幕设计
1.利用屏幕生成器，设计一个如下图所示的屏幕文件P4.SPR .
屏幕要求：标题——‘欢迎’
文本‘欢迎你参加自学考试’——字体为隶书，字号为22，颜色为红色
进入按钮——功能设定为执行命令：？WAIT WINDOW？‘该功能进入系统’
退出按钮——功能设定为退至FOXPRO主窗口？
「解答」
操作要点如下：
①打开屏幕设计窗口
用命令CREATE SCREEN P4，或系统菜单File / New / Screen，单击New，打开屏幕生成器窗口。
②设计屏幕
单击文本工具？创建文本对象？‘欢迎你参加自学考试’
Object / Font？设置字体，字号
Object / Pen Color？设置颜色
Screen / Layout / Title？设置标题？欢迎
单击命令按钮工具？设置‘进入’按钮
Push button Prompts：？进入
Variable…？JR
Valid…？WAIT WINDOW？‘该功能进入系统’
单击命令按钮工具？设置‘退出’按钮
Push button Prompts：？退出
Variable…？TC
Options：？选Terminate READ On Selection
③保存
File / Save？
保存，生成屏幕信息的数据库文件P4.SCX及屏幕信息的备注文件P4.SCT.
④生成屏幕程序
Program / Generate
在弹出的对话框中，选Options…，可以设置设计者的注释信息，如姓名、单位、地址、邮编等，
它们自动产生在屏幕程序的开头。最后，单击Generate ，生成屏幕程序文件P4.SPR.
⑤运行屏幕程序
DO P4.SPR？显示出题意所要求的屏幕程序文件P4.SPR.
2.利用屏幕生成器，设计一个如下图所示的逐条显示数据库ST1记录的屏幕文件P5.SPR .
屏幕要求：标？题——‘显示记录’
上一条按钮——功能为显示上一条记录
下一条按钮——功能为显示下一条记录
退出按钮——功能为退至FOXPRO主窗口
「解答」
操作要点如下：
①打开屏幕设计窗口
用命令CREATE SCREEN P5 ；或用系统菜单File / New / Screen，单击New，打开屏幕生成器窗口。
②设计屏幕
Screen / Layout / Title？设置标题？显示记录
单击文本工具？创建文本对象？姓名？
单击字段工具？设置字段对象？XM
Input…？ST1.XM
类似方法可设置文本对象：学号、管理信息、数据库；？字段对象XH、GLXX、SJK
单击画矩形工具？将上述对象围绕在矩形框内
单击命令按钮工具？设置上一条按钮
Push button Prompts：？上一条
Variable…？SYT
Valid…？输入下列代码：
IF .NOT. BOF（）
SKIP–1
ELSE
GO BOTTOM
ENDIF
SHOW GETS
RETURN？
单击命令按钮工具
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
文章转载请注明来源于：汕头自考网
网友评论
|
|
