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

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

关 键 词：数据库  word  windows  os  foxpro  

梁公军

　  对一个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

进入讨论组讨论。

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

较早的文章：谈谈VFP和SQL SERVER搭配做C/S系统

较新的文章：通过编程运行拨号网络连接