启动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