enter_form1.pas

Delphi7和ACCESS开发的用户权限管理的源程序．

unit Enter_Form1;

interface

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

type
  TEnter_F1 = 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);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ZH_EKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Enter_F1: TEnter_F1;

implementation

uses share;

{$R *.dfm}
//******************************************************************************
procedure TEnter_F1.Enter_BtnClick(Sender: TObject);
begin
   ModalResult := mrOk;
end;
//******************************************************************************
procedure TEnter_F1.Exit_BtnClick(Sender: TObject);
begin
   //ModalResult := mrCancel;
   close;
end;
//******************************************************************************
procedure TEnter_F1.FormShow(Sender: TObject);
begin
   ZH_E.Text := '';
   MM_E.Text := '';
   ZH_E.SetFocus;
end;
//******************************************************************************
procedure TEnter_F1.MM_EKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if Key=VK_RETURN then Enter_BtnClick(Enter_Btn);
end;
//******************************************************************************
procedure TEnter_F1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
procedure TEnter_F1.ZH_EKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
end.