⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit4.pas

📁 理论考试程序,可以自由下载,学习,请多多指点,批评
💻 PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
memo2.Clear;
 Txtzqbz1.Visible:=false;
 Txtzqbz2.Visible:=false ;
 Txtzqbz3.Visible:=false;
 Txtzqbz4.Visible:=false;

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


   Tab1.Open ;
   tab1.first;
 //


      txtzxh.Text:='99';//'inttostr(strtoint(Trim(txtzxh.Text)-1));

        if   tab1.Locate('xh;bz', VarArrayOf([listbox2.items.strings[strtoint(Trim(txtzxh.Text))],null]), [loPartialKey]) then begin

      Memo1.Lines.Add(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 Txtfcbz.Text='1' then begin
      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;
   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;
//查询答案
Tmpsql:='Select ktda from  ktb where ktxh='+''''+listbox2.items.strings[strtoint(Trim(txtzxh.Text))]+'''' ;
 with ADOQuery1 do begin
    close;
    sql.Clear;
    SQL.Add(tmpsql);
    OPEN;
     if recordcount=0 then
     begin
    Txtzqbz1.Visible:=false;
    Txtzqbz2.Visible:=false ;
    Txtzqbz3.Visible:=false;
    Txtzqbz4.Visible:=false;
    close;
    exit;
     end;
     first;
     if Trim(fieldbyname('ktda').AsString)='1' then begin
        Txtzqbz1.Visible:=true;
        Txtzqbz2.Visible:=false ;
        Txtzqbz3.Visible:=false;
        Txtzqbz4.Visible:=false;
     end;

        if Trim(fieldbyname('ktda').AsString)='2' then begin
        Txtzqbz2.Visible:=true;
        Txtzqbz1.Visible:=false ;
        Txtzqbz3.Visible:=false;
        Txtzqbz4.Visible:=false;
     end;

     if Trim(fieldbyname('ktda').AsString)='3' then begin
        Txtzqbz3.Visible:=true;
        Txtzqbz1.Visible:=false ;
        Txtzqbz2.Visible:=false;
        Txtzqbz4.Visible:=false;
     end;
    if Trim(fieldbyname('ktda').AsString)='4' then begin
        Txtzqbz4.Visible:=true;
        Txtzqbz1.Visible:=false ;
        Txtzqbz3.Visible:=false;
        Txtzqbz2.Visible:=false;
     end;



   close;
   end;
end;

procedure TForm4.BitBtn10Click(Sender: TObject);
begin
memo1.Clear;
memo2.Clear;

 Txtzqbz1.Visible:=false;
 Txtzqbz2.Visible:=false ;
 Txtzqbz3.Visible:=false;
 Txtzqbz4.Visible:=false;

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


 //  Tab1.Open ;
  // tab1.first;
 //

      if  txtzxh.Text<>'99' then
      txtzxh.Text:=inttostr(strtoint(Trim(txtzxh.Text))+1)
      else
      txtzxh.Text:='99' ;
  Tmpsql:='select * from ClientQuestion where xh ='+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+'''' ;
   with ADOQuery1 do begin
     close;
     sql.Clear;
     SQL.Add(tmpsql);
     open ;
      first;
//if  // tab1.Locate('xh;bz', VarArrayOf([strtoint(Trim(txtzxh.Text)),null]), [loPartialKey]) then begin
  //    tab1.Locate('xh;bz', VarArrayOf([listbox2.items.strings[strtoint(Trim(txtzxh.Text))],null]), [loPartialKey]) then begin

      Memo1.Lines.Add(inttostr(strtoint(Trim(txtzxh.Text))-strtoint(Trim(txtzxh1.Text))+1)+'、'+fieldbyname('question').AsString);
      edit1.Text:=Trim(fieldbyname('key_1').AsString);
      edit2.Text:=Trim(fieldbyname('key_2').AsString);
      edit3.Text:=Trim(fieldbyname('key_3').AsString);
      edit4.Text:=Trim(fieldbyname('key_4').AsString);


       if Txtfcbz.Text='1' then begin
      if Trim(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(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(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(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;
   end;






 if fileexists('c:\同步练习\image\'+Trim(fieldbyname('Question_ID').AsString)+'.jpg')  then
 image1.Picture.LoadFromFile('c:\同步练习\image\'+Trim(fieldbyname('Question_ID').AsString)+'.jpg')
 else
 image1.Picture.LoadFromFile('c:\同步练习\image\clear.jpg');
 close;
end;
  //查询答案
Tmpsql:='Select ktda from  ktb where ktxh='+''''+listbox2.items.strings[strtoint(Trim(txtzxh.Text))]+'''' ;
 with ADOQuery1 do begin
    close;
    sql.Clear;
    SQL.Add(tmpsql);
    OPEN;
     if recordcount=0 then
     begin
    Txtzqbz1.Visible:=false;
    Txtzqbz2.Visible:=false ;
    Txtzqbz3.Visible:=false;
    Txtzqbz4.Visible:=false;
    close;
    exit;
     end;
     first;
     if Trim(fieldbyname('ktda').AsString)='1' then begin
        Txtzqbz1.Visible:=true;
        Txtzqbz2.Visible:=false ;
        Txtzqbz3.Visible:=false;
        Txtzqbz4.Visible:=false;
     end;

     if Trim(fieldbyname('ktda').AsString)='2' then begin
        Txtzqbz2.Visible:=true;
        Txtzqbz1.Visible:=false ;
        Txtzqbz3.Visible:=false;
        Txtzqbz4.Visible:=false;
     end;
     if Trim(fieldbyname('ktda').AsString)='3' then begin
        Txtzqbz3.Visible:=true;
        Txtzqbz1.Visible:=false ;
        Txtzqbz2.Visible:=false;
        Txtzqbz4.Visible:=false;
     end;

      if Trim(fieldbyname('ktda').AsString)='4' then begin
        Txtzqbz4.Visible:=true;
        Txtzqbz1.Visible:=false ;
        Txtzqbz3.Visible:=false;
        Txtzqbz2.Visible:=false;
     end;



   close;
   end;







end;

procedure TForm4.BitBtn13Click(Sender: TObject);

begin
 Txtzqbz1.Visible:=true;
 Txtzqbz2.Visible:=false ;
 Txtzqbz3.Visible:=false;
 Txtzqbz4.Visible:=false;
 form4.Refresh;
//if  Not  Tab2.Active  Then Tab2.Active ;
   //  Tab2.Open;

Tmpsql:='select * from ktb where ktxh ='+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+'''' ;
   with ADOQuery1 do begin
     close;
     sql.Clear;
     SQL.Add(tmpsql);
    open ;
    Myx:=recordcount;
    close;
    end;
    if Myx=0 then begin
Tmpsql:='insert into ktb(ktxh,ktda) values ('+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+''''+','+''''+'1'+''''+')';
 with ADOQuery1 do begin
    // close;
    sql.Clear;
    SQL.Add(tmpsql);
   execsql;
 end;
 end;

    if Myx=1 then begin
Tmpsql:='update ktb set ktda=1 where ktxh='+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+'''' ;
 with ADOQuery1 do begin
    // close;
    sql.Clear;
    SQL.Add(tmpsql);
   execsql;
 end;
 end;








{ if not tab2.Locate('ktxh;bz', VarArrayOf([inttostr(strtoint(Trim(txtzxh.Text))-strtoint(Trim(txtzxh1.Text))+1),null]), [loPartialKey]) then begin
     Tab2.Append;
     Tab2.FieldByName('ktxh').Asstring:=Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))]);//Trim(Txtzxh.Text);
     Tab2.FieldByName('ktda').Asstring:='1';
    // Tab2.FieldByName('bz').AsString:='1';
     Tab2.Post;
     end
     else
     begin
     Tab2.Edit;
     tab2.FieldByName('ktda').Asstring:='1';
     Tab2.Post;
     end;
    Tab2.close;   }
  // end; }
  

  tmpsql:='select * from ktb  order by ktxh ';
  with ADOQuery1 do begin
    close;
    sql.Clear;
    SQL.Add(tmpsql);
    OPEN;
  Label15.Caption :='已做'+inttostr(recordcount)+'道题,'+'未做'+inttostr(100-recordcount)+'道题' ;
   close;
   end;
   hh:=0;

 while  hh<10 do
   begin
   hh:=hh+9;

   end;


  BitBtn10Click(Sender);
 //BitBtn5Click(Sender);
