会fastreoport的进来,送200分(200分)

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-22

• #1

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxMemoView;
i, j: Integer;
begin
if c is TfrxmemoView then
begin
Cross := TfrxmemoView(c);
cross.DataSet:=frxDBDataset1;//或者cross.DataSetmane:=ADOQuery1
with ADOQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from yhb');
open;
cross.DataField:='yhbm';
end;
怎么在预览时,没有数据显示的,怎么样把DELPHI窗体的数据源组件连接到fastreoport中去呢,显示ADOQuery中字段用什么控件呢?(这里用Memo)本人第一次用fastreoport.QQ:27132969,早上8:00--22:00在线

 

Z

zou2062

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #2

fastReport - frxDBDataset - ADOQuery
frxDBDataset1.Dataset := ADOQuery1

 

S

szlbz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #3

zou2062说的对

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #4

可是 用什么控件 显示 ADOQuery 查询得到的 字段呢，我在fastReport的设计器中添加masterdate1:tfrxmasterdate，在masterdate1中添加cross1:Tfrxcrossview，其它的什么也没写，运行怎么提示：class Tfrxcrossview not found

 

C

cl200426

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #5

你只要在databand中设置数据源就可以了

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #6

procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView;
i, j: Integer;
begin
if c is TfrxCrossView then
begin
Cross := TfrxCrossView(c);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from yhb');
ADOQuery1.Prepared;
ADOQuery1.Open;
ADOQuery1.First;
i := 0;
while not ADOQuery1.Eof do
begin
for j := 0 to ADOQuery1.Fields.Count-1 do
Cross.AddValue(, [ADOQuery1.Fields[j].DisplayLabel], [ADOQuery1.Fields[j].AsString]);
ADOQuery1.Next;
Inc(i);
end;
end;
在 fastreport设计器上添加masterdate1:tfrxmasterdate，在masterdate1中添加cross1:Tfrxcrossview，其它的什么也没写 ，怎么预览的时候什么也没有

 

酷

酷辰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #7

1. 在 Form 里放两个控件：TfrdbDataSet、TfrReport
2. frdbDataSet.DataSet := AdoQuery1;
3. frReport.DataSet := frdbDataSet;
4. 双击打开 frReport，加入 rectangle object，在它 Text editor 对话框里的上面那个框里写入 [AdoQuery1."字段名"]，（注意，是上面那个框里，不是有 Begin End 的那个框）
5. OK

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #8

rectangle object 找不到啊

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #9

rectangle object 找不到啊

 

T

tonyliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #10

var
Memo1: TFrxmemoview;
MasterData: TfrxMasterData;
Report:TfrxReport;
RpDBDataset: TfrxDBDataset;
begin
Report:=TfrxReport.Create(nil);
RpDBDataset:= TfrxDBDataset.Create(nil);
Report.LoadFromFile('Report.fr3') ;
RpDBDataset.DataSet:= ADODataSet;
MasterData := Report.FindObject('MasterData1') as TfrxMasterData;
MasterData.DataSet := RpDBDataset;
FRMemoHeight := Report.FindObject('MemoHeight') as TFrxmemoview;
Memo1 := Report.FindObject('Memo1') as TFrxmemoview;
Memo1.Text:=ADODataSet.fieldbyname('字段名').AsString;
end;

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #11

rectangle object 找不到啊

 

D

DelphiMatrix

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #12

是不是fastreport沒有裝正確,還是沒有加上rectangle的引用單元?

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #13

现在的主要问题是：在fastreport设计器中 用什么控件显示数据，以及怎么样连接到DELPHI窗体中的数据源，我在fastreport设计器中加数据源的时候，一运行系统就提示：
class TfrxADOQuery not found(或者是TfrxADODatebase)，这个是什么问题呢？

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #14

我这里都找不到 ：插入数据字段 按钮的，是不是装错了

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-05-23

• #15

那位大哥 熟悉的 加我QQ：27132969，解决了 马上给150分，早上8.30---22：00 一般在线的

 

H

haihai123

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-26

• #16

多人接受答案了。