作者：蔡怀周    教学教研来源：本站原创    点击数：    更新时间：2007-12-12

---- 大家可能已经注意到，在一些软件启动时，会出现一个“每日一贴”的提示窗口，用来介绍软件的操作方法。 其实在VFP的应用程序中也可以使用这个功能，这里设计了一个简单的方法以实现此功能，其设计步骤如下：

---- 1．建立有如下内容的数据表，并命名为tooltips.dbf。

字段名  类型    宽度
tooltip C       200

---- 本表只有一个字符字段，用来存储每次进入系统时显示的内容，而每条记录将存储一个操作提示的内容。

---- 2．设计界面

---- (见t03.jpg文件)

---- 本界面中Text1文本框是用来显示操作提示的内容。

---- 3．编写代码

在tooltips表单的LOAD事件中录入以下代码：
IF !FILE(′tooltips.dbf′)
CREATE TABLE tooltips (tooltip c(200))
APPEND BLANK
REPLACE tooltips.tooltip WITH 
″未添加操作提示内容，请打开数据表并添加数据.″
IF USED(′tooltips′)
USE
ENDIF
ENDIF
SELECT 0
USE tooltips
IF RECCOUNT() < 1
APPEND BLANK
REPLACE tooltips.tooltip WITH 
″这是第一个操作提示,按下一个按钮可显示下一个提示。″
ENDIF

---- 通过RECCOUNT（）函数判断本数据表共有多少条记录，如果没有内容，将新增一条记录，内容为″未添加操作提示内容，请打开数据表并添加数据.″

IF FILE(′lasttip.mem′)
RESTORE FROM lasttip ADDITIVE
IF TYPE(′gl—lasttip′) != ″N″
gl—lasttip = 1
SAVE ALL LIKE gl—lasttip TO lasttip
ELSE
IF gl—lasttip >= RECCOUNT(′tooltips′)
gl—lasttip = 1
SAVE ALL LIKE gl—lasttip TO lasttip
ELSE
gl—lasttip = gl—lasttip ＋ 1
SAVE ALL LIKE gl—lasttip TO lasttip
ENDIF
ENDIF
ELSE
gl—lasttip = 1
SAVE ALL LIKE gl—lasttip TO lasttip
ENDIF
GO gl—lasttip

---- 内存变量文件lasttip.mem中的变量gl—lasttip用来存放本次操作时最后一次显示的操作提示内容，每次启动本表单时，将根据gl—lasttip的值再加1来显示下一条操作提示记录。

---- 在“下一个”按钮的CLICK事件中录入以下代码：

IF FILE(′lasttip.mem′)
RESTORE FROM lasttip ADDITIVE
IF TYPE(′gl—lasttip′) != ″N″
gl—lasttip = 1
SAVE ALL LIKE gl—lasttip TO lasttip
ELSE
IF gl—lasttip >= RECCOUNT(′tooltips′)
gl—lasttip = 1
SAVE ALL LIKE gl—lasttip TO lasttip
ELSE
gl—lasttip = gl—lasttip ＋ 1
SAVE ALL LIKE gl—lasttip TO lasttip
ENDIF
ENDIF
ELSE
gl—lasttip = 1
SAVE ALL LIKE gl—lasttip TO lasttip
ENDIF
GO gl—lasttip
THISFORM.text1.value= tooltips.tooltip
THISFORM.text1.refresh

---- 由于用户按下按钮“下一个”时，将改变下一次进入本表单时显示的内容，这里也用gl—lasttip变量来保存，以确定下一次进入表单时将显示哪一条记录。

---- 在复选框“程序启动时执行”的CLICK事件中录入：

IF THIS.value = 0
dummyval = 1
SAVE ALL LIKE dummyval TO notip.mem
ELSE
IF FILE(′notip.mem′)
DELETE FILE notip.mem
ENDIF
ENDIF
    在“关闭”窗口中录入以下代码：
clea memory tipalready
THISFORM.release

---- 制作完上述的表单，“每日一贴”的功能基本上已完成，这时你可以把表单存成一个类， 方法是：选择VFP系统选单中之“另存为类”一项，或者在新建此表单时就把它按新建一个表单类的方法而建立。关于类的制作方法，请参考相关的文章，笔者在此不再赘述。 本例中笔者将此表单类起名为daystip，并存储在类库tipofday.vcx中。制作完成表单类后， 就可以在程序中调用这个表单类daystip，你可以在主程序中添加下面的代码来运行这个表单类：

SET CLASSLIB TO tipofday ADDITIVE
IF TYPE(′tipoftheday′)=
″U″ .AND. TYPE(′tipalready′)=″U″
PUBL tipoftheday, tipalready
tipoftheday = CREATEOBJECT(″daystip″)
tipoftheday.text1.value = 
″您可按右上角的X框来退出本程序.″
IF .NOT. FILE(′notip.mem′)
tipoftheday.show(1)
ENDI
tipalready = .T.
ENDI
IF .NOT. FILE(′notip.mem′)
tipoftheday.show(1)
ENDI
- 如果用户不选择“程序启动时执行” 这一项，内存文件notip.mem就不存在，此时就显示“每日一贴” 表单，否则就不运行此表单。相应的代码在复选框的Click事件有判断，请大家参考上面的代码。 

上一页  [1] [2] [3] [4] [5] [6] [7] [8] 下一页