usjhf.~pas

来自「很好的汽车管理系统 很实用的 谢谢合作」· ~PAS 代码 · 共 66 行

unit USJHF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls, ExtDlgs, Shellapi;

type
  TSJHF = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    OpenDialog1: TOpenDialog;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SJHF: TSJHF;

implementation

uses UDM;

{$R *.dfm}

procedure TSJHF.SpeedButton1Click(Sender: TObject);
var
  F: TShFileOpStruct;
begin

  OpenDialog1.Filter := 'ACCESS 文件(*.mdb)|*.mdb';
  OpenDialog1.Title := '选择备份路径和文件名';
  OpenDialog1.InitialDir := ExtractFileDir(Application.ExeName) + '\data\backup';
  F.wnd := Handle;
  F.wFunc := Fo_Delete; //操作方式/
  F.pFrom := pAnsichar(ExtractFileDir(Application.ExeName) + '\Data\QCZL.mdb' + #0);
  if OpenDialog1.Execute then
  begin
    F.pTo := pAnsichar(OpenDialog1.FileName + '.mdb');
    F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;//操作选项
    if CopyFile(PChar(OpenDialog1.FileName),PChar(ExtractFileDir(Application.ExeName) + '\Data\QCZL.mdb'),False) then
    begin
      MessageBox(0, '数据文件恢复成功！请重新启动程序！', '成功', MB_OK + MB_ICONINFORMATION);
      Application.Terminate;
    end
    else
    if ShFileOperation(F) <> 0 then
      MessageBox(0, '数据文件备份失败！', '错误', MB_OK + MB_ICONSTOP);
  end;
end;

procedure TSJHF.SpeedButton2Click(Sender: TObject);
begin
  Close;
end;

end.