S
small pig
Unregistered / Unconfirmed
GUEST, unregistred user!
var
v,v1: TfrMemoView;
begin
frReport1.Pages.Clear;
frReport1.Pages.Add;
// create page
Page1 := frReport1.Pages[0];
BandReportTitle := TfrBandView(frCreateObject(gtBand, ''));
BandReportTitle.BandType := btReportTitle;//创建标题
BandReportTitle.Name := 'BandReportTitle';
BandReportTitle.SetBounds(0, C_HEIGHT, 0, 0);
Page1.Objects.Add(BandReportTitle);
v := TfrMemoView(frCreateObject(gtMemo, ''));
// create data field
v.Memo.Add(Caption);
v.SetBounds(C_LEFT, C_HEIGHT, Width, 40);
Page1.Objects.Add(v);
BandDetail := TfrBandView(frCreateObject(gtBand, ''));
BandDetail.BandType := btMasterData;
BandDetail.Name := 'BandDetail';
Page1.Objects.Add(BandDetail);
BandDetail.SetBounds(0, C_HEIGHT * 3, 0, 0);
v1:=TfrMemoView(frCreateObject(gtMemo,''));
v1.SetBounds(0, C_HEIGHT*3, 0, 0);//位置不能放在btMasterData上,该怎么调整?
v1.Memo.Add('[ADODataSet1."单号"]');
page1.Objects.Add(v1);
frReport1.ShowReport;
v,v1: TfrMemoView;
begin
frReport1.Pages.Clear;
frReport1.Pages.Add;
// create page
Page1 := frReport1.Pages[0];
BandReportTitle := TfrBandView(frCreateObject(gtBand, ''));
BandReportTitle.BandType := btReportTitle;//创建标题
BandReportTitle.Name := 'BandReportTitle';
BandReportTitle.SetBounds(0, C_HEIGHT, 0, 0);
Page1.Objects.Add(BandReportTitle);
v := TfrMemoView(frCreateObject(gtMemo, ''));
// create data field
v.Memo.Add(Caption);
v.SetBounds(C_LEFT, C_HEIGHT, Width, 40);
Page1.Objects.Add(v);
BandDetail := TfrBandView(frCreateObject(gtBand, ''));
BandDetail.BandType := btMasterData;
BandDetail.Name := 'BandDetail';
Page1.Objects.Add(BandDetail);
BandDetail.SetBounds(0, C_HEIGHT * 3, 0, 0);
v1:=TfrMemoView(frCreateObject(gtMemo,''));
v1.SetBounds(0, C_HEIGHT*3, 0, 0);//位置不能放在btMasterData上,该怎么调整?
v1.Memo.Add('[ADODataSet1."单号"]');
page1.Objects.Add(v1);
frReport1.ShowReport;