争怎路由网:是一个主要分享无线路由器安装设置经验的网站,汇总WiFi常见问题的解决方法。

用VFP表单制作帮助文件

时间:2024/7/16作者:未知来源:争怎路由网人气:

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




Copyright © 2012-2018 争怎路由网(http://www.zhengzen.com) .All Rights Reserved 网站地图 友情链接

免责声明:本站资源均来自互联网收集 如有侵犯到您利益的地方请及时联系管理删除,敬请见谅!

QQ:1006262270   邮箱:kfyvi376850063@126.com   手机版