2 Star 8 Fork 3

闲散居士/数据库备份

加入 Gitee
与超过 1200万 开发者一起发现、参与优秀开源项目,私有仓库也完全免费 :)
免费加入
文件
克隆/下载
alarm.pas 3.14 KB
一键复制 编辑 原始数据 按行查看 历史
闲散居士 提交于 2021-12-08 10:58 . 清理源码注释
unit Alarm;
interface
type
TAlarm=Record
TASK_ID:Integer;//任务ID号
AlarmName:pchar;//String; //任务名称
AlarmTime:TDateTime; //周期运行为周期秒数 2009-12-17 周期时间为 00:00:00 时,不自动运行
//每周为1-7,每月为1-31,每年为一月的第几天
CYCLE:byte; //#0:不自动运行,1:每天,2:每月,3:每年,4:定时运行一次(2010-08-22:考虑年月日),5:启动一次运行,
//2009-12-11 增加 6:周期运行,单位为秒,此时AlarmTime保存周期换算后的日期值
//2010-02-03 增加 7:启动延时运行一次,取AarmTime的时间值作为延时的时间
//2010-08-21 又取消,改为增加开始启用时间 增加 8:定时后按周期运行,定时启动的时间为 LastDate 设置的值,周期为AarmTime的时间值
//8:每周
//2011-08-01增加 9:每天定时启动周期运行,每天在特定时间点启动,然后周期运行,超过当天就停止运行再按设定时间点启动,
// 或继续运行,直到上次运行时间与设定时间点小于周期时,再按设定时间点开始运行
//2009-07-06
TaskType:pchar;//String;//任务类型,调用不同的插件,或同一个插件有不同的任务,
//缺省为标准任务(default),分为开机,关机,定制等
//标准任务再增加一种组任务方式,增加>0的组号,组内任务按顺号执行,只有序号为0的定时时间有效
TaskCommand:pchar;//String;//任务执行模块,插件或程序,标准任务为资源管理器,插件任务为插件动态库名称
TaskParams:pchar;//String;//任务参数,对应插件有多个任务的,为任务序号
TaskRunDir:pchar;//String;//任务运行目录,通常只对标准任务起作用,插件任务一般在当前目录,所以意义改为函数名称
TaskName:pchar;//String;//任务类型名称
GroupNum:Integer;//组号
GroupIndex:Integer;//组序号
ShowWindow:Integer; //窗口显示方式
Count:Integer;//运行次数
LastDate:TDateTime;
Flag:Boolean;//当前已运行标志
//以下 2010-01-05增加,与数据库一致
ISMULTITUDE:integer; // 是否可以多次运行,1-是,0-否
SAVERUNLOG:integer; // 是否保存运行日志,1-是,0-否
STATUS:integer; // 状态,未用
ISRUNING:integer; // 是否正在运行,1-是,0-否
RUNMODE:integer; // 2010-01-08 调用方式,0-直接调用,1-runtask.exe独立调用
//2010年1月29日 增加
OUTSTART:TDatetime; //休闲开始时间
OUTEND:TDatetime; //休闲结束时间
OUTCYCLE:integer; //休闲周期,0-不告警,其它-告警次数
OUTCOUNT:integer; //已休闲次数
ISSHORTCUT:integer; //2010年2月3日 增加 是否为快捷任务
ISSTART:integer; //2010年3月26日 增加 是否开始运行
ISUSESTARTTIME:integer; //2010年8月26日 增加 是否定时开始启用
STARTDATETIME:TDatetime; //2010年8月26日 开始启用的日期时间
SKIPRUNCOUNT:Integer;//2011-01-11 当前跳过运行次数
end;
const MAXSKIPRUNCOUNT:Integer=100;//2011-01-11 最大跳过运行数,指检测到标志是运行状态时跳过运行的次数
//xxy 2019-12-28 从 U_commfunc.pas 单元移植到这里,并增加两个类型
RUN_CYCLE:Array[0..16] of String=
('不自动运行','每天','每月','每年','定时运行一次','启动运行一次','周期','启动延时运行','每周','每天定时周期'
,'每月指定星期','每年指定星期' //每月/年指定星期的星期几
,'每周工作日' //增加每周工作日1-5
,'每年指定月星期','每月指定周工作日' ,'每年指定周工作日'//2020-04-16 增加
,'每周除' //2020-09-05
);
implementation
end.
马建仓 AI 助手
尝试更多
代码解读
代码找茬
代码优化
Delphi
1
https://gitee.com/xyxia/oraback.git
git@gitee.com:xyxia/oraback.git
xyxia
oraback
数据库备份
master

搜索帮助