exam.pas

很不错很实用的学生联机考试系统

unit exam;

interface

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

type
  Tlogin = class(TForm)
    number: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    password: TEdit;
    Button1: TButton;
    Query1: TQuery;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Button2: TButton;
    Database1: TDatabase;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;
 

implementation

uses w_Testpaper,w_stu_main,w_tch_main;

{$R *.dfm}

procedure Tlogin.Button1Click(Sender: TObject);
var pass:String;
begin
pass:=password.Text;
Query1.Close;
Query1.DatabaseName:='exam';
Query1.SQL.Clear;
if(RadioButton1.Checked) then
 begin
Query1.SQL.Add('select * from "STDINF" where stu_id = :num');
Query1.Prepare;
Query1.ParamByName('num').AsString:=number.Text;
Query1.Open;
if(Query1.IsEmpty ) then
   ShowMessage('该学生信息不存在！')
else
 begin
if(pass<>Query1.Fields[5].AsString) then
    ShowMessage('密码错误！')
else
  begin

  Application.CreateForm(Tstudent,student);
  self.Visible:=false;
  student.Visible:=true ;
  end ;
  end;
 end
  else
   begin
   if(RadioButton2.Checked)  then
   begin
   Query1.SQL.Add('select * from "TCHINF" where TCH_ID = :num');
   Query1.Prepare;
   Query1.ParamByName('num').AsString:=number.Text;
   Query1.Open;
   if(Query1.IsEmpty ) then
   ShowMessage('该教师信息不存在！')
else
  begin
  if(pass<>Query1.Fields[1].AsString) then
    ShowMessage('密码错误！')
else
   begin
   Application.CreateForm(Tteacher,teacher);
   teacher.Visible:=true;
   self.Visible:=false;
   end;
  end;
 end;
 end;
end;

procedure Tlogin.Button2Click(Sender: TObject);
 begin
 self.close;

 end;

 procedure Tlogin.RadioButton2Click(Sender: TObject);
begin
label1.caption:='老师：';
end;

procedure Tlogin.RadioButton1Click(Sender: TObject);
begin
label1.caption:='学号：';
end;

end.