unitdbop.pas

来自「自己设计的一个简易的考勤管理系统」· PAS 代码 · 共 82 行

unit UnitDBOp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,DB,ADODB,Grids,DBGrids,ShellAPI;

type
  TfrmDBOp = class(TForm)
    Image1: TImage;
    Memo1: TMemo;
    btnExportToExcel: TButton;
    Button3: TButton;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    Button1: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btnExportToExcelClick(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDBOp: TfrmDBOp;

implementation

{$R *.dfm}

procedure TfrmDBOp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   action := cafree;
end;

procedure TfrmDBOp.btnExportToExcelClick(Sender: TObject);
var   
      myfilename:string;   
  begin
      try   
              savedialog1.defaultext:='.mdb';
              savedialog1.filter:=   '数据库文件|*.mdb';
              savedialog1.Title := '选择备份路径';
          if   savedialog1.execute   then
          begin   
              myfilename := savedialog1.filename;
              if copyfile(pchar(extractfilepath(application.ExeName)+'kaoqin.mdb'), pchar(myfilename), false) then
              application.messagebox('数据备份成功','提示',mb_ok + mb_iconinformation);
          end;
      except
          application.messagebox('数据备份失败','提示',mb_ok   +   mb_iconerror);
      end;
  end;
procedure TfrmDBOp.Button3Click(Sender: TObject);
var
      myfilename,aa:string;
begin
      try
              opendialog1.defaultext:='.mdb';
              opendialog1.filter:='数据库文件|*.mdb';
          if   opendialog1.execute   then
          begin
              myfilename:=opendialog1.filename;
              aa:=extractfilepath(application.exename) + 'kaoqin.mdb';
              if  copyfile(pchar(myfilename),pchar(aa),false)  then
                application.messagebox('数据恢复成功!请重新启动程序！','提示',mb_ok   +   mb_iconinformation);
          end;
      except   
          application.messagebox('数据恢复失败','提示',mb_ok   +   mb_iconerror);
      end;   
  end;
procedure TfrmDBOp.Button1Click(Sender: TObject);
begin
    close;
end;

end.