tl 的自动排序属性(Sorted)。 thisform.list1.sorted=iif(this.value=1,.t.,.f.) 4.编写“清除”按钮的 Click 事件代码,用 2 条语句实现如下功能:将列表框 Listl 的所有 数据项清空,将文本框 Textl 的值置零。 thisform.list1.clear thisform.text1.value=0
五、
程序改错(5 分) 我国古代数学家张丘建在《算经》一书中曾提出著名的“百钱买百鸡”问题,该
问题是: 1 只公鸡 5 元、1 只母鸡 3 元、3 只仔鸡 1 元,若用 100 元恰好买 100 只鸡,则公鸡、母鸡 和仔鸡各多少只?修改下列程序以解决上述问题,要求: ①将下列程序输入到项目中的
程序文件 PCODE 中,并对其中的 2 条错误语句进行修改; ②在修改程序时,不允许修改程序的总体框架和算法,不允许增加或减少语句数目。 cString='' FOR i=0 TO 100/5 FOR j=0 TO 100/3 FOR k=0 TO 3*100 IF accord(i,j,k)=1 cString="公鸡:"+ALLT(STR(i))+"只,母鸡:"+ALLT(STR(j)); +"只,小鸡:"+ALLT(STR(k))+"只" ?cString ENDIF ENDFOR &;&; ENDFOR ENDIF ENDFOR FUNCTION accord PARA I,j,k IF 5*i+3*j+k/3=100 OR i+j+k=100 &;&;IF 5*i+3*j+k/3=100 and i+j+k=100 RETURN 1 ELSE RETURN 0 ENDIF ENDFUNC
2010Q VFP03 一、项目、数据库和表操作(12 分) 打开 T 盘根目录中的项目文件 JXGL,在该项目中已有一数据库 JXSJ。 1.在 JXSJ 数据库中按如下表格所示的结构创建 AB 表,并按表格中的要求设置相关属性。 宇段名 RQ DW XM JE 数据类型 D C C N 20 20 6(小数 1 位) 宽度 字段标题 日期 报销单位 开支项目 金额
(1) 设置 AB 表的表注释:账目登记; (2) 设置日期字段的默认值;
系统当前日期; date() (3) 设置报销单位字段的显示类:列表框; 选择字段选项卡 ,在“显示类”里选择 listbox (4) 设置日期的有效性规则:不能为星期六和星期日(提示:使用 DOW 函数); dow(rq)!=1 and dow(rq)!=7 (5) 创建普通索引,索引名为 abcd,要求按报销单位排序,相同时根据日期排序。 Dw+dtoc(rq,1)
2.在 AB 表中输入如下记录: RQ (系统当前日期) DW 数学系 XM 机动费 JE 2345.6
3. 将 DMB 中类型(LX)为“文化程度”的记录复制到新的表中(表名为 WHCDB)。 Use dmb Copy to whcdb for lx=”文化程度” 4.XS 表已存在主索引 XH,索引表达式为 XH;CJ 表已存在普通索引 XH,索引表达式为 XH。以 XS 表为主表、CJ 表为子表,根据 XH 建立永久关系,并设置两表之间的参照完整 性:更新限制、插入限制、删除级联。 二、设计查询(8 分) 已知教师表(JS)含有工号(gh, 院系专业代码(yxzydm, C)、 C)等字段; 自由表工资表(GZB) 含有工号(gh,C)、基本工资(jbgz,N)、岗位津贴(gwjt,N)、综合津贴(zhjt,N)、住房补贴 (zfbt,N)等字段。按如下要求修改 JXGL 项目中的查询 CHAXUN: 基于 JS 表和 GZB 表查询各院系专业教师人数和应发工资总额。 要求:查询输出字段为 yxzydm、人数、应发工资总额;查询结果按应发工资总额降序排序,且仅输出应发工资总 额最多的前三个院系专业;输出去向为表文件 TEMP。 注:应发工资总额=jbgz+gwjt+zhjt+zfbt SELECT TOP 3 Js.yxzydm, count(*) as 人数,; sum(jbgz+gwjt+zhjt+zfbt) as 应发工资总额; FROM jxsj!js INNER JOIN gzb ; ON Js.gh = Gzb.gh; GROUP BY Js.yxzydm; ORDER BY 3 DESC; TO FILE temp.txt 三、设计菜单(5 分) JXGL 项目中已存在菜单 MENU,其中已定义了“文件”菜单栏及其中的“退出菜单” 项。按如下要求设计菜单,菜单运行后的效果如图 1 所示
。 1.在“文件”菜单栏右侧创建“数据库”菜单栏。 2.在“数据库”菜单栏下创建子菜单“浏览文件” 3.为“浏览文件”菜单项设置快捷键“CTRL+D” 。 4.在“数据库”菜单栏下插入系统菜单, “打开”和系统 菜单“关闭” 。 5.为“浏览文件”菜单项设置命令代码:DIR *.dbc 四、设计表单(10 分) 表单 F101G 用于实现用户