sj_zero.pas

学员管理的软件

unit sj_zero;

interface

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

type
  TForm8 = class(TForm)
    RadioGroup1: TRadioGroup;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form8: TForm8;
  sj_id:integer;

implementation

{$R *.dfm}
uses main,sj_first;
procedure TForm8.BitBtn1Click(Sender: TObject);
var
s1,s2:string;
i:integer;
begin
RadioGroup1.Items.Clear;
s1:=inputbox('请输入试卷名称','请输入试卷名称','');
s2:=inputbox('请输入出卷人姓名','请输入出卷人姓名','');
with main.DataModule2 do
begin
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.Add('select * from 试卷表 where 试卷名称='''+trim(s1)+''' and 出卷人='''+trim(s2)+'''');
aq1.Open;
if not aq1.Eof then
begin
messagebox(handle,'已经有这个试卷号了，请选择','错误信息',MB_OK);
with main.DataModule2 do
begin
aq1.Close;
aq1.sql.Clear;
aq1.SQL.Add('select * from 试卷表');
aq1.Open;
while not aq1.Eof do
begin
RadioGroup1.Items.Add(trim(aq1.FieldValues['试卷名称'])+'('+trim(aq1.FieldValues['出卷人'])+')');
aq1.Next;
end;
end;
exit;
end;
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.Add('select count(*) as num from 试卷表');
aq1.Open;
i:=aq1.FieldValues['num'];
if ((trim(s1)<>'')and(trim(s2)<>'')) then
begin
RadioGroup1.Columns:=(i div 12)+1;
aq1.Close;
aq1.SQL.Clear;
aq1.SQL.Add('insert into 试卷表 values('+inttostr(i)+','''+trim(s1)+''','''+trim(s2)+''')');
aq1.ExecSQL;
//aq1.Insert;
//aq1.FieldByName('试卷号').AsInteger:=i;
//aq1.FieldByName('试卷名称').AsString:=trim(s1);
//aq1.FieldByName('出卷人').AsString:=trim(s2);
//aq1.Post;
messagedlg('试卷名称添加成功',mtinformation,[mbok],0);
form8.Show;
end;
end;
with main.DataModule2 do
begin
aq1.Close;
aq1.sql.Clear;
aq1.SQL.Add('select 试卷名称,出卷人 from 试卷表');
aq1.Open;
while not aq1.Eof do
begin
RadioGroup1.Items.Add(trim(aq1.FieldValues['试卷名称'])+'('+trim(aq1.FieldValues['出卷人'])+')');
aq1.Next;
end;
end;
end;

procedure TForm8.BitBtn2Click(Sender: TObject);
begin
if radiogroup1.ItemIndex>=0 then
begin
sj_id:=radiogroup1.ItemIndex;
hide;
sj_first.Form3.Show;
end
else
messagedlg('请选择试卷，以便提供正确的试卷信息！',mtinformation,[mbok],0);
end;

procedure TForm8.FormShow(Sender: TObject);
begin
with main.DataModule2 do
begin
aq1.Close;
aq1.sql.Clear;
aq1.SQL.Add('select 试卷名称,出卷人 from 试卷表');
aq1.Open;
radiogroup1.Items.Clear;
while not aq1.Eof do
begin
RadioGroup1.Items.Add(trim(aq1.FieldValues['试卷名称'])+'('+trim(aq1.FieldValues['出卷人'])+')');
aq1.Next;
end;
end;
end;

end.