u_generate2.pas

sybase大全

unit u_generate2;

interface

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

type
  Tf_form2 = class(TForm)
    btn_help: TButton;
    btn_back: TButton;
    btn_cancel: TButton;
    Image1: TImage;
    l_tablenames: TSybListBox;
    Label1: TLabel;
    btn_next: TButton;
    e_tablename: TEdit;
    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_form2: Tf_form2;

implementation

{$R *.DFM}

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

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

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

procedure Tf_form2.btn_nextClick(Sender: TObject);
begin
  action:=2;
  if l_tablenames.itemindex<0 then
  begin
    showmessage('Select at least one Table!');
    exit;
  end;
  e_tablename.text:=l_tablenames.items[l_tablenames.itemindex];
  f_form25.e_tablename.text:=l_tablenames.items[l_tablenames.itemindex];
  f_form25.showmodal;
  if f_form25.action=3 then
  begin
    action:=3;
    close;
  end
  else
  if f_form25.action=4 then
  begin
    action:=4;
    close;
  end;
end;

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

end.