enter_form.pas

Access数据库用户权限的管理程序

unit Enter_Form;

interface

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

type
  TEnter_F = class(TForm)
    ZH_E: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    MM_E: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure FormShow(Sender: TObject);
    procedure MM_EKeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    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_F: TEnter_F;

implementation

uses share, HTMLHelp_Decl;

{$R *.dfm}
//******************************************************************************
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 Label3Click(Label3);
end;
//******************************************************************************
procedure TEnter_F.Label3Click(Sender: TObject);
begin
  ModalResult := mrOk;
end;
//******************************************************************************
procedure TEnter_F.Label4Click(Sender: TObject);
begin
  close;
end;
//******************************************************************************
procedure TEnter_F.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=ActiveControl.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
procedure TEnter_F.ZH_EKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  num:=self.HelpContext;
  F1_Help(key);
end;
//******************************************************************************
end.