sj_first.~pas

学员管理的软件

unit sj_first;

interface

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

type
  TForm3 = class(TForm)
    clb: TCheckListBox;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  txh:array[0..20] of integer;

implementation

{$R *.dfm}
uses main,sj_second;
procedure TForm3.FormCreate(Sender: TObject);
var i:integer;
ts:integer;
begin
i:=0;
with main.DataModule2 do
begin
aq1.SQL.Clear;
aq1.SQL.Add('select name,id from 题型表');
aq1.Close;
aq1.Open;
aq1.First;
clb.Clear;
while not aq1.Eof do
begin
clb.Items.Add(aq1.FieldValues['name']);
ts:=aq1.FieldValues['id'];
aq1.Next;
end;
end;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure TForm3.BitBtn1Click(Sender: TObject);
var
i:integer;
tx:integer;
begin
tx:=0;
for i:=0 to clb.Count-1 do
begin
if (clb.Checked[i]=true) then
begin
  txh[tx]:=i+1;
  inc(tx);
end;
end;
form3.Hide;
sj_second.Form4.Show;
end;

end.