这样的排版用fastreport或者rave怎么实现?各位进来看看(200分)

  • 主题发起人 主题发起人 Honkily
  • 开始时间 开始时间
H

Honkily

Unregistered / Unconfirmed
GUEST, unregistred user!
要求排版如下:
--------------------------------------
    单号:----  编号:-----  规格:------
    姓名:----  电话:-----
  
    种类       费用
    -----    ------
    -----    ------
    -----    ------
    费用金额:---(元)
--------------------------------------
  上下两部分,要在一页显示,两部分的数据来自两个数据库。
  我现在主要是下面的部分只能显示一行,我不知道怎么做了,大虾们帮帮忙!
    
 
你现在是用那个做的,fastreport?
我也不知道
 
帮帮忙啊
 
reportbuilder, www.51delphi.com 有下载。
“两部分的数据来自两个数据库”,这二个数据表应该有某种关系才行吧,如果有关系,
就使用主从表打印。如果没有,那就麻烦了。。。。。。。
 
to Honkily
FastReport实现方法:
--------------------
1. 拉一个Masterdata band (masterdata1),绑定到数据源1,然后拉5个memo,分别对应
上部分的5项(写法:双击memo,在上面窗口输入:单号:[table1."字段名"]),你可能
需要向下拉伸Masterdata band,以容纳两排memo。
2. 拉一个Master Header band,放两个memo,对应“种类”和“费用”。
3. 再拉一个Masterdata band (masterdata2),绑定到数据源2(假设为Query1),
然后拉2个memo,分别对应各自的数据。
4. 拉一个Master Footer band,放1个memo,双击这个memo,在上面窗口输入:
费用金额:[sum([Query1."费用字段名"],masterdata2)](元) 
 
ty123>>谢谢! 我回去试试看
 
你可以在数据库中Join一下,很多数据库都提供了多数据库访问功能
如SQLSERVER的OPENROWSET(

Select A.IDXType A_IDXType,A.IDXName A_IDXName,A.FieldName A_FieldName,A.TableName A_TableName,B.IDXType B_IDXType,B.IDXName B_IDXName,B.FieldName B_FieldName,B.TableName B_TableName from ( Select C.xtype as IDXType, C.[name] As IDXName,E.Name As FieldName,F.name As TableName From (Select xtype,[name],[parent_obj] From sysobjects Where 1=1 or xtype = 'PK' or xtype ='IK') C Join (Select B.Name,A.colid From sysindexkeys A Join sysindexes B On A.indid = B.indid And A.ID = B.ID ) D On C.[name] = D.[name] Join syscolumns E On C.parent_obj = E.id And D.colid = E.colid Join sysobjects F on C.parent_obj = F.id And F.xtype = 'U' ) as A FULL OUTER JOIN OPENROWSET('SQLOLEDB','SERVERDB';'dev';'dev001',' Select C.XType as IDXType, C.[name] As IDXName,E.Name As FieldName,F.name As TableName From (Select xtype,[name],[parent_obj] From HCCSCMDEV.DBO.sysobjects Where 1=1 or xtype = ''PK'' or xtype =''IK'') C Join (Select B.Name,A.colid From HCCSCMDEV.DBO.sysindexkeys A Join HCCSCMDEV.DBO.sysindexes B On A.indid = B.indid And A.ID = B.ID ) D On C.[name] = D.[name] Join HCCSCMDEV.DBO.syscolumns E On C.parent_obj = E.id And D.colid = E.colid Join HCCSCMDEV.DBO.sysobjects F on C.parent_obj = F.id And F.xtype = ''U'' ') as B ON a.tablename=b.tablename and a.idxtype=b.idxtype and A.IDXName=B.IDXName and a.fieldname = b.fieldname WHERE A.fieldname is null or B.FieldName is Null
 
明天结贴
 
接受答案
 

Similar threads

D
回复
0
查看
849
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部