用VFP表单制作帮助文件

来源： 作者： 出处：综艺读书 2006-10-11 

关 键 词：应用软件  数据库  设计  windows  html  

制作应用软件帮助文件的方法多种多样，比如在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 帮助表单名 

进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：用VFP管理网页文件

较新的文章：用VFP6.0编写图片浏览器