上机操作提示
- 格式:pdf
- 大小:646.22 KB
- 文档页数:14
2. 在"数据管理"菜单栏下创建子菜单"查询"和"数据备份"; 3. 为”查询”菜单项设置快捷键 F12 (操作提示:在选项中设置 F12) 4. 在菜单项“查询”和“数据备份”之间插入分组线 (操作提示:菜单项名称为 \-) 5. 为”数据备份”菜单项设置过程代码: (操作提示: 在菜单设计器中, “结果” —选择 “过 程” ) d=getfile(“DBF”, “*.DBF”) USE &d Copy to bf1 四、设计表单(10 分) 修改 F101A 表单,该表单的功能:统计输入文本中的各类字符的个数。
改为 :mod(i,j)=0
第二套
一项目、数据库和表操作(12 分) 打开素材项目文件 JXGL,在该项目中已有一数据库 JXSJ。 1、 在 JXSJ 数据库中按如下表格中所示的结构创建 AB02.DBF 表,并按表格中的要求设置相 关属件。
字段名 RQ qcph DD TP C G 数据类型 宽 度 字段标题 日期 C 8 20 汽车牌号 地点 图片
D
(1) 设置 AB02 表的表注释:汽车违停记录 (2) 设置日期 RQ 字段的默认值:当前系统日期减一 提示:RQ 字段的默认值为 DATE( )-1 (3) 设置地点字段的显示类:列表框 提示:如图所示,在 AB02 表的表设计器中, dd 字段的显示类选择 listbox
(4) 设置汽车牌号字段的有效性规则:不能为空 提示:NOT EMPTY( qcph) (5) 创建普通索引,索引名 abcd,要求按地点排序,相同时根据汽车牌号排序 提示:索引表达式为 dd+qcph 2、在 AB02 表中输入记录; RQ 默认值 QCPH 苏 A88888 DD 世纪广场
D
(1)设置 AB01 表的注释: 参观人数; (操作提示: 在项目管理器中,选中 AB01 表,单击“修改” ,打开表设计器,”表”选项卡 中的表注释中输入:参观人数) (2) 设置日期字段的默认值:当前的系统日期 (操作提示: date() ) (3)设置日期字段的显示类为:微调框
(操作提示: 在表设计器中,选中 rq 字段 spinner 如上图。 )
3、修改 jc 表数据:所有记录的单价字段的值取整 提示:利用命令 update jc set jc.dj = int(DJ) 或者 利用替换字段操作 见右图
4、已知 JS 表已存在主索引 gh,索引表达式为 GH;KCAP 表已存在普通索引 gh, 索引表 达式为 GH, 以 JS 表为主表, KCAP 表为子表, 按 gh 建立永久关系, 并设置两表之间的参照 完整性:插入限制 二、设计查询(8 分)创建查询文件 Q2,要求: 基于 xs 表和 jyb 表查询加上借书情况,学生的学号与读者号相同,jyb 表是自由表。 计算过期罚款信息,要求:输出字段为 dzh(读者号) 、xm(姓名) 、罚款额、查询结果按 照罚款额降序排序,输出去向为文本文件 TEMP2 注意:罚款方法为借书超过 30 天以上,超过部分每本每天 0.05 元,没有还书者(即还书日 期为空)不统计 提示: SELECT Jyb.dzh, Xs.xm,; SUM(IIF(Jyb.hsrq-Jyb.jyrq>30,(Jyb.hsrq-Jyb.jyrq-30)*0.05,0)) AS 罚款额; FROM jxsj!xs INNER JOIN jyb ; ON Xs.xh = Jyb.dzh; WHERE Jyb.hsrq <> {//}; GROUP BY Jyb.dzh; TO FILE temp2.txt 三、设计菜单(5 分) JXGL 项目中已存在菜单 MENUB,其中已定义了"文件"菜单栏及其中的"退出菜单"项。按 如下要求设计菜单,完成后的运行效果如图 1 所示。 6. 在"文件"菜单栏右侧创建"成绩管理"菜单栏; 7. 在 "成绩管理 "菜单栏下创建子菜单 "查询 "和插入 系统菜单"导出(E)"菜单项; 8. 为”查询”菜单项设置命令: Select * from cj 9. 为“导出”菜单项设置跳过条件: CJ 表打开时才可操作(启用) 操作提示:跳过条件表达式: NOT USED("cj") 10. 在菜单项“查询”和“导出”之间插入分组线 (操作提示:菜单项名称为 \-) 四、设计表单(10 分) 修改 F101C 表单,该表单的功能:数据录入。 5. 设置文本框控件的输入掩码, 只能接受 4 位 数字(提示:可以利用生成器,设置输入掩 码 9999) ,文本框中的字体为粗体 6. 在 表 单 的 空 白 区域 添 加 一 个 复选 框 控 件 check1,设置其标题为“自动排序” ,值为 逻辑假, 并设置有关属性使其能自动调整大 小。 (提示:autosize=.T.)
7. 如果复选框被选中, 表示列表框 list1 中的项目自动排序, 否则不自动排序。 编写 check1 的 click 事件代码,用 1 条语句实现 list1 的自动排序 (操作提示 thisform.list1.Sorted=this.value) 8. 编写“清除”按钮的 click 事件代码,用 2 条语句实现如下功能: 清除列表框中的内容; 文本框 text1 的值为 0. 操作提示: THISFORM.LIST1.CLEAR() THISFORM.TEXT1.VALUE=0 程序改错: 1.将下列程序输入到项目中的程序文件 PCODE2 中,并对其中的 2 条错误语句进行修改; 2.在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。 回文数是指正读和反读都一样的数,例如 121,1001,1221 等。下列程序的功能是:求出 小于 2000 的所有回文数,并将它们打印出来(每行打印 5 个数,最后一行打印总个数) 。 store 0 to n,n1,n2 for i=1 to 2000 s=allt(str(i)) n1=len(s) n2=int(n1/2) istrue=.t. for j=1 to n2 if subs(s,j,1)=subs(s,n1-j+1,1) &&改为:subs(s,j,1)!=subs(s,n1-j+1,1) istrue=.f. exit endif endif && 改为 endfor if istrue n=n+1 ??i if int(n/5)=n/5 ? endif endif endfor ? '共'+str(n)+'个'
第一套 一项目、数据库和表操作(12 分) 打开素材项目文件 JXGL,在该项目中已有一数据库 JXSJ。 1、 在 JXSJ 数据库中按如下表格中所示的结构创建 AB01.DBF 表,并按表格中的要求设置相 关属件。
字段名 RQ SCSL SJRS BZ 数据类型 宽 度 字段标题 日期 N N M 6 6 售出门票数量 实际参观人数 备注
,匹配字段类型到类 ----- 显示类----- 选择
(4) 设置记录的有效性规则及信息:实际参观人数小于或等于售出门票数量 (操作提示 : 在表设计器的”表”选项卡中设置: SJRS <= SCSL 如下图: )
(5)创建普通索引,索引名为 abcd,要求按实际参观人数与售出们表数量之比排序 (操作提示: 如下图: )
2、在在 AB01 表中输入如下记录: RQ SCSL SJRS BZ
默认值
240100
者等于 5 的记录家删除标记 (操作提示: 浏览 kc 表, 在主菜单中,选中“表”—“删除记录” ,界面如下: )
(或者使用命令: SELECT KC && 选中 kc 表为当前工作区中的表 DELETE ALL FOR xf >=5) 4、已知 JS 表已存在主索引 gh,索引表达式为 GH;KCAP 表已存在普通索引 gh, 索引表 达式为 GH, 以 JS 表为主表, KCAP 表为子表, 按 gh 建立永久关系, 并设置两表之间的参照 完整性:更新级联,删除限制 (操作提示: 选中 JXSJ 数据库, 点击修改, 出现数据库设计器, 找到 JS 表与 KCAP 表, 然后选中 JS 表的索引 gh, 拖放至 KCAP 表的索引 gh (即: 主表 gh 索引------子表 gh 索引) , 会出现一条连接线, 即建立永久关系, 双击连接线, 选中参照完整性, 出现参照完整性生成 器, 选择”更新”选项卡, 选中其中的级联, 选中”删除”选项卡, 选中其中的限制, 按确定 注意: 如果单击参照完整性出现一个错误提示框, 则要执行系统菜单”数据库” 清理数据库) 二、设计查询(8 分)创建查询 Q1,要求如下: 基于 js 表和 jyb 表查询加上借书情况,教师的工号与读者号相同,jyb 表是自由表。 计算过期罚款信息,要求:输出字段为 dzh(读者号) 、xm(姓名) 、罚款额、查询结果按 照罚款额降序排序,输出去向为文本文件 TEMP1 注意:罚款方法为借书超过 30 天以上,超过部分每本每天 0.1 元,没有还书者(即还书日 期为空)不统计 提示: SELECT Jyb.dzh, Js.xm, sum(iif(( hsrq-jyrq)>30,(hsrq-jyrq-30)*0.10, 0.0))as 罚款额; FROM jxsj!js INNER JOIN jyb ; ON Js.gh = Jyb.dzh; WHERE empty(jyb.hsrq)<>.t. Group by jyb,dzh ORDER BY 3 DESC; TO FILE temp1.txt 三、设计菜单(5 分) JXGL 项目中已存在菜单 MENUA,其中已定义了"文件 "菜单栏及其中的"退出菜单"项。按如下要求设计菜单, 完成后的运行效果如图 1 所示。 1. 在"文件"菜单栏右侧创建"数据管理"菜单栏;