subjectmanage.pas

网络考试系统

          ADOQuery_Select_Answer.Next;
          edit3.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[3]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
           ADOQuery_Select_Answer.Next;
          edit4.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[4]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Close;
          ADOQuery_Select_Answer.SQL.Clear;
       ADOQuery_Select_Answer.SQL.Add('select  * from tb_selection_answer where sln_id=:sls_sln_id');
        ADOQuery_Select_Answer.Parameters.ParamByName('sls_sln_id').Value:=ADOquery_Select.FieldValues['sls_sln_id'];
         ADOQuery_Select_Answer.Open;
         for   i:=1 to  4 do
         begin
            if sln_id[i]=ADOQuery_Select_Answer.FieldValues['sln_id'] then
            radiogroup2.ItemIndex:=i-1;

         end;




    end;
    if comparetext(combobox3.Text,'填空题')=0 then
        begin
           Memo1.Lines.Clear;
        ADOquery_Fill.First;
        Memo1.Lines.Add( ADOquery_Fill.FieldValues['fls_des'] );

        Memo2.Lines.Clear;
          Memo2.Lines.Add(ADOquery_Fill.FieldValues['fls_key']);
          id:= ADOquery_fill.FieldValues['fls_id'];
        end;
    if comparetext(combobox3.Text,'判断题')=0 then
    begin
          Memo1.Lines.Clear;
    ADOquery_judge.First;
     id:= ADOquery_judge.FieldValues['jds_id'];
    Memo1.Lines.Add( ADOquery_Judge.FieldValues['jds_des'] );

  if(comparetext( ADOquery_Judge.FieldValues['jds_right'], 'True') = 0)  then
    begin

          RadioGroup1.ItemIndex:=0;

    end
    else
    begin
        RadioGroup1.ItemIndex:=1;

    end;

    end;

end;

procedure TForm5.SpeedButtonPClick(Sender: TObject);
var sln_id:array [1..4] of smallint;
    i:integer;
begin
 //   self.Update();
    if comparetext(combobox3.Text,'选择题')=0 then
    begin
      Memo1.Lines.Clear;
      ADOquery_Select.Prior;
       Memo1.Lines.Add( ADOquery_Select.FieldValues['sls_des']);

       id:= ADOquery_Select.FieldValues['sls_id'];

       ADOQuery_Select_Answer.Close;
        ADOQuery_Select_Answer.SQL.Clear;
       ADOQuery_Select_Answer.SQL.Add('select  * from tb_selection_answer where sln_sls_id =:aaa');
        ADOQuery_Select_Answer.Parameters.ParamByName('aaa').Value:=ADOquery_Select.FieldValues['sls_id'];
         ADOQuery_Select_Answer.Open;

         edit1.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
         sln_id[1]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Next;
          edit2.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[2]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Next;
          edit3.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[3]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
           ADOQuery_Select_Answer.Next;
          edit4.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[4]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Close;
          ADOQuery_Select_Answer.SQL.Clear;
       ADOQuery_Select_Answer.SQL.Add('select  * from tb_selection_answer where sln_id=:sls_sln_id');
        ADOQuery_Select_Answer.Parameters.ParamByName('sls_sln_id').Value:=ADOquery_Select.FieldValues['sls_sln_id'];
         ADOQuery_Select_Answer.Open;
         for   i:=1 to  4 do
         begin
            if sln_id[i]=ADOQuery_Select_Answer.FieldValues['sln_id'] then
            radiogroup2.ItemIndex:=i-1;

         end;

    end;
    if comparetext(combobox3.Text,'填空题')=0 then
        begin
           Memo1.Lines.Clear;
        ADOquery_Fill.Prior;
         id:= ADOquery_fill.FieldValues['fls_id'];
        Memo1.Lines.Add( ADOquery_Fill.FieldValues['fls_des'] );

        Memo2.Lines.Clear;
          Memo2.Lines.Add(ADOquery_Fill.FieldValues['fls_key']);
        end;
    if comparetext(combobox3.Text,'判断题')=0 then
    begin
          Memo1.Lines.Clear;
    ADOquery_judge.Prior;
    id:= ADOquery_judge.FieldValues['jds_id'];
    Memo1.Lines.Add( ADOquery_Judge.FieldValues['jds_des'] );

  if(comparetext( ADOquery_Judge.FieldValues['jds_right'], 'True') = 0)  then
    begin

          RadioGroup1.ItemIndex:=0;

    end
    else
    begin
        RadioGroup1.ItemIndex:=1;

    end;

    end;

