logon.~pas

用delphi开发的电力调度操作票系统并带有access数据库

unit Logon;

interface

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

type
  TFrm_Logon = class(TForm)
    ED_NUM: TEdit;
    ED_PSW: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BT_Sure: TButton;
    BT_Clean: TButton;
    ADOQuery: TADOQuery;
    Label3: TLabel;
    procedure BT_CleanClick(Sender: TObject);
    procedure BT_SureClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure ED_PSWKeyPress(Sender: TObject; var Key: Char);
    procedure ED_NUMKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Logon: TFrm_Logon;
  LgCount:integer;
implementation
  uses Main,Common;
{$R *.dfm}

procedure TFrm_Logon.BT_CleanClick(Sender: TObject);
begin
  ED_NUM.Text:='';
  ED_PSW.Text:='';
end;

procedure TFrm_Logon.BT_SureClick(Sender: TObject);
begin
  if (trim(ED_NUM.Text)='') or (trim(ED_PSW.Text)='') then
  begin
    showmessage('请输入用户名或密码');
    Inc(LGCount);
    if LGCount>10 then Frm_Main.Close;
    exit;
  end;
  UserNum:=ED_NUM.Text;//定义在Main中的全局变量
  //UserPSW:='111';
  ADOQuery.SQL.Text:='select * from LogonUser where UserNum='''+UserNum+'''';
  ADOQuery.Open;
  ADOQuery.First;
  UserPSW:=ADOQuery.FieldByName('UserPSW').AsString;
  UserType:=ADOQuery.FieldByName('UserType').AsString;
  if (trim(ED_PSW.Text)=UserPSW) then
  begin
    Frm_Main.Show;
    close;
  end
  else
  begin
    showmessage('用户名或密码错误！请重新输入！');
    ED_PSW.Text:='';
    Inc(LGCount);
    if LGCount>10 then Frm_Main.Close;
  end;
end;

procedure TFrm_Logon.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if UserPSW='' then Frm_Main.Close;
end;

procedure TFrm_Logon.FormCreate(Sender: TObject);
begin
  ADOQuery.Connection:=Frm_Com.ADOConnection;
end;

procedure TFrm_Logon.ED_PSWKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then BT_Sure.Click;
end;

procedure TFrm_Logon.ED_NUMKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then    //按回车键
    ED_PSW.SetFocus;
end;

end.