第二十六节表单六.docVIP

教学标题表单设计与应用（六） 教学目标 1、掌握表格对象的常用属性及其应用 2、掌握计时器对象常用属性及其应用 3、掌握顶层表单的应用 4、掌握快捷菜单与表单的应用 教学重点 表格对象的常用属性及其应用 顶层表单的应用 教学难点 表格对象的应用 顶层表单的应用 教学过程 表格（grid）控件 表格是一个容器对象 表格也能包含列。这些列除了包含标头和控件外，每一个列还拥有自己的一组属性、事件和方法程序，从而为表格单元提供了大量的控件。 常用属性如下： recordsourcetype,recordsource属性 recordsourcetype属性指明表格数据源的类型，recordsource属性指定表格数据源。 属性值 说明 0 表。数据来源于由recordsourse属性指定的表，该表被自动打开 1 （默认值）别名。数据来源于已打开的表，由recordsource属性指定该表的别名, 可加入数据环境中 2 提示。运行时出现打开对话框,由用户根据提示选择表格数据源 3 查询。数据来源于查询，由recordsource属性指定一个查询文件 4 sql语句，数据来源于由recordsource属性指定一条sql－select语句，通常将查询结果存入临时表中 这两个属性在设计时可用，在运行时可读写，都适用于表格。 2.columncount属性 用于设置表格中列的个数。 3.表头对象常用属性: 属性 作用 caption 列标题文本 alignment 列标题文本的对齐方式 索引标识的名称,索引标识名和主表中的关表达式相对应 Eg2:制作如下一表单： 组合框的click事件如下： Thisform.grid1.recordsourcetype=4 thisform.grid1.recordsource=select 订购单号,订购日期,供应商.*; from 仓库,职工,订购单,供应商where 仓库.仓库号=职工.仓库号 ; and 职工.职工号=订购单.职工号 and 订购单.供应商号=供应商.供应商号; and 仓库.仓库号=bo1.value and ; 职工.职工号=bo2.value into cursor temp 【解析】 本题主要考查的是表格与组合框的综合应用。查询与组合框内容一致的记录，可使用如下语句完成：select … from … where 字段名＝bo1.value 根据题意，将查询的结果显示在表格中，可将表格的数据源类型（rowsourcetype）设置为4－SQL说明，最后，将这条select语句赋值给表格的数据源属性（rowsource）即可。 注：通常情况下，select语句的结果存入临时表中。 Eg3:制作如下一表单: 要求如下： 在文本框1中输入职工号，单击命令按钮后，在文本框2中显示该职工所在的仓库号，文本框3中显示仓库所在的城市，在表格中显示该职工签订的订单信息。 代码如下： tt=alltrim(thisform.text1.value) select 仓库.仓库号,城市 from 仓库 where 仓库号 in (select 仓库号 from 职工 where 职工号=tt) into array arr thisform.text2.value=arr(1) thisform.text3.value=arr(2) thisform.grid1.recordsourcetype=4 thisform.grid1.recordsource=select * from 订购单 where 职工号 in; (select 职工号 from 职工 where 职工号=tt) into cursor tem 【解析】 本题主要考查表格与文本框的应用。查询与文本框内容一致的记录，可使用如下语句完成： Select … from … where 字段名=alltrim(thisform.textx.value) 与上题相同，将查询的内容显示在表格中，表格的数据源类型设置为4即可。 Eg4:制作如下一表单： 要求：表格1显示仓库表的记录，表格2显示职工表的记录，职工表的记录指针随着仓库表的变化而变化　 方法： 将仓库表与职工表添加到数据环境中。并建立仓库表与职工表之间的联系。如子表职工表中无索引，那么可由仓库表中的仓库号托向职工表中的仓库号，出现如下对话框， 单击“确定”按钮，系统会自动在职工表中建立索引，并建立起仓库表与职工表的联系.如图所示： 将仓库表，职工表的recordsource赋值为仓库，职工。 【】计时器(timer):提供计时功能,即每隔一段指定的时间就一次timer事件,用于控制某些进程.Eg:制作如下一表单，实现文字闪烁（忽隐忽现）的效果。 作法