end;

procedure TForm5.SpeedButtonNClick(Sender: TObject);
var sln_id:array [1..4] of smallint;
    i:integer;
begin
     // self.Update();
    if comparetext(combobox3.Text,'选择题')=0 then
    begin
      Memo1.Lines.Clear;
      ADOquery_Select.Next;
       Memo1.Lines.Add( ADOquery_Select.FieldValues['sls_des']);

       id:= ADOquery_Select.FieldValues['sls_id'];

       ADOQuery_Select_Answer.Close;
        ADOQuery_Select_Answer.SQL.Clear;
       ADOQuery_Select_Answer.SQL.Add('select  * from tb_selection_answer where sln_sls_id =:aaa');
        ADOQuery_Select_Answer.Parameters.ParamByName('aaa').Value:=ADOquery_Select.FieldValues['sls_id'];
         ADOQuery_Select_Answer.Open;

         edit1.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
         sln_id[1]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Next;
          edit2.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[2]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Next;
          edit3.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[3]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
           ADOQuery_Select_Answer.Next;
          edit4.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[4]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Close;
          ADOQuery_Select_Answer.SQL.Clear;
       ADOQuery_Select_Answer.SQL.Add('select  * from tb_selection_answer where sln_id=:sls_sln_id');
        ADOQuery_Select_Answer.Parameters.ParamByName('sls_sln_id').Value:=ADOquery_Select.FieldValues['sls_sln_id'];
         ADOQuery_Select_Answer.Open;
         for   i:=1 to  4 do
         begin
            if sln_id[i]=ADOQuery_Select_Answer.FieldValues['sln_id'] then
            radiogroup2.ItemIndex:=i-1;

         end;
    end;
    if comparetext(combobox3.Text,'填空题')=0 then
        begin
           Memo1.Lines.Clear;
        ADOquery_Fill.Next;
         id:= ADOquery_fill.FieldValues['fls_id'];
        Memo1.Lines.Add( ADOquery_Fill.FieldValues['fls_des'] );

        Memo2.Lines.Clear;
          Memo2.Lines.Add(ADOquery_Fill.FieldValues['fls_key']);
        end;
    if comparetext(combobox3.Text,'判断题')=0 then
    begin
          Memo1.Lines.Clear;
    ADOquery_judge.Next;
    id:= ADOquery_judge.FieldValues['jds_id'];
    Memo1.Lines.Add( ADOquery_Judge.FieldValues['jds_des'] );

  if(comparetext( ADOquery_Judge.FieldValues['jds_right'], 'True') = 0)  then
    begin

          RadioGroup1.ItemIndex:=0;

    end
    else
    begin
        RadioGroup1.ItemIndex:=1;

    end;

    end;
end;

procedure TForm5.SpeedButtonLClick(Sender: TObject);
var sln_id:array [1..4] of smallint;
    i:integer;
