主题:想做一个提示功能的日程表.
sleepingsleeping
[专家分:150] 发布于 2009-01-08 16:02:00
我想写一个程序,可以用来记录日程安排的:
1.需要开机自动运行.
2.可以设定不同的时间段,并输入日程安排.
3.如果到达该时刻,自动弹出窗口显示该日程安排
不知道VFP能做到这一点吗?请老师们给我点思路吧?
回复列表 (共6个回复)
沙发
cbl518 [专家分:57140] 发布于 2009-01-08 22:00:00
1.需要开机自动运行.
最简单的办法是:
把你的 exe 文件的做个快捷方式文件,然后复制到:
系统盘:\Documents and Settings\All Users\「开始」菜单\程序\启动
板凳
cbl518 [专家分:57140] 发布于 2009-01-08 22:10:00
2.可以设定不同的时间段,并输入日程安排.
CREATE TABLE 日程计划(设置人 v(8),执行的时间 t,实现提示 m,运行的程序 v(100),运行的代码 v(100),调用的表单 v(100))
设置录入接界面。
3 楼
cbl518 [专家分:57140] 发布于 2009-01-09 00:26:00
做一个表单,放一个时间控件:
在时间控件的 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 楼
cbl518 [专家分:57140] 发布于 2009-01-09 00:28:00
在时间控件的 thisForm.timer1.Timer 事件写入:
IF DATETIME() >= 执行的时间
This.Interval=0
? "触发事件"
This.Init(.T.)
ENDIF
5 楼
sleepingsleeping [专家分:150] 发布于 2009-01-15 10:25:00
CB老师,谢谢你提供的方法,论坛里面有你这位好老师,我们的问题得到了最快最及时的解决.我现在正在开始写这个程序,有什么问题还需要请您多多指教.
谢谢老师,祝你新年快乐.
6 楼
myww [专家分:1190] 发布于 2009-01-24 16:15:00
[size=3][color=FF0000]cbl518老师的确是一位乐于奉献、乐于助人的好老师,本论坛有这样一位好老师,是我们爱好者的福音啊![/size]
[color=0000FF][size=5]祝cbl518老师新春快乐![/color][/size][/color]
我来回复