loginf.pas

来自「用delphi和sql server编写的校园IC卡管理系统。」· PAS 代码 · 共 133 行

unit loginF;

interface

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

type
  Tlogin = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    ADOQuery1: TADOQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);

  private
    { Private declarations }
    
  public
    { Public declarations }
    procedure clear();//定义清除函数clear();
  end;

var
  login: Tlogin;

implementation

{$R *.dfm}

uses mainF;
// *********清除输入框信息函数clear()***********
procedure Tlogin.clear;
begin
edit1.Clear;
edit2.Clear;
end;
//***********用户登录过程************
procedure Tlogin.BitBtn1Click(Sender: TObject);
var
  number,user,passw,issuper:string;
begin
 user:=trim(edit1.Text);
 passw:=trim(edit2.Text);
 //要求在用户姓名输入框和密码输入框中 输入信息
 if user='' then
 begin
 messagedlg('请输入用户姓名!',mtWarning,[mbOK],0);
 edit1.SetFocus;
 exit;
 end;
 if passw='' then
 begin
 messagedlg('请输入用户密码!',mtWarning,[mbOK],0);
 edit2.SetFocus;
 exit;
 end;
 //查看是否存在此用户
 adoquery1.Close;
 adoquery1.SQL.clear;
 adoquery1.SQL.Add('select * from 管理员表 where 姓名='''+user+'''and 密码='''+passw+'''');
 adoquery1.Open;
 number:=adoquery1.FieldByName('编号').AsString;
 issuper:=trim(adoquery1.fieldByName('是否超级管理员').AsString);

 if (number<>'') then
 begin
 //打开可执行权限
  main.IC1.Enabled:=true;     //卡登记
  main.N4.Enabled:=true;      //办理新卡
  main.IC2.Enabled:=true;     //IC卡挂失
  main.IC3.Enabled:=true;     //IC卡解挂
  main.IC4.Enabled:=true;     //IC卡注销
  main.IC5.Enabled:=true;     //IC卡充值
  main.IC6.Enabled:=true;     //IC卡密码修改
  main.N5.Enabled:=true;      //密码修改起始栏
  main.SpeedButton1.Enabled:=true;    //办理新卡
  main.SpeedButton2.Enabled:=true;    //IC卡挂失快捷鍵
  main.SpeedButton3.Enabled:=true;    //IC卡解挂快捷鍵
  main.SpeedButton4.Enabled:=true;    //IC卡注销快捷鍵
  main.SpeedButton5.Enabled:=true;    //IC卡充值快捷鍵
  main.SpeedButton7.Enabled:=true;    //IC卡密码修改快捷鍵
  if (issuper='是') then
  begin
  //超级管理员可进行管理员权限操作
  main.N6.Enabled:=true;            //管理员权限
  main.N7.Enabled:=true;            //刷卡机设置
  main.SpeedButton6.Enabled:=true;  //管理员权限快捷鍵　
  end;
    messagedlg('  登录成功!  ',mtInformation,[mbOK],0);
  close;
  end
 else
 messagedlg('用户名或密码错误，请核对！',mtWarning,[mbOK],0);

end;

//*************退出窗口并清空信息*************
procedure Tlogin.BitBtn2Click(Sender: TObject);
begin
clear();
close;
end;
//**************输入完用户名称之后按回车鍵跳到密码输入框*******
procedure Tlogin.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
edit2.setfocus;
end;
//**********启动窗口时清空信息***********
procedure Tlogin.FormCreate(Sender: TObject);
begin
clear();
end;
//***********输入完密码之后按回车鍵，执行登录***********
procedure Tlogin.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
bitbtn1.Click;
end;

end.