//end;
//end;

end;


procedure TForm4.BitBtn12Click(Sender: TObject);
begin
 Txtzqbz2.Visible:=true;
 Txtzqbz1.Visible:=false ;
 Txtzqbz3.Visible:=false;
 Txtzqbz4.Visible:=false;
 form4.Refresh;
{if  Not  Tab2.Active  Then Tab2.Active ;
     Tab2.Open;
 if not tab2.Locate('ktxh;bz', VarArrayOf([inttostr(strtoint(Trim(txtzxh.Text))-strtoint(Trim(txtzxh1.Text))+1),null]), [loPartialKey]) then begin
     Tab2.Append;
     Tab2.FieldByName('ktxh').Asstring:=Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))]);//Trim(Txtzxh.Text);
     Tab2.FieldByName('ktda').Asstring:='2';
   //  Tab2.FieldByName('bz').AsString:='';
     Tab2.Post;
     end
     else
     begin
     Tab2.Edit;
     tab2.FieldByName('ktda').Asstring:='1';
     Tab2.Post;
     end;
    Tab2.close;
  // end;     }


  Tmpsql:='select * from ktb where ktxh ='+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+'''' ;
   with ADOQuery1 do begin
     close;
     sql.Clear;
     SQL.Add(tmpsql);
    open ;
    Myx:=recordcount;
    close;
    end;
    if Myx=0 then begin
Tmpsql:='insert into ktb(ktxh,ktda) values ('+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+''''+','+''''+'2'+''''+')';

 with ADOQuery1 do begin
    // close;
    sql.Clear;
    SQL.Add(tmpsql);
   execsql;
 end;
 end;

    if Myx=1 then begin
