tiku.~pas

一个比较好的网上考试系统

unit tiku;

interface

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

type
  TForm7 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    cb2: TComboBox;
    Label3: TLabel;
    Label4: TLabel;
    Panel2: TPanel;
    SpeedButton1: TSpeedButton;
    r1: TRadioButton;
    r2: TRadioButton;
    R3: TRadioButton;
    r4: TRadioButton;
    R5: TRadioButton;
    R6: TRadioButton;
    q7: TADOQuery;
    Cb3: TComboBox;
    cb1: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    c1: TCheckBox;
    c2: TCheckBox;
    c3: TCheckBox;
    c4: TCheckBox;
    c5: TCheckBox;
    c6: TCheckBox;
    memo1: TMemo;
    SpeedButton2: TSpeedButton;
    c: TSpeedButton;
    procedure FormCreate(Sender: TObject);
    procedure Cb3DragDrop(Sender, Source: TObject; X, Y: Integer);
    procedure Cb3Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure cClick(Sender: TObject);
   

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

var
  Form7: TForm7;

implementation
uses denglu,guanli;
{$R *.dfm}

procedure TForm7.FormCreate(Sender: TObject);
begin
  q7.SQL.Clear;
  q7.SQL.Add('select cname from course');
  q7.Open;
  while (not q7.Eof ) do
   begin
    cb1.Items.Add(q7.Fields[0].AsString);
    q7.Next;
   end;
   cb1.ItemIndex:=0;
  if cb3.ItemIndex=0 then
    begin
     c1.Visible :=false;
     c2.Visible:=false;
     c3.Visible:=false;
     c4.Visible:=false;
     c5.Visible:=false;
     c6.Visible:=false;
    end
  else
     begin
      r1.Visible :=false;
      r2.Visible:=false;
      r3.Visible:=false;
      r4.Visible:=false;
      r5.Visible:=false;
      r6.Visible:=false;
     end;
end;






procedure TForm7.Cb3DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
   if cb3.ItemIndex=0 then
    begin
      c1.Visible :=false;
      c2.Visible:=false;
      c3.Visible:=false;
      c4.Visible:=false;
      c5.Visible:=false;
      c6.Visible:=false;
      r1.Visible :=true;
      r2.Visible:=true;
      r3.Visible:=true;
      r4.Visible:=true;
      r5.Visible:=true;
      r6.Visible:=true;
    end
  else
     begin
      r1.Visible :=false;
      r2.Visible:=false;
      r3.Visible:=false;
      r4.Visible:=false;
      r5.Visible:=false;
      r6.Visible:=false;
      c1.Visible :=true;
      c2.Visible:=true;
      c3.Visible:=true;
      c4.Visible:=true;
      c5.Visible:=true;
      c6.Visible:=true;
     end;
end;

procedure TForm7.Cb3Click(Sender: TObject);
begin
if cb3.ItemIndex=0 then
    begin
      c1.Visible :=false;
      c2.Visible:=false;
      c3.Visible:=false;
      c4.Visible:=false;
      c5.Visible:=false;
      c6.Visible:=false;
      r1.Visible :=true;
      r2.Visible:=true;
      r3.Visible:=true;
      r4.Visible:=true;
      r5.Visible:=true;
      r6.Visible:=true;
    end
  else
     begin
      r1.Visible :=false;
      r2.Visible:=false;
      r3.Visible:=false;
      r4.Visible:=false;
      r5.Visible:=false;
      r6.Visible:=false;
      c1.Visible :=true;
     c2.Visible:=true;
     c3.Visible:=true;
     c4.Visible:=true;
     c5.Visible:=true;
     c6.Visible:=true;
     end;
end;



procedure TForm7.SpeedButton1Click(Sender: TObject);
var
  cno:string;
