login.pas

网络考试系统

unit login;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Image2: TImage;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);


  private
    { Private declarations }
  public
    { Public declarations }
    Tpassword:String;
    Tusername:string;
  end;

var
  Form1: TForm1;



implementation

uses ServerMain, Welcome;

{$R *.dfm}

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);

begin
        if key = 13 then
        Edit2.setfocus;
end;

procedure TForm1.Edit2KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
      if key = 13 then


       SpeedButton1.click;
end;



procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if Edit1.Text='' then
       begin
         MessageBox(handle, '请输入用户名!', '提示',  mb_IconInformation + mb_Ok);
         Edit1.SetFocus;
         exit;
        end;
    if Edit1.Text<>'' then

      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Add('select * from tb_teacher where th_username='+chr(39)+edit1.Text+chr(39));
      ADOQuery1.Active;
      ADOQuery1.Open;                                           //从数据库中找出与用户名相同的用户
      if  ADOQuery1.Eof then
          begin
          MessageBox(handle, '此用户不存在!', '提示',  mb_IconInformation + mb_Ok);
          Edit1.Text :='';
          Edit2.Text :='';
          Edit1.SetFocus;
          Exit;

          end;
      if  ADOQuery1.Fields[2].AsString=Edit2.Text then
              begin

              {Application.MessageBox('登录成功！','信息',48); }

              Tpassword :=edit2.Text;
              Tusername :=edit1.Text;

              Form2.Visible:=true;
              form1.Hide;


              end
     else
        begin
        MessageBox(handle, '口令错误!', '提示',  mb_IconInformation + mb_Ok);
         edit1.Clear;
         edit2.Clear ;
         edit1.SetFocus;
         exit;
         end;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
       Form1.close;
       Application.Terminate;
end;

end.