Tmpsql:='update ktb set ktda=2 where ktxh='+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+'''' ;
 with ADOQuery1 do begin
    // close;
    sql.Clear;
    SQL.Add(tmpsql);
   execsql;
 end;
 end;




  tmpsql:='select * from ktb  order by ktxh ';

  with ADOQuery1 do begin
    close;
    sql.Clear;
    SQL.Add(tmpsql);
    OPEN;
  Label15.Caption :='已做'+inttostr(recordcount)+'道题,'+'未做'+inttostr(100-recordcount)+'道题' ;
   close;
   end;


   hh:=0;
  while  hh<10 do
   begin
   hh:=hh+9;

   end;


  BitBtn10Click(Sender)
end;

procedure TForm4.BitBtn11Click(Sender: TObject);
begin
 Txtzqbz3.Visible:=true;
 Txtzqbz2.Visible:=false ;
 Txtzqbz1.Visible:=false;
 Txtzqbz4.Visible:=false;
 form4.Refresh; 
{if  Not  Tab2.Active  Then Tab2.Active ;
     Tab2.Open;
 if not tab2.Locate('ktxh;bz', VarArrayOf([inttostr(strtoint(Trim(txtzxh.Text))-strtoint(Trim(txtzxh1.Text))+1),null]), [loPartialKey]) then begin
     Tab2.Append;
     Tab2.FieldByName('ktxh').Asstring:=Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))]);//Trim(Txtzxh.Text);
     Tab2.FieldByName('ktda').Asstring:='3';
   //  Tab2.FieldByName('bz').AsString:='';
     Tab2.Post;
     end
     else
     begin
     Tab2.Edit;
     tab2.FieldByName('ktda').Asstring:='3';
     Tab2.Post;
     end;
    Tab2.close;
  // end; }


  Tmpsql:='select * from ktb where ktxh ='+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+'''' ;
   with ADOQuery1 do begin
     close;
     sql.Clear;
     SQL.Add(tmpsql);
    open ;
    Myx:=recordcount;
    close;
    end;
    if Myx=0 then begin
Tmpsql:='insert into ktb(ktxh,ktda) values ('+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+''''+','+''''+'3'+''''+')';

 with ADOQuery1 do begin
    // close;
    sql.Clear;
    SQL.Add(tmpsql);
   execsql;
 end;
 end;

    if Myx=1 then begin
Tmpsql:='update ktb set ktda=3 where ktxh='+''''+Trim(listbox2.items.strings[strtoint(Trim(txtzxh.Text))])+'''' ;
 with ADOQuery1 do begin
    // close;
    sql.Clear;
    SQL.Add(tmpsql);
   execsql;
 end;
 end;




 tmpsql:='select * from ktb  order by ktxh ';

  with ADOQuery1 do begin
    close;
    sql.Clear;
    SQL.Add(tmpsql);
    OPEN;
  Label15.Caption :='已做'+inttostr(recordcount)+'道题,'+'未做'+inttostr(100-recordcount)+'道题' ;
   close;
   end;
   hh:=0 ;
    while hh<10 do
   begin
   hh:=hh+9;
   end;
  BitBtn10Click(Sender)

   end;


procedure TForm4.BitBtn14Click(Sender: TObject);
begin
form1.ADOConnection1.Close;
close;
end;

end.
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -