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:='數(shù)學(xué).db';
table1.Active:=true;
 table2.active:=false;
table2.tableName:='數(shù)學(xué)試卷.db';
table2.Active:=true;
end;

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

procedure TForm3.RadioButton2Click(Sender: TObject);
begin
        table1.active:=false;
table1.tableName:='英語(yǔ).db';
table1.Active:=true;
 table2.active:=false;
table2.tableName:='英語(yǔ)試卷.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.