unit3.pas

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

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Image1: TImage;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    Table1: TTable;
    BitBtn2: TBitBtn;
    DataSource2: TDataSource;
    Table2: TTable;
    Label1: TLabel;
    Label8: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure Label8Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit4, Unit1, zidong;

{$R *.dfm}

procedure TForm3.RadioButton3Click(Sender: TObject);
begin
table1.active:=false;
table1.tableName:='数学.db';
table1.Active:=true;
 table2.active:=false;
table2.tableName:='数学试卷.db';
table2.Active:=true;
end;

procedure TForm3.RadioButton1Click(Sender: TObject);
begin
table1.active:=false;
table1.tableName:='语文.db';
table1.Active:=true;
  table2.active:=false;
table2.tableName:='语文试卷.db';
table2.Active:=true;
end;

procedure TForm3.RadioButton2Click(Sender: TObject);
begin
        table1.active:=false;
table1.tableName:='英语.db';
table1.Active:=true;
 table2.active:=false;
table2.tableName:='英语试卷.db';
table2.Active:=true;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
begin
table1.active:=true;
table2.edit;
table2.FieldByName('题目').AsString:=table1.fieldbyname('题目').AsString;
table2.FieldByName('答案').AsString:=table1.fieldbyname('答案').AsString;
table2.FieldByName('类型').AsString:=table1.fieldbyname('类型').asstring;
table2.FieldByName('分值').AsString:=table1.fieldbyname('分值').AsString;
table2.FieldByName('难度').AsString:=table1.fieldbyname('难度').AsString;
table2.FieldByName('A').AsString:=table1.fieldbyname('A').AsString;
table2.FieldByName('B').AsString:=table1.fieldbyname('B').AsString;
table2.FieldByName('C').AsString:=table1.fieldbyname('C').AsString;
table2.FieldByName('D').AsString:=table1.fieldbyname('D').AsString;
table2.post;
table2.Next;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
table2.edit;
table2.FieldByName('题目').AsString:='';
table2.FieldByName('答案').AsString:='';
table2.FieldByName('类型').AsString:='';
table2.FieldByName('分值').AsString:='';
table2.FieldByName('难度').AsString:='';
table2.FieldByName('A').AsString:='';
table2.FieldByName('B').AsString:='';
table2.FieldByName('C').AsString:='';
table2.FieldByName('D').AsString:='';
table2.post;
table2.prior;
end;

procedure TForm3.Label1Click(Sender: TObject);
begin
form3.Close;
form1.show;      
end;

procedure TForm3.Label2Click(Sender: TObject);
begin
form3.close;
form1.Show;
end;

procedure TForm3.Label8Click(Sender: TObject);
begin
form3.close;
form4.show;
end;

procedure TForm3.Label6Click(Sender: TObject);
begin
form5.show;
end;

end.