首页 | 社区 | 博客 | 招聘 | 文章 | 新闻 | 下载 | 项目交易 | 网友作品 | 读书 | ACM题库 | 源码
亲,您未登录哦! 登录 | 注册

谈谈在基于Foxpro的MIS中实现提示、帮助与询问

(加入日期: 2001-04-27 )

打印文章】【字体:

分享到:
梁公军

   对一个MIS系统来说,经常需要向用户提供有关系统状况、操作指导、联机帮助等信息,有时也需用户确认某些操作。这些提示、帮助、询问提供了用户与系统之间的接口,使系统方便实用、提供良好的人机交互性。
  下面以Foxpro2.5 for Windows为例,讨论一下其实现途径。

  一、用wait window命令或者msgbox()函数

 ⑴用wait wind:例如①提示(不需用户干预):wait wind "过程被中断!" nowait②提示(需用户按键继续):wait wind "打印完毕!按任意键继续..." ③询问:wait wind "是否继续(Y/N)?..." to if_conti 。
  此命令用起来虽方便,但提示行限制在一行内。
  ⑵用msgbox():调用此函数之前必须先用set library to 〈.fll〉命令装入程序库,语法为set library to foxtools.fll additive,程序结束时再以set library to 将该程序释放。
  调用语法:msgbox(〈expC1〉,〈expC2〉,〈expN〉)
  〈expC1〉:对话框中的提示信息
  〈expC2〉:对话框中的标题字串
  〈expN〉:对话框中的形式代码,共有:
  ①信息对话框:0~5;②警告对话框:16~21,32~37,48~53,64~69
  返回值(对应于对话框中各种按钮):〈确定〉1〈取消〉2〈结束[A]〉3〈重试[R]〉4〈忽略[r]〉5〈是[Y]〉6〈否[N]〉7
  例如:m_sure=msgbox("是否确定删除?","删除记录",4)。
  ⑴⑵两种方式调用方便,适于实现提示、询问功能。也可用来实现帮助功能,例如,on key label f1 wait wind "CTRL+A增加;CTRL+D删除;CTRL+M修改;CTRL+S筛选;CTRL+P打印";on key label f1 do =msgbox("XX","YY",0)。
  但是,当系统较大时,若仍用这种方式做帮助,则显得凌乱,且不易修改维护。我们可将帮助信息存入数据库以解决这个问题(如下)。

  二、借鉴Foxpro for windows的DBF形式帮助(DBF_style Help)(Foxpro for windows另有一套Windows_style Help)。

  ⑴首先拷贝数据库结构(假设系统帮助数据库为syshelp.dbf):
  set help to
  use foxhelp.dbf alia "foxhelp"
  copy stru to syshelp
  ⑵用modi memo命令加入并显示帮助。(见文末所附程序)

  三、利用hc31.exe(Foxpro25 for windows,Borland C++均提供此文件)和WORD制作windows帮助文件*.hlp,再用set help to 〈*.hlp〉命令设置系统帮助文件。这种方式界面精美,但制作较麻烦。

  附:帮助例程
  调用方式:若希望由自己控制调用,则在各子程序开始时键入on key label F1 do help_proc with 〈子程序名〉,〈ExpC〉;若希望由系统自动控制调用,则在系统主程序中键入on key label F1 do help_proc with allt(sys(16)),〈ExpC〉。其中,〈ExpC〉表示帮助内容是否可编辑,若可则为“edit”,不可则为“noedit”。这样做的好处是可在系统运行时,一边对照运行情况,一边在任何需要帮助的某个界面上按F1加入或修改帮助(〈ExpC〉设为“edit”)。当帮助做好了,在系统提交用户使用之前,再将〈ExpC〉设为“noedit”。
  #DEFINE c_dlgface "Times New Roman"
  #DEFINE c_dlgsize 11.000
  #DEFINE c_dlgstyle "T"
  proc help_proc
  para helptopic,if_edit
  if allt(uppe(if_edit))<>"NOEDIT"
  if_edit=" "
  endif
  push key clear
  on key label ctrl+w
  on key label escape keyb "{CTRL+W}" &&按ESCAPE键退出帮助窗口,并保存修改
  cur_dbf=sele()
  if used("SYSHELP")
  sele syshelp
  else
  sele 0
  use syshelp
  endif
  loca for allt(uppe(TOPIC))=allt(uppe(helptopic))
  if not found()
  appe blank
  repl topic with allt(helptopic)
  endif
  defi wind helpwin ;
  at int((srow() - ((15 *
  fontmetric(1, c_dlgface, c_dlgsize, c_dlgstyle )) / ;
  fontmetric(1, wfont(1,""), wfont(2,""), wfont(3,"")))) / 2), ;
  int((scol() - (( 64* ;
  fontmetric(6, c_dlgface, c_dlgsize, c_dlgstyle )) / ;
  fontmetric(6, wfont(1,""), wfont(2,""), wfont(3,"")))) / 2) ;
  size 15,64 ;
  font c_dlgface, c_dlgsize ;
  style c_dlgstyle ;
  close grow float;
  title "联机帮助";
  system ;
  color rgb(0, 0, 0, 255, 255, 255)
  move window helpwin center
  modi memo details window helpwin &if_edit
  sele (cur_dbf)
  pop key

本栏文章均来自于互联网,版权归原作者和各发布网站所有,本站收集这些文章仅供学习参考之用。任何人都不能将这些文章用于商业或者其他目的。( Pfan.cn )

编程爱好者论坛

本栏最新文章