回 帖 发 新 帖 刷新版面

主题:想做一个提示功能的日程表.

我想写一个程序,可以用来记录日程安排的:
1.需要开机自动运行.
2.可以设定不同的时间段,并输入日程安排.
3.如果到达该时刻,自动弹出窗口显示该日程安排
不知道VFP能做到这一点吗?请老师们给我点思路吧?

回复列表 (共6个回复)

沙发

1.需要开机自动运行.

最简单的办法是:

把你的 exe 文件的做个快捷方式文件,然后复制到:

系统盘:\Documents and Settings\All Users\「开始」菜单\程序\启动

板凳

2.可以设定不同的时间段,并输入日程安排.

CREATE TABLE 日程计划(设置人 v(8),执行的时间 t,实现提示 m,运行的程序 v(100),运行的代码 v(100),调用的表单 v(100))

设置录入接界面。

3 楼

做一个表单,放一个时间控件:
在时间控件的 init 事件写入:

LPARAMETERS lkg
IF EMPTY(lkg)
    DO CASE
    CASE ! FILE("日程计划.dat") 
        SELECT 0
        CREATE TABLE 日程计划.dat(设置人 v(8),执行的时间 t,实现提示 m,运行的程序 v(100),运行的代码 v(100),调用的表单 v(100))
    CASE USED("日程计划")
        SELECT 日程计划
    OTHERWISE
        SELECT 0
        USE 日程计划.dat
    ENDCASE
    INDEX ON 执行的时间 TAG 执行的时间
ENDIF
LOCATE for 执行的时间 > DATETIME()
IF ! EOF()
    this.Interval=(执行的时间-DATETIME())*1000
ELSE
    this.Interval=0
ENDIF

4 楼

在时间控件的 thisForm.timer1.Timer 事件写入:
IF DATETIME() >= 执行的时间
    This.Interval=0
    ? "触发事件"
    This.Init(.T.)
ENDIF

5 楼


CB老师,谢谢你提供的方法,论坛里面有你这位好老师,我们的问题得到了最快最及时的解决.我现在正在开始写这个程序,有什么问题还需要请您多多指教.
谢谢老师,祝你新年快乐.

6 楼


[size=3][color=FF0000]cbl518老师的确是一位乐于奉献、乐于助人的好老师,本论坛有这样一位好老师,是我们爱好者的福音啊![/size]

[color=0000FF][size=5]祝cbl518老师新春快乐![/color][/size][/color]

我来回复

您尚未登录,请登录后再回复。点此登录或注册