subjectmanage.pas

网络考试系统

unit SubjectManage;

interface

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

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    Label2: TLabel;
    Label6: TLabel;
    PageControl1: TPageControl;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet1: TTabSheet;
    Lable3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ADOConnection1: TADOConnection;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Memo1: TMemo;
    Memo2: TMemo;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    ADOQuery_Select: TADOQuery;
    ADOQuery_Fill: TADOQuery;
    ADOQuery_Judge: TADOQuery;
    ADOQuery_Course: TADOQuery;
    RadioGroup1: TRadioGroup;
    DataSource4: TDataSource;
    ComboBox5: TComboBox;
    ADOQuery_Kp: TADOQuery;
    ToolBar2: TToolBar;
    SpeedButtonF: TSpeedButton;
    SpeedButtonP: TSpeedButton;
    SpeedButtonN: TSpeedButton;
    SpeedButtonL: TSpeedButton;
    SpeedButtonA: TSpeedButton;
    SpeedButtonD: TSpeedButton;
    SpeedButtonS: TSpeedButton;
    SpeedButton17: TSpeedButton;
    SpeedButton18: TSpeedButton;
    RadioGroup2: TRadioGroup;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    ADOQuery_Select_Answer: TADOQuery;
    procedure ComboBox3Change(Sender: TObject);
    procedure SpeedButton19Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure SpeedButton20Click(Sender: TObject);
    procedure SpeedButton21Click(Sender: TObject);
    procedure SpeedButton22Click(Sender: TObject);
    procedure SpeedButton28Click(Sender: TObject);
    procedure SpeedButton29Click(Sender: TObject);
    procedure SpeedButton30Click(Sender: TObject);
    procedure SpeedButton31Click(Sender: TObject);
    procedure SpeedButton32Click(Sender: TObject);
    procedure   Update();
    procedure SpeedButtonFClick(Sender: TObject);
    procedure SpeedButtonPClick(Sender: TObject);
    procedure SpeedButtonNClick(Sender: TObject);
    procedure SpeedButtonLClick(Sender: TObject);
    procedure SpeedButtonAClick(Sender: TObject);
    procedure SpeedButtonDClick(Sender: TObject);
    //procedure FormCreate(Sender: TObject);
   // procedure ComboBox1Change(Sender: TObject);
   // procedure SpeedButton1Click(Sender: TObject);
    //procedure SpeedButton2Click(Sender: TObject);
    //procedure SpeedButton3Click(Sender: TObject);
   // procedure SpeedButton4Click(Sender: TObject);
    //procedure SpeedButton6Click(Sender: TObject);
    //procedure SpeedButton5Click(Sender: TObject);

    //procedure ComboBox3Click(Sender: TObject);
       
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;
  id:smallint;
 edit:array[1..4] of TEdit;


implementation

{$R *.dfm}

procedure TForm5.ComboBox3Change(Sender: TObject);
//var sls_id:array [1..100] of smallint;
begin

    if ComboBox3.Items.Strings[ComboBox3.itemindex]='选择题' then
    begin
         PageControl1.ActivePage:= TabSheet1;
         TabSheet1.TabVisible:=true;
         TabSheet2.TabVisible:=false;
         TabSheet3.TabVisible:=false;

         ADOquery_Select.Close;
         ADOquery_Select.SQL.Clear;
         ADOquery_Select.SQL.Add('select * from tb_selection_subject ');
          ADOquery_Select.Open;
          
         //ADOquery_Select.SQL.Add('select * from tb_selection_answer,tb_selection_subject where sln_sls_id=sls_id');

         ADOquery_Select.open();
         edit1.Text:='';
         edit2.Text:='';
         edit3.Text:='';
         edit4.Text:='';


    end;
    if ComboBox3.Items.Strings[ComboBox3.itemindex]='填空题' then
    begin
         PageControl1.ActivePage:= TabSheet2;
         TabSheet1.TabVisible:=false;
         TabSheet2.TabVisible:=true;
         TabSheet3.TabVisible:=false;
         ADOquery_Fill.Close;
         ADOquery_Fill.SQL.Clear;
         ADOquery_Fill.SQL.Add('select * from tb_filling_subject ');
         //ADOquery_Fill.SQL.Add('select * from tb_filling_subject,tb_knowledge_point  ');
         //ADOquery_Fill.SQL.Add('where fls_kp_id=kp_id and kp_des =:kp')
         //ADOquery_Fill.Parameters.ParamByName('kp').Value:=combobox2.Text;
         ADOquery_Fill.open();
    end;
    if ComboBox3.Items.Strings[ComboBox3.itemindex]='判断题' then
    begin
         PageControl1.ActivePage:= TabSheet3;
         TabSheet1.TabVisible:=false;
         TabSheet2.TabVisible:=false;
         TabSheet3.TabVisible:=true;
         ADOquery_Judge.Close;
         ADOquery_Judge.SQL.Clear;
         ADOquery_Judge.SQL.Add('select * from tb_judgement_subject');
         //ADOquery_Judge.SQL.Add('select * from tb_judgement_subject,tb_knowledge_point ');
         //ADOquery_Judge.SQL.Add('where jds_kp_id=kp_id and kp_des=:kp');
         //ADOquery_Fill.Parameters.ParamByName('kp').Value:=combobox2.Text;
         ADOquery_Judge.open;

    end;

end;


