unit122.~pas

本系统是SQL SERVER的管理系统

unit Unit122;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, TFlatEditUnit, VCLBase, EffBtns,FileCtrl,shellapi, DBTables;

type
  TForm122 = class(TForm)
    GroupBox1: TGroupBox;
    FlatEdit1: TFlatEdit;
    Label1: TLabel;
    Label2: TLabel;
    FlatEdit2: TFlatEdit;
    epEfTrBtn1: TepEfTrBtn;
    epEfTrBtn2: TepEfTrBtn;
    epEfTrBtn3: TepEfTrBtn;
    procedure epEfTrBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure epEfTrBtn1Click(Sender: TObject);
    procedure epEfTrBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form122: TForm122;

implementation

uses cardata;

{$R *.DFM}

function StrToPch(Str:string):PChar;
    var
    a:PChar;
    begin
      a:=StrAlloc(Length(Str)+1);
      StrPCopy(a,Str);
      StrToPch:=a;
    end;
procedure TForm122.epEfTrBtn3Click(Sender: TObject);
begin
form122.Release;
end;

procedure TForm122.FormClose(Sender: TObject; var Action: TCloseAction);
begin
form122.close;
end;

procedure TForm122.FormShow(Sender: TObject);
var

  aliaspath:string;

begin
flatedit1.text:='';
flatedit2.text:='';

   aliaspath:=ExtractFilePath(Application.ExeName)+'cardata\carsale.mdb';

 flatedit1.text:=aliaspath;
 


end;

procedure TForm122.epEfTrBtn1Click(Sender: TObject);
var
  Dir: string;
begin
  if SelectDirectory('请选择目录','',Dir) then
   flatedit2.text:=dir;
end;

procedure TForm122.epEfTrBtn2Click(Sender: TObject);
var s1,s2,dt1:string;
      f:boolean;
begin
if flatedit2.text='' then
begin
showmessage('请选择备份路径');
end
else
begin
s1:=flatedit1.text;
dt1:=datetostr(date());
s2:=flatedit2.text+'\'+dt1+'carsale.mdb';
if messagedlg('你是否备份当前数据呢？',mtconfirmation,[mbyes,mbno],0)=mryes then
begin
 try
with data do
begin
session1.active:=false;
repertorytable.active:=false;
repertoryquery.active:=false;
salequery.active:=false;
comquery.active:=false;
usestable.active:=false;
usesquery.active:=false;
saletable.active:=false;
salequery1.active:=false;
repsatable.active:=false;
profittable.active:=false;
profitquery.active:=false;
cartypetable.active:=false;
colortable.active:=false;
springtable.active:=false;
usetypetable.active:=false;
database.connected:=false;

end;

copyfile(StrToPch(s1),strtopch(s2),true);

showmessage('备份完成');

with data do
begin
database.connected:=true;

repertorytable.active:=true;
repertoryquery.active:=true;
salequery.active:=true;
comquery.active:=true;
usestable.active:=true;
usesquery.active:=true;
saletable.active:=true;
salequery1.active:=true;
repsatable.active:=true;
profittable.active:=true;
profitquery.active:=true;
cartypetable.active:=true;
colortable.active:=true;
springtable.active:=true;
usetypetable.active:=true;
 session1.Active:=true;
end;
except
showmessage('备份失败');
end;
end;
end;
end;
end.