unit2.pas

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

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Txtzdh: TEdit;
    Txtzxh: TEdit;
    ADOQuery1: TADOQuery;
    Txtzqda: TEdit;
    Panel1: TPanel;
    Image1: TImage;
    Bevel1: TBevel;
    Bevel5: TBevel;
    Bevel6: TBevel;
    Txtzxh1: TEdit;
    ListBox1: TListBox;
    Txttx: TEdit;
    Label1: TLabel;
    Txtbz: TEdit;
    Bevel7: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel8: TBevel;
    Bevel9: TBevel;
    Bevel10: TBevel;
    Bevel11: TBevel;
    Bevel12: TBevel;
    Memo2: TMemo;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Tab1: TADOTable;
    Tab1Question_ID: TWideStringField;
    Tab1Question: TWideStringField;
    Tab1Graph: TBlobField;
    Tab1Key_1: TWideStringField;
    Tab1Key_2: TWideStringField;
    Tab1Key_3: TWideStringField;
    Tab1Key_4: TWideStringField;
    Tab1Question_Type: TWideStringField;
    Tab1Key_Right: TIntegerField;
    Tab1CarType: TWideStringField;
    Tab1xh: TWideStringField;
    Tab1bz: TWideStringField;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    BitBtn3: TBitBtn;
    Bevel2: TBevel;
    Edit5: TEdit;
    Label7: TLabel;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    Edit6: TEdit;
    Label8: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure AClick(Sender: TObject);
    procedure BClick(Sender: TObject);
    procedure CClick(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure Image1DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  maxzdh,maxzxh,tmpsql:string;

implementation

uses Unit1,gifimage, Unit3;

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
begin
label8.Visible:=false;
bitbtn7.Visible:=false;
edit6.Visible:=false;


memo1.clear;
memo2.clear;
//listbox1.Items.Clear;
//listbox1.Items.LoadFromFile(application.GetNamePath+'c:\单机版\csk.dat') ;

//Txttx.Text:='1';
{if Trim(Txttx.Text)='1' Then  begin //法律法规
label1.Caption:='您选择的是法律法规练习题。';
Txtzxh.Text:=Trim(listbox1.Items.Strings[0]);
Txtzxh1.Text:=Trim(listbox1.Items.Strings[0]);
Txtzdh.Text:=Trim(listbox1.Items.Strings[1]);
end;

if Trim(Txttx.Text)='2'  Then begin //交通标志
label1.Caption:='您选择的是交通标志练习题。';
Txtzxh.Text:=Trim(listbox1.Items.Strings[2]);
Txtzxh1.Text:=Trim(listbox1.Items.Strings[2]);
Txtzdh.Text:=Trim(listbox1.Items.Strings[3]);
end;
if Trim(Txttx.Text)='3'  Then begin //车辆构造
label1.Caption:='您选择的是车辆构造练习题。';

Txtzxh.Text:=Trim(listbox1.Items.Strings[4]);
Txtzxh1.Text:=Trim(listbox1.Items.Strings[4]);
Txtzdh.Text:=Trim(listbox1.Items.Strings[5]);
end;
if Trim(Txttx.Text)='4'  Then begin  //安全驾驶
label1.Caption:='您选择的是安全驾驶练习题。';
Txtzxh1.Text:=Trim(listbox1.Items.Strings[6]);
Txtzxh.Text:=Trim(listbox1.Items.Strings[6]);
Txtzdh.Text:=Trim(listbox1.Items.Strings[7]);
end;
{Txtzxh1.Visible:=false;
Txtzxh.Visible:=false;
Txtzdh.Visible:=false;
Txttx.Visible:=false;
Txtzqda.Visible:=false;
Txtbz.Visible:=false; }
BitBtn5Click(sender);
BitBtn4Click(sender);
exit;

if Trim(Txtbz.Text)='2' then begin
{a.Visible:=true;
Bevel2.Visible:=true;
Bevel3.Visible:=true;
Bevel4.Visible:=true;
self.Caption:='驾驶人考试习题练习';

b.Visible:=true;
c.Visible:=true; }

end;

if Trim(Txtbz.Text)='1' then begin
self.Caption:='驾驶人考试试题浏览';
//a.Visible:=false;
//b.Visible:=false;
//c.Visible:=false;
//Bevel2.Visible:=false;
//Bevel3.Visible:=false;
//Bevel4.Visible:=false;
//BitBtn5Click(sender);
//BitBtn5Click(sender);

//BitBtn4Click(sender);

end;





end;

procedure TForm2.BitBtn4Click(Sender: TObject);

begin
{ a.Font.Color:=clblack;
 b.Font.Color:=clblack;
 c.Font.Color:=clblack; }
// memo1.Clear;
 //memo2.Clear;
 if strtoint(Trim(Txtzxh.Text))<=strtoint(Trim(Txtzxh1.Text)) then  begin
   //label2.Caption :='第1道题：';
    exit;
   end;
  // if Txtzxh.Text
  memo1.Clear;
   memo2.Clear;

   Tab1.Open ;
   tab1.first;
   txtzxh.Text:=inttostr(strtoint(Trim(txtzxh.Text))-1);
   tab1.Locate('xh;bz', VarArrayOf([strtoint(Trim(txtzxh.Text)),null]), [loPartialKey]);
  // Label2.Caption :='第'+inttostr(strtoint(Trim(edit1.text))-strtoint(Trim(edit2.text)))+'道题：';
 // txtzxh.Text:=inttostr(tab1.fieldbyname('xh').AsInteger);
    Memo1.Text:=inttostr(strtoint(Trim(txtzxh.Text))-strtoint(Trim(txtzxh1.Text))+1)+'、'+tab1.fieldbyname('question').AsString;
 edit1.Text:=Trim(Tab1.fieldbyname('key_1').AsString);
  edit2.Text:=Trim(Tab1.fieldbyname('key_2').AsString);
  edit3.Text:=Trim(Tab1.fieldbyname('key_3').AsString);
  edit4.Text:=Trim(Tab1.fieldbyname('key_4').AsString);
  if Trim(tab1.fieldbyname('key_right').AsString)='1' then //是否是选择题
   begin
   edit1.Font.Color:=clblue;
   edit2.Font.Color:=clblack;
   edit3.Font.Color:=clblack;
   edit4.Font.Color:=clblack;
   edit1.Text:=edit1.Text+  ' √';
   end;


if Trim(tab1.fieldbyname('key_right').AsString)='2' then //是否是选择题
   begin
   edit2.Font.Color:=clblue;
   edit1.Font.Color:=clblack;
   edit3.Font.Color:=clblack;
   edit4.Font.Color:=clblack;
    edit2.Text:=edit2.Text+  ' √';

   end;
if Trim(tab1.fieldbyname('key_right').AsString)='3' then //是否是选择题
   begin
   edit3.Font.Color:=clblue;
   edit2.Font.Color:=clblack;
   edit1.Font.Color:=clblack;
   edit4.Font.Color:=clblack;
    edit3.Text:=edit3.Text+  ' √';

   end;

if Trim(tab1.fieldbyname('key_right').AsString)='4' then //是否是选择题
   begin
   edit4.Font.Color:=clblue;
   edit2.Font.Color:=clblack;
   edit3.Font.Color:=clblack;
   edit1.Font.Color:=clblack;
   edit4.Text:=edit4.Text+  ' √';

   end;



 if fileexists('c:\同步练习\image\'+Trim(tab1.fieldbyname('Question_ID').AsString)+'.jpg')  then
 image1.Picture.LoadFromFile('c:\同步练习\image\'+Trim(tab1.fieldbyname('Question_ID').AsString)+'.jpg')
 else
 image1.Picture.LoadFromFile('c:\同步练习\image\clear.jpg')






end;

procedure TForm2.AClick(Sender: TObject);
begin
//if Trim(Txtbz.Text)='2' then begin
if Txtzqda.Text<>'A' then
Messagebox(application.handle,pchar('您选错了,正确答案应为: '+Trim(Txtzqda.Text)),'选择',mb_ok+mb_iconwarning)
 else
Messagebox(application.handle,pchar('您选择正确'),'选择',mb_ok+mb_iconinformation);
end;
//end;

procedure TForm2.BClick(Sender: TObject);
begin
//if Trim(Txtbz.Text)='2' then begin
if Txtzqda.Text<>'B' then
Messagebox(application.handle,pchar('您选错了,正确答案应为: '+Trim(Txtzqda.Text)),'选择',mb_ok+mb_iconwarning)
 else
Messagebox(application.handle,pchar('您选择正确'),'选择',mb_ok+mb_iconinformation);
end;
//end;

procedure TForm2.CClick(Sender: TObject);
begin
//if Trim(Txtbz.Text)='无' then begin
if Txtzqda.Text<>'C' then
Messagebox(application.handle,pchar('您选错了,正确答案应为: '+Trim(Txtzqda.Text)),'选择',mb_ok+mb_iconwarning)
 else
Messagebox(application.handle,pchar('您选择正确'),'选择',mb_ok+mb_iconinformation);
//end;
end;

procedure TForm2.BitBtn5Click(Sender: TObject);
begin
 //a.Font.Color:=clblack;
// b.Font.Color:=clblack;
// c.Font.Color:=clblack;