auto1.pas

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

unit auto1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label17: TLabel;
    Edit4: TEdit;
    UpDown4: TUpDown;
    Edit5: TEdit;
    UpDown5: TUpDown;
    Edit6: TEdit;
    UpDown6: TUpDown;
    Edit11: TEdit;
    UpDown11: TUpDown;
    GroupBox3: TGroupBox;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label18: TLabel;
    Edit7: TEdit;
    UpDown7: TUpDown;
    Edit8: TEdit;
    UpDown8: TUpDown;
    Edit9: TEdit;
    UpDown9: TUpDown;
    Edit12: TEdit;
    UpDown12: TUpDown;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label15: TLabel;
    UpDown1: TUpDown;
    Edit1: TEdit;
    Edit2: TEdit;
    UpDown2: TUpDown;
    Edit3: TEdit;
    UpDown3: TUpDown;
    Edit10: TEdit;
    UpDown10: TUpDown;
    Button1: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    Query2: TQuery;
    DataSource2: TDataSource;
    Label14: TLabel;
    Edit13: TEdit;
    Label16: TLabel;
    Edit14: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
    score,paperid,subject,questionid,n: String;
    num,reco,t: integer;
    str:string;
begin
    subject:=edit13.text;
    paperid:=edit14.text;
    num:=strtoint(edit1.Text);
    score:=edit10.text;
    t:=0;
    Query1.close;
    Query1.SQL.Clear;
    str:= 'Select question_id from questionlib where subject='+quotedstr(subject)+'and type=1'+ ' and difficult=1';
    showmessage(str);
    Query1.SQL.Add(str);
    Query1.Open;
    reco:=Query1.Recordcount;
    if(num>reco) then
    showmessage('题目数量不够!')
    else
    begin
      while t<num do
      begin
        questionid:=Query1.FieldByName('question_id').AsString;
        Query2.close;
        Query2.SQL.Clear;
        t:=t+1;
        n:=String(t);
        Query2.SQL.Add('insert into makepeper (question_id,paper_id,question_no,points) values('+questionid+','+paperid+','+n+','+score+')');
        Query1.Next;
      end;
    end;

end;

end.