huanyuan.pas

DELPHI语言制作的音象管理系统 很经典的例子噢 欢迎下载参考

unit huanyuan;

interface

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

type
  TForm17 = class(TForm)
    Image1: TImage;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label2: TLabel;
    Timer1: TTimer;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form17: TForm17;

implementation

{$R *.dfm}

procedure TForm17.SpeedButton1Click(Sender: TObject);
begin
if radiobutton1.Checked then
  begin
  label2.Caption:='正在备份中，请稍后... ...';
  timer1. enabled:=true;
  copyfile('data\beifenhuiyuan','data\huiyuan.mdb',false);
end
else
if radiobutton2.Checked then
  begin
  label2.Caption:='正在备份中，请稍后... ...';
  timer1. enabled:=true;
  copyfile('data\beifenyingdie','data\yingdiexinxi.mdb',false);
end
else
showmessage('请选择还原的内容！');
end;

procedure TForm17.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm17.Timer1Timer(Sender: TObject);
begin
label2.Caption:='指示条... ...';
timer1.Enabled:=false;
showmessage('还原已成功！');

end;

end.