login.pas

来自「Delphi编程┃Delphi数据库编程」· PAS 代码 · 共 60 行

unit login;

interface

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

type
  TLoginForm = class(TForm)
    Label1: TLabel;
    PassEdit: TEdit;
    PassSpeedButton: TSpeedButton;
    Label2: TLabel;
    Label3: TLabel;
    Bevel1: TBevel;
    procedure PassSpeedButtonClick(Sender: TObject);
    procedure PassEditKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  LoginForm: TLoginForm;

implementation

uses main;

{$R *.dfm}

procedure TLoginForm.PassSpeedButtonClick(Sender: TObject);
var pass :string;
begin
  //进行密码检测，并且设置禁用菜单为可用
  Pass := FormatDateTime('mmdd',Date)+'NZ';
  if PassEdit.Text = Pass then
  begin
    MainForm.N6.Enabled := true;
    MainForm.N7.Enabled := true;
    MainForm.N10.Enabled := true;
    MainForm.N11.Enabled := true;
    MainForm.N12.Enabled := true;
    Close;
  end else
  begin
    MainForm.PshowMessage('提示','提供的密码错误，请重新登录！',0);
    Close;
  end;
end;

procedure TLoginForm.PassEditKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then PassSpeedButtonClick(nil);
end;

end.