databackup.pas

一个典当行的业务管理系统程序

unit DataBackup;

interface

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

type
  TfrmDataBackup = class(TForm)
    GroupBox1: TGroupBox;
    cmbFilterFile: TFilterComboBox;
    ListbSearchFile: TFileListBox;
    listbSearchDir: TDirectoryListBox;
    Label3: TLabel;
    lbMdbDir: TLabel;
    DriveComboBox2: TDriveComboBox;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    txtDatabaseName: TEdit;
    Label4: TLabel;
    txtZipFileName: TEdit;
    cmdSave: TButton;
    cmdExit: TButton;
    procedure cmdExitClick(Sender: TObject);
    procedure ListbSearchFileClick(Sender: TObject);
    procedure cmdSaveClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmDataBackup: TfrmDataBackup;

implementation

uses Pawn, dmPawn;

{$R *.DFM}

procedure TfrmDataBackup.cmdExitClick(Sender: TObject);
begin
     close;
end;

procedure TfrmDataBackup.ListbSearchFileClick(Sender: TObject);
begin
     if cmbFilterFile.Text='Mdb Files (*.mdb)' then
     begin
          txtDatabaseName.Text:=listbSearchFile.FileName;
     end;
     if cmbFilterFile.Text='Zip Files (*.exe)' then
     begin
          txtZipFileName.Text:=listbSearchFile.FileName;
     end;
end;

procedure TfrmDataBackup.cmdSaveClick(Sender: TObject);
var
   File_Name:string;
   ZipFileName:string;
   HZPos:integer;     //后缀名在文件名中的起始位置                    
   tempFileName:string;
begin
     //关闭数据库
     dmPawnFrm.Database.Close;
     File_Name:=txtDataBaseName.Text;
     ZipFileName:=txtZipFileName.Text;
     if (Pos('ARJ.EXE',ZipFileName)<>0)or (Pos('Arj.exe',ZipFileName)<>0) then
     begin
          HZPos:=Pos('.mdb',File_Name);
          tempFileName:=File_Name;
          Delete(tempFileName,HZPos,Length('.mdb'));
          File_Name:=' a '+tempFileName+'.ARJ '+File_Name;
     end;

     if ShellExecute(frmMain.Handle,'Open',PChar(ZipFileName),PChar(File_Name), nil,
                  SW_SHOW)<=32 then
     begin
          ShowMessage('压缩工具文件没找到!');
          //打开数据库
          dmPawnFrm.Database.Open;
          exit;
     end;
     //否则，压缩成功打开数据库
     dmPawnFrm.Database.Open;
end;

end.