unit2.pas

VB编写的考试系统和论文

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ComCtrls, Buttons, StdCtrls, DB, ADODB, ExtCtrls,client,
  jpeg, ScktComp;

type
  TForm2 = class(TForm)
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    GroupBox1: TGroupBox;
    StatusBar1: TStatusBar;
    ADOConnection1: TADOConnection;
    q1: TADOQuery;
    tihao: TLabel;
    timu: TLabel;
    r1: TRadioButton;
    r2: TRadioButton;
    r3: TRadioButton;
    r4: TRadioButton;
    r5: TRadioButton;
    c1: TCheckBox;
    c2: TCheckBox;
    c3: TCheckBox;
    c4: TCheckBox;
    c5: TCheckBox;
    c6: TCheckBox;
    a: TLabel;
    b: TLabel;
    c: TLabel;
    d: TLabel;
    e: TLabel;
    f: TLabel;
    Label9: TLabel;
    shichuo: TLabel;
    tixing: TLabel;
    Label13: TLabel;
    lb: TListBox;
    Label1: TLabel;
    qq: TADOQuery;
    SpeedButton7: TSpeedButton;
    r6: TRadioButton;
    q2: TADOQuery;
    Label2: TLabel;
    cj: TClientSocket;
    procedure FormCreate(Sender: TObject);
    procedure lbClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton7Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

  private
    { Private declarations }
  public
    { Public declarations }
    sno:string;
    ip:string;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin
   r1.Visible:=false;
   r2.Visible:=false;
   r3.Visible:=false;
   r4.Visible:=false;
   r5.Visible:=false;
   r6.Visible:=false;
   c1.Visible:=false;
   c2.Visible:=false;
   c3.Visible:=false;
   c4.Visible:=false;
   c5.Visible:=false;
   c6.Visible:=false;
end;
procedure TForm2.lbClick(Sender: TObject);
var
num:string;
begin
  num:= lb.Items.Strings[lb.ItemIndex];

  q1.Close;
  q1.SQL.Clear;
  q1.SQL.Add('select * from temp where CStr(ID)='+chr(39)+num+chr(39));
  q1.Open;
  if q1.Fields[2].AsString ='单选题' 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;
            tihao.Caption:=q1.Fields[0].AsString+'.';
            label13.Caption:=q1.Fields[0].AsString+'                                        ';
            label9.Caption:='('+q1.Fields[3].AsString+'分）';
            timu.Caption:=q1.Fields[4].AsString+'                                           ';
            a.Caption :=q1.Fields[5].AsString+'                                            ';
            b.Caption:=q1.Fields[6].asstring+'                                           ';
            c.Caption:=q1.Fields[7].asstring+'                                           ';
            d.Caption:=q1.Fields[8].AsString+'                                           ';
            e.Caption:=q1.Fields[9].asstring+'                                           ';
            f.Caption:=q1.Fields[10].AsString+'                                           ';
            shichuo.Caption:=q1.Fields[1].AsString+'                                           ';
          tixing.Caption:=q1.Fields[2].AsString;

           end
           //--------------将单选题显示在Label上--------------------------
      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;
             tihao.Caption:=q1.Fields[0].AsString+'.';
             label13.Caption:=q1.Fields[0].AsString;
             label9.Caption:='('+q1.Fields[3].AsString+'分）                     ';
             timu.Caption:=q1.Fields[4].AsString+'                                           ';
             a.Caption :=q1.Fields[5].AsString+'                                           ';
             b.Caption:=q1.Fields[6].asstring+'                                           ';
             c.Caption:=q1.Fields[7].asstring+'                                           ';
             d.Caption:=q1.Fields[8].AsString+'                                           ';
             e.Caption:=q1.Fields[9].asstring+'                                           ';
             f.Caption:=q1.Fields[10].AsString+'                                           ';
             shichuo.Caption:=q1.Fields[1].AsString+'                                           ';
          tixing.Caption:=q1.Fields[2].AsString;

          end;
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
var
 i:integer;
