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


  共有647人关注过本帖树形打印复制链接

主题:计划管理问题

帅哥哟,离线,有人找我吗?
lgz518
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1271 积分:8670 威望: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服务器。如何实现?

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/28 11:13:00 [只看该作者]

俺也不懂

 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1271 积分:8670 威望: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点执行,遍历执行


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1271 积分:8670 威望: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)


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

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/28 19:47:00 [只看该作者]

判断一下窗口有没有打开

 回到顶部
帅哥哟,离线,有人找我吗?
lgz518
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1271 积分:8670 威望: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"到期类型"FalseFalseTrue)
    If r > - 1 Then '如果找到符合条件的行
        
.Position = r '则选择该行
    
End If
End
 
With

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111376 积分:566944 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/10/29 9:11:00 [只看该作者]

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

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

 回到顶部