fastreport´òÓ¡´úÂë¼°SQLºÏ²¢×ֶεÄÓï¾ä

 procedure Tform1.Button5Click(Sender: TObject);
var
  p:pointer;
  FrfStr:string;
begin
  inherited;
  Screen.Cursor:=MYCURSORWAITHAND;
  with cdsPrint do
  begin
    Active:=false;
    //Õâ¸öSQLÓÃÓÚ½«remarkÖеļǼºÏ²¢µ½Ò»Æð!
    CommandText:='select a.ITEM_ID, a.ITEM_NAME,count(a.Coll_ID) as num,ltrim(max(sys_connect_by_path(a.remark, '';'')), '';'') remark '
      +' from (select /*+index(b,TAB_ORDER_I)*/ b.ITEM_ID,b.Coll_ID,b.ITEM_NAME,b.remark,row_number() over(partition by b.ITEM_ID order by b.ITEM_ID)'
      +' ITEM_ID1,row_number() over(order by b.ITEM_ID) + dense_rank() over(order by b.ITEM_ID) ITEM_ID2 '
      +' from TAB_ORDER b  where  b.Coll_ID ='''+DBComboBoxEh1.Text+''''
      +'  ) a'
      +' start with ITEM_ID1 = 1 connect by prior ITEM_ID2 = ITEM_ID2-1 group by a.ITEM_ID,'
      +' a.ITEM_NAME order by a.ITEM_ID ';
    Active:=true ;
  end;
  cds_Print.DisableControls;
  p:=cdsPrint.GetBookmark;
  FrfStr:='report1l.frf';
  try
    if cdsPrint.Active and (cdsPrint.RecordCount<>0) then
    begin
      frReport1.LoadfromFile(ExtractFilePath(ParamStr(0))+'Report\'+FrfStr);
      PrintSet;
      frReport1.ShowReport;
    end
    else
    begin
      Screen.Cursor:=crDefault;
      Application.MessageBox(pchar(STR_MESSAGEBOX_HEADER+'ûÓÐÊý¾Ý¿É´òÓ¡'),pchar(self.Caption),MB_OK or MB_ICONEXCLAMATION);
    end;
  finally
    cdsPrint.GotoBookmark(p);
    cdsPrint.EnableControls;
 &nb