login.pas

来自「一个简单的图书管理信息系统」· PAS 代码 · 共 97 行

unit login;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    ok: TBitBtn;
    exit: TBitBtn;
    procedure okClick(Sender: TObject);
   procedure exitClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

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

var
  Form1: TForm1;
 

implementation

uses Main,DataModule;

{$R *.dfm}

procedure TForm1.okClick(Sender: TObject);
var
  result:variant;
begin
  
  with DataModuleADO.ADOQuery1 do
  begin
    SQL.Clear;
    SQL.Add('select * from manager where name =:name and pwd=:pwd');
    Parameters.ParamByName('name').Value :=Edit1.Text;
    Parameters.ParamByName('pwd').Value :=Edit2.Text;
    Open;
    if not eof then
      begin
        Application.MessageBox('登录成功!','信息',mb_ok or mb_iconInformation);
        form1.hide;
        MainForm.show;
      end
    else
      begin
        Application.MessageBox('用户名或密码错误,'+#13+'请重新输入!','错误',mb_ok or mb_iconError);
        Edit1.Text:='';
        Edit2.Text:='';
         Edit1.SetFocus;

      end;
  end;
  
end;



procedure TForm1.exitClick(Sender: TObject);
begin
close;
end;



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

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if(key=#13) then
    ok.Click;
end;

end.