templock.pas

来自「delphi框架可以学习, 写的很好的」· PAS 代码 · 共 59 行

unit TempLock;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, StdCtrls, Mask, RzEdit, ExtCtrls, RzPanel;

type
  TfrmSysLock = class(TForm)
    RzPanel2: TRzPanel;
    Label2: TLabel;
    Label1: TLabel;
    edtPassword: TRzEdit;
    btnOK: TRzBitBtn;
    Image1: TImage;
    procedure btnOKClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure edtPasswordKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSysLock: TfrmSysLock;

implementation

uses MyPublic, md5;

{$R *.dfm}

procedure TfrmSysLock.btnOKClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmSysLock.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not CheckUser(CurrentUser.UserCode, edtPassword.Text, CurrentUser.MAC) then
  begin
    edtPassword.Text := '';
    Action := caNone;
  end else
  begin
    SysLock := False;
    RecordUserAction(SetSimpleEvent('解除系统锁定','于'+GetChinaTime(Now)+'解除系统临时锁定！'));
  end;
end;

procedure TfrmSysLock.edtPasswordKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then btnOKClick(nil);
end;

end.