teacherlogin.pas

DElphi教学排课管理系统全套 包括论文。希望对大家有帮助

unit teacherlogin;

interface

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

type
  TForm8 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    i_user: TEdit;
    Label3: TLabel;
    i_passwd: TEdit;
    B_login: TButton;
    B_cancel: TButton;
    T_user: TTable;
    procedure B_loginClick(Sender: TObject);
    procedure B_cancelClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses studentsys, teach;

{$R *.dfm}

procedure TForm8.B_loginClick(Sender: TObject);
begin
   try
     T_user.Filter :='ID='''+i_user.text+'''';
     T_user.Filtered :=true;
     T_user.Open ;
   except
     Application.MessageBox ('请与系统管理员联系','数据库连接错误',MB_OK);
     Application.Terminate ;
   end;
    if T_user.RecordCount =1 then
    begin
       if T_user['PASSWD']=i_passwd.Text then
       begin
          if T_user['AUTHORITY']='2' then
          begin
              form8.Hide;
              form12.show;
              i_user.Text :=' ';
              i_passwd.Text :=' ';
          end
          else
              Application.MessageBox('请选择合适的登录软件','用户权限错误',MB_OK);
          end
          else
              Application.MessageBox('请确认密码，注意大小写','密码不正确',MB_OK);
          end
          else
              Application.MessageBox('请确认用户名是否正确!','无此用户',MB_OK);
         
end;

procedure TForm8.B_cancelClick(Sender: TObject);
begin
    form8.Hide;
    form3.show;
end;

procedure TForm8.FormCreate(Sender: TObject);
begin
        i_user.Text :=' ';
        i_passwd.Text :=' ';
end;

end.