计划管理问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

启动MySQL服务器：

sudo systemctl start mysqld

停止MySQL服务器：

sudo systemctl stop mysqld

需求：服务器端每天晚上12点，关闭MySQL服务器，自动执行窗口1的按键1的事件后，再启动MySQL服务器。如何实现？

假定希望系统每十分钟自动备份一次项目，可以增加一个计划，计划的执行间隔600000(毫秒)，也就是10分钟，计划的代码为：

Static dt As Date '静态变量,用于保存上次备份的时间
Dim tp As TimeSpan
tp = Date.Now - dt
If tp.TotalHours >= 1 Then '如果距离上次备份已经超过一个小时
dt = Date.Now
Syscmd.Project.Backup("c:\data", True) '自动备份到c:\data目录
End If

上面代码，如何改为：计划的执行每天晚上12点自动执行窗口1上的按键1事件，按键1事件完成后，计划的执行停止，等次日晚上12点执行，遍历执行？

把间隔改为：600000，然后计划管理

Dim d As Date = Date.now

If d.hour = 12 AndAlso d.Minute < 10 Then

Forms("窗口1").Controls("Button1").PerformClick()

End If

把间隔改为：600000，然后计划管理

Dim d As Date = Date.now

If d.hour = 19 AndAlso d.Minute < 10 Then

Forms("窗口1").Controls("Button1").PerformClick()

End If

Forms("窗口1").Controls("Button1")的事件：

FileSys.DeleteDirectory("C:\MyFolder\FG555",3,3)

执行报错：未将对象引用设置到对象的实例。

判断一下窗口有没有打开

If d.hour = 12 AndAlso d.Minute < 10 Then

问题1：这个中午12点10内，改为晚上12点，直接改24即可？

问题2：判断条件是窗口1上表A第一列的值为“开会”，计划日与开会日相等，也就是到期类型为到期，启动计划提示，如何实现？

下面代码如何改？

With Tables("表A")
    Dim r As Integer
    r = .Find("到期", .RowSel + 1, "到期类型", False, False, True)
    If r > - 1 Then '如果找到符合条件的行
        .Position = r '则选择该行
    End If
End With

1、基本常识，晚上是0点，不是24

2、没看懂，请截图举例说明

主题：计划管理问题