unitgetuserinfo.pas

来自「此代码是关于mapgis的在」· PAS 代码 · 共 91 行

unit UnitGetUserInfo;

interface

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

type
  TForm_GetUserInfo = class(TForm)
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Edit_User: TEdit;
    Edit_Password: TEdit;
    procedure Edit_UserKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit_PasswordKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    FIsOk: Boolean;
  public
    { Public declarations }
    property IsOk:Boolean read FIsOk;
  end;

var
  Form_GetUserInfo: TForm_GetUserInfo;

function GetUserInfo(var UserName, Password:string):Boolean;

implementation

uses
  WinFocus;

function GetUserInfo(var UserName, Password:string):Boolean;
begin
  with TForm_GetUserInfo.Create(nil) do
  begin
    try
      ShowModal;
      Result:=IsOk;
      UserName:=Edit_User.Text;
      Password:=Edit_Password.Text;
    finally
      Free;
    end;
  end;
end;

{$R *.DFM}

procedure TForm_GetUserInfo.Edit_UserKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=vk_return then
    SetControlFocus(Edit_Password); 
end;

procedure TForm_GetUserInfo.Edit_PasswordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=vk_return then
    SetControlFocus(Button1); 
end;

procedure TForm_GetUserInfo.FormCreate(Sender: TObject);
begin
  FIsOk:=False;
end;

procedure TForm_GetUserInfo.Button1Click(Sender: TObject);
begin
  FIsOk:=True;
  Close;
end;

procedure TForm_GetUserInfo.Button2Click(Sender: TObject);
begin
  Close;
end;

end.