VisualFoxpro中表格控件设计技巧二例

修改稿收到日期：２００７－ ０５－ ３０
· ４８ ·
２００７ 年 １２ 月
电脑学习
第６期
基于 Ｘ３Ｄ 与 Ａｕｔｈｏｒｗａｒｅ 虚拟现实多媒体课件的实现
刘林涛＊
田慧珍＊ ＊
摘 要 ： 阐 述 了 如 何 通 过 Ｘ３Ｄ 技 术 创 建 虚 拟 三 维 场 景 并 将 其 应 用 到 Ａｕｔｈｏｒｗａｒｅ 制 作 的 多 媒 体 课 件 中 ， 以 达 到 在 多 媒 体 课 件中， 实现三维仿真及漫游的目的。
Ｔｗｏ Ｃａｓｅｓ ｏｆ Ｄｅｓｉｇｎ Ｓｋｉｌｌｓ ａｂｏｕｔ Ｆｏｒ ｍ Ｃｏｎｔｒ ｏｌｓ ｉｎ Ｖｉｓｕａｌ Ｆｏｘｐｒ ｏ
Ｘｕ Ｘｉａｏｈｏｎｇ
Ａｂｓｔｒ ａｃｔ： Ｔｈｒｏｕｇｈ ｔｈｅ ｅｘａｍｐｌｅ，ｉｔ ｉｎｔｒｏｄｕｃｅｓ ｈｏｗ ｔｏ ｒｅａｌｉｚｅ ｔｈｅ ｅｎｔｉｒｅ ｓｔｒｉｐ ｒｅｃｏｒｄ ｐｒｏｍｉｎｅｎｔ ｄｅｍｏｎｓｔｒａｔｉｏｎ ｗｈｉｌｅ ｍｏｕｓｅ ｓｉｎ－ ｇｌｅ－ ｃｌｉｃｋｉｎｇ ａ ｒｏｗ ｈｅａｄｅｒｓ．
表格其它列的列标头 Ｈｅａｄｅｒ１ 对象的 ＭｏｕｓｅＵｐ 事件代 码依此设置；（５）保存并执行表单，就能得到需要的效果。
２ 实现整条记录突出显示
Hale Waihona Puke 设计方法：首先依照上面方法创建一个包含表格控件 的表单，在表格控件的 ａｆｔｅｒＲｏｗＣｏｌＣｈａｎｇｅ 事件中写入代码： ＬＰＡＲＡＭＥＴＥＲＳ ｎＣｏｌＩｎｄｅｘ ｔｈｉｓ．ｓｅｔａｌｌ（″ｄｙｎａｍｉｃｂａｃｋｃｏｌｏｒ″，″ｉｉｆ（ｔｈｉｓ．ａｃｔｉｖｅｒｏｗ＝ｒｅｃｎｏ（），ｒｇｂ（３０， ６０，１５０），ｒｇｂ（２５５，２５５，２５５））″，″ｃｏｌｕｍｎ″） ＆＆ ｒｇｂ（３０，６０，１５０） 为蓝色背景
Ｋｅｙｗｏｒ ｄ： Ｖｉｓｕａｌ Ｆｏｘｐｒｏ Ｆｏｒｍ Ｃｏｎｔｒｏｌｓ Ｄｅｓｉｇｎ Ｓｋｉｌｌｓ
在 Ｖｉｓｕａｌ ＦｏｘＰｒｏ 中，表格控件能以二维表格的形式显 示和编辑数据，是一个常用的容器控件。在数据库应用系统 中，表格控件常用于显示和编辑数据库表、视图和查询结 果。现介绍二例在表格控件设计中总结的实用技巧。
参考文献 ［１］ 张涌逸，康祥顺，李辉． 白领就业指南： Ｖｉｓｕａｌ ＦｏｘＰｒｏ８．０ 设计师之路． 北京：电子工业出版社，２００６． ［２］ 李雁翎． Ｖｉｓｕａｌ ＦｏｘＰｒｏ 应用基础与面向对象程序设计 教程． 北京：高等教育出版社，２００２．
＊ 刘林涛 苏州大学计算机科学学院在读硕士（徐州师范大学计算机学院讲师），研究方向：虚拟现实技术和多媒体技术。 ＊ ＊ 田慧珍 徐州师范大学现代技术教育中心讲师（江苏，徐州 ２２１００１），研究方向网络与多媒体技术。 修改稿收到日期：２００７－ ０５－ ２７
１ 构建虚拟场景
建立三维实体模型是实现虚拟仿真的基础，模型的制 作 可 以 采 用 现 有 的 成 熟 的 三 维 设 计 软 件 ， 如 ＶＣ ＋＋ 、 ３ＤＭＡＸ、ＶＲＭＬ／Ｘ３Ｄ、Ｃｕｌｔ３Ｄ、Ｊａｖａ 等。从多媒体课件制作的 角 度 ，需 要 选 择 成 熟 、易 学 、兼 容 性 好 、具 有 一 定 交 互 功 能 的软件，建议采用 ＶＲＭＬ／Ｘ３Ｄ 和 ３ＤＭＡＸ。ＶＲＭＬ／Ｘ３Ｄ 通过 球、圆锥、圆柱、长方体等基本图元建立简单几何造型。对 于 复 杂 的 三 维 实 体 ，ＶＲＭＬ／Ｘ３Ｄ 提 供 了 ＩｎｄｅｘｅｄＦａｃｅＳｅｔ 等 节 点 ，它 是 用 多 边 形 面 片 来 描 述 复 杂 形 体 的 ，理 论 上 任 何
３结束语 Ｖｉｓｕａｌ ＦｏｘＰｒｏ 关系数据库管理系统是开发数据库应用 程序的强劲、快速工具，一直是小型数据库开发领域中的佼 佼者。作为一门编程工具，完全可以实现任何能够想到的东 西，也就是″不怕做不到，只怕想不到″。
ＣｏｌＣｈａｎｇｅ 事件代码如下： ＬＰＡＲＡＭＥＴＥＲＳ ｎＣｏｌＩｎｄｅｘ Ｉｆ ｔｈｉｓ．ａｃｔｉｖｅｒｏｗ ＝ ｒｅｃｎｏ（） ｔｈｉｓ．ｓｅｔａｌｌ（″ｄｙｎａｍｉｃｂａｃｋｃｏｌｏｒ″，″ｉｉｆ（ｔｈｉｓ．ａｃｔｉｖｅｒｏｗ＝ｒｅｃｎｏ（），ｒｇｂ（３０， ６０，１５０），ｒｇｂ（２５５，２５５，２５５））″，″ｃｏｌｕｍｎ″） ｅｌｓｅ
解决方案：只需对数据表″借阅．ｄｂｆ″建立一个不包括逻 辑删除记录的关联子表 ｔｅｍｐ＿ｔａｂｌｅ，当记录指针在父表″借 阅．ｄｂｆ″中移动时，子表 ｔｅｍｐ＿ｔａｂｌｅ 的记录指针也移到和父表 的借书证号相同的记录上。当逻辑删除记录造成表格控件
＊ 许晓红 四川文理学院计算机科学系副教授（四川、达洲 ６３５０００）。
１ 通过表格列标头对数据进行排序
在表单中用表格控件显示数据信息时，当使用者在记 录之间移动时，只有获得焦点的记录的某一个字段以不同 于表格控件背景的颜色显示，很不醒目。希望当数据记录移 动时，整条记录均用同一种颜色突出显示，即用颜色动态变 化显示相对光标所在记录的位置，如图 １ 所示。
在 Ｖｉｓｕａｌ ＦｏｘＰｒｏ 中，利用表格控件显示某个表的信息 时，可以实现使用鼠标单击列标头对数据进行排序。
三 维 形 体 都 可 以 用 ＩｎｄｅｘｅｄＦａｃｅＳｅｔ 节 点 精 确 或 近 似 地 构 造，但对于复杂形体用手工编写几乎不可能。简单造型可 以用 ＶＲＭＬ 技术提供的造型节点直接造型，其数据量较 小，而较复杂的造型可以在 ＡｕｔｏＣＡＤ 等造型软件中造型后 再导入 ３ＤＭＡＸ 软件中，３ＤＳＭＡＸ 是三角形画面表述模型 外观，直接导入会导致最终的 ＶＲＭＬ 文件过大，因此在导 入模型后应分析其面片分布并用简单的三维基本造型进 行局部优化。对具有不规则外形的模型尽量用放样方式和 模型拼接方式来表述而避免用布尔运算制作。
ｓｅｌｅｃｔ 借 书 证 号 ｆｒｏｍ 借 阅 ｗｈｅｒｅ ．ｎｏｔ． ｄｅｌｅｔｅｄ （）ｉｎｔｏ ｃｕｒｓｏｒ ｔｅｍｐ＿ｔａｂｌｅ ｓｅｌｅｃｔ ｔｅｍｐ＿ｔａｂｌｅ ｉｎｄｅｘ ｏｎ 借书证号 ｔａｇ ｊｓｚｈ ｓｅｔ ｒｅｌａｔｉｏｎ ｔｏ 借书证号 ｉｎｔｏ ｔｅｍｐ＿ｔａｂｌｅ ｉｎ 借阅 ｓｅｌｅ 借阅 ｔｈｉｓ．ｓｅｔａｌｌ（″ｄｙｎａｍｉｃｂａｃｋｃｏｌｏｒ″，″ｉｉｆ（ｔｈｉｓ．ａｃｔｉｖｅｒｏｗ＝ｒｅｃｎｏ（ｔｅｍｐ＿ｔａｂｌｅ）， ｒｇｂ（３０，６０，１５０），ｒｇｂ（２５５，２５５，２５５））″，″ｃｏｌｕｍｎ″） ｅｎｄｉｆ ｔｈｉｓｆｏｒｍ．ｒｅｆｒｅｓｈ
问题：在使用的过程中，如果设置了 ｓｅｔ ｄｅｌｅｔｅ ｏｎ 环境 参数，则当逻辑删除记录后，动态背景的颜色显示就会出现 混乱，如图 ２ 所示，获得焦点的记录是第 ８ 条，而用蓝色背 景突出显示的记录是第 ６ 条。造成这种现象的原因，是由于 逻辑删除记录，导致表格控件中光标所在的行 ａｃｔｉｖｅｒｏｗ（） 不等于数据表中的记录号 ｒｅｃｎｏ（）。
关 键 词 ： Ｘ３Ｄ ＶＲＭＬ９７ ＡｃｔｉｖｅＸ 控件 虚拟现实技术
中图分类号： ＴＰ３９３
文献标识码： Ｂ 文章编号： １００２－ ２４２２（ ２００７） ０６－ ００４９－ ０２
Ｉｍｐｌｅｍｅｎｔａｔｉｏｎ ｏｆ Ｖｉｒ ｔｕａｌ Ｒｅａｌｉｔｙ Ｍｕｌｔｉｍｅｄｉａ Ｃｏｕｒ ｓｅｗａｒ ｅ Ｂａｓｅｄ ｏｎ Ｘ３Ｄ＆Ａｕｔｈｏｒ ｗａｒ ｅ
２００７ 年 １２ 月
电脑学习
第６期
Ｖｉｓｕａｌ Ｆｏｘｐｒｏ 中表格控件设计技巧二例
许晓红＊
摘 要： 通过实例介绍了在表格控件中鼠标单击列标头对数据进行排序和浏览数据时实现整条记录突出显示的技巧。 关 键 词 ： Ｖｉｓｕａｌ Ｆｏｘｐｒｏ 表格控件 设计 技巧
中图分类号： ＴＰ３１７
文献标识码： Ｂ 文章编号： １００２－ ２４２２（ ２００７） ０６－ ００４８－ ０２
· ４９ ·
中光标所在的行 ａｃｔｉｖｅｒｏｗ （） 不等于数据表中的记录号 ｒｅｃｎｏ（）时，由于子表中的记录是不包括逻辑删除记录的， 这就保证了子表中的当前记录号 ｒｅｃｎｏ（＇ｔｅｍｐ＿ｔａｂｌｅ＇ ）始终 等于表格控件中光标所在的行 ａｃｔｉｖｅｒｏｗ（），从而使该行动 态 背 景 颜 色 能 正 确 显 示 。 修 改 表 格 控 件 的 ａｆｔｅｒＲｏｗ－
Ｌｉｕ Ｌｉｎｔａｏ Ｔｉａｎ Ｈｕｉｚｈｅｎ
Ａｂｓｔｒ ａｃｔ： Ｔｈｅ ｐａｐｅｒ ｅｘｐｏｕｎｄｓ ｈｏｗ ｔｏ ｉｍｐｌｅｍｅｎｔ ３Ｄ ｖｉｒｔｕａｌ ｓｉｍｕｌａｔｉｏｎ ａｎｄ ｎａｖｉｇａｔｉｏｎ ｉｎ Ａｕｔｈｏｒｗａｒｅ ｍｕｌｔｉ－ ｍｅｄｉａ ｃｏｕｒｓｅｗａｒｅ． Ｋｅｙｗｏｒ ｄ： Ｘ３Ｄ ＶＲＭＬ９７ ＡｃｔｉｖｅＸ Ｖｉｒｔｕａｌ Ｒｅａｌｉｔｙ Ｔｅｃｈｎｉｑｕｅ
用鼠标单击表格的标头″借书证号″时，整个表格按″借 书证号″升序显示数据；当按下 ＣＴＲＬ 键的同时再用鼠标单 击表格的标头″借书证号″时，整个表格按″借书证号″降序显 示数据。这个表单的设计步骤如下：
（１）新 建 一 个 表 单 ，在 表 单 中 添 加 形 状 控 件 、标 签 控 件、按钮控件；（２）在表单中单击鼠标右键，然后选择″数据 环境″，在弹出的数据环境设计器中，添加借阅．ｄｂｆ 数据表； （３） 在表单中添加一个数据表格对象，并将该对象的 ＲｅｃｏｒｄＳｏｕｒｃｅＴｙｐｅ 设置为″１－ 别名″，将 ＲｅｃｏｒｄＳｏｕｒｃｅ 设置为″ 借阅″，将表格对象的 ＣｏｌｕｍｎＣｏｕｎｔ 设置为 ４；（４）在表格第 一列的列标头 Ｈｅａｄｅｒ１ 对象的 ＭｏｕｓｅＵｐ 事件中写入代码： ＬＰＡＲＡＭＥＴＥＲＳ ｎＢｕｔｔｏｎ， ｎＳｈｉｆｔ， ｎＸＣｏｏｒｄ， ｎＹＣｏｏｒｄ ｉｆ ｎＳｈｉｆｔ＝２ ｓｅｔ ｏｒｄｅｒ ｔｏ 借书证号 ｄｅｓｃｅｎｄｉｎｇ ｅｌｓｅ ｓｅｔ ｏｒｄｅｒ ｔｏ 借书证号 ａｓｃｅｎｄｉｎｇ ｅｎｄｉｆ ｇｏ ｔｏｐ ｔｈｉｓｆｏｒｍ．ｒｅｆｒｅｓｈ