databfunit.pas

宁夏中药管理系统,在其它的基础上改的,将他人没有完成的功能补上

unit databfunit;

interface

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

type
  Tdatabfform = class(TForm)
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ProgressBar1: TProgressBar;
    Image1: TImage;
    ADOCommand1: TADOCommand;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
  path,name,p:string;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  databfform: Tdatabfform;

implementation
  uses mainfrm;
{$R *.dfm}

procedure Tdatabfform.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Tdatabfform.BitBtn1Click(Sender: TObject);
var m:integer;
begin
  path:=extractfiledir(application.ExeName);
  if strlen(pchar(path))<>3 then  //记住这句
    path:=path+'\';
  name:='databack\'+formatdatetime('yyyymmddhhmmss',now)+'.bak';
  p:=path+name;
  self.Caption:='正在备份数据...';
  try
    ADOCommand1.CommandText:='backup database ZFGJJ to disk='''+p+'''';  //注意字符的连接
   ADOCommand1.Execute ;
    for m:=0 to 10000 do
    progressbar1.Position:=m;
    messagebox(self.Handle,'数据备份成功','提示信息',mb_iconinformation);
  except
    messagebox(self.Handle,'数据备份失败','提示信息',mb_iconinformation);
  end;
  self.Caption:='备份数据';
  self.Close;
end;

procedure Tdatabfform.FormCreate(Sender: TObject);
begin
  ADOCommand1.ConnectionString:=connstr;
end;

end.