ulogin.~pas

自己写的一个用于管理通讯录、记事、计划管理等的小程序。

unit uLogin;

interface

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

type
  TFormLogin = class(TForm)
    SkinData: TSkinData;
    EditPassword: TEdit;
    BitBtnOK: TBitBtn;
    BitBtnCancel: TBitBtn;
    Label1: TLabel;
    Timer: TTimer;
    procedure BitBtnOKClick(Sender: TObject);
    procedure BitBtnCancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLogin: TFormLogin;
  gCount:Integer;
implementation

uses dmAssistant,uAddressList,uRoutine,uScheme,uNotepad,uSecurity;

{$R *.dfm}

procedure TFormLogin.BitBtnOKClick(Sender: TObject);
begin
  DataModuleAssistant.ADOQuerySecurity.Close;
  DataModuleAssistant.ADOQuerySecurity.Open;
  if DataModuleAssistant.ADOQuerySecurity.FieldByName('loginpassword').AsString<>'' then
    if DataModuleAssistant.ADOQuerySecurity.FieldByName('loginpassword').AsString=
      security(EditPassword.Text,DataModuleAssistant.ADOQuerySecurity.FieldByName('seed').AsString) then
    begin
      FormAddressList.Show;
      hide;
    end else
    if gCount<3 then
      if MessageDlg('密码不正确，请重新输入吗？',mtConfirmation,[mbYes, mbNo],0)
        =mrYes then begin
        EditPassword.SetFocus;
        Inc(gCount);
      end else Application.Terminate
    else Application.Terminate
  else begin
    FormAddressList.Show;
    hide;
  end;
end;

procedure TFormLogin.BitBtnCancelClick(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TFormLogin.FormCreate(Sender: TObject);
begin
  gCount:=0;
end;

procedure TFormLogin.TimerTimer(Sender: TObject);
begin
  Timer.Enabled:=False;
  DataModuleAssistant.ADOQuerySecurity.Close;
  DataModuleAssistant.ADOQuerySecurity.Open;
  if DataModuleAssistant.ADOQuerySecurity.FieldByName('loginpassword').AsString='' then begin
     BitBtnOK.OnClick(Sender);
  end;
end;

procedure TFormLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    perform(WM_NEXTDLGCTL,0,0);
  end;
end;

end.