logindlg.pas

Delphi的在线考试系统

unit logindlg;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, ComCtrls,ADODB;

type
  TLogin = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    procedure FormShow(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     usertype:String;
     username:String;
     quanxiang:String;
  end;

var
  Login: TLogin;

implementation

uses DataModule, add;

{$R *.dfm}

procedure TLogin.FormShow(Sender: TObject);
begin
   edit1.Text:='';
   edit2.Text:='';
   edit3.Text:='';
   edit4.Text:='';
end;

procedure TLogin.OKBtnClick(Sender: TObject);
var query: TADOQuery;
begin
    if  PageControl1.ActivePageIndex=0 then  begin //管理员登录
        if Trim(edit1.Text)='' then begin
        MessageBox(handle, '请输入管理员名', '提示',  mb_IconWarning + mb_Ok);
        edit1.Clear;
        edit2.Clear;
        edit1.SetFocus;
        end  else begin
        query := TADOQuery.Create(nil);
        query.Connection := Data.Connection;
        query.Close;
        query.SQL.Clear;
        query.SQL.Text:='select * from  管理员 where 姓名='''+Trim(edit1.Text)+''' and 密码='''+Trim(edit2.Text)+'''';
        query.Open;
            if query.Recordset.RecordCount=0 then begin //没有这个用户
               MessageBox(handle, '用户名或密码错误', '提示',  mb_IconWarning + mb_Ok);
               edit1.Clear;
               edit2.Clear;
               edit1.SetFocus;
             end  else  begin
               usertype:='管理员';
               username:=trim(edit1.Text);
               quanxiang:=trim(query.FieldbyName('权限').AsString);
               self.modalresult:= mrOk;
            end;
         end;

    end else begin     //用户登录
     if Trim(edit3.Text)='' then begin
        MessageBox(handle, '请输入准考证号', '提示',  mb_IconWarning + mb_Ok);
        edit3.Clear;
        edit4.Clear;
        edit3.SetFocus;
        end  else begin
        query := TADOQuery.Create(nil);
        query.Connection := Data.Connection;
        query.Close;
        query.SQL.Clear;
        query.SQL.Text:='select * from  学生 where 准考证号='''+Trim(edit3.Text)+''' and 密码='''+Trim(edit4.Text)+'''';
        query.Open;
            if query.Recordset.RecordCount=0 then begin //没有这个用户
               MessageBox(handle, '准考证号名或密码错误', '提示',  mb_IconWarning + mb_Ok);
               edit3.Clear;
               edit4.Clear;
               edit3.SetFocus;
             end  else  begin
               usertype:='学生';
               username:=Trim(query.FieldbyName('姓名').AsString);
               quanxiang:=Trim(edit3.Text);
               self.modalresult:= mrOk;
            end;
         end;
    end;

end;

procedure TLogin.Button1Click(Sender: TObject);
var userdlg:TAddUser;
begin
    Hide;
    userdlg := TAddUser.Create(self);
    userdlg.ShowModal;
    Show;
end;

end.