unit8.pas

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

unit Unit8;

interface

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

type
  TForm8 = class(TForm)
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    Button1: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    RadioButton6: TRadioButton;
    SpeedButton1: TSpeedButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    Image1: TImage;
    RadioButton11: TRadioButton;
    procedure Button1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm8.Button1Click(Sender: TObject);
begin
if RadioButton1.Checked=true then //法律法规
begin // 1-441 法律法规
 form2.Txtzxh.Text:='1';
 form2.Txtzxh1.Text:='1';

 form2.Txtzdh.Text:='441';
 form2.Caption:='法律法规';
end;
if RadioButton2.Checked=true then //道路交通信号
begin // 442-699
 form2.Txtzxh.Text:='442';
 form2.Txtzxh1.Text:='442';

 form2.Txtzdh.Text:='699';
 form2.Caption:='道路交通信号';
end;
if RadioButton3.Checked=true then //文明驾驶
begin // 392-441
 form2.Txtzxh.Text:='700';
 form2.Txtzxh1.Text:='700';

 form2.Txtzdh.Text:='938';
 form2.Caption:='文明驾驶';
end;

if RadioButton4.Checked=true then //安全驾驶
begin // 392-441
 form2.Txtzxh.Text:='939';
 form2.Txtzxh1.Text:='939';
 form2.Txtzdh.Text:='1065';
 form2.Caption:='安全驾驶';
end;

if RadioButton5.Checked=true then //临危处置
begin // 392-441
 form2.Txtzxh.Text:='1066';
 form2.Txtzxh1.Text:='1066';
 form2.Txtzdh.Text:='1207';
 form2.Caption:='临危处置';
end;

if RadioButton6.Checked=true then //机械常识
begin // 392-441
 form2.Txtzxh.Text:='1208 ';
 form2.Txtzxh1.Text:='1208';
 form2.Txtzdh.Text:='1271';
 form2.Caption:='机械常识';
end;

if RadioButton7.Checked=true then //货车专用
begin // 392-441
 form2.Txtzxh.Text:='1321 ';
 form2.Txtzxh1.Text:='1321';
 form2.Txtzdh.Text:='1390';
 form2.Caption:='货车专用';
end;

if RadioButton8.Checked=true then //客车专用
begin // 392-441
 form2.Txtzxh.Text:='1391 ';
 form2.Txtzxh1.Text:='1391';
 form2.Txtzdh.Text:='1448';
 form2.Caption:='客车专用';
end;
if RadioButton9.Checked=true then //危险品                         
begin // 392-441
 form2.Txtzxh.Text:='1278 ';
 form2.Txtzxh1.Text:='1278';
 form2.Txtzdh.Text:='1320';
 form2.Caption:='危险品';
end;

if RadioButton10.Checked=true then //危险品
begin // 392-441
 form2.Txtzxh.Text:='1449 ';
 form2.Txtzxh1.Text:='1449';
 form2.Txtzdh.Text:='1498';
 form2.Caption:='轮式专用机械';
end;


if RadioButton11.Checked=true then //摩托
begin // 1500-2299
 form2.Txtzxh.Text:='1500 ';
 form2.Txtzxh1.Text:='1500';
 form2.Txtzdh.Text:='2299';
 form2.Caption:='摩托车';
end;

form2.ShowModal;
self.Close;


end;

procedure TForm8.SpeedButton1Click(Sender: TObject);
begin
 Button1Click(sender);
end;

end.