unit2.pas

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

// Txtzdh.Text:='620';
// memo1.Clear ;
 //memo2.Clear;
if strtoint(Trim(Txtzxh.Text))>=strtoint(Trim(Txtzdh.Text))  then  begin
    //label2.Caption :='第620道题：';
    Messagebox(application.handle,pchar('到最后一题!'),'选择',mb_ok+mb_iconinformation);
    exit;
   end;
    memo1.Clear;
     memo2.Clear;
   Tab1.Open ;
   tab1.first;
   txtzxh.Text:=inttostr(strtoint(Trim(txtzxh.Text))+1);
 if   tab1.Locate('xh;bz', VarArrayOf([strtoint(Trim(txtzxh.Text)),null]), [loPartialKey]) then begin
  // 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;




end;





procedure TForm2.BitBtn1Click(Sender: TObject);
begin
//a.Font.Color:=clblack;
 //b.Font.Color:=clblack;
 //c.Font.Color:=clblack;
// Txtzdh.Text:='620';
 memo1.Clear ;
 memo2.Clear;
//if strtoint(Trim(Txtzxh.Text))>=strtoint(Trim(Txtzxh1.Text))  then  begin
    //label2.Caption :='第620道题：';
 //   Messagebox(application.handle,pchar('到第一题!'),'选择',mb_ok+mb_iconinformation);
   // exit;
  // end;
   Tab1.Open ;
   tab1.first;
   txtzxh.Text:=Trim(txtzxh1.Text);
   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;
   Memo1.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.BitBtn2Click(Sender: TObject);
begin
//a.Font.Color:=clblack;
// b.Font.Color:=clblack;
// c.Font.Color:=clblack;
// Txtzdh.Text:='620';
 memo1.Clear ;
 memo2.Clear;
{if strtoint(Trim(Txtzxh.Text))>=strtoint(Trim(Txtzdh.Text))  then  begin
    //label2.Caption :='第620道题：';
    Messagebox(application.handle,pchar('已到最后一题!'),'选择',mb_ok+mb_iconinformation);
    exit;
   end;  }
   Tab1.Open ;
   tab1.first;
   txtzxh.Text:=Trim(txtzdh.Text);
   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(txtzdh.Text))-strtoint(Trim(txtzxh1.Text))+1)+'、'+tab1.fieldbyname('question').AsString;
   //Memo1.Text:=Trim(txtzdh.Text)+'、'+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 Trim(tab1.fieldbyname('img').AsString)<>'无' then
  Image1.Picture.LoadFromFile(application.GetNamePath+'image\'+Trim(tab1.fieldbyname('img').AsString)+'.jpg')
  else
  image1.Picture.LoadFromFile(application.GetNamePath+'image\'+'clear.bmp');
 tab1.Close ;
 tmpsql:='select * from test where  xh='+''''+Trim(Txtzxh.Text)+'''';
  // showmessage(tmpsql);
  with ADOQuery1  do begin
    close;
    sql.Clear;
    SQL.Add(tmpsql);
    OPEN;
    if recordcount=0 then begin
     close;
     exit;
    end;
    first;
 Txtzqda.Text:= Trim(fieldbyname('CURRECTANSWER').AsString);
 close;
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.BitBtn3Click(Sender: TObject);
begin
close;
end;

procedure TForm2.BitBtn6Click(Sender: TObject);
begin
Txtzxh.Text:=Trim(edit5.Text);
end;

procedure TForm2.BitBtn7Click(Sender: TObject);

begin
if edit6.Text='' then exit;
   Tab1.Open ;
  // tab1.first;
  // txtzxh.Text:=Trim(txtzdh.Text);
 if   tab1.Locate('xh;bz', VarArrayOf([strtoint(Trim(txtzxh.Text)),null]), [loPartialKey]) then begin
   tab1.Edit;
   tab1.FieldByName('key_right').AsInteger :=strtoint(Trim(edit6.Text));
   tab1.post;
   tab1.Close;
   end;
    Messagebox(application.handle,pchar('修改成功!'),'选择',mb_ok+mb_iconinformation);

end;

procedure TForm2.Image1DblClick(Sender: TObject);
begin
label8.Visible:=true;
bitbtn7.Visible:=true;
edit6.Visible:=true;

end;

end.