jinru.pas

来自「商品批发管理系统ADO版」· PAS 代码 · 共 103 行

unit jinru;

interface

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

type
  Tdenglu = class(TForm)
    nameEdit: TEdit;
    psEdit: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    enBt: TButton;
    disBt: TButton;
    ADOTable1: TADOTable;
    ADOTable1name: TStringField;
    ADOTable1password: TStringField;
    ADOTable1jb: TStringField;
    XPMenu1: TXPMenu;
    procedure disBtClick(Sender: TObject);
    procedure enBtClick(Sender: TObject);
    procedure psEditKeyPress(Sender: TObject; var Key: Char);
    procedure FormActivate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);



  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  denglu: Tdenglu;
  count:integer;

implementation

uses main;

{$R *.dfm}




procedure Tdenglu.psEditKeyPress(Sender: TObject; var Key: Char);
begin
  if (key=#13) then
    enbt.Click;
end;

procedure Tdenglu.FormActivate(Sender: TObject);
begin
nameedit.SetFocus;
adotable1.Active:=true;
end;


procedure Tdenglu.disBtClick(Sender: TObject);
begin
close;
end;

procedure Tdenglu.enBtClick(Sender: TObject);
var
  r:variant;
  a:byte;
begin

    count:=count+1;
    try
    r:=adotable1.Lookup('name',nameEdit.Text,'jb');
    form1.jibie.Text:=r;//把参数传给form1
    except
    end;

    r:=adotable1.Lookup('name',nameEdit.Text,'password');
    if r=psedit.Text then
      begin
         denglu.Hide;
         form1.ShowModal;
      end
    else
      begin
       psedit.Text:='';
       showmessage('密码错误，请重新输入');
       psedit.SetFocus;
       if (count=3) then
          close;
      end;
end;


procedure Tdenglu.FormDestroy(Sender: TObject);
begin
adotable1.Active:=false;
end;

end.