unit1.pas

考试系统,有学生考试,查询成绩,老师管理题库,生成试卷,查询成绩功能.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Table1: TTable;
    DataSource1: TDataSource;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1Exit(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Exit(Sender: TObject);

    procedure Label3Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  username: Integer;
implementation

uses Unit2,stuCheck, Unit5;

{$R *.dfm}

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
         if key=#13 then
             Edit2.SetFocus;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
       if Edit1.Text='' then
       begin
       Edit1.Setfocus;
       MessageDlg('输入不能为空',mtError,[mbOK],0);
       end;
end;
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
       if key=#13 then
       Edit1.SetFocus;
end;
procedure TForm1.Edit2Exit(Sender: TObject);
begin
       if Edit2.Text='' then
       begin
       Edit2.Setfocus;
       MessageDlg('输入不能为空',mtError,[mbOK],0);
       end;
end;


procedure TForm1.Label3Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
end;

procedure TForm1.Label4Click(Sender: TObject);
begin
 if Table1.Locate('学号',edit1.Text,[]) then
  begin
   if Table1.FieldByName('密码').AsString=Edit2.Text then
    begin
        username:=strtoint(edit1.Text);
        Form1.Hide;
        Form5.Show;
    end
   else
     ShowMessage('你输入的密码有误');
    end
  else
    ShowMessage('你输入的学号有误');
end;

procedure TForm1.Label5Click(Sender: TObject);
begin
if Table1.Locate('学号',edit1.Text,[]) then
  begin
   if Table1.FieldByName('密码').AsString=Edit2.Text then

    begin
        username:=strtoint(edit1.Text);
        Form1.Hide;
        Form10.Show;

    end
   else
     ShowMessage('你输入的密码有误');
    end
  else
    ShowMessage('你输入的学号有误')
end;

end.