unit8.~pas

来自「考试系统,有学生考试,查询成绩,老师管理题库,生成试卷,查询成绩功能.」· ~PAS 代码 · 共 58 行

unit Unit8;

interface

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

type
  TForm8 = class(TForm)

    Image1: TImage;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form8: TForm8;
implementation
uses Unit2, Unit5, stuCheck;
{$R *.dfm}
procedure TForm8.RadioButton3Click(Sender: TObject);
begin
Form8.Hide;
Form10.Show;
end;

procedure TForm8.RadioButton2Click(Sender: TObject);
begin
Form8.Hide;
Form2.Show;
end;

procedure TForm8.RadioButton1Click(Sender: TObject);
begin
if  Unit5.ke=0  then
     Table1.TableName:='数学试卷.db' ;
if  Unit5.ke=1  then
     Table1.TableName:='英语试卷.db' ;
if  Unit5.ke=2 then
    Table1.TableName:='语文试卷.db';
Table1.Active:=True;
DBGrid1.Visible:=true;
end;

end.