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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 计划管理问题

共有338人关注过本帖树形打印复制链接主题：计划管理问题

lgz518

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

计划管理问题 发帖心情

Post By：2024/10/28 11:05:00 [显示全部帖子]

启动MySQL服务器：

sudo systemctl start mysqld

停止MySQL服务器：

sudo systemctl stop mysqld

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

lgz518

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/10/28 11:57:00 [显示全部帖子]

假定希望系统每十分钟自动备份一次项目，可以增加一个计划，计划的执行间隔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点执行，遍历执行？

lgz518

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/10/28 18:15:00 [显示全部帖子]

把间隔改为：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)

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

lgz518

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1257 积分：8555 威望：0 精华：0 注册：2019/6/13 9:57:00

Post By：2024/10/29 9:06:00 [显示全部帖子]

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

下一主题 >> << 上一主题

主题：计划管理问题