uni_backup.pas

一个非常不错的经费报销管理软件

unit Uni_Backup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, ShellCtrls, Buttons, FileCtrl, DB, ADODB,
  XPMenu, ExtCtrls;

type
  TFrm_Backup = class(TForm)
    Label1: TLabel;
    Backup: TADOQuery;
    BackupType: TLabel;
    XPMenu1: TXPMenu;
    Panel1: TPanel;
    RBday: TRadioButton;
    RBmon: TRadioButton;
    RBnull: TRadioButton;
    E_Path: TEdit;
    E_FileName: TEdit;
    Panel2: TPanel;
    RB_noFormat: TRadioButton;
    RB_Format: TRadioButton;
    B_Backup: TBitBtn;
    procedure ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
    procedure RBdayClick(Sender: TObject);
    procedure RBmonClick(Sender: TObject);
    procedure RBnullClick(Sender: TObject);
    procedure B_BackupClick(Sender: TObject);
    procedure RB_noFormatClick(Sender: TObject);
    procedure RB_FormatClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Backup: TFrm_Backup;

implementation

{$R *.dfm}

uses IniFiles, StrUtils,Uni_Function;

procedure TFrm_Backup.ShellTreeView1Change(Sender: TObject; Node: TTreeNode);
begin
//  E_Path.Text:=ShellTreeView1.Path;
end;

procedure TFrm_Backup.RBdayClick(Sender: TObject);
begin
  E_Path.Enabled:=RBnull.Checked;
  E_FileName.Text:=FormatDateTime('yymmdd',Now)+'.dat';
end;

procedure TFrm_Backup.RBmonClick(Sender: TObject);
begin
  E_Path.Enabled:=RBnull.Checked;
  E_FileName.Text:=FormatDateTime('yymm',Now)+'.dat';
end;

procedure TFrm_Backup.RBnullClick(Sender: TObject);
begin
  E_Path.Enabled:=RBnull.Checked;
  IF RBnull.Checked
  THEN BEGIN
    E_FileName.Text:='';
  END;
end;

procedure TFrm_Backup.B_BackupClick(Sender: TObject);
VAR
  MYINIFILE:TIniFile;
begin
  IF MessageBoxQuery('你现在对数据库进行备份吗？')=IDNO then Exit;
  Backup.Close;
  //读INI文件
  MYINIFILE:=TIniFile.Create(GetCurrentDir+'\DATABASE.INI');
  TRY
    Backup.ConnectionString:=
    'Provider=SQLOLEDB.1;Password='+MYINIFILE.ReadString('DATABASE','USERPASSWORD','')+
    ';Persist Security Info=True;User ID='+MYINIFILE.ReadString('DATABASE','USERNAME','')+
    ';Initial Catalog=master'+
    ';Data Source='+MYINIFILE.ReadString('DATABASE','SERVER','');

    if RightStr(E_Path.Text,1)='\' then E_Path.Text:=LeftStr(E_Path.Text,Length(E_Path.Text)-1);

    Backup.SQL.Text:='backup database '+MYINIFILE.ReadString('DATABASE','DATABASENAME','')
      +' to disk = '
      +QuotedStr(Trim(E_Path.Text)
      +'\'+Trim(E_FileName.Text))
      +' with '+BackupType.Caption;
    Backup.ExecSQL;
    MessageBoxInfo('备份成功!!');
  EXCEPT
    MessageBoxInfo('备份失败!!');
  END;
  //释放INI文件
  MYINIFILE.Free;
end;

procedure TFrm_Backup.RB_noFormatClick(Sender: TObject);
begin
  BackupType.Caption:='noFormat';
end;

procedure TFrm_Backup.RB_FormatClick(Sender: TObject);
begin
  BackupType.Caption:='Format';
end;

procedure TFrm_Backup.FormShow(Sender: TObject);
begin
  //ShellTreeView1.Path:=GetCurrentDir;
  RBdayClick(Sender);
  RBmonClick(Sender);
end;

end.