unit1.pas

大家可以看看还不错的管理系统

unit Unit1;

interface

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

type
  TFmLogin = class(TForm)
    RdbOperator: TRadioButton;
    RdbStudent: TRadioButton;
    txtpwd: TEdit;
    LbPassword: TLabel;
    BtOk: TButton;
    BtCancel: TButton;
    XPManifest1: TXPManifest;
    ADOQuery: TADOQuery;
    Image1: TImage;
    Label1: TLabel;
    txtNo: TEdit;
    procedure BtOkClick(Sender: TObject);
    procedure BtCancelClick(Sender: TObject);
    procedure txtpwdKeyPress(Sender: TObject; var Key: Char);
    procedure RdbStudentClick(Sender: TObject);
    procedure RdbOperatorClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FmLogin: TFmLogin;

implementation

uses Unit2;

{$R *.dfm}
//``````按下“确定”后进行登陆`````````````````````````
procedure TFmLogin.BtOkClick(Sender: TObject);
begin
 with adoquery  do
 begin
    close;
    SQL.Clear;
//”学生“身份登陆
  if   RdbStudent.Checked = true  then
  begin
     SQL.Add('SELECT * FROM lenders  WHERE 挂失='+'''活跃'''+' AND 借书证号=' + '''' + txtpwd.text + ''''  );
      open;

     if ADOQuery.RecordCount <>1 then
      begin
      Messagebox(handle,'您输入的卡号有错或者您的图书证已被冻结使用，请检查再输入。','登录错误',MB_OKCANCEL	+IDABORT	);
      txtpwd.Text :='';
      end
      else
        begin
          FmOperator.Button4.Enabled :=false;
          FmOperator.BtnStuMsgChg.Enabled :=false;
          FmOperator.BtnBkMsgChg.Enabled :=false;
          FmOperator.Button1.Enabled :=false;
          FmOperator.Show;
          FmLogin.Hide ;
        end;

  end
//”管理员“登陆
  else if RdbOperator.checked = true then
    begin
    try
      with adoquery do
      begin
        close;
        SQL.Clear;
        SQL.Add('select  * from Admin where  管理员编号= '+ txtNo.text+' and 密码= '+txtpwd.Text );
        open;

     if ADOQuery.RecordCount >0 then
       begin
         FmOperator.Show;
         FmLogin.Hide ;
       end
     else
     begin
          Messagebox(handle,'您输入的管理员编号或者密码有错，请检查后再输入。','登录错误',MB_OK	+MB_ICONEXCLAMATION	);
          txtNo.Text :='';
          txtpwd.Text :='';
          txtNo.SetFocus;
      end;
    end;
    except
      exit;
    end;
  end;
  end;
 end;


//```````````按下”取消“后退出````````````````````````````````
procedure TFmLogin.BtCancelClick(Sender: TObject);
begin
   application.Terminate;
end;

procedure TFmLogin.txtpwdKeyPress(Sender: TObject; var Key: Char);
begin
if Key = Char(VK_RETURN) then
    begin
      BtOk.Click ;
    end;
end;
//````````````点击”学生“``````````````````````````````````
procedure TFmLogin.RdbStudentClick(Sender: TObject);
begin
  label1.Visible :=false;
  txtNo.Visible := false;
  LbPassword.Top:=200;
  txtpwd.Top:=200;
  LbPassword.Caption := '请输入卡号：';
  LbPassword.Visible:=true;
  txtpwd.Visible:=true;
  txtpwd.SetFocus;
end;
//``````````````点击”管理员“``````````````````````````````
procedure TFmLogin.RdbOperatorClick(Sender: TObject);
begin
  LbPassword.Top:=232;
  txtpwd.Top:=224;
  LbPassword.Caption := '请输入密码： ';
  label1.Visible :=true;
  LbPassword.Visible:=true;
  txtNo.Visible :=true;
  txtpwd.Visible:=true;
  txtNo.SetFocus;
end;

end.