procedure TForm1.Button7Click(Sender: TObject);
begin
  ADOQuery3.Close;
  ADOQuery3.SQL.Clear;
  ADOQuery3.SQL.Add('select 名称 from 数据库 where 名称='''+Edit1.text+'''');
 ADOQuery3.Open;
 frxReport3.ShowReport;
end;
如何在程序中定义标题?然后为什么我的frxReport老是只有第一页有标题?

解决方案 »

  1.   

    在报表文件里添加页头,在页头里面添加一个Memo,名称为memo1
    procedure TForm1.Button7Click(Sender: TObject);
    begin
      ADOQuery3.Close;
      ADOQuery3.SQL.Clear;
      ADOQuery3.SQL.Add('select 名称 from 数据库 where 名称='''+Edit1.text+'''');
     ADOQuery3.Open;
      if frxReport3.FindObject('memo1') <> nil then
        frxReport3.FindObject('memo1').Memo.Text := '报表标题';
     frxReport3.ShowReport;
    end;
      

  2.   


    为什么会出错? 停留在Memo.Text这里?
      

  3.   

    直接在MEMO里取数据不就行了吗?
    把memo放到页头里就可以每页显示了.