compressdata.pas

domain3.2 SQL注入漏洞扫描 旁注 上传功能 数据库浏览

{##########################################
         旁注入侵专用程序 3.0升级版
 -----------------------------------------
  模块：压缩数据库
  作者：2005.3.26日晚  明小子
##########################################}

unit CompressData;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, RzEdit, RzBtnEdt, ComObj;

type
  TCompressDataForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    DataPath: TRzButtonEdit;
    DataPass: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure DataPathButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CompressDataForm: TCompressDataForm;

implementation

uses MainUnit;

{$R *.dfm}

procedure TCompressDataForm.Button2Click(Sender: TObject);
begin
  close;
end;

{压缩数据库}

procedure TCompressDataForm.Button1Click(Sender: TObject);
var
  AVariant: Variant;
  sDBName, DBPass: string;
begin
  try
    if not FileExists(DataPath.Text) then exit;
    Screen.Cursor := crHourGlass;
    sDBName := Trim(DataPath.Text);
    DBPass := Trim(DataPass.Text);
    if FileExists(sDBName + '.tmp') then
      DeleteFile(pchar(sDBName + '.tmp'));
    AVariant := CreateOleObject('JRO.JetEngine');
    AVariant.CompactDataBase('Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:DataBase Password=' + DBPass + ';Data Source=' + sDBName,
      'Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:DataBase Password=' + DBPass + ';Data Source=' + sDBName +
      '.tmp');
    DeleteFile(pchar(sDBName));
    ReNameFile(sDBName + '.tmp', sDBName);
    Screen.Cursor := crDefault;
    application.MessageBox('数据库压缩成功!', '提示', 32);
  except
    Screen.Cursor := crDefault;
    application.MessageBox('压缩失败,请确认密码是否正确!', '提示', 48);
  end;
end;

procedure TCompressDataForm.DataPathButtonClick(Sender: TObject);
begin
  MainForm.OpenFile.DefaultExt := 'mdb';
  MainForm.OpenFile.Filter := '数据库文件 (*.mdb)|*.mdb|所有文件 (*.*)|*.*';
  if MainForm.OpenFile.Execute then
    DataPath.Text := MainForm.OpenFile.FileName;
end;

procedure TCompressDataForm.FormCreate(Sender: TObject);
begin
  CompressDataForm.FormStyle := fsStayOnTop; //窗体置顶
end;

procedure TCompressDataForm.FormShow(Sender: TObject);
begin
  DataPath.Clear;
  DataPass.Clear;
end;

end.