VF综合上机习题.pdfVIP

综合上机习题 三、表单应用题 1. 设计一个名为 Frm01 的表单，表单的控件名和文件名均为 Frm01 。表单的形式如下图所 示。 要求如下： （1）表单标题为 零件供应情况 ，表格控件为 Grid1 ，命令按钮 查询 为 Command1、退出 为 Command2 ，标签控件 Label1 和文本框控件 Text1( 程序运行时用于输入工程号 )。 （2 ）运行表单时，在文本框中输入工程号，单击 查询 命令按钮后，表格控件中显示相应 工程所使用的零件的零件名、 颜色和重量 (通过设置有关 数据 属性实现 )，并将结果按 零件 名 升序排序存储到 pp.dbf 文件。 单击 退出 按钮关闭表单。 答题要求： 1)将表格的 recordsourcetype 属性设为“ 0” 2 ）查询的单击事件： 使用 select 语句， 将查询结果存到一个表 pp.dbf 中，然后再将表格 grid1 的 recordsource 属性设为 pp 3)表单备注文件不能删除 完成表单设计后运行表单，并查询工程号为 J4 的相应信息。 select 零件 .零件名 ,颜色 ,重量 from 零件 inner join 供应 on 零件 .零件号 =供应 .零件号 where 供应 .工程号 =thisform.text1.value order by 零件名 into dbf pp thisform.grid1.recordsource=pp 2. 在 VF 中建一表单，表单文件名为 FrmTime.SCX ，将该文件存于考生文件夹中。设计完 成后如下图所示。 具体要求如下： （1）表单的标题为“显示时间” （2 ）表单上有三个命令按钮，分别是“显示” (名称为 cmd1) 、“停止显示” (名称为 cmd2) 、 “退出” (名称为 cmd3) （3 ）表单上有一个标签，名称为 LBL1 （4 ）通过 timer( 时间按件名为 timer1,Interval 属性设为 1000)控件实现以下功能 单击“显示”按扭，在标签 LBL1 中显示系统时间；单击“停止显示”按钮，停止显示 时间 (使用 timer 控件的 Enabled 属性）；单击“退出”按钮，即表单程序。 注意：请将相关文件按要求存入考生文件夹。 thisform.timer1.enabled=.t. thisform.timer1.enabled=.f. 3. 程序功能为：求 1 到 100 以内的奇数，单击 计算 按钮后 ,首先清除列表框中原先的内容， 然后显示结果，单击 退出 按钮后退出表单。表单文件名为 Frm03.scx 。 要求如下： （1）窗体命名为 frm03.scx( 表单备注文件不能删除） （2 ）窗体的标题为：求 100 以内的奇数 （3 ）命令按钮 计算 (名称为 command1), 退出 (名称为 command2) （4 ）列表框名称为 list1 （5 ）判断一个数是否为奇数使用语句“ i%20 ”，即 i 除 2 不等于 0 （6 ）列表框中增加一项使用语句“ additem(str(i)) ” （7 ）要求使用 for 循环语句 （8 ）退出表单用 release 语句 thisform.list1.clear for i=1 to 100 if i%20 thisform.list1.additem(str(i)) endif endfor 4. 设计一表单，功能为：输入圆的半径，单击计算后，在文本框 2 中显示圆的体积，其中 圆的体积公式是 V=(4/3)*3.14*r*r*r. 表单文件名