jiaowuke.pas

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

unit jiaowuke;

interface

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

type
  TForm10 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    i_user2: TEdit;
    Label3: TLabel;
    i_passwd2: TEdit;
    B_login: TButton;
    T_user2: TTable;
    B_cancel: TButton;
    procedure B_loginClick(Sender: TObject);
    procedure B_cancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation

uses jiaowu, teach;

{$R *.dfm}

procedure TForm10.B_loginClick(Sender: TObject);
begin
   try
    T_user2.Filter :='ID='''+i_user2.text+'''';
    T_user2.Filtered :=true;
    T_user2.Open ;
   except
    application.MessageBox('请与系统管理员联系。','数据库接连错误！',MB_OK);
    application.Terminate ;
   end;
   if T_user2.RecordCount =1 then
   begin
     if T_user2['PASSWD']=i_passwd2.Text then
     begin
       if T_user2['AUTHORITY']='3' then
       begin
           form10.Hide ;
           i_user2.Text :=' ';
           i_passwd2.Text :=' ';
           form11.show;
       end
       else
           application.MessageBox('请选择合适的登录软件','用户权限错误',MB_OK)
       end
       else
           application.MessageBox('请确认密码或者没注意大小写','密码不匹配',MB_OK)
       end
       else
           application.MessageBox('请确认用户名是否正确或没注意大小写','无此用户',MB_OK);
end;


procedure TForm10.B_cancelClick(Sender: TObject);
begin
    form10.Hide ;
    form3.show;
end;

procedure TForm10.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     application.Terminate ;
end;

procedure TForm10.FormCreate(Sender: TObject);
begin
    i_user2.Text :='';
    i_passwd2.Text :='';
end;

end.