三、 详细设计

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

　　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。

　　图1

　　本文介绍了使用表单设计帮助文件的过程，相信通过此文，你可以设计出符合自己要求的帮助表单，试一试吧。

上一页  [1] [2]