dbbackupsetupfinishunit.pas

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

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

unit DBBackupSetupFinishUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles, jpeg;

type
  TDBBackupSetupFinishForm = class(TForm)
    Image2: TImage;
    GroupBox1: TGroupBox;
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CB1: TCheckBox;
    CB2: TCheckBox;
    SaveDialog: TSaveDialog;
    procedure FormShow(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DBBackupSetupFinishForm: TDBBackupSetupFinishForm;

implementation

{$R *.dfm}
uses VariableUnit, DataModuleUnit, DBBackupDesignUnit, MainUnit,
     SqlFunctionUnit;
procedure TDBBackupSetupFinishForm.FormShow(Sender: TObject);
begin
  with Memo1 do
    begin
      lines.Clear;
      lines.Add('----------------------------------------');
      lines.Add('');
      lines.Add('备份项目名称：'+itemName);
      lines.Add('服务器名称：'+serverName);
      lines.Add('用户名：'+userName);
      lines.Add('密码：'+Encrypt(pwsd));
      lines.Add('数据库：'+DBName);
      lines.Add('备份路径：'+path);
      lines.Add('备份时刻：'+TimeToStr(backupTime));
      lines.Add('备份频率：'+FloatToStr(frequency));
      lines.Add('');
      lines.Add('----------------------------------------');
    end;
end;

procedure TDBBackupSetupFinishForm.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TDBBackupSetupFinishForm.Button2Click(Sender: TObject);
var
  inifile: TIniFile;
begin
  if CB1.Checked then
    begin
      SaveDialog.InitialDir:= ExtractFilePath(ParamStr(0));
      SaveDialog.FileName:=itemName;
      if SaveDialog.Execute then
        begin
           //^ ---
           try
             inifile:=TIniFile.Create(SaveDialog.FileName+'.ini');
             try
               with inifile do
                 begin
                   writeString('备份设置','服务器',serverName);
                   writeString('备份设置','服务器用户',userName);
                   writeString('备份设置','服务器密码',pwsd);
                   writeString('备份设置','数据库',DBName);
                   writeString('备份设置','备份路径',path);
                   WriteTime('备份设置','定时时刻',backupTime);
                   WriteFloat('备份设置','备份频率',frequency);
                 end;
                 Memo1.Lines.Add('设置文件已保存至'+SaveDialog.FileName+'.ini');
            except
               showMessage('保存失败!');
            end;
          finally
            inifile.Free;
          end;
          //^ 保存配置文件
        end;
    end;

  if CB2.Checked then
    begin
      DM.DBTimer1.Enabled:=True;
      MainForm.N8.Enabled:=False;
    end;
  DBHaveFinishedSet:=True;

  self.close;
end;

procedure TDBBackupSetupFinishForm.Button1Click(Sender: TObject);
begin
  DBBackupDesignForm.Show;
  self.Close;
end;

end.