usjbf.~pas

delphi 开发的完整的仓库管理系统（带数据库）

unit USJBF;

interface

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

type
  TSJBF = class(TForm)
    Image1: TImage;
    ProgressBar1: TProgressBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SaveDialog1: TSaveDialog;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
  path,name,p:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SJBF: TSJBF;

implementation

uses UDM;

{$R *.dfm}

procedure TSJBF.SpeedButton1Click(Sender: TObject);
var
m:integer;
begin       //进行数据备份操作
  path:=extractfiledir(application.ExeName);
    path:=path+'\';
  name:='databack\'+formatdatetime('yyyymmddhhmmss',now)+'.bak';
  p:=path+name;
  self.Caption:='正在备份数据...';
  begin
    with DM.Q do
    begin
      try
        Screen.Cursor := crHourGlass;
        DM.Q.Close;
        DM.Q.SQL.Clear;
        DM.Q.SQL.Add(' BACKUP DATABASE CKGL TO DISK =''' +P+'''');
        DM.Q.ExecSQL();
        for m:=0 to 10000 do
          progressbar1.Position:=m;
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库备份成功完成','数据库备份',0+mb_iconinformation);
        progressbar1.Position:=0;
      except
        Screen.Cursor := crDefault;
        Application.MessageBox('数据库备份失败！请检查备份路径或网络状态','数据库备份',0+mb_iconinformation);
        exit;
      end;
    end;
  end;
  self.Caption:='备份数据';
end;

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

end.