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:='學(xué)號(hào)='+inttostr(Unit1.username);
Table1.Active:=True;
if ComboBox1.Text='數(shù)學(xué)'then
begin
if Table1.FieldByName('數(shù)學(xué)成績(jī)').AsString='' then
showMessage('對(duì)不起！你還沒(méi)有參加這門考試，無(wú)法查詢成績(jī)。' )
else
begin
DBGrid1.Columns[2].Visible:=False;
DBGrid1.Columns[3].Visible:=False;
DBGrid1.Columns[4].Visible:=true;
Table2.Active:=False;
Table2.TableName:='數(shù)學(xué)試卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='數(shù)學(xué)答案.db';
Table3.Filtered:=True;
Table3.Filter:='學(xué)號(hào)='+inttostr(Unit1.username);
Table3.Active:=True;
DBGrid1.Visible:=True;
DBGrid2.Visible:=True;
DBGrid3.Visible:=True;
end;
end;
if ComboBox1.Text='英語(yǔ)'then
begin
if Table1.FieldByName('英語(yǔ)成績(jī)').AsString='' then
showMessage('對(duì)不起！你還沒(méi)有參加這門考試，無(wú)法查詢成績(jī)。' )
else
begin
DBGrid1.Columns[2].Visible:=true;
DBGrid1.Columns[3].Visible:=False;
DBGrid1.Columns[4].Visible:=False;
Table2.Active:=False;
Table2.TableName:='英語(yǔ)試卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='英語(yǔ)答案.db';
Table3.Filtered:=True;
Table3.Filter:='學(xué)號(hào)='+inttostr(Unit1.username);
Table3.Active:=True;
DBGrid1.Visible:=True;
DBGrid2.Visible:=True;
DBGrid3.Visible:=True;
end;
end;
if ComboBox1.Text='語(yǔ)文'then
begin
if Table1.FieldByName('語(yǔ)文成績(jī)').AsString='' then
showMessage('對(duì)不起！你還沒(méi)有參加這門考試，無(wú)法查詢成績(jī)。' )
else
begin
DBGrid1.Columns[2].Visible:=False;
DBGrid1.Columns[3].Visible:=true;
DBGrid1.Columns[4].Visible:=False;
Table2.Active:=False;
Table2.TableName:='語(yǔ)文試卷.db';
Table2.Active:=True;
Table3.Active:=False;
Table3.TableName:='語(yǔ)文答案.db';
Table3.Filtered:=True;
Table3.Filter:='學(xué)號(hào)='+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.