sj_second.pas

学员管理的软件

unit sj_second;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, ExtCtrls;

type
  TForm4 = class(TForm)
    Label1: TLabel;
    rg: TRadioGroup;
    Label2: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure rgClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  ts:array[0..20] of integer;
  ts_flag:array[0..20] of boolean;
  tl:Tstringlist;
implementation

{$R *.dfm}
uses sj_first,sj_third;
procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['0','1','2','3','4','5','6','7','8','9'] then

else
begin
 messagebox(handle,'你输入的字符不合法','错误信息',MB_OK);
 edit1.Text:='';
 edit1.SetFocus;
 exit;
end;
end;

procedure TForm4.FormShow(Sender: TObject);
var
i:integer;
begin
for i:=0 to 20 do
begin
ts[i]:=0;
end;
tl:=Tstringlist.Create;
tl.Clear;
rg.Items.Clear;
with sj_first.Form3 do
begin
for i:=0 to clb.Count-1 do
begin
if clb.Checked[i]=true then
begin
rg.Items.Add(clb.Items.Strings[i]);
tl.Add(clb.Items.Strings[i]);
end;
end;
end;
end;

procedure TForm4.rgClick(Sender: TObject);
var
i:integer;
begin
if edit1.Text = '' then
begin
messagebox(handle,'请输入题的数目','错误信息',MB_OK);
exit;
end;
try
i:=strtoint(edit1.Text);
except
messagedlg('请输入合法的数字，请核对！',mterror,[mbok],0);
end;
if i>200 then
begin
if messagedlg('输入的题数在现实中不建议大于200道，你确定'+edit1.Text+'道么？',mtinformation,[mbyes,mbno],0)=mrno then
exit
else
begin
ts[rg.ItemIndex]:=strtoint(edit1.Text);
ts_flag[rg.ItemIndex]:=true;
rg.Items.Strings[rg.ItemIndex]:=tl.strings[rg.ItemIndex]+'【'+inttostr(ts[rg.ItemIndex])+'道】   ';
end;
end;
ts[rg.ItemIndex]:=strtoint(edit1.Text);
ts_flag[rg.ItemIndex]:=true;
rg.Items.Strings[rg.ItemIndex]:=tl.strings[rg.ItemIndex]+'【'+inttostr(ts[rg.ItemIndex])+'道】   ';
end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
hide;
sj_first.Form3.Show;
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
tl.Free;
end;

procedure TForm4.SpeedButton2Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to rg.Items.Count -1 do
begin
  if ts_flag[i]=false then
  begin
     messagedlg('至少还有一种题型没设置题数，请核对',mterror,[mbok],0);
     exit;
  end;
end;
form4.Hide;
sj_third.Form5.Show;
end;

end.