begin
//self.Update();
    if comparetext(combobox3.Text,'选择题')=0 then
    begin
      Memo1.Lines.Clear;
      ADOquery_Select.Last;
       Memo1.Lines.Add( ADOquery_Select.FieldValues['sls_des']);

       id:= ADOquery_Select.FieldValues['sls_id'];

       ADOQuery_Select_Answer.Close;
        ADOQuery_Select_Answer.SQL.Clear;
       ADOQuery_Select_Answer.SQL.Add('select  * from tb_selection_answer where sln_sls_id =:aaa');
        ADOQuery_Select_Answer.Parameters.ParamByName('aaa').Value:=ADOquery_Select.FieldValues['sls_id'];
         ADOQuery_Select_Answer.Open;

         edit1.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
         sln_id[1]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Next;
          edit2.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[2]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Next;
          edit3.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[3]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
           ADOQuery_Select_Answer.Next;
          edit4.Text:= ADOQuery_Select_Answer.FieldValues['sln_des'];
          sln_id[4]:=ADOQuery_Select_Answer.FieldValues['sln_id'];
          ADOQuery_Select_Answer.Close;
          ADOQuery_Select_Answer.SQL.Clear;
       ADOQuery_Select_Answer.SQL.Add('select  * from tb_selection_answer where sln_id=:sls_sln_id');
        ADOQuery_Select_Answer.Parameters.ParamByName('sls_sln_id').Value:=ADOquery_Select.FieldValues['sls_sln_id'];
         ADOQuery_Select_Answer.Open;
         for   i:=1 to  4 do
         begin
            if sln_id[i]=ADOQuery_Select_Answer.FieldValues['sln_id'] then
            radiogroup2.ItemIndex:=i-1;

         end;;

    end;
    if comparetext(combobox3.Text,'填空题')=0 then
        begin
           Memo1.Lines.Clear;
        ADOquery_Fill.Last;
         id:= ADOquery_fill.FieldValues['fls_id'];
        Memo1.Lines.Add( ADOquery_Fill.FieldValues['fls_des'] );

        Memo2.Lines.Clear;
          Memo2.Lines.Add(ADOquery_Fill.FieldValues['fls_key']);
        end;
    if comparetext(combobox3.Text,'判断题')=0 then
    begin
          Memo1.Lines.Clear;
    ADOquery_judge.Last;
    id:= ADOquery_judge.FieldValues['jds_id'];
    Memo1.Lines.Add( ADOquery_Judge.FieldValues['jds_des'] );

  if(comparetext( ADOquery_Judge.FieldValues['jds_right'], 'True') = 0)  then
    begin

          RadioGroup1.ItemIndex:=0;

    end
    else
    begin
        RadioGroup1.ItemIndex:=1;

    end;

    end;
end;

procedure TForm5.SpeedButtonAClick(Sender: TObject);
begin
  if comparetext(combobox3.Text,'选择题')=0 then
  begin
  ADOquery_select.Close;
        ADOquery_select.SQL.Clear;
           ADOquery_select.SQL.Add('insert into tb_selection_subject (sls_des,sls_value)');
           ADOquery_select.SQL.Add('values(:des,:value);');
        ADOquery_select.SQL.Add('declare @temp smallint,@b smallint,@c smallint,@d smallint; ');
        ADOquery_select.SQL.Add('SELECT @temp=@@IDENTITY;');

  ADOquery_select.SQL.Add('insert into tb_selection_answer(sln_des,sln_sls_id) values (:answer1,@temp);');
   //ADOquery_select.SQL.Add('SELECT @a=@@IDENTITY;');
  ADOquery_select.SQL.Add('insert into tb_selection_answer(sln_des,sln_sls_id) values (:answer2,@temp);');
  // ADOquery_select.SQL.Add('SELECT @b=@@IDENTITY;');
 ADOquery_select.SQL.Add('insert into tb_selection_answer(sln_des,sln_sls_id) values (:answer3,@temp);');
  // ADOquery_select.SQL.Add('SELECT @c=@@IDENTITY;');
 ADOquery_select.SQL.Add('insert into tb_selection_answer(sln_des,sln_sls_id) values (:answer4,@temp)') ;
 // ADOquery_select.SQL.Add('SELECT @d=@@IDENTITY;');

  ADOquery_select.Parameters.ParamByName('answer1').Value:=edit1.Text;
  ADOquery_select.Parameters.ParamByName('answer2').Value:=edit2.Text;
  ADOquery_select.Parameters.ParamByName('answer3').Value:=edit3.Text;
  ADOquery_select.Parameters.ParamByName('answer4').Value:=edit4.Text;
  ADOquery_select.Parameters.ParamByName('des').Value :=memo1.Text;
    //ADOquery_judge.Parameters.ParamByName('difficulty').Value:=combobox4.Text;
    ADOquery_select.Parameters.ParamByName('value').Value:=combobox5.ItemIndex+2;
   ADOquery_select.ExecSQL;

      showmessage (' 操作成功完成 ! ') ;
       ADOquery_fill.Close;
        ADOquery_fill.SQL.Clear;
        ADOquery_fill.SQL.Add('select * from tb_filling_subject order by sls_id');
       ADOquery_fill.open

  end;
  if comparetext(combobox3.Text,'填空题')=0 then
  begin
      ADOquery_Fill.Close;
        ADOquery_Fill.SQL.Clear;
          ADOquery_Fill.SQL.Add('insert into tb_filling_subject (fls_des,fls_value,fls_key)');
          ADOquery_Fill.SQL.Add('values(:des,:value,:key)');

     ADOquery_fill.Parameters.ParamByName('des').Value :=memo1.Text;
    //ADOquery_judge.Parameters.ParamByName('difficulty').Value:=combobox4.Text;
    ADOquery_fill.Parameters.ParamByName('value').Value:=combobox5.ItemIndex+2;
   ADOquery_fill.Parameters.ParamByName('key').Value:=memo2.Text;

   adoquery_fill.ExecSQL;
      showmessage (' 操作成功完成 ! ') ;
       ADOquery_fill.Close;
        ADOquery_fill.SQL.Clear;
        ADOquery_fill.SQL.Add('select * from tb_filling_subject order by fls_id');
       ADOquery_fill.open
  end;
  if comparetext(combobox3.Text,'判断题')=0 then
    begin
      ADOquery_judge.Close;
      ADOquery_judge.SQL.Clear;
        ADOquery_judge.SQL.Add('insert into tb_judgement_subject (jds_des,jds_value,jds_right)');
        ADOquery_judge.SQL.Add('values(:des,:value,:right)');
        // ADOquery_Judge.SQL.Add('select * from tb_judgement_subject where jds_id=@@identity');

     ADOquery_judge.Parameters.ParamByName('des').Value :=memo1.Text;
    //ADOquery_judge.Parameters.ParamByName('difficulty').Value:=combobox4.Text;
    ADOquery_judge.Parameters.ParamByName('value').Value:=combobox5.ItemIndex+2;
   ADOquery_judge.Parameters.ParamByName('right').Value:=inttostr( abs(1-RadioGroup1.ItemIndex));

   adoquery_judge.ExecSQL;
      showmessage (' 操作成功完成 ! ') ;
       ADOquery_Judge.Close;
         ADOquery_Judge.SQL.Clear;
         ADOquery_Judge.SQL.Add('select * from tb_judgement_subject order by jds_id');
        ADOquery_Judge.open;

