以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  计划管理问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193954)
--  作者：lgz518
--  发布时间：2024/10/28 11:05:00
--  计划管理问题
启动MySQL服务器：

sudo systemctl start mysqld
停止MySQL服务器：

sudo systemctl stop mysqld

需求：服务器端每天晚上12点，关闭MySQL服务器，自动执行窗口1的按键1的事件后，再启动MySQL服务器。如何实现？
--  作者：有点蓝
--  发布时间：2024/10/28 11:13:00
--  
俺也不懂
--  作者：lgz518
--  发布时间：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点执行，遍历执行？
--  作者：有点蓝
--  发布时间：2024/10/28 12:04:00
--  
把间隔改为：600000，然后计划管理

Dim d As Date = Date.now
If d.hour = 12 AndAlso d.Minute < 10 Then
    Forms("窗口1").Controls("Button1").PerformClick()
End If 
--  作者：lgz518
--  发布时间：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)


执行报错：未将对象引用设置到对象的实例。
--  作者：有点蓝
--  发布时间：2024/10/28 19:47:00
--  
判断一下窗口有没有打开
--  作者：lgz518
--  发布时间：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
--  作者：有点蓝
--  发布时间：2024/10/29 9:11:00
--  
1、基本常识，晚上是0点，不是24

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