关于报表 fr

Question

想做下边的报表，用fastreport 3
数据库字段：
姓名、编号、预约时间、预约人、分时段刚开始做报表，没有头绪。   请问该怎么样做？

Answer 1

转一篇简单教学
在Form中添加如下控件：con: TADOConnection; //连接数据库qry_fastPort: TADOQuery; //查询数据用frReport1: TfrReport; //报表页面frDBDataSet1: TfrDBDataSet; //连接记录集 属性设置如下：frDBDataSet1.DataSet:= qry_fastPort;frReport1.DataSet := frDBDataSet1; 双击frReport1打开报表设计页面，进行报表设计。1.添加一个band,选项为:主页数据，双击该band选择数据源为frDBDataSet12.在‘主页数据’中‘插入矩形对象’，双击该插入矩形对象，输入：[qry_fastPort."username"]，username为记录集的一个字段3.保存命名为：UserInfo.frf 调用：frReport1.LoadFromFile('../Temp/UserInfo.frf');frReport1.Preview:= nil;frReport1.ShowReport; 完毕：

Answer 2

挺怪的，我直接放到IE里边都可以浏览
http://my.csdn.net/my/album/detail/1112693

Answer 3

时间比较紧，所以边看demo，边问了。每条记录都有星期几、时段的
相同一天的有好几条记录
相同一天，并且同一时段的也有好几条记录

Answer 4

我的报表控件是放在 datamodule里边,大家共用一个，frxReport1BeforePrint这个事件在其他窗体里边怎么设置呢？procedure TForm1.Button1Click(Sender: TObject);
begin
  frxReport1.ShowReport;
end;procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
  Cross: TfrxCrossView;
  i, j: Integer;
begin
  if c is TfrxCrossView then
  begin
    Cross := TfrxCrossView(c);    Table1.First;
    i := 0;
    while not Table1.Eof do
    begin
      for j := 0 to Table1.Fields.Count - 1 do
        Cross.AddValue([i], [Table1.Fields[j].DisplayLabel], [Table1.Fields[j].AsString]);      Table1.Next;
      Inc(i);
    end;
  end;
end;

Answer 5

case5166
楼主这个问题，你帮“解决”吧

Answer 6

 
case5166
 
(我看见佛) 楼主的问题，你帮“解决”吧

Answer 7

这个用系统自动生成比较困难。变通一下是可以实现的。
可以先把表画好，在打印前用循环把查询好的数据填充到表中，虽然麻烦了一点，但可以实现的。
self.frxReport1.LoadFromFile('reports\统计表.fr3');
TfrxMemoView(frxReport1.FindObject('Memo1')).Memo.Text:=???????;
TfrxMemoView(frxReport1.FindObject('Memo2')).Memo.Text:=.??????;
.........................self.frxReport1.ShowReport;或者采用套打的方法也可以。

Answer 8

看LZ那个图，用三个frdataset分别查询不同时段，然后用三个band代表时段1，时段2，时段3组合起来应该就可以了，至于如果还要按照星期几再分一次的话，呃，好久不用fastreport了，只有一个苯办法，用组合报表来实现了

Answer 9

更正，是我只记得这个方法了，详细内容要看下他的demo来学学了

Answer 10

case5166
 
(我看见佛) 不出力了呀，你呀

Answer 11

case5166 
(我看见佛) 
呵呵，你呀好好学习学习吧

Answer 12

最后我用Report Machine解决掉。  网上看Fr解决办法太复杂了，果断就换了。