unit7.pas

理论考试程序,可以自由下载,学习,请多多指点,批评

unit Unit7;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons;

type
  TForm7 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    SpeedButton1: TSpeedButton;
    Bevel1: TBevel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    Bevel2: TBevel;
    SpeedButton2: TSpeedButton;
    RadioButton4: TRadioButton;
    procedure Button14Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
   private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;

implementation

uses Unit4;

{$R *.dfm}

procedure TForm7.Button14Click(Sender: TObject);
begin
{Txtsfzh.Text:=Trim(edit1.Text);
Txtsfzh1.Caption:=' '+Trim(edit1.Text);
Txtxm.Visible:=true;
Txtzjcx.Visible:=true;
Txtsfzh1.Visible:=true;  }



end;

procedure TForm7.Button1Click(Sender: TObject);
begin
{if Trim(Txtsfzh1.Caption) ='' then exit;
//if (length(Trim(Txtsfzh1.caption))<>15) and  (length(Trim(Txtsfzh1.caption))<>18) then
//begin
//exit;
//end;
form4.Button1.Caption:='还有100道题未做'; 
form4.Txtzjcx.Caption:=Trim(Txtzjcx.Text);  




form4.Caption:='模拟试题(汽车类)[成绩]';
form4.Txtlx.Text:='1';
//form4.Txtbz1.Text :='1';
form4.Txtsfzh.Caption:=Trim(Txtsfzh.Text);
form4.showmodal;
end;

procedure TForm7.FormActivate(Sender: TObject);
begin
//Txtxm.Visible:=false;
//Txtzjcx.Visible:=false;
//txtsfzh1.Visible :=false;
end;   }
end;

procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
form4.Txtzjcx.Caption:=Trim(combobox1.Text);
form4.Txtsfzh.Caption:=Trim(edit1.Text);
form4.Label7.Caption:=Trim(edit2.Text);
form4.Label15.caption:='未做100道题,已做0道题';
//form4.Txtjszh.Caption:=Trim(edit1.Text);
form4.Caption:=Trim('模拟考试 考试车型【'+Trim(combobox1.Text)+'】');
form4.Txtfcbz.text:='0';
form4.BitBtn11.Enabled:=true;
form4.BitBtn12.Enabled:=true;
form4.BitBtn13.Enabled:=true;
form4.BitBtn5.Enabled:=true;
form4.BitBtn9.Enabled:=true;
form4.Edit1.Font.Color  :=clblack;
form4.Edit2.Font.Color  :=clblack;
form4.Edit3.Font.Color  :=clblack;
form4.Edit4.Font.Color  :=clblack;






form4.ShowModal;
end;

procedure TForm7.FormActivate(Sender: TObject);
begin
RadioButton1.SetFocus;
 
end;

procedure TForm7.RadioButton1Click(Sender: TObject);
begin
combobox1.Text:='A1、B1、A3'; 
end;

procedure TForm7.RadioButton3Click(Sender: TObject);
begin
combobox1.Text:='A2、B2';
end;

procedure TForm7.RadioButton2Click(Sender: TObject);
begin
combobox1.Text:='C1、C2、C3、C4、M';
end;

procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
close;
end;

procedure TForm7.RadioButton4Click(Sender: TObject);
begin
combobox1.Text:='D、E、F';
end;

end.