2024年5月30日发(作者：)

维普资讯

中国砚代　装备　２００７年第６期（总第５２期）　

使用ＶＦＰ６・０表单制作帮助窗体　

马学燕　孙桂杰　袁志新　

（山东省章丘市第一职业中专　山东章丘　２５０２００）　

摘　要：本文主要介绍了帮助窗体的设计要求及具体的程序设计过程　

关键词：帮助窗体数据表表单事件　

一

个成熟的实用的应用软件都应该有自己的帮助窗　帮助文件的内容并包括三个字段。　

第一个字段为Ｉ　Ｄ，字段类型为字符型，字段长度　

为１　０个字节，用来存放帮助文件的序号。　．　

体，说明该软件的功能、特色、操作方法技巧、注意事　

项等等。制作帮助窗体文件的方法有多种，有的系统软　

件也提供了相应的方法，但在使用上总有这样那样的问　

题，下面介绍一种用ＶＦＰ６．０中的表单制作帮助窗体的　

方法。　

第二个字段为Ｔｏｐ　ｉ　ｃ，字段类型为字符型，字段长　

度为２０个字节，用来存放帮助文件的标题。　

第三个字段为ｐｒｅｓＳ，字段类型为备注型，字段长　

度为４个字节，用来存放帮助文件的内容。　

一

、

帮助窗体的设计要求　

我们还要把帮助文件的内容录入数据库（本文不介　

绍数据库表内容如何建立）。　

２．新建一个表单Ｆｏｒｍ１　

适当调整表单的尺寸，打开表单属性对话框，把表　

单的标题改为：应用系统帮助，表单总在前。　

Ｆｏｒｍ１　Ｃａｐｔｉｏｎ＝　应用系统帮助。　

Ｆｏｒｍ１．Ａ１ｗａｙｓＯｎＴｏｐ＝．Ｔ．　

设计的帮助窗体一般应满足以下要求：　

１．可以指定帮助项目的索引号，直接使用帮助内　

容：　

２．可以在搜索标题栏内填写将要搜索的帮助标　

题，达到模糊查询的目的；　

３．使用“向前”按钮可以按帮助序号向前查询帮　

助内容；　３．添加标签　

４．使用“向后”按钮可以按帮助序号向后查询帮　

助内容：　

在表单中添加两个标签并适当调整标签的位置、尺　

寸。　

５．使用“关闭”按钮结束帮助表单的显示。　

Ｌａｂｅｌ　１．Ｃａｐｔｉｏｎ＝　指定序号　

Ｌａｂｅｌ２．Ｃａｐｔｉｏｎ＝　搜索标题　

二、初步设计　

初步设计是设计帮助表单上使用的各种控件。　

４．添加按钮　

在表单中添加三个命令按钮并适当调整命令按钮位　

置、尺寸、标题。　

Ｃｏｍｍａｎｄ１．Ｃａｐｔｉｏｎ＝　向前　

Ｃｏｍｍａｎｄ２．Ｃａｐｔｉｏｎ＝　向后　

１．新建数据表　

在数据库表中新建一个数据表，该数据表用来存放　

收稿日期：２　０　０　７—０　３—０　８　

Ｃｏｍｍａｎｄ３．Ｃａｐｔｉｏｎ＝　关闭　

５．添加文本框　

８　

一

＠２　…　

维普资讯

２００７年第６期（总第５２期）　

在表单中添加两个文本框并适当调整文本框的位　

置、尺寸。　

６．添加编辑框　

在表单中添加一个编辑框并适当调整编辑框的位　

置、尺寸。　

Ｅｄｉｔ１．ｒｅａｄｏｎｌｙ＝．Ｔ．木设置为只读　

三、详细设计　

详细设计是设计表单及其各控件之间的逻辑关系。　

１．打开数据编辑环境并把帮助文件数据表添加上　

去。　

２．把帮助文件数据表帮助内容字段与编辑框关联　

起来，实现在编辑框中查看帮助文件。　

３．在　向前　命令按钮的Ｃｌ　ｉ　Ｃｋ事件中写入下列代　

码：　

ｉ　ｆ．ｎｏｔ．ｂｏｆ（）　木判断文件指针是否到达顶部　

