frmuserlogin.pas

适应用于家庭养鸡方面的人工

unit frmuserlogin;

interface

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

type
  TuserloginFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    E_Pwd: TEdit;
    img1: TImage;
    img2: TImage;
    E_User: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  userloginFrm: TuserloginFrm;

implementation

uses frmlink, frmmain;

{$R *.dfm}

procedure TuserloginFrm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TuserloginFrm.BitBtn1Click(Sender: TObject);
var
  username,userpwd:string;
begin
  username := E_User.Text;
  userpwd:= E_Pwd.Text;
  with linkFrm.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select username,password from userT where username =:user and password =:pwd');
    parameters[0].value:=username;
    parameters[1].value:=userpwd;
    try
      open;
      if not eof then
      begin
         if not assigned(MainFrm) then
         MainFrm:=TMainFrm.Create(nil);
         MainFrm.Show;
      end else
      begin
        MessageDlg('没有此用户,或者输入密码不对！',mtError,[mbok],0);
        e_user.SetFocus;
      end;
    except
      close;
    end;
  end;
end;

procedure TuserloginFrm.FormShow(Sender: TObject);
begin
  with linkFrm.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select username from userT');
    try
      open;
      while not eof do
      begin
         E_User.Items.Add(fieldbyname('username').AsString);
         next;
      end;
    except
      close;
    end;
  end;
end;

end.