计划管理

计划用于按照指定的时间间隔，执行特定的代码。

1、在“管理项目”功能区，单击下面的按钮：

2、出现计划管理窗口，可以在这里增加、删除、设置计划：

除了名称和代码外，计划的属性还包括：

间隔：    计划执行的时间间隔，单位为毫秒。
执行：    是否执行计划。
允许暂停：是否允许用户通过单击菜单中的“计划暂停”按钮，来暂停执行此计划。

3、在单击“确定”按钮退出计划管理窗口后，所设置的计划即刻生效，如果要临时暂停计划的执行，可单击菜单中的计划暂停按钮：

示例一

如果你希望每5分钟自动保存一次数据，可以增加一个计划，计划的执行间隔为300000（毫秒），也就是5分钟，计划的代码设为：

For Each dt As DataTable In DataTables
    dt.Save()
Next

示例二

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