|
|
梁公军
对一个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
|
|
