papermanage.pas

网络考试系统

unit PaperManage;

interface

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

type
  TForm7 = class(TForm)
    DBGrid1: TDBGrid;
    Label4: TLabel;
    Memo1: TMemo;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ComboBox3: TComboBox;
    ADOQuery_Course: TADOQuery;
    ADOQuery_Subject: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form7: TForm7;
 sls_count,fls_count,jds_count:integer;


implementation
 uses ManualChoose,servermain, AutoChoose,paper, ManualChange;
{$R *.dfm}

procedure TForm7.SpeedButton1Click(Sender: TObject);
begin
    Form9.Show;
end;

procedure TForm7.FormShow(Sender: TObject);
begin
     ADOQuery_Course.Close;
     ADOQuery_Course.SQL.Clear;
     ADOQuery_Course.SQL.Add('select * from tb_course ');
     ADOQuery_Course.Open;
      ADOQuery_Course.First;
      combobox1.Clear;
      combobox2.Clear;
      combobox3.ItemIndex:=-1;
     // combobox3.Text:='';

      while (not  ADOQuery_Course.Eof)  do
      begin
           combobox1.Items.Add( ADOQuery_Course.FieldValues['cr_name']) ;
            ADOQuery_Course.Next;
      end;

      ADOQuery_Subject.Close;
      ADOQuery_Subject.SQL.Clear;

      ADOQuery_Subject.SQL.Add('select * from p0_sls order by tpd_id');

      ADOQuery_Subject.Open;
        sls_count:=ADOQuery_Subject.RecordCount div	 4 ;



      ADOQuery_Subject.Close;
      ADOQuery_Subject.SQL.Clear;

      ADOQuery_Subject.SQL.Add('select * from p0_fls order by tpd_id');
      ADOQuery_Subject.Open;
       fls_count:=ADOQuery_Subject.RecordCount ;


     ADOQuery_Subject.Close;
     ADOQuery_Subject.SQL.Clear;

        ADOQuery_Subject.SQL.Add('select * from p0_jds order by tpd_id');
        ADOQuery_Subject.Open;
       jds_count:=ADOQuery_Subject.RecordCount  ;



end;

procedure TForm7.ComboBox1Change(Sender: TObject);
begin
      ADOQuery_Course.Close;
      ADOQuery_Course.SQL.Clear;
      ADOQuery_Course.SQL.Add('select * from  tb_test_paper,tb_course where tp_cr_id=cr_id and cr_name=:name');
      ADOQuery_Course.Parameters.ParamByName('name').Value:=combobox1.Text;
      ADOQuery_Course.Open;
      ADOQuery_Course.First;
      while (not ADOQuery_Course.Eof) do
      begin
      combobox2.Items.Add(ADOQuery_Course.FieldValues['tp_des']) ;
      ADOQuery_Course.Next;
      end;
      combobox2.ItemIndex:=0;


end;

procedure TForm7.ComboBox3Change(Sender: TObject);

begin
if (combobox1.Text<>'') and (combobox2.Text<>'' ) then
begin
     if combobox3.Text='选择题' then
     begin
      ADOQuery_Subject.Close;
      ADOQuery_Subject.SQL.Clear;

      ADOQuery_Subject.SQL.Add('select * from p0_sls order by tpd_id');

      ADOQuery_Subject.Open;
      //showmessage('你好 ！！！');
     end;

     if combobox3.Text='填空题' then
     begin
      ADOQuery_Subject.Close;
      ADOQuery_Subject.SQL.Clear;

      ADOQuery_Subject.SQL.Add('select * from p0_fls order by tpd_id');
      ADOQuery_Subject.Open;
     // showmessage('你好！！！');
     end;
      if combobox3.Text='判断题' then
     begin
     ADOQuery_Subject.Close;
     ADOQuery_Subject.SQL.Clear;

        ADOQuery_Subject.SQL.Add('select * from p0_jds order by tpd_id');
        ADOQuery_Subject.Open;
       // showmessage('你好！！！');
     end;
end;


end;

procedure TForm7.DBGrid1CellClick(Column: TColumn);
begin

      if combobox3.Text='选择题' then
       begin
      // ADOquery1.Close;
      // ADOquery1.SQL.Clear;
      // ADOquery1.SQL.Add('select sls_des from p0_sls where sln_id=:id');
      // ADOquery1.Parameters.ParamByName('id').Value:= ADOQuery_Subject.FieldValues['sln_id'];
       // ADOquery1.Open;

       memo1.Clear;

       memo1.Lines.Add(ADOQuery_Subject.FieldValues['sln_des']) ;
       end;

       if combobox3.Text='填空题' then
       begin
              memo1.Clear;
             memo1.Lines.Add(ADOQuery_Subject.FieldValues['fls_des']) ;
      end;
      if combobox3.Text='判断题' then
       begin
              memo1.Clear;
             memo1.Lines.Add(ADOQuery_Subject.FieldValues['jds_des']) ;
       end;
       
end;

procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
    // form16.Show;
   //  Form16.Caption:= '手动换题';
end;

procedure TForm7.SpeedButton4Click(Sender: TObject);
begin

       showmessage('如果你点击删除，所有相关题目都会被删除 !!! ');
      if (application.MessageBox('操作不可逆,确认删除?','confirm_delete',mb_okcancel) = idok ) then
      begin
           showmessage('此卷已经被删除！！！');
      end ;
end;

procedure TForm7.SpeedButton3Click(Sender: TObject);
var str:string;

begin

     // MessageBox(handle, '试卷名称:'+strtopchar(combobox1.text+chr(39)), '试卷信息',  mb_IconInformation + mb_Ok);
     str:='试卷名称:    '+combobox2.text+chr(10)+chr(13);
      str:=str+'选择题数:  '+inttostr(sls_count)+'  每道题 1 分'+chr(10)+chr(13);
      str:=str+'填空题数:  '+inttostr(fls_count)+'  每道题 2 分'+chr(10)+chr(13);
      str:=str+'判断题数:  ' +inttostr(jds_count)+' 每道题 1 分'+chr(10)+chr(13);
      str:=str+chr(10)+chr(13)+chr(10)+chr(13)+'试卷总分:   '+inttostr(sls_count+2*fls_count+jds_count);
      showmessage(str);
end;

procedure TForm7.SpeedButton5Click(Sender: TObject);
begin
     self.Close;
end;

end.