backup.dpr

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

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

uses
  Forms,
  MainUnit in 'MainUnit.pas' {MainForm},
  NewDBBackupItem in 'NewDBBackupItem.pas' {NewDBBackupForm},
  SqlFunctionUnit in 'SqlFunctionUnit.pas',
  BackupThreadUnit in 'BackupThreadUnit.pas',
  DBBackupDesignUnit in 'DBBackupDesignUnit.pas' {DBBackupDesignForm},
  DBBackupSetupFinishUnit in 'DBBackupSetupFinishUnit.pas' {DBBackupSetupFinishForm},
  VariableUnit in 'VariableUnit.pas',
  DataModuleUnit in 'DataModuleUnit.pas' {DM: TDataModule},
  FileBackupThreadUnit in 'FileBackupThreadUnit.pas',
  FileBackupDesignUnit in 'FileBackupDesignUnit.pas' {FileBackupDesignForm},
  LogShowUnit in 'LogShowUnit.pas' {LogShowForm},
  AboutUnit in 'AboutUnit.pas' {about},
  RestoreThreadUnit in 'RestoreThreadUnit.pas',
  DBRestoreUnit in 'DBRestoreUnit.pas' {RestoreForm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '数据库自动备份系统';
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TNewDBBackupForm, NewDBBackupForm);
  Application.CreateForm(TDBBackupDesignForm, DBBackupDesignForm);
  Application.CreateForm(TDBBackupSetupFinishForm, DBBackupSetupFinishForm);
  Application.CreateForm(TDM, DM);
  Application.CreateForm(TFileBackupDesignForm, FileBackupDesignForm);
  Application.CreateForm(Tabout, about);
  Application.CreateForm(TRestoreForm, RestoreForm);
  Application.Run;
end.