login.~pas

来自「另一种管理模式下的图书管理系统SQL源程序」· ~PAS 代码 · 共 95 行

unit Login;

interface

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

type
  Tt_login = class(Tf_baseform)
    Panel1: TPanel;
    Confirm: TButton;
    Cancel: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Username: TEdit;
    Password: TEdit;
    Image1: TImage;
    procedure UsernameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ConfirmClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure CancelClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  t_login: Tt_login;
  isclose: Boolean = True;
implementation
  uses Data,main;
{$R *.dfm}

procedure Tt_login.UsernameKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if Key = vk_Return then
    FindNext(True);
end;

procedure Tt_login.ConfirmClick(Sender: TObject);
begin
  inherited;
  if (Trim(Username.Text)<>'') and (Trim(Password.Text)<>'') then
  begin
    With t_data.Query1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('select * from tb_operator where name = :name and password = :password');
      Parameters.ParamByName('name').Value := Username.Text;
      Parameters.ParamByName('password').Value := Password.Text;
      Open;
    end;
    if t_Data.Query1.RecordCount>0 then
    begin
      isclose:= False;
      Main.Username := Username.Text;
      f_main.Bar.Panels[opercontent].Text :=Username.Text;;
      Close;
    end
    else
    begin
      Main.Username := '';
      Application.MessageBox('用户名或密码不正确.','提示',64);
      Username.SetFocus;
    end;
  end
  else
  begin
    Application.MessageBox('用户名或密码不能为空.','提示',64);
    Username.SetFocus;
  end;
end;

procedure Tt_login.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  if isclose= True then
    Application.Terminate;
end;

procedure Tt_login.CancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.