loginunit.pas

工廠採購管理系統

unit loginunit;

interface

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

type
  Tloginform = class(TForm)
    Image1: TImage;
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    ADOQuery1: TADOQuery;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
   check:boolean;
   times:integer;
    { Public declarations }
  end;

var
  loginform: Tloginform;

implementation
     uses uconst,ufunction;
{$R *.dfm}

procedure Tloginform.FormCreate(Sender: TObject);
begin
  times:=0;
  
end;

procedure Tloginform.BitBtn1Click(Sender: TObject);

begin
 strsql:='select * from sec where dh='+''''+trim(edit1.Text)+''''+' and password='+
 ''''+trim(edit2.Text)+'''';
 adoexect(adoquery1,strsql);
 if adoquery1.Recordset.eof and adoquery1.Recordset.BOF then
 begin
 messagebox(handle,'帐号或密码不正确，请确认后重新登陆','提示',mb_ok+mb_iconinformation);
 edit1.SetFocus;
 times:=times+1;
 if times>3 then
 begin
 messagebox(handle,'对不起！您三次登陆机会均不成功，系统拒绝登陆','信息',mb_ok+mb_iconinformation);
 application.Terminate;
 end;
 exit;
 end;
 messagebox(handle,'恭喜！登陆成功','信息',mb_ok+mb_iconinformation);
 userid:=trim(adoquery1.fieldbyname('dh').asstring);
 username:=trim(adoquery1.fieldbyname('xm').asstring);
 jb:=trim(adoquery1.fieldbyname('jb').asstring);
 adoquery1.Close;
 close;
end;

procedure Tloginform.BitBtn2Click(Sender: TObject);
begin
  Application.Terminate ;
end;

procedure Tloginform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key='13' then
    edit2.SetFocus ;
end;

procedure Tloginform.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key='13' then
    BitBtn1Click(self);
end;

procedure Tloginform.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;

end.