unit1.pas

很不错很实用的学生联机考试系统

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, Grids, DBGrids, DB, DBTables;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    GroupBox1: TGroupBox;
    Label4: TLabel;
    Edit3: TEdit;
    UpDown1: TUpDown;
    Label5: TLabel;
    Edit4: TEdit;
    UpDown2: TUpDown;
    Label6: TLabel;
    Edit5: TEdit;
    UpDown3: TUpDown;
    Label7: TLabel;
    Edit6: TEdit;
    UpDown4: TUpDown;
    Label8: TLabel;
    Edit7: TEdit;
    UpDown5: TUpDown;
    Label9: TLabel;
    Edit8: TEdit;
    UpDown6: TUpDown;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Query1: TQuery;
    Query2: TQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Edit1: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses w_pvpaper;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
   sub,name,str,typ,quid:string;
   num,sco,reco,i,quno,j:integer;
   procedure inser();
   begin
   query1.Active:=true;
   str:='select question_id from questionlib where subject='''+sub+'''and type='''+typ+'''';
   // showmessage(str);
   query1.SQL.Clear;
   query1.SQL.Add(str);
   query1.open;
   if(query1.IsEmpty)and(j=1)  then
   begin
   showmessage('科目'+sub+'或'+'类型'+typ+'的题不存在!');
   j:=0;
   end
   else
   begin
   reco:=Query1.Recordcount;


   quid:= Query1.FieldByName('question_id').AsString;
   if (num>reco)and (j=1) then
   showmessage('题库内此类题数量不够!')
   else
   begin
     while (i<num) do
       begin
       //  query2.Active:=true;
          str:= 'insert into makepaper (question_id,paper_id,question_no,points) values('''+quid+''','''+name+''','''+inttostr(quno)+''','''+inttostr(sco)+''')';
         // showmessage(str);
          query2.SQL.Clear;
          query2.SQL.Add(str);
          query2.ExecSQL;
          query1.Next;
          quid:= Query1.FieldByName('question_id').AsString;
          quno:=quno+1;
          i:=i+1;
       end;
   end;
 end;
 end;
begin
   sub:=edit1.Text;
   name:=edit2.Text;
   num:=strtoint(edit3.Text);
   sco:=strtoint(edit4.Text);
   typ:='1';
   quno:=1;
   i:=0;
   j:=1;
   inser();

   num:=strtoint(edit5.Text);
   sco:=strtoint(edit6.Text);
   typ:='2';
   i:=0;
   inser();

   num:=strtoint(edit7.Text);
   sco:=strtoint(edit8.Text);
   typ:='3';
   i:=0;
   inser();
   if(j=1) then
   showmessage('试卷已提交成功!');
   button2.Enabled:=true;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
   self.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Application.CreateForm(Tpvpaper,pvpaper);
  pvpaper.Visible:=true;
  button2.Enabled:=false;
end;

end.