unit16.pas

来自「玉龙飞雪进销存管理系统,可以帮您管理进销存的软件」· PAS 代码 · 共 63 行

unit Unit16;

interface

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

type
  TFormbei = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    BatchMove1: TBatchMove;
    Table1: TTable;
    Table2: TTable;
    Table3: TTable;
    Table4: TTable;
    BatchMove2: TBatchMove;
    Table5: TTable;
    Table6: TTable;
    BatchMove3: TBatchMove;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formbei: TFormbei;

implementation

{$R *.dfm}

procedure TFormbei.FormCreate(Sender: TObject);
begin
radiobutton1.Checked:=true;
end;

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

procedure TFormbei.SpeedButton1Click(Sender: TObject);
begin
if radiobutton1.Checked then
batchmove1.Execute;
if radiobutton2.Checked then
batchmove2.Execute;
if radiobutton3.Checked then
batchmove3.Execute;
showMessage('数据备份已完成!');
end;

end.