unit1.~pas

Delphi实现手动生成试卷

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    ADOConnection1: TADOConnection;
    ADOTable2: TADOTable;
    DataSource1: TDataSource;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    GroupBox4: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    DBMemo1: TDBMemo;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    DBMemo2: TDBMemo;
    DBMemo3: TDBMemo;
    DBMemo4: TDBMemo;
    DBMemo5: TDBMemo;
    DBMemo6: TDBMemo;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    DBMemo7: TDBMemo;
    DBMemo8: TDBMemo;
    DBMemo9: TDBMemo;
    DBMemo10: TDBMemo;
    DBMemo11: TDBMemo;
    ADODataSet1: TADODataSet;
    
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  //kemu:integer;

implementation

{$R *.dfm}





procedure TForm1.Button1Click(Sender: TObject);
begin
   ADOdataset1.Edit;
   ADOdataset1.Prior;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOdataset1.Edit;
   ADOdataset1.next;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
m,n:integer;
begin
  if((RadioButton1.Checked=false)and(RadioButton2.Checked=false)) then
     showmessage('还未选择科目，请选择!')
  else
  begin
     m:=ADOtable2.RecordCount;
     if(m<>0)then
     begin
       for n:=1 to m do
       begin
          ADOtable2.Delete;
       end;
     end;
  end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin

   adodataset1.Active := false;
   adodataset1.CommandText :='';
   adodataset1.CommandText := 'select * from alltest where ID between 1 and 45 ; ';
   adodataset1.Active:= true;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
   
   RadioButton1.Enabled := true;
   adodataset1.Active := false;
   adodataset1.CommandText :='';
   adodataset1.CommandText := 'select * from alltest where ID between 46 and 90 ;';
   adodataset1.Active:= true;
   
end;

procedure TForm1.Button4Click(Sender: TObject);

var
m,n,i:integer;
begin
   adotable2.Active :=true;
   i:=0;
   m:=ADOTable2.RecordCount;
   ADOTable2.First;
   for n:=0 to m do
    begin
    if(ADOdataset1.FieldValues['题型']=ADOTable2.FieldValues['题型'])then
    begin
    i:=1;
    ADOTable2.Edit;
    ADOTable2.Next;
    end
    else
    ADOTable2.Edit;
    ADOTable2.Next;
    end;
   if(i<>1)then
   begin
   ADOTable2.InsertRecord([
   
   ADOdataset1.FieldValues['科目'],
   ADOdataset1.FieldValues['题干'],
   ADOdataset1.FieldValues['A'],
   ADOdataset1.FieldValues['B'],
   ADOdataset1.FieldValues['C'],
   ADOdataset1.FieldValues['D'],
   ADOdataset1.FieldValues['题型'],
   ADOdataset1.FieldValues['正确答案'],
   ADOdataset1.FieldValues['分值'],
   ADOdataset1.FieldValues['难度']
   {0,inttostr(0)}
    ]);

   end
   else showmessage('此提已选过');
  end;



end.