usjbf.pas

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

unit USJBF;

interface

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

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

var
  SJBF: TSJBF;

implementation

uses UDM;

{$R *.dfm}

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


procedure TSJBF.SpeedButton1Click(Sender: TObject);
var
  F: TShFileOpStruct;
begin
  SaveDialog1.Filter := 'ACCESS 文件(*.mdb)|*.mdb';
  SaveDialog1.Title := '选择备份路径和文件名';
  SaveDialog1.InitialDir := ExtractFileDir(Application.ExeName) + '\data\backup';
  F.wnd := Handle;
  F.wFunc := Fo_COPY; //操作方式/
  F.pFrom := pAnsichar(ExtractFileDir(Application.ExeName) + '\Data\QCZL.mdb' + #0);
  if SaveDialog1.Execute then
  begin
    F.pTo := pAnsichar(SaveDialog1.FileName + '.mdb');
    F.fFlags := FOF_ALLOWUNDO or FOF_RENAMEONCOLLISION;//操作选项
    if ShFileOperation(F) <> 0 then
      MessageBox(0, '数据文件备份失败！', '错误', MB_OK + MB_ICONSTOP)
    else
      MessageBox(0, '数据文件备份成功！', '成功', MB_OK + MB_ICONINFORMATION);
  end;
end;
end.