begin

  q1.Close;
  q1.SQL.Clear;
  q1.SQL.Add('select * from temp');
  q1.Open;
    if not q1.Eof then
     begin
      for i := 0 to q1.RecordCount-1  do
         begin
          lb.Items.Add( q1.Fields[0].AsString);
          q1.Next ;
         end;
         label1.Caption:='本场考试时间'+q1.Fields[17].AsString+'分钟                       ';
        end;


  q1.Close;
  q1.SQL.Clear;
  q1.SQL.Add('select * from temp where CStr(ID)='+chr(39)+'1'+chr(39));
  q1.Open;

   if q1.Fields[2].AsString ='单选题' 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;
            tihao.Caption:=q1.Fields[0].AsString+'.';
            label13.Caption:=q1.Fields[0].AsString;
            label9.Caption:='('+q1.Fields[3].AsString+'分）';
            timu.Caption:=q1.Fields[4].AsString+'                                           ';
            a.Caption :=q1.Fields[5].AsString+'                                           ';
            b.Caption:=q1.Fields[6].asstring+'                                           ';
            c.Caption:=q1.Fields[7].asstring+'                                           ';
            d.Caption:=q1.Fields[8].AsString+'                                           ';
            e.Caption:=q1.Fields[9].asstring+'                                           ';
            f.Caption:=q1.Fields[10].AsString+'                                           ';
           shichuo.Caption:=q1.Fields[1].AsString+'                                           ';
          tixing.Caption:=q1.Fields[2].AsString;

           end
           //--------------将单选题显示在Label上--------------------------
      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;
             tihao.Caption:=q1.Fields[0].AsString+'.';
             label13.Caption:=q1.Fields[0].AsString;
             label9.Caption:='('+q1.Fields[3].AsString+'分）';
             timu.Caption:=q1.Fields[4].AsString+'                                           ';
             a.Caption :=q1.Fields[5].AsString+'                                           ';
             b.Caption:=q1.Fields[6].asstring+'                                           ';
             c.Caption:=q1.Fields[7].asstring+'                                           ';
             d.Caption:=q1.Fields[8].AsString+'                                           ';
             e.Caption:=q1.Fields[9].asstring+'                                           ';
             f.Caption:=q1.Fields[10].AsString;
             shichuo.Caption:=q1.Fields[1].AsString+'                                           ';
            tixing.Caption:=q1.Fields[2].AsString;

          end;





end;

procedure TForm2.SpeedButton5Click(Sender: TObject);
var
num:string;
begin
 if  lb.Items.Strings[lb.ItemIndex]='1' then
    begin
      q1.close;
      q1.SQL.Clear;
      q1.SQL.Add('select * from temp where CStr(ID)='+chr(39)+'1' +chr(39));
      q1.Open;
       if q1.Fields[2].AsString ='单选题' 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;
            tihao.Caption:=q1.Fields[0].AsString+'.';
             label13.Caption:=q1.Fields[0].AsString+'                                           ';
             label9.Caption:='('+q1.Fields[3].AsString+'分）';
             timu.Caption:=q1.Fields[4].AsString+'                                           ';
             a.Caption :=q1.Fields[5].AsString+'                                           ';
             b.Caption:=q1.Fields[6].asstring+'                                           ';
             c.Caption:=q1.Fields[7].asstring+'                                           ';
             d.Caption:=q1.Fields[8].AsString+'                                           ';
             e.Caption:=q1.Fields[9].asstring+'                                           ';
             f.Caption:=q1.Fields[10].AsString+'                                           ';
             shichuo.Caption:=q1.Fields[1].AsString+'                                           ';
         tixing.Caption:=q1.Fields[2].AsString;

           end
           //--------------将单选题显示在Label上--------------------------
      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;
             tihao.Caption:=q1.Fields[0].AsString+'.';
             label13.Caption:=q1.Fields[0].AsString+'                                           ';
             label9.Caption:='('+q1.Fields[3].AsString+'分）';
             timu.Caption:=q1.Fields[4].AsString+'                                           ';
             a.Caption :=q1.Fields[5].AsString+'                                           ';
             b.Caption:=q1.Fields[6].asstring+'                                           ';
             c.Caption:=q1.Fields[7].asstring+'                                           ';
             d.Caption:=q1.Fields[8].AsString+'                                           ';
             e.Caption:=q1.Fields[9].asstring+'                                           ';
             f.Caption:=q1.Fields[10].AsString+'                                           ';
             shichuo.Caption:=q1.Fields[1].AsString+'                                           ';
           tixing.Caption:=q1.Fields[2].AsString;

      end;
    end
  else
    begin
     num:=inttostr(strtoint(lb.Items.Strings[lb.ItemIndex])-1);
     q1.Close;
     q1.SQL.Clear;
     q1.SQL.add('select * from temp where CStr(ID)='+chr(39)+num+chr(39));
     q1.Open;
      if q1.Fields[2].AsString ='单选题' 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;
            tihao.Caption:=q1.Fields[0].AsString+'.';