procedure   TForm5.Update();
begin
         if ComboBox3.Items.Strings[ComboBox3.itemindex]='选择题' then
    begin
         ADOquery_Select.Close;
         ADOquery_Select.SQL.Clear;
         ADOquery_Select.SQL.Add('select * from tb_selection_answer,tb_selection_subject where sln_sls_id=sls_id');
         ADOquery_Select.open();


    end;
    if ComboBox3.Items.Strings[ComboBox3.itemindex]='填空题' then
    begin
         ADOquery_Fill.Close;
         ADOquery_Fill.SQL.Clear;
         ADOquery_Fill.SQL.Add('select * from tb_filling_subject ');
         ADOquery_Fill.open();
    end;
    if ComboBox3.Items.Strings[ComboBox3.itemindex]='判断题' then
    begin
         ADOquery_Judge.Close;
         ADOquery_Judge.SQL.Clear;
         ADOquery_Judge.SQL.Add('select * from tb_judgement_subject');
         ADOquery_Judge.open;

    end;

end;

procedure TForm5.SpeedButton19Click(Sender: TObject);
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']);

end;

procedure TForm5.FormCreate(Sender: TObject);
begin
     combobox1.Items.Clear;
     ADOQuery_Course.Close;
     ADOQuery_Course.SQL.Clear;
     ADOQuery_Course.SQL.Add('select cr_name from tb_course' );
     ADOQuery_Course.Open;

     ADOQuery_Course.First;
    while ( not ( ADOQuery_Course.Eof ) ) do
    begin
     Combobox1.Items.Add(ADOQuery_Course.FieldValues['cr_name']);
     ADOQuery_Course.Next;
   end;
    combobox1.Text:='请选择科目';
    combobox2.Text:='请选择知值点';
    combobox3.Text:='请选择题型';
    combobox4.Text:='';
    combobox5.Text:='';
    PageControl1.ActivePage:= TabSheet1;
    TabSheet1.TabVisible:=true;
    TabSheet2.TabVisible:=false;
    TabSheet3.TabVisible:=false;
     edit1.Text:='';
     edit2.Text:='';
     edit3.Text:='';
     edit4.Text:='';

end;

procedure TForm5.ComboBox1Change(Sender: TObject);
begin

    combobox2.Items.Clear;
     ADOQuery_Course.Close;
     ADOQuery_Course.SQL.Clear;
     ADOQuery_Course.SQL.Add('select kp_des,cr_name from tb_knowledge_point,tb_course  ' );
     ADOQuery_Course.SQL.Add('where kp_cr_id=cr_id and cr_name=:course');
     ADOquery_Course.Parameters.ParamByName('course').Value := combobox1.Text;
     ADOQuery_Course.Open;

     ADOQuery_Course.First;
    while ( not ( ADOQuery_Course.Eof ) ) do
    begin
     Combobox2.Items.Add(ADOQuery_Course.FieldValues['kp_des']);
     ADOQuery_Course.Next;
   end;
    combobox2.Text:=combobox2.Items[0];

end;

procedure TForm5.SpeedButton20Click(Sender: TObject);
begin
    Memo1.Lines.Clear;
    ADOquery_Fill.Prior;
    Memo1.Lines.Add( ADOquery_Fill.FieldValues['fls_des'] );

     Memo2.Lines.Clear;
     Memo2.Lines.Add(ADOquery_Fill.FieldValues['fls_key']);

end;

procedure TForm5.SpeedButton21Click(Sender: TObject);
begin
    Memo1.Lines.Clear;
    ADOquery_Fill.Next;
    Memo1.Lines.Add( ADOquery_Fill.FieldValues['fls_des'] );

     Memo2.Lines.Clear;
     Memo2.Lines.Add(ADOquery_Fill.FieldValues['fls_key']);

end;

procedure TForm5.SpeedButton22Click(Sender: TObject);
begin
    Memo1.Lines.Clear;
    ADOquery_Fill.Last;
    Memo1.Lines.Add( ADOquery_Fill.FieldValues['fls_des'] );

     Memo2.Lines.Clear;
     Memo2.Lines.Add(ADOquery_Fill.FieldValues['fls_key']);

end;

procedure TForm5.SpeedButton28Click(Sender: TObject);


begin
    Memo1.Lines.Clear;
    ADOquery_judge.First;
    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;

procedure TForm5.SpeedButton29Click(Sender: TObject);
begin
    Memo1.Lines.Clear;
    ADOquery_judge.Prior;
    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;

procedure TForm5.SpeedButton30Click(Sender: TObject);
begin
    Memo1.Lines.Clear;
    ADOquery_judge.Next;
    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;

procedure TForm5.SpeedButton31Click(Sender: TObject);
begin
  Memo1.Lines.Clear;
    ADOquery_judge.Last;
    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;

procedure TForm5.SpeedButton32Click(Sender: TObject);
begin

     ADOquery_Kp.Close;
     ADOquery_Kp.SQL.Clear;
     //ADOquery_Kp.SQL.Add('declare @kpid smallint');
     ADOquery_Kp.SQL.Add('declare @kpid smallint ;select @kpid = kp_id from tb_knowledge_point where kp_des=:kp');
     ADOquery_Kp.Parameters.ParamByName('kp').Value:=combobox2.Text;
     ADOquery_Kp.ExecSQL;

    ADOquery_judge.Close;
    ADOquery_judge.SQL.Clear;
    ADOquery_judge.SQL.Add('insert into tb_judgement_subject (jds_des,jds_kp_id,jds_difficulty,jds_value,jds_right) ' );
     ADOquery_judge.SQL.Add('values(:des,@kpid,:difficulty,:value,:right)');

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

   adoquery_judge.ExecSQL;

      showmessage (' 操作成功完成 ! ') ;


end;

procedure TForm5.SpeedButtonFClick(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.First;
       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'];