login.pas

导出ORACLE 8/9系列的表空间结构并打印

unit Login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIForm, SUIButton, StdCtrls, SUIEdit, SUIImagePanel,
  SUIGroupBox;

type
  TFrmLogin = class(TForm)
    suiForm1: TsuiForm;
    suiGroupBox1: TsuiGroupBox;
    suiGroupBox2: TsuiGroupBox;
    Label1: TLabel;
    suiEdit_UserName: TsuiEdit;
    Label2: TLabel;
    suiEdit_Password: TsuiEdit;
    Label3: TLabel;
    suiEdit_Host: TsuiEdit;
    Label4: TLabel;
    suiEdit_SID: TsuiEdit;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure suiEdit_UserNameEnter(Sender: TObject);
    procedure suiEdit_PasswordEnter(Sender: TObject);
    procedure suiEdit_HostEnter(Sender: TObject);
    procedure suiEdit_SIDEnter(Sender: TObject);
    procedure suiEdit_SIDExit(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiButton2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmLogin: TFrmLogin;

implementation

uses PubUnit;

{$R *.dfm}

procedure TFrmLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL,0,0);
  end;
end;

procedure TFrmLogin.suiEdit_UserNameEnter(Sender: TObject);
begin
  KeyPreview := true ;
end;

procedure TFrmLogin.suiEdit_PasswordEnter(Sender: TObject);
begin
  KeyPreview := true ;
end;

procedure TFrmLogin.suiEdit_HostEnter(Sender: TObject);
begin
  KeyPreview := true ;
end;

procedure TFrmLogin.suiEdit_SIDEnter(Sender: TObject);
begin
  KeyPreview := true ;
end;

procedure TFrmLogin.suiEdit_SIDExit(Sender: TObject);
begin
  KeyPreview := false ;
end;

procedure TFrmLogin.suiButton1Click(Sender: TObject);
begin
  UserName := Trim(suiEdit_UserName.Text);
  Password := Trim(suiEdit_Password.Text);
  ServerName := Trim(suiEdit_Host.Text);
  DBName := Trim(suiEdit_SID.Text);
  LoginModalResult := MrOK ;
  Close ;
end;

procedure TFrmLogin.suiButton2Click(Sender: TObject);
begin
  Close ;
end;

procedure TFrmLogin.FormShow(Sender: TObject);
begin
  suiEdit_UserName.Text := UserName ;
  suiEdit_Password.Text := Password ;
  suiEdit_Host.Text := ServerName ;
  suiEdit_SID.Text := DBName ;
  suiEdit_UserName.SetFocus ;
end;

procedure TFrmLogin.FormCreate(Sender: TObject);
begin
  ChangeInterFace(Self,suiForm1);
end;

end.