xtbfut.pas

宾馆客房管理系统,功能强大,界面美观,全部delphi源代码

unit xtbfut;

interface

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

type
  Txtbffm = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    GroupBox1: TGroupBox;
    SpeedButton3: TSpeedButton;
    bflj1: TRadioButton;
    bflj2: TRadioButton;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    SpeedButton5: TSpeedButton;
    hylj1: TRadioButton;
    hylj2: TRadioButton;
    Edit2: TEdit;
    BitBtn8: TBitBtn;
    BitBtn5: TBitBtn;
    SaveDialog1: TSaveDialog;
    OpenDialog1: TOpenDialog;
    procedure BitBtn8Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure hylj1Click(Sender: TObject);
    procedure bflj1Click(Sender: TObject);
    procedure bflj2Click(Sender: TObject);
    procedure hylj2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xtbffm: Txtbffm;

implementation

uses DataConUt;

{$R *.dfm}

procedure Txtbffm.BitBtn8Click(Sender: TObject);
 var
vlj:string;
opstruc:tshfileopstruct;
frombuf,tobuf:array[0..128]of char;
datapath:string;
begin
datapath:=extractfilepath(paramstr(0));
if hylj1.Checked then
vlj:=datapath+'backup/hotel.bak';
if hylj2.Checked then
vlj:=edit2.Text;
DataFm.datacon.Connected:=false;;

if fileexists(datapath+'data/hotel.mdb') then
deletefile(datapath+'data/hotel.mdb');
fillchar(frombuf,sizeof(frombuf),0);
fillchar(tobuf,sizeof(tobuf),0);
strpcopy(frombuf,pchar(vlj));
strpcopy(tobuf,pchar(datapath+'data/hotel.mdb'));
with opstruc do
begin
wnd:=handle;
wfunc:=fo_copy;
pfrom:=@frombuf;
pto:=@tobuf;
fflags:=fof_noconfirmation or fof_renameoncollision;
fanyoperationsaborted:=false;
hnamemappings:=nil;
lpszprogresstitle:=nil;
end;
if shfileoperation(opstruc)=0 then
begin
showmessage('还原成功!');
end;
end;

procedure Txtbffm.SpeedButton5Click(Sender: TObject);
begin
if OpenDialog1.Execute then
 edit2.Text:=OpenDialog1.FileName;
end;

procedure Txtbffm.BitBtn2Click(Sender: TObject);
var
vlj:string;
opstruc:tshfileopstruct;
frombuf,tobuf:array[0..128]of char;
datapath:string;
begin
datapath:=extractfilepath(paramstr(0));
if bflj1.Checked then
vlj:=datapath+'backup/hotel.bak';
if bflj2.Checked then
vlj:=edit1.Text;
if bflj1.Checked then
begin
if fileexists(datapath+'backup/hotel.bak') then
deletefile(datapath+'backup/hotel.bak');
end;
fillchar(frombuf,sizeof(frombuf),0);
fillchar(tobuf,sizeof(tobuf),0);
strpcopy(frombuf,pchar(datapath+'data/hotel.mdb'));
strpcopy(tobuf,pchar(vlj));
with opstruc do
begin
wnd:=handle;
wfunc:=fo_copy;
pfrom:=@frombuf;
pto:=@tobuf;
fflags:=fof_noconfirmation or fof_renameoncollision;
fanyoperationsaborted:=false;
hnamemappings:=nil;
lpszprogresstitle:=nil;
end;
if shfileoperation(opstruc)=0 then
begin
  showmessage('备份成功!');
end;
end;

procedure Txtbffm.SpeedButton3Click(Sender: TObject);
begin
if SaveDialog1.Execute then
 edit1.Text:=SaveDialog1.FileName;
end;

procedure Txtbffm.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure Txtbffm.BitBtn5Click(Sender: TObject);
begin
close;
end;

procedure Txtbffm.hylj1Click(Sender: TObject);
begin
if hylj1.Checked then
edit2.Enabled:=false;
speedbutton5.Enabled:=false;
end;

procedure Txtbffm.bflj1Click(Sender: TObject);
begin
if bflj1.Checked then
edit1.Enabled:=false;
speedbutton3.Enabled:=false;
end;

procedure Txtbffm.bflj2Click(Sender: TObject);
begin
if bflj2.Checked then
begin
edit1.Enabled:=true;
speedbutton3.Enabled:=true;
end
else
begin
edit1.Enabled:=false;
speedbutton3.Enabled:=false;
end;
end;

procedure Txtbffm.hylj2Click(Sender: TObject);
begin
if hylj2.Checked then
begin
edit2.Enabled:=true;
speedbutton5.Enabled:=true;
end
else
begin
edit2.Enabled:=false;
speedbutton5.Enabled:=false;
end;
end;

end.