end;
end;

procedure TForm5.SpeedButtonDClick(Sender: TObject);
begin
  showmessage('如果你点击删除，此题目将会被永久删除'+chr(10)+chr(13)+'相关联的试卷会受影响 一定要小心!!! ');
  if (application.MessageBox('操作不可逆,确认删除?','confirm_delete',mb_okcancel) = idok ) then
  begin
      if comparetext(combobox3.Text,'选择题')=0 then
      begin
        ADOquery_select.Close;
        ADOquery_select.SQL.Clear;
        ADOquery_select.SQL.Add('delete from tb_selection_subject where sls_id=:id');
        ADOquery_select.Parameters.ParamByName('id').Value:=id;
        ADOquery_select.ExecSQL;
        showmessage (' 操作成功完成 ! ') ;
        ADOquery_select.Close;
        ADOquery_select.SQL.Clear;
        ADOquery_select.SQL.Add('select * from tb_filling_subject');
        ADOquery_select.open;
      end;
      if comparetext(combobox3.Text,'填空题')=0 then
      begin
        ADOquery_fill.Close;
        ADOquery_fill.SQL.Clear;
        ADOquery_fill.SQL.Add('delete from tb_filling_subject where fls_id=:id');
        ADOquery_fill.Parameters.ParamByName('id').Value:=id;
        ADOquery_fill.ExecSQL;
        showmessage (' 操作成功完成 ! ') ;
        ADOquery_fill.Close;
        ADOquery_fill.SQL.Clear;
        ADOquery_fill.SQL.Add('select * from tb_filling_subject');
        ADOquery_fill.open;

      end;
      if comparetext(combobox3.Text,'判断题')=0 then
      begin
        ADOquery_judge.Close;
        ADOquery_judge.SQL.Clear;
        ADOquery_judge.SQL.Add('delete from tb_judgement_subject where jds_id=:id');
        adoquery_judge.Parameters.ParamByName('id').Value:=id;
        adoquery_judge.ExecSQL;
        showmessage (' 操作成功完成 ! ') ;
        ADOquery_Judge.Close;
        ADOquery_Judge.SQL.Clear;
        ADOquery_Judge.SQL.Add('select * from tb_judgement_subject');
        ADOquery_Judge.open;

      end
      else
      exit;

  end;
end;

end.