denglu.~pas

一个比较好的网上考试系统

unit denglu;

interface

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

type
  TForm2 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOConnection1: TADOConnection;
    q1: TADOQuery;
    edit2: TEdit;
    edit1: TEdit;
    Image1: TImage;
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
uses server,quanju;
{$R *.dfm}

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin

     form1.Close;

end;

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

       q1.Close;
       q1.SQL.Clear;
       q1.SQL.Add('select * from account where admin='+chr(39)+edit1.Text+chr(39));
       q1.Active;
       q1.Open;                                           //从数据库中找出与用户名相同的用户
       if q1.Eof then
          begin
          MessageBox(handle, '此用户不存在!', '提示',  mb_IconInformation + mb_Ok);
           edit1.Text :='';
           edit1.SetFocus;
           exit;
           end;
           if q1.Fields[1].asstring=edit2.Text then
              begin
              application.MessageBox('登录成功！','信息',48);
               form1.ss1.Active:=true;
              quanju.password :=edit2.Text;
              quanju.admin:=edit1.Text;
              if form1.ss1.Active=true then
                begin
                  form1.stu.Panels[1].Text :='                                                                                      考 试 服 务 器 已 启 动！ '

                end;
              form1.stu.Panels[0].Text:='   管理员您好！ 谢谢使用局域网考试系统V 1.0   ';
  //---- --  -------密码相等登录成功-----------------------------------------------------//
              edit1.Clear;
              edit2.Clear;
              form2.Visible:=false;
              form1.N4.Enabled:=true ;
              form1.N6.Enabled:=true;
              form1.N13.Enabled:=true;
              form1.s1.Enabled:=true;
              form1.s2.Enabled:=true;
              form1.s3.Enabled:=true;
              form1.s4.Enabled:=true;
              form1.s5.Enabled:=true;
              form1.s6.Enabled:=true;
// ---------------------------------------特权状态下按纽变为可用---------------------// 
              exit;
              end
     else
        begin
       MessageBox(handle, '口令错误!', '提示',  mb_IconInformation + mb_Ok);
         edit1.Clear;
         edit2.Clear ;
         edit1.SetFocus;
         exit;
         end;

       end;


end.