begin
  if memo1.Text='' then
    begin
     MessageBox(handle, '输入试题内容!', '提示',  mb_IconInformation + mb_Ok);
     exit;
     end                               //------------------试题内容不能为空------------------
   else
      begin
       q7.Close;
       q7.SQL.Clear;
       q7.SQL.Add('select * from course where cname='+chr(39)+cb1.Text+chr(39) );
       q7.Open;
       cno:=q7.Fields[0].AsString ;      //--------------------------将课程号取出来--------------
       q7.SQL.Clear;
       q7.SQL.Add('select * from timu ');
       q7.Open ;
       q7.Insert;
       q7.Fields[0].AsString:=FormatDateTime('yyyymmddhhmmss',now);
       //---------用时间戳作为题目的题号--------------
       q7.Fields[1].AsString:=cb3.Text;
       q7.Fields[2].AsString:=cno;
       q7.Fields[3].AsString:=cb2.Text;
       q7.Fields[4].AsString:=memo1.Text;
       q7.Fields[5].asstring:=edit1.Text;
       q7.fields[6].AsString:=edit2.Text;
       q7.Fields[7].asstring:=edit3.Text;
       q7.Fields[8].asstring:=edit4.Text;
       q7.Fields[9].asstring:=edit5.Text;
       q7.fields[10].AsString:=edit6.Text;
         if cb3.Text='单选题' then
            begin
              if r1.Checked=true then
                begin
                 q7.FieldByName('right_a').AsString:='是';
                  q7.Post;
                  MessageBox(handle, '试题添加成功!', '提示',  mb_IconInformation + mb_Ok);
                  memo1.Clear;
                  edit1.Clear;
                  edit2.Clear;
                  edit3.Clear;
                  edit4.Clear;
                  edit5.Clear;
                  edit6.Clear;
                  r1.Checked:=false;
                  r2.Checked:=false;
                  r3.Checked:=false;
                  r4.Checked:=false;
                  r5.Checked:=false;
                  r6.Checked:=false;
                  exit;
                end;
              if r2.Checked=true then
                begin
                 q7.FieldByName('right_b').AsString:='是';
                 q7.Post;
                  MessageBox(handle, '试题添加成功!', '提示',  mb_IconInformation + mb_Ok);
                  memo1.Clear;
                  edit1.Clear;
                  edit2.Clear;
                  edit3.Clear;
                  edit4.Clear;
                  edit5.Clear;
                  edit6.Clear;
                  r1.Checked:=false;
                  r2.Checked:=false;
                  r3.Checked:=false;
                  r4.Checked:=false;
                  r5.Checked:=false;
                  r6.Checked:=false;
                  exit;
                end;
              if r3.Checked=true then
                begin
                 q7.FieldByName('right_c').AsString:='是';
                 q7.Post;
                 form8.q6.Active :=false;
                 form8.q6.Active:=true;
                 MessageBox(handle, '试题添加成功!', '提示',  mb_IconInformation + mb_Ok);
                 memo1.Clear;
                 edit1.Clear;
                 edit2.Clear;
                 edit3.Clear;
                 edit4.Clear;
                 edit5.Clear;
                 edit6.Clear;
                 r1.Checked:=false;
                 r2.Checked:=false;
                 r3.Checked:=false;
                 r4.Checked:=false;
                 r5.Checked:=false;
                 r6.Checked:=false;
                 exit;
                end;
              if r4.Checked=true then
                begin
                  q7.FieldByName('right_d').AsString:='是';
                  q7.Post;
                  MessageBox(handle, '试题添加成功!', '提示',  mb_IconInformation + mb_Ok);
                  memo1.Clear;
                  edit1.Clear;
                  edit2.Clear;
                  edit3.Clear;
                  edit4.Clear;
                  edit5.Clear;
                  edit6.Clear;
                  r1.Checked:=false;
                  r2.Checked:=false;
                  r3.Checked:=false;
                  r4.Checked:=false;
                  r5.Checked:=false;
                  r6.Checked:=false;
                  exit;
                end;
              if r5.Checked=true then
                begin
                  q7.FieldByName('right_e').AsString:='是';
                  q7.Post;
                  form8.q6.Active :=false;
                  form8.q6.Active:=true;
                  MessageBox(handle, '试题添加成功!', '提示',  mb_IconInformation + mb_Ok);
                  memo1.Clear;
                  edit1.Clear;
                  edit2.Clear;
                  edit3.Clear;
                  edit4.Clear;
                  edit5.Clear;
                  edit6.Clear;
                  r1.Checked:=false;
                  r2.Checked:=false;
                  r3.Checked:=false;
                  r4.Checked:=false;
                  r5.Checked:=false;
                  r6.Checked:=false;
                  exit;
                end;
              if r6.Checked=true then
                begin
                  q7.FieldByName('right_f').AsString:='是';
                  q7.Post;
                  form8.q6.Active :=false;
                  form8.q6.Active:=true;
                  MessageBox(handle, '试题添加成功!', '提示',  mb_IconInformation + mb_Ok);
                  memo1.Clear;
                  edit1.Clear;
                  edit2.Clear;
                  edit3.Clear;
                  edit4.Clear;
                  edit5.Clear;
                  edit6.Clear;
                  r1.Checked:=false;
                  r2.Checked:=false;
                  r3.Checked:=false;
                  r4.Checked:=false;
                  r5.Checked:=false;
                  r6.Checked:=false;
                  exit;
                end;

                     //--------------单选题时添加题目的方法--------------------
            end
          else
            begin
             if c1.Checked=true then
                begin
                  q7.FieldByName('right_a').AsString:='是';
                 end;
             if c2.Checked=true then
                begin
                  q7.FieldByName('right_b').AsString:='是';
                 end;
             if c3.Checked=true then
                begin
                  q7.FieldByName('right_c').AsString:='是';
                 end;
             if c4.Checked=true then
                begin
                  q7.FieldByName('right_d').AsString:='是';
                 end;
             if c5.Checked=true then
                begin
                  q7.FieldByName('right_e').AsString:='是';
                 end;
             if c6.Checked=true then
                begin
                  q7.FieldByName('right_f').AsString:='是';
                 end;
                   q7.Post;
                   form8.q6.Active :=false;
                 form8.q6.Active:=true;
                   memo1.Clear;
                   edit1.Clear;
                   edit2.Clear;
                   edit3.Clear;
                   edit4.Clear;
                   edit5.Clear;
                   edit6.Clear;
                   c1.Checked:=false;
                   c2.Checked:=false;
                   c3.Checked:=false;
                   c4.Checked:=false;
                   c5.Checked:=false;
                   c6.Checked:=false;
                 MessageBox(handle, '试题添加成功!', '提示',  mb_IconInformation + mb_Ok);
          end;
   q7.Close;

                           //--------------多选题时的添加方法-------------------------
  end;

end;

procedure TForm7.SpeedButton2Click(Sender: TObject);
begin
  form7.Visible:=false;
  form8.Visible:=true;
  form8.q6.Active:=false;
  form8.q6.Active:=true;
end;

procedure TForm7.cClick(Sender: TObject);
begin
 form7.Visible:=false;
end;

end.