pass.pas

图书借阅管理系统

unit pass;

interface

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

type
  TFpass = class(TForm)
    ComboBox1: TComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Fpass: TFpass;
  adminuser:string;

implementation

uses Datamodule, Main;

{$R *.dfm}

procedure TFpass.FormActivate(Sender: TObject);
begin
   datamodule1.adopass.open;
   datamodule1.adopass.first;
   while not datamodule1.adopass.eof do
    begin
     combobox1.Items.Add(datamodule1.adopass.fieldbyname('用户').value);
     datamodule1.adopass.next;
    end;
    //datamodule1.adopass.close;
end;

procedure TFpass.BitBtn1Click(Sender: TObject);
   var
     username,password:string;
begin
   if combobox1.text='' then
    begin
     application.MessageBox('请输入用户名!','提示',0+64);
     exit;
    end;
   if edit1.Text='' then
    begin
     application.MessageBox('请输入密码!','提示',0+64);
     exit;
    end;
   username:=combobox1.Text;
   datamodule1.adopass.close;
   datamodule1.adopass.sql.clear;
   datamodule1.adopass.sql.Add('select 密码 from admin where 用户=:username');
   datamodule1.adopass.parameters.ParamValues['username']:=combobox1.Text;
   datamodule1.adopass.open;
   password:=datamodule1.adopass.FieldValues['密码'];
   if password=edit1.Text then
     begin
      Fpass.Visible:=false;
      application.MessageBox('成功登陆!','提示',0+64);
      Application.CreateForm(TForm1, Form1);
      form1.showmodal;
     end
   else
     begin
      application.MessageBox('密码错误!!','提示',0+48);
      exit;
     end;
  adminuser:=combobox1.Text;
end;

procedure TFpass.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
   BitBtn1.click;
end;

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

end.