TO TYZhang:
我的程序流程是这样的
在form1中对指定的数据库进行读取,数据库中贮存了学生和图片的信息,学生和图片是多对多的关系
通过form2中Button3提取出不同学生的基本信息,已经能成功实现.
procedure TForm2.Button3Click(Sender: TObject);
begin
with form1.ADOQuery2,CheckListBox1do
begin
SQL.Clear;
SQL.Add('SELECT distinct xingming,bianhao,sheng,xian,nyear,nmouth,nday FROM exportable');
Prepared;
Open;
//////////////////////////////////
Clear;
First;
while not eofdo
begin
Items.Add(Format('编号[%s] 姓名[%s]',[Fields[0].AsString,Fields[2].AsString]));
Next;
end;
end;
end;
对CheckListBox1中的记录进行勾选,在form2中再点你说的程序Button4,出现form4,只能打印adoquery1中的一条记录,与勾选无关系,不知是为什么?请帮助