back_up.~pas

实现图书馆数据库管理功能

unit back_up;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, ComCtrls, Menus,  ImgList,
  Buttons, Mask, DB, ADODB, FileCtrl;

type
  Tbackup = class(TForm)
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    ImageList1: TImageList;
    Panel1: TPanel;
    SpeedButton2: TSpeedButton;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    Label3: TLabel;
    GroupBox1: TGroupBox;
    DLB1: TDirectoryListBox;
    DriveComboBox1: TDriveComboBox;
    Label2: TLabel;
    Image_title: TImage;
    Image1: TImage;
    Image3: TImage;
    Label1: TLabel;
    Image2: TImage;
    procedure FormCreate(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image3Click(Sender: TObject);

  private

    { Private declarations }
    originalpos:tpoint;
    currentpos:tpoint;
    downpos:tpoint;
    mouselbuttondown:boolean;
    originalwid,originalhei:integer;
    flag:string;
    flag_normal:boolean;
     public
    { Public declarations }
  end;

var
  backup: Tbackup;


implementation

uses  Unit6, Unit2;

{$R *.dfm}






procedure Tbackup.FormCreate(Sender: TObject);

begin
flag_normal:=true;
mouselbuttondown:=false;



end;




procedure Tbackup.FormClose(Sender: TObject; var Action: TCloseAction);
begin
shukuguanli.enabled:=true;
end;

procedure Tbackup.SpeedButton2Click(Sender: TObject);
var di:string;
begin
di:=label2.Caption;
di:='tsg'+formatdatetime('yyyymmdd_hhmmss',now())+'.mdb';
copyfile(pchar('tsg.mdb'),pchar(di),false);
messagedlg('备份成功',mtconfirmation,[mbok],0);
end;

procedure Tbackup.SpeedButton1Click(Sender: TObject);
begin
close;
end;

procedure Tbackup.Image4Click(Sender: TObject);
begin
if backup.WindowState=wsnormal then
begin
application.Minimize;
end
else if backup.WindowState=wsmaximized then
 application.Minimize;
end;

procedure Tbackup.Image3Click(Sender: TObject);
begin
close;
end;

end.