logshowunit.pas

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

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

unit LogShowUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;

type
  TLogShowForm = class(TForm)
    Memo1: TMemo;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    O1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure N2Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LogShowForm: TLogShowForm;

implementation

{$R *.dfm}
uses
  VariableUnit;
procedure TLogShowForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure TLogShowForm.N2Click(Sender: TObject);
var
  logRe:file;
begin
  if MessageDlg('您确定要清除现有的日志信息吗？',mtConfirmation, [mbYes, mbNo], 0)= mrNo then
    exit;
  if DBOrFileLog then
    begin
      AssignFile(logRe,ExtractFilePath(ParamStr(0))+'\Log\DBBackupLog.log');
      ReWrite(logRe);
      CloseFile(logRe);
    end
  else
    begin
      AssignFile(logRe,ExtractFilePath(ParamStr(0))+'\Log\fileBackupLog.log');
      ReWrite(logRe);
      CloseFile(logRe);
    end;
  Memo1.Lines.Clear;
end;

procedure TLogShowForm.N1Click(Sender: TObject);
begin
  if DBOrFileLog then
    begin
      Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Log\DBBackupLog.log');
    end
  else
    begin
      Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0))+'\Log\fileBackupLog.log');
    end;
end;

end.