unit17.pas

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

unit Unit17;

interface

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

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

var
  Formhui: TFormhui;

implementation

uses Unit2, Unit3, Unit5, Unit1, Unit14;

{$R *.dfm}

procedure TFormhui.SpeedButton1Click(Sender: TObject);
begin
formmima.Database1.Connected:=false;
if radiobutton1.Checked then
batchmove1.Execute;
if radiobutton2.Checked then
batchmove2.Execute;
if radiobutton3.Checked then
batchmove3.Execute;
showMessage('数据恢复已完成!');
end;

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

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

end.