password.pas

家庭收支管理

unit password;

interface

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

type
  TPassWordForm = class(TForm)
    btn_ok: TButton;
    Label1: TLabel;
    edt_user: TEdit;
    Label2: TLabel;
    edt_password: TEdit;
    btn_cancel: TButton;
    Panel1: TPanel;
    Image1: TImage;
    procedure btn_okClick(Sender: TObject);
    procedure btn_cancelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  PassWordForm: TPassWordForm;

implementation

{$R *.dfm}

uses DataModule;

var i : integer=0;

procedure TPassWordForm.btn_okClick(Sender: TObject);
begin
  DataForm.ABSQuery1.SQL.Clear;
  DataForm.ABSQuery1.SQL.Add('select * from user where SystemUser=:cs1 and SystemPassword=:cs2');
  DataForm.ABSQuery1.ParamByName('cs1').AsString:=trim(edt_user.Text);
  DataForm.ABSQuery1.ParamByName('cs2').AsString:=trim(edt_password.Text);
  DataForm.ABSQuery1.Open;
  if DataForm.ABSQuery1.RecordCount>0 then
    close
  else begin
    inc(i);
    if i=5 then Application.Terminate;
    application.MessageBox(pchar('用户名或密码不正确，您还有 '+inttostr(5-i)+' 次机会，请重新输入！'),'提示信息',MB_OK+MB_ICONINFORMATION);
    edt_user.SetFocus;
  end;  
end;

procedure TPassWordForm.btn_cancelClick(Sender: TObject);
begin
  Application.Terminate
end;

procedure TPassWordForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
  begin
    Key:=#0;
    Perform(CM_DialogKey,VK_TAB,0);
  end;  
end;

procedure TPassWordForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DataForm.ABSQuery1.SQL.Clear;
  Action:=cafree;
end;

end.