stucheck.~pas

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

unit stuCheck;

interface

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

type
  TForm10 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Table2: TTable;
    DBGrid2: TDBGrid;
    DataSource2: TDataSource;
    Label5: TLabel;
    Table3: TTable;
    DataSource3: TDataSource;
    DBGrid3: TDBGrid;
    ComboBox1: TComboBox;
    Table1: TTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Label4: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form10: TForm10;

implementation
uses Unit1, Unit2;
{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);
begin
Table1.Active:=False;
Table1.Filtered:=True;
Table1.Filter:='学号='+inttostr(Unit1.username);
Table1.Active:=True;
if ComboBox1.Text='数学'then
begin
if Table1.FieldByName('数学成绩').AsString='' then
showMessage('对不起！你还没有参加这门考试，无法查询成绩。' )
else
begin
DBGrid1.Columns[2].Visible:=False;
DBGrid1.Columns[3].Visible:=False;
DBGrid1.Columns[4].Visible:=true;
Table2.Active:=False;
Table2.TableName:='数学试卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='数学答案.db';
Table3.Filtered:=True;
Table3.Filter:='学号='+inttostr(Unit1.username);
Table3.Active:=True;
DBGrid1.Visible:=True;
DBGrid2.Visible:=True;
DBGrid3.Visible:=True;
end;
end;
if ComboBox1.Text='英语'then
begin
if Table1.FieldByName('英语成绩').AsString='' then
showMessage('对不起！你还没有参加这门考试，无法查询成绩。' )
else
begin
DBGrid1.Columns[2].Visible:=true;
DBGrid1.Columns[3].Visible:=False;
DBGrid1.Columns[4].Visible:=False;
Table2.Active:=False;
Table2.TableName:='英语试卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='英语答案.db';
Table3.Filtered:=True;
Table3.Filter:='学号='+inttostr(Unit1.username);
Table3.Active:=True;
DBGrid1.Visible:=True;
DBGrid2.Visible:=True;
DBGrid3.Visible:=True;
end;
end;
if ComboBox1.Text='语文'then
begin
if Table1.FieldByName('语文成绩').AsString='' then
showMessage('对不起！你还没有参加这门考试，无法查询成绩。' )
else
begin
DBGrid1.Columns[2].Visible:=False;
DBGrid1.Columns[3].Visible:=true;
DBGrid1.Columns[4].Visible:=False;
Table2.Active:=False;
Table2.TableName:='语文试卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='语文答案.db';
Table3.Filtered:=True;
Table3.Filter:='学号='+inttostr(Unit1.username);
Table3.Active:=True;
DBGrid1.Visible:=True;
DBGrid2.Visible:=True;
DBGrid3.Visible:=True;
end;
end;


end;

procedure TForm10.Button2Click(Sender: TObject);
begin
Form10.hide;
Form2.show;
end;

end.