如何手动创建reportbuilder的控件?

一般是直接把控件放到窗体就可以实现了，现在想在代码中动态创建相关的控件，
打印预览的界面可以出来了，但报表里的内容怎么也加不进去，特别是数据库的，请高手指点一下。

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

procedure TForm2.btn1Click(Sender: TObject);
var
  ppreport:TppReport;
  ppdesign:TppDesigner;
  flag:Integer;
  reportname:string;
begin
  reportname:=edt1.Text;
  flag:=0;
   try
        DSreport.DataSet.Active:=false;
        DSreport.DataSet.Active:=true;  // ´Ë´¦ÓÃÓÚ°Ñ±¨±íÊý¾ÝÔ´Ö¸Õë¸´Î»,ÒÔ±ãºóÃæ²éÕÒ±¨±í;
        //´´½¨±¨±í¿Ø¼þ²¢ÉèÖÃ±¨±í¿Ø¼þÊôÐÔ;
        ppReport:=TppReport.Create(self);
      with ppreport do
        begin
          AutoStop := False;
          DataPipeline := ppDBpipeData; //×ÊÁÏ¹ÜµÀ;
          Template.DatabaseSettings.DataPipeline := ppDBpipeREport;//±¨±í¹ÜµÀ;
          Template.DatabaseSettings.NameField := 'item_Name';   //±¨±íÃû³Æ´æ·Å×Ö¶Î;
          Template.DatabaseSettings.TemplateField := 'Template'; //±¨±í×Ö¶ÎÃû³Æ;
          Template.DatabaseSettings.Name := reportname; //±¨±íÃû³Æ;
          Template.SaveTo :=stDatabase;    //±¨±í´æ·Å·½Ê½,ÕâÀïÉèÖÃÎªÊý¾Ý¿â,Ò²¿ÉÒÔ±£´æÎªÎÄ¼þ;
          AllowPrintToArchive := True;  //ÔÊÐí±¨±í±£´æÎªÎÄ¼þ;
          AllowPrintToFile := True;     //ÔÊÐí´òÓ¡µ½ÎÄµµ;
          DeviceType := 'Screen' ;
          OutlineSettings.CreateNode := True  ;
          OutlineSettings.CreatePageNodes := True;
          OutlineSettings.Enabled := True;
          OutlineSettings.Visible := False ;
          TextSearchSettings.DefaultString := '<ÊäÈë²éÕÒµÄÎÄ±¾>' ;
          TextSearchSettings.Enabled := True ;
         end;
         ppdesign:=TppDesigner.Create(self);
        while not Dsreport.DataSet.Eof do
        begin
          //²éÕÒ±¨±íÎÄ¼þ;
          if Dsreport.DataSet.FieldByName('item_Name').AsString=reportname then
          begin
            Flag:=1;
            Break;
          end;
          Dsreport.DataSet.Next;
        end;
        if Flag=0 then
            begin
              if MessageDlg('µ±Ç°±¨±íÃ»ÓÐ¿ÉÓÃÄ£°å£¬ÊÇ·ñ´´½¨?',mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
                exit;
            end
        else
        begin
          //Èç¹ûÕÒµ½ÁË±¨±í¾Í´ÓÊý¾Ý¿âÖÐµ¼Èë±¨±í;
          ppreport.Template.LoadFromDatabase;
        end;
           with ppDesign do
            begin
                AllowDataSettingsChange := True;
                Caption := 'Í¨ÓÃ±¨±íÉè¼ÆÆ÷';
                DataSettings.DatabaseName := 'SCNN1';
                DataSettings.SessionType := 'dbExpressSession';
                DataSettings.AllowEditSQL := True;
                DataSettings.CollationType := ctANSI;
                DataSettings.DatabaseType := dtMSSQLServer;
                //DataSettings.GuidCollationType := gcMSSQLServer;
                DataSettings.IsCaseSensitive := True;
                DataSettings.SQLType := sqSQL1;
                Position := poScreenCenter ;
                RAPInterface := [riNotebookTab];
                Report := ppReport;
              end;
          ppDesign.ShowModal;  //ÏÔÊ¾±¨±íÉè¼ÆÆ÷´°¿Ú;

   finally
     ppdesign.Free; //ÊÍ·Å±¨±íÉè¼ÆÆ÷;
     ppreport.Free; //ÊÍ·Å±¨±í¿Ø¼þ;
   end;end;