studentlogin.~pas

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

unit studentlogin;

interface

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

type
  TForm9 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    i_user1: TEdit;
    Label3: TLabel;
    i_passwd1: TEdit;
    B_login1: TButton;
    B_cancel1: TButton;
    T_user1: TTable;
    procedure B_login1Click(Sender: TObject);
    procedure B_cancel1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses studentsystem, teacherlogin, studentsys, teach;

{$R *.dfm}

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

procedure TForm9.B_cancel1Click(Sender: TObject);
begin
   form9.Hide ;
   form3.show;
end;

procedure TForm9.FormCreate(Sender: TObject);
begin
     i_user1.Text :=' ';
     i_passwd1.Text :=' ';
end;

end.