用VFP表单制作帮助文件
【打印文章】
制作应用软件帮助文件的方法多种多样，比如在Visual Foxpro 5.0中提供的HCW.exe帮助文件生成器；在Visual Basic 6.0、Vusiaul Foxpro 6.0中提供了HTMLHELP制作帮助文件的方法。但这两种方法操作都存在一定难度，为了简化制作，本文将介绍一种使用表单制作帮助文件的方法。
一、 设计要求
设计帮助文件需满足以下要求：
1.可以指定帮助项目的索引号，直接使用帮助内容；
2.可以在搜索标题栏内填写将要搜索的帮助标题，达到模糊查询的目的；
3.使用“向前”按钮可以按帮助序号向前查询帮助内容；
4.使用“向后”按钮可以按帮助序号向后查询帮助内容；
5.使用“关闭”按钮结束帮助表单的显示。
二、 初步设计
初步设计是设计帮助表单上使用的各种控件。
1.新建数据表
在数据库表中新建一个数据表，该数据表用来存放帮助文件的内容并包括三个字段。
第一个字段为ID，字段类型为字符型，字段长度为10个字节，用来存放帮助文件的序号。
第二个字段为Topic，字段类型为字符型，字段长度为20个字节，用来存放帮助文件的标题。
第三个字段为press，字段类型为备注型，字段长度为4个字节，用来存放帮助文件的内容。
我们还要把帮助文件按工作需要设计并录入数据库（本文不介绍数据库表内容如何建立）。
2.新建一个表单Form1
适当调整表单的尺寸，打开表单属性对话框，把表单的标题改为：应用系统帮助,表单总在前。
Form1.caption="应用系统帮助。"
Form1.AlwaysOnTop=.T.
3.添加标签
在表单中添加两个标签并适当调整标签的位置、尺寸。
Label1.Caption="指定序号"
Label2.Caption="搜索标题"
4.添加按钮
在表单中添加三个命令按钮并适当调整命令按钮位置、尺寸、标题。
Command1.Caption="向前"
Command2.Caption="向后"
Command3.Caption="关闭"
5.添加文本框
在表单中添加两个文本框并适当调整文本框的位置、尺寸。
6.添加编辑框
在表单中添加一个编辑框并适当调整编辑框的位置、尺寸。
Edit1.readonly=.T.
*设置为只读
三、 详细设计
详细设计是设计表单及其各控件之间的逻辑关系。
1.打开数据编辑环境并把帮助文件数据表添加上去。
2.把帮助文件数据表帮助内容字段与编辑框关联起来，实现在编辑框中查看帮助文件。
3.在“向前”命令按钮的Click事件中写入下列代码：
if ! bof()
*判断文件指针是否到达顶部
skip -1
thisform.refresh
*刷新表单，及时显示帮助文件
if this.parent.command2.enabled=.F.
*如果文件指针不在底部，则把“向后”设置为可用
this.parent.command2.enabled=.T.
endif
if bof()
*如果文件指针到达顶部，则把“向前”设置为不可用
this.enabled=.F.
endif
endif
4.在“向后”命令按钮的Click事件中写入下列代码：
If ! eof()
*判断文件指针是否到达底部
skip 1
thisform.refresh
*刷新表单，及时显示帮助文件
if this.parent.command1.enabled=.F.
*如果文件指针不在顶部，则把“向前”设置为可用
this.parent.command1.enabled=.T.
endif
if eof()
*如果文件指针到达底部，则把“向后”设置为不可用
this.enabled=.F.
endif
Endif
5.在文本框Text1的InterActiveChange事件中写入下列代码：
middtext=this.value
locat for id=alltrim(middtext)
if ! found()
wait windows "序号超出范围"
*提示序号不存在
endif
thisform.refresh
6.在文本框Text2的InterActiveChange事件中写入下列代码：
middtext=this.value
locat for topic=alltrim(middtext)
if ! found()
wait windows "标题不存在"
endif
thisform.refresh
7.在“关闭”按钮Command3的Click事件中写入下列代码：
Thisform.release
*关闭表单
四、 运行帮助表单
利用如下语句来运行帮助表单：
Do form 帮助表单名
一、 设计要求
设计帮助文件需满足以下要求：
1.可以指定帮助项目的索引号，直接使用帮助内容；
2.可以在搜索标题栏内填写将要搜索的帮助标题，达到模糊查询的目的；
3.使用“向前”按钮可以按帮助序号向前查询帮助内容；
4.使用“向后”按钮可以按帮助序号向后查询帮助内容；
5.使用“关闭”按钮结束帮助表单的显示。
二、 初步设计
初步设计是设计帮助表单上使用的各种控件。
1.新建数据表
在数据库表中新建一个数据表，该数据表用来存放帮助文件的内容并包括三个字段。
第一个字段为ID，字段类型为字符型，字段长度为10个字节，用来存放帮助文件的序号。
第二个字段为Topic，字段类型为字符型，字段长度为20个字节，用来存放帮助文件的标题。
第三个字段为press，字段类型为备注型，字段长度为4个字节，用来存放帮助文件的内容。
我们还要把帮助文件按工作需要设计并录入数据库（本文不介绍数据库表内容如何建立）。
2.新建一个表单Form1
适当调整表单的尺寸，打开表单属性对话框，把表单的标题改为：应用系统帮助,表单总在前。
Form1.caption="应用系统帮助。"
Form1.AlwaysOnTop=.T.
3.添加标签
在表单中添加两个标签并适当调整标签的位置、尺寸。
Label1.Caption="指定序号"
Label2.Caption="搜索标题"
4.添加按钮
在表单中添加三个命令按钮并适当调整命令按钮位置、尺寸、标题。
Command1.Caption="向前"
Command2.Caption="向后"
Command3.Caption="关闭"
5.添加文本框
在表单中添加两个文本框并适当调整文本框的位置、尺寸。
6.添加编辑框
在表单中添加一个编辑框并适当调整编辑框的位置、尺寸。
Edit1.readonly=.T.
*设置为只读
三、 详细设计
详细设计是设计表单及其各控件之间的逻辑关系。
1.打开数据编辑环境并把帮助文件数据表添加上去。
2.把帮助文件数据表帮助内容字段与编辑框关联起来，实现在编辑框中查看帮助文件。
3.在“向前”命令按钮的Click事件中写入下列代码：
if ! bof()
*判断文件指针是否到达顶部
skip -1
thisform.refresh
*刷新表单，及时显示帮助文件
if this.parent.command2.enabled=.F.
*如果文件指针不在底部，则把“向后”设置为可用
this.parent.command2.enabled=.T.
endif
if bof()
*如果文件指针到达顶部，则把“向前”设置为不可用
this.enabled=.F.
endif
endif
4.在“向后”命令按钮的Click事件中写入下列代码：
If ! eof()
*判断文件指针是否到达底部
skip 1
thisform.refresh
*刷新表单，及时显示帮助文件
if this.parent.command1.enabled=.F.
*如果文件指针不在顶部，则把“向前”设置为可用
this.parent.command1.enabled=.T.
endif
if eof()
*如果文件指针到达底部，则把“向后”设置为不可用
this.enabled=.F.
endif
Endif
5.在文本框Text1的InterActiveChange事件中写入下列代码：
middtext=this.value
locat for id=alltrim(middtext)
if ! found()
wait windows "序号超出范围"
*提示序号不存在
endif
thisform.refresh
6.在文本框Text2的InterActiveChange事件中写入下列代码：
middtext=this.value
locat for topic=alltrim(middtext)
if ! found()
wait windows "标题不存在"
endif
thisform.refresh
7.在“关闭”按钮Command3的Click事件中写入下列代码：
Thisform.release
*关闭表单
四、 运行帮助表单
利用如下语句来运行帮助表单：
Do form 帮助表单名
本栏文章均来自于互联网，版权归原作者和各发布网站所有，本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )
【编程爱好者论坛】