enter_form.pas

一个小的Delphi的权限控制工具

unit Enter_Form;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, XPMenu, StdCtrls,DB,ADODB;

type
  TEnter_F = class(TForm)
    Label2: TLabel;
    Label1: TLabel;
    MM_E: TEdit;
    Exit_Btn: TButton;
    Enter_Btn: TButton;
    ZH_E: TEdit;
    procedure Enter_BtnClick(Sender: TObject);
    procedure Exit_BtnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure MM_EKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Enter_F: TEnter_F;

implementation

uses share;

{$R *.dfm}

procedure TEnter_F.Enter_BtnClick(Sender: TObject);
begin
   ModalResult := mrOk;
end;


procedure TEnter_F.Exit_BtnClick(Sender: TObject);
begin
   ModalResult := mrCancel;
end;

procedure TEnter_F.FormShow(Sender: TObject);
begin
   ZH_E.Text := '';
   MM_E.Text := '';
   ZH_E.SetFocus;
end;

procedure TEnter_F.MM_EKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key=VK_RETURN then Enter_BtnClick(Enter_Btn);
end;

end.