u_login.~pas

教学管理系统 数据库系列

unit u_login;

interface

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

type
  TF_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    i_user: TEdit;
    i_passwd: TEdit;
    Button1: TButton;
    Button2: TButton;
    T_user: TTable;
    Database1: TDatabase;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_login: TF_login;

implementation

uses u_main;

{$R *.DFM}

procedure TF_login.Button2Click(Sender: TObject);
begin
  close;
end;

procedure TF_login.Button1Click(Sender: TObject);
begin
  try
    Database1.Connected:=True;
    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']='1' then
      begin
        F_login.Hide;
        F_main.show;
      end
      else
       Application.MessageBox('请选择合适的登录软件！', '用户权限错误',MB_OK);
    end
    else
      Application.MessageBox('请确认密码，注意大小写！', '密码不匹配', MB_OK);
  end
  else
    Application.MessageBox('请确认用户名是否正确！', '无此用户', MB_OK);
end;

end.