backup_f.pas

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

unit Backup_F;

interface

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

type
  TF_Backup = class(TForm)
    Memo1: TMemo;
    Label1: TLabel;
    SaveDialog: TSaveDialog;
    E_DBName: TEdit;
    Bt_SelectDB: TButton;
    Bt_Ok: TButton;
    Bt_Cancel: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Bt_OkClick(Sender: TObject);
    procedure Bt_CancelClick(Sender: TObject);
    procedure Bt_SelectDBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Backup: TF_Backup;

implementation

uses Login_F, Msg_F, Comm, CommSmdljf;

{$R *.DFM}



procedure TF_Backup.FormActivate(Sender: TObject);
begin
	E_DBName.Text := SaveDialog.InitialDir+'\'+DateToStr(Date())+'.GDB';
end;

procedure TF_Backup.Bt_OkClick(Sender: TObject);
var
    DBName, BakGDBName:String;
    CopyOK: boolean;
    GDBExist:boolean;
    BackupMsg:String;
begin
	DBName := F_Login.E_DBName.Text;//参数当前使用的数据库名
    BakGDBName := E_DBName.Text;//备份数据库名
    GDBExist := FileExists(BakGDBName);
    if GDBExist then
    Begin
    	If MessageBox(Handle,PChar('文件 '+BakGDBName+' 已经存在, 是否覆盖？'),'系统提示',MB_OKCANCEL) <> IDOK Then
	    	Exit;
        BackupMsg := '覆盖';
    End
    Else
   	    BackupMsg := '    ';
	P_OpenMessageBox('系统提示','正在备份数据，请勿作其它操作，稍候片刻...');
	CopyOK := CopyFile(PChar(DBName), PChar(BakGDBName), false);//直接拷贝数据库文件
    P_CloseMessageBox();//关闭消息窗口
    if CopyOk Then
    Begin
    	MessageBox(Handle,PChar('系统已成功备份数据到文件'+BakGDBName),'系统提示',0);
	    P_Log(BackupMsg + '备份数据到文件'+BakGDBName+'-->成功');
    End
    else
	Begin
		MessageBox(Handle,PChar('备份数据到文件'+BakGDBName+'失败，请检查原因!'),'系统警告',0);
	    P_Log(BackupMsg + '备份数据到文件'+BakGDBName+'-->失败');
    End;
	Close();
end;

procedure TF_Backup.Bt_CancelClick(Sender: TObject);
begin
	Close();
end;

procedure TF_Backup.Bt_SelectDBClick(Sender: TObject);
begin
	if SaveDialog.Execute() then
    Begin
       	E_DBName.Text := SaveDialog.FileName;
    End;
end;

end.