u_generate1.pas

来自「sybase大全」· PAS 代码 · 共 79 行

unit u_generate1;

interface

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

type
  Tf_form1 = class(TForm)
    btn_help: TButton;
    btn_back: TButton;
    btn_next: TButton;
    btn_cancel: TButton;
    GroupBox1: TGroupBox;
    r_simple: TRadioButton;
    r_masterdetail: TRadioButton;
    Image1: TImage;
    Label2: TLabel;
    procedure btn_cancelClick(Sender: TObject);
    procedure btn_nextClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure btn_helpClick(Sender: TObject);
    procedure btn_backClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    action :smallint;
  end;

var
  f_form1: Tf_form1;

implementation

{$R *.DFM}

procedure Tf_form1.btn_cancelClick(Sender: TObject);
begin
  action:=3;
  close;
end;

procedure Tf_form1.btn_nextClick(Sender: TObject);
begin
  action:=2;
  f_form2.showmodal;
  if f_form2.action=3 then
  begin
    action:=3;
    close;
  end
  else
  if f_form2.action=4 then
  begin
    action:=4;
    close;
  end;
end;

procedure Tf_form1.FormActivate(Sender: TObject);
begin
  btn_next.setfocus;
end;

procedure Tf_form1.btn_helpClick(Sender: TObject);
begin
  action:=0;
end;

procedure Tf_form1.btn_backClick(Sender: TObject);
begin
  action:=1;
  close;
end;

end.