paper.pas

网络考试系统

unit paper;

interface

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

type
  TForm9 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    RadioGroup1: TRadioGroup;
    ADOQuery1: TADOQuery;
    GroupBox2: TGroupBox;
    Edit_Grade: TEdit;
    ComboBox1: TComboBox;
    Image1: TImage;
    Edit_Paper: TEdit;
    GroupBox3: TGroupBox;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation
uses AutoChoose,servermain, ManualChoose;
{$R *.dfm}

procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
if edit_Paper.Text<>''then
begin
  if(radiogroup1.ItemIndex=-1)then  showmessage('请选择组卷方式！');
    if (radiogroup1.ItemIndex=0)  then
    begin
    Form10.Show;
    Form10.Caption:='手动组卷';
    end;
    if radiogroup1.ItemIndex=1 then
    begin
     Form11.ShowModal;
     Form11.Caption:= '自动组卷';
     end;
end
else
showmessage('试卷名称不能为空！！！');


end;

procedure TForm9.FormShow(Sender: TObject);
begin
    ADOQuery1.Close;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * from tb_course ');
    ADOQuery1.Open;
   while(not ADOQuery1.Eof)  do
   begin
   combobox1.Items.Add(ADOQuery1.FieldValues['cr_name']);
   ADOQuery1.Next;
   end;
   combobox1.ItemIndex:=0;
   edit_paper.Text:='';

end;

end.