u_generate27.pas

sybase大全

unit u_generate27;

interface

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

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

var
  f_form27: Tf_form27;

implementation

{$R *.DFM}

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

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

procedure Tf_form27.FormActivate(Sender: TObject);
begin
{  l_tablenames.sqlexec;}
end;

procedure Tf_form27.btn_nextClick(Sender: TObject);
begin
  action:=2;
{  if l_tablenames.itemindex<0 then
  begin
    showmessage('Table name is invalid !');
    exit;
  end;}
  f_form3.showmodal;
  if f_form3.action=3 then
  begin
    action:=3;
    close;
  end
  else
  if f_form3.action=4 then
  begin
    action:=4;
    close;
  end;
end;

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

end.