variableunit.pas

软件可自动完成SQL Server数据库和文档的数据定时自动备份

//*-----------------------------------------------------------------------------
//*  系统名称：数据自动备份系统
//*  作    者：陈春华
//*  开发时间：2005
//*  Windows2000 Server + SQL Server2000 + Delphi7
//*  功能简介：
//*              软件可自动完成SQL Server数据库和文档的数据定时自动备份，
//*          由用户选择对哪些数据库或文档进行数据备份，提供对备份、还原
//*          数据作业的管理、分析、日志跟踪等功能，备份频率不受限制。
//*-----------------------------------------------------------------------------

unit VariableUnit;
interface
var
  itemName: String;      //项目名称
  serverName: String;    //服务器名称
  userName: String;      //数据库服务器用户名
  pwsd: String;          //数据库服务器密码
  DBName: String;        //数据库名

  path: String;          //备份路径
  backupTime: TDateTime;     //备份时刻
  frequency: real;       //备份频率


  fileItemName:String;    //文件备份项目名
  fileSourceAdd: String;  //源数据
  fileAmiAdd: String;     //目的地址
  fileFreeSize: real;     //目的地址可用空间
  fileBackupTime: TDateTime;   //备份时刻
  fileFrequency: real;         //备份频率
  lastBackupTime: TDateTime;   //最近一次备份时间

  DBHaveFinishedSet:Boolean=False;  //数据库已设置标志
  fileHaveFinishedSet:Boolean=False;//文件已设置标志

  DBOrFileLog: Boolean;         //数据库、文件日志文件标志

implementation

end.