ｓｋｉＰ一１　

ｔｈｉｓｆｏｒｍ．ｒｅｆｒｅｓｈ　木刷新表单，及时显示帮助　

文件　

ｉ　ｆ　ｔｈｉ　Ｓ．ｐａｒｅｎｔ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ＝．Ｆ．木如　

果文件指针不在底部，则把　

向后　设置为可用　

ｔｈｉＳ．ｐａｒｅｎｔ．ｃｏｍｍａｎｄ２．ｅｎａｂｌｅｄ＝．Ｔ．　

ｅｎｄｉｆ　

ｅ　ｌ　ｓｅ　木如果文件指针到达顶部，则把　向前　

设置为不可用　＋　

ｔｈｉＳ．ｅｎａｂｌｅｄ＝．Ｆ．　

ｅｎｄｉｆ　

４．在　向后　命令按钮的Ｃｌ　ｉ　Ｃｋ事件中写入下列代　

码：　

Ｉ　ｆ．ｎｏｔ．ｅｏｆ　０　木判断文件指针是否到达底部　

ｓｋｉｐ　１　

ｔｈｉｓｆｏｒｍ．ｒｅｆｒｅｓｈ　木刷新表单，及时显示帮助　

文件　

ｉｆ　ｔｈｉＳ．ｐａｒｅｎｔ．ｃｏｍｍａｎｄ１．ｅｎａｂｌｅｄ＝．Ｆ．　木如　

果文件指针不在顶部，则把　向前　设置为可用　

一　咖　２融　。　

中国砚代椭装备　

ｔｈｉＳ．ｐａｒｅｎｔ．ｃｏｍｍａｎｄ１．ｅｎａｂｌｅｄ＝．Ｔ．　

ｅｎｄｉｆ　

ｅｌｓｅ　木如果文件指针到达底部，则把　向后　设　

置为不可用　

ｔｈｉ　Ｓ．ｅｎａｂｌｅｄ＝．Ｆ．　

ｅｎｄｉｆ　

５．在文本框Ｔｅｘｔ１的ＩｎｔｅｒＡｃｔｉｖｅＣｈａｎｇｅ事件中写　

入下列代码：　

ｍｉｄｄｔｅｘｔ＝ｔｈｉＳ．ｖａｌｕｅ　

ｌｏｃａｔ　ｆｏｒ　ｉｄ＝ａｌｌｔｒｉｍ（ｍｉｄｄｔｅｘｔ）　

ｉｆ．ｎｏｔ．ｆｏｕｎｄ（）　

ｗａｉｔ　ｗｉｎｄｏｗｓ　序号超出范围　木提示序号不　

存在　

ｅｎｄｉｆ　

ｔｈｉＳｆｏｒｍ．ｒｅｆｒｅｓｈ　

６．在文本框Ｔｅｘｔ２的ＩｎｔｅｒＡｃｔｉｖｅＣｈａｎｇｅ事件中写　

入下列代码：　

ｍｉｄｄｔｅｘｔ＝ｔｈｉＳ．ｖａｌｕｅ　

ｌｏｃａｔ　ｆｏｒ　ｔｏｐｉｃ＝ａｌ　ｌｔｒｉｍ（ｍｉｄｄｔｅｘｔ）　

ｉｆ．ｎｏｔ．ｆｏｕｎｄ（）　

ｗａｉｔ　ｗｉｎｄｏｗｓ　标题不存在　

ｅｎｄｉｆ　

ｔｈｉＳｆｏｒｍ．ｒｅｆｒｅｓｈ　

７．在　关闭　按钮Ｃｏｍｍａｎｄ３的Ｃ１ｉｃｋ事件中写入下列　

代码：　

Ｔｈｉ　ｓｆｏｒｍ．ｒｅｌｅａｓｅ　木关闭表单　

四、运行帮助表单　

利用如下语句来运行帮助表单：　

Ｄｏ　ｆｏｒｍ帮助表单名　

以上就是使用表单设计帮助窗体的大体过程，意在　

抛砖引玉。当然，在实际设计过程中，可根据需要，设　

计出更加美观、实用的帮助表单。