manualchange.pas

网络考试系统

unit ManualChange;

interface

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

type
  TForm16 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Memo_des: TMemo;
    Label3: TLabel;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ADOQuery1: TADOQuery;
    ComboBox1: TComboBox;
    Label5: TLabel;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DataSource2: TDataSource;
    DBGrid2: TDBGrid;
    Label7: TLabel;
    ADOQuery3: TADOQuery;
    Memo1: TMemo;
    Label6: TLabel;
    Label8: TLabel;
    Edit_Course: TEdit;
    Edit_Paper: TEdit;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    GroupBox3: TGroupBox;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    Image1: TImage;
    Label2: TLabel;
    ComboBox2: TComboBox;
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormShow(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure ComboBox2Change(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form16: TForm16;

implementation

uses servermain, paper;
{$R *.dfm}

procedure TForm16.ComboBox1Change(Sender: TObject);
begin
      if comparetext(combobox1.Text,'选择题')=0 then
      begin
        ADoQuery1.Close;
        ADoQuery1.SQL.Clear;
        ADoQuery1.SQL.Add('select sls_id,sls_des,sls_value from tb_selection_subject');
        ADoQuery1.Open
      end;
     if comparetext(combobox1.Text,'填空题')=0 then
      begin
      ADoQuery1.Close;
        ADoQuery1.SQL.Clear;
        ADoQuery1.SQL.Add('select * from tb_filling_subject');
        ADoQuery1.Open;
      end;
      if comparetext(combobox1.Text,'判断题')=0 then
      begin
        ADoQuery1.Close;
        ADoQuery1.SQL.Clear;
        ADoQuery1.SQL.Add('select * from tb_judgement_subject');
        ADoQuery1.Open;

      end;

end;

procedure TForm16.SpeedButton1Click(Sender: TObject);
var core:real;
begin
  core:=0;


    if comparetext(ADOquery2.FieldValues['tpd_type'],'选择题')=0 then
    begin
       ADoquery3.Close;
       ADOQuery3.SQL.Clear;
       ADOquery3.SQL.Add('select * from tb_selection_subject where sls_id=:subjectid');
       ADOquery3.Parameters.ParamByName('subjectid').Value:=ADOquery2.FieldValues['tpd_subject_id'];
       ADOquery3.Open;
       //ADOquery3.First;
       //while ( not ( ADOQuery3.Eof ) ) do
       //begin
           //core:=core+ADOQuery3.FieldValues['sls_value'] ;
            //ADOQuery3.Next;
     // end;

       memo1.Lines.Clear;
       memo1.Lines.Add( ADoQuery3.FieldValues['sls_des']);
     end;
    if comparetext(ADOquery2.FieldValues['tpd_type'],'填空题')=0 then
    begin
      ADoquery3.Close;
      ADOQuery3.SQL.Clear;
       ADOquery3.SQL.Add('select * from tb_filling_subject where fls_id=:subjectid');
       ADOquery3.Parameters.ParamByName('subjectid').Value :=ADOquery2.FieldValues['tpd_subject_id'];
       ADOquery3.Open;
       //ADoquery3.First;
       //while ( not ( ADOQuery3.Eof ) ) do
       //begin
           //core:=core+ADOQuery3.FieldValues['fls_value'] ;
            //ADOQuery3.Next;
      //end;

       memo1.Lines.Clear;
       memo1.Lines.Add( ADoQuery3.FieldValues['fls_des']);
       end;
       if comparetext(ADOquery2.FieldValues['tpd_type'],'判断题')=0 then
       begin
        ADoquery3.Close;
       ADOQuery3.SQL.Clear;
       ADOquery3.SQL.Add('select * from tb_judgement_subject where jds_id = :subjectid');
       ADOquery3.Parameters.ParamByName('subjectid').Value:=ADOquery2.FieldValues['tpd_subject_id'];
       ADOquery3.Open;
       //while ( not ( ADOQuery3.Eof ) ) do
       //begin
           core:=core+ADOQuery3.FieldValues['jds_value'] ;
           // ADOQuery3.Next;
     // end;
       memo1.Lines.Clear;
       memo1.Lines.Add( ADoQuery3.FieldValues['jds_des']);
       end;

       edit1.Text:=floattostr(core);

        //if core<10 then
    //begin
        Adoquery2.Close;
         ADOQuery2.SQL.Clear;
        ADOQuery2.SQL.Add('select * from tb_test_paper_detail where tpd_type=:type and tpd_subject_id=:id');
        ADOQuery2.Parameters.ParamByName('type').Value:=combobox1.Text;
       if comparetext(combobox1.Text,'选择题')=0 then
        begin
         ADOQuery2.Parameters.ParamByName('id').Value:=Adoquery1.FieldValues['sls_id'];
       end;
       if comparetext(combobox1.Text,'填空题')=0 then
       begin
      ADOQuery2.Parameters.ParamByName('id').Value:=Adoquery1.FieldValues['fls_id'];
       end;
        if comparetext(combobox1.Text,'判断题')=0 then
       begin
          ADOQuery2.Parameters.ParamByName('id').Value:=Adoquery1.FieldValues['jds_id'];
       end;
         ADOQuery2.Open;
         if ADOquery2.RecordCount<>0 then
         showmessage('已存在该题')
         else
         begin
         Adoquery2.Close;
         ADOQuery2.SQL.Clear;
         ADOQuery2.SQL.Add('insert into tb_test_paper_detail(tpd_type,tpd_subject_id) values (:tpd_type,:id)');
         ADOQuery2.Parameters.ParamByName('tpd_type').Value:=combobox1.Text;
         if comparetext(combobox1.Text,'选择题')=0 then
        begin
         ADOQuery2.Parameters.ParamByName('id').Value:=Adoquery1.FieldValues['sls_id'];
       end;
       if comparetext(combobox1.Text,'填空题')=0 then
       begin
      ADOQuery2.Parameters.ParamByName('id').Value:=Adoquery1.FieldValues['fls_id'];
       end;
        if comparetext(combobox1.Text,'判断题')=0 then
       begin
          ADOQuery2.Parameters.ParamByName('id').Value:=Adoquery1.FieldValues['jds_id'];
       end;

         ADOQuery2.ExecSQL;
     end;
 Adoquery2.Close;
         ADOQuery2.SQL.Clear;
        ADOQuery2.SQL.Add('select tpd_type, tpd_subject_id from tb_test_paper_detail order by tpd_type , tpd_subject_id');
         ADOQuery2.Open;
          ADOQuery2.Last;


       //else
        // showmessage('你的分数已超过预定值');



end;

procedure TForm16.DBGrid1CellClick(Column: TColumn);
begin
      if comparetext(combobox1.Text,'选择题')=0 then
      begin
       memo_des.Lines.Clear;
       memo_des.Lines.Add( ADoQuery1.FieldValues['sls_des']);
       end;
       if comparetext(combobox1.Text,'填空题')=0 then
       begin
       memo_des.Lines.Clear;
       memo_des.Lines.Add( ADoQuery1.FieldValues['fls_des']);
       end;
       if comparetext(combobox1.Text,'判断题')=0 then
       begin
       memo_des.Lines.Clear;
       memo_des.Lines.Add( ADoQuery1.FieldValues['jds_des']);
       end;
end;




procedure TForm16.FormShow(Sender: TObject);
begin

      edit_course.Text:=form9.combobox1.Text;
      edit_Paper.Text:=form9.Edit_Paper.Text;


   //   Adoquery2.Close;
   //   ADOQuery2.SQL.Clear;
    //  ADOQuery2.SQL.Add('select tpd_type, tpd_subject_id from tb_test_paper_detail order by tpd_type , tpd_subject_id');
    //  ADOQuery2.Open;


end;

procedure TForm16.SpeedButton2Click(Sender: TObject);
begin

       ADOQuery2.Delete;
       
end;

procedure TForm16.DBGrid2CellClick(Column: TColumn);
begin
 if comparetext(ADOquery2.FieldValues['tpd_type'],'选择题')=0 then
      begin
       ADoquery3.Close;
       ADOQuery3.SQL.Clear;
       ADOquery3.SQL.Add('select * from tb_selection_subject where sls_id=:subjectid');
       ADOquery3.Parameters.ParamByName('subjectid').Value:=ADOquery2.FieldValues['tpd_subject_id'];
       ADOquery3.Open;
       memo1.Lines.Clear;
       memo1.Lines.Add( ADoQuery3.FieldValues['sls_des']);
       end;
 if comparetext(ADOquery2.FieldValues['tpd_type'],'填空题')=0 then
       begin
        ADoquery3.Close;
       ADOQuery3.SQL.Clear;
       ADOquery3.SQL.Add('select * from tb_filling_subject where fls_id=:subjectid');
       ADOquery3.Parameters.ParamByName('subjectid').Value :=ADOquery2.FieldValues['tpd_subject_id'];
       ADOquery3.Open;
       memo1.Lines.Clear;
       memo1.Lines.Add( ADoQuery3.FieldValues['fls_des']);
       end;
       if comparetext(ADOquery2.FieldValues['tpd_type'],'判断题')=0 then
       begin
        ADoquery3.Close;
       ADOQuery3.SQL.Clear;
       ADOquery3.SQL.Add('select * from tb_judgement_subject where jds_id = :subjectid');
       ADOquery3.Parameters.ParamByName('subjectid').Value:=ADOquery2.FieldValues['tpd_subject_id'];
       ADOquery3.Open;
       memo1.Lines.Clear;
       memo1.Lines.Add( ADoQuery3.FieldValues['jds_des']);
       end;
end;


procedure TForm16.ComboBox2Change(Sender: TObject);
begin
      if comparetext(combobox2.Text,'选择题')=0 then
      begin
        ADoQuery2.Close;
        ADoQuery2.SQL.Clear;
        ADoQuery2.SQL.Add('select sls_id,sls_des,sls_value from tb_selection_subject');
        ADoQuery2.Open
      end;
     if comparetext(combobox2.Text,'填空题')=0 then
      begin
      ADoQuery2.Close;
        ADoQuery2.SQL.Clear;
        ADoQuery2.SQL.Add('select * from(select * from tb_test_paper_detail where tpd_tp_id =(select tp_id from tb_test_paper where tp_des =:paper and tp_cr_id =(select cr_id from tb_course where cr_name=:course)) and tpd_type = 1)');
		ADoQuery2.SQL.Add('as tb_test_paper_detail inner join tb_selection_subject on tpd_subject_id = sls_id');
    	ADoQuery2.Parameters.ParamByName('course').Value:= edit_course.Text;
      	ADoQuery2.Parameters.ParamByName('paper').Value:=edit_paper.Text;
        ADoQuery2.Open;
      end;
      if comparetext(combobox2.Text,'判断题')=0 then
      begin
        ADoQuery2.Close;
        ADoQuery2.SQL.Clear;
        ADoQuery2.SQL.Add('select * from tb_judgement_subject');
        ADoQuery2.Open;

      end;
end;

end.