End Loop

  3、 存儲過程
    --SP統計
    procedure xp_SPStat(areacode    varchar2,
                        songId      varchar2,
                        dateStart   varchar2,
                        dateEnd     varchar2,
                        spID        varchar2,
                        page        number, --之前顯示的頁碼
                        pageSize    number, --頁大小
                        pageAction  varchar2, --翻頁命令：first、last、next、pre
                        total       out number, --記錄總數
                        currentPage out number, --當前頁碼
                        totalPage   out number, --總頁數
                        ret         out number, --操作結果
                        rec_rc      out ret_record --結果集
                        ) is
        tablename varchar2(100);
        sqlstr    varchar2(256) := '';
        num_start number; --個數下限
        num_end   number; --個數上限
        sqlstry  varchar2(256) := '';
    begin
        if isStatOverSpaned(dateStart, dateEnd) then
            --時間范圍過大
            ret := ret_err_overspan;
            return;
        end if;
        if statTempTable(areacode,songId,spID,dateStart, dateEnd, tablename) = false then
            ret := ret_err_tmptable;
            return;
        end if;
        --獲取總數
        select count(*)
          into total
          from (select t.song_id, count(*) as statCount
                  from tsongdeallogtemp t
                
                 group by t.song_id);
        --翻頁處理
        pageTurn(page, pageSize, total, pageAction, currentPage, totalPage);
        num_start := (currentPage - 1) * pagesize + 1;
        num_end   := currentPage * pagesize;

        --獲取數據集
        open rec_rc for
            select *
              from (select c. *, rownum rn
                      from (select a.statcount,
                           (select count(a.statcount) from (select  count(*) as statcount
                                      from tsongdeallogtemp t)
                           ) FSTATCOUNT, b. *
                              from (select t.song_id, count(*) as statcount
                                      from tsongdeallogtemp t
                                    
                                     group by t.song_id) a,
                                   tSong b
                             where a.song_id = b.song_id
                             order by a.statcount desc) c)
             where rn between num_start and num_end;
        ret := ret_ok;

    exception
        when others then
            sqlstry :=sqlerrm;
            ret := ret_Failed;
    end;

   --sp統計臨時表操作
   function statTempTable(vareacode  varchar2,
                           vsongId    varchar2,
                           vspID      varchar2,
                           vdateStart varchar2,
                           vdateEnd   varchar2,
                           pTabName  out varchar2) return boolean is
        ret       boolean := false;
        tmp_date  date := to_date(vdateStart, 'YYYY-MM-DD');
        v_dateS   date := to_date(vdateStart, 'YYYY-MM-DD');
        v_dateE   date := to_date(vdateEnd, 'YYYY-MM-DD');
        tmpCount  number := 0;
        iCount    number := 0;
        tablename varchar2(100);
        sqlstr    varchar2(516);
        tempSql   varchar2(100);
    begin
        --獲取臨時表名
        tablename := getSongDealTabName(1);
        pTabName  := tablename;
        sqlstr    := 'delete from ' || tablename;
        execute immediate sqlstr;
    
        --往臨時表中寫入數據
        while tmp_date <= to_date(vdateEnd ||'23:59:59', 'YYYY-MM-DD HH24:MI:SS') loop
            tablename := 'TSONGDEALLOG' ||
                         to_char(trunc(tmp_date, 'month'), 'YYYYMM');
            select count(*)
              into iCount
              from tab t
             where t.tname = tablename;
            if iCount <= 0 then
                return ret;
            end if;
            tmp_date := add_months(tmp_date, 1);
            tmpCount := tmpCount + 1;
           
            if vsongId is not null then
              tempSql:=' t.song_id='''||vsongId||''' ';
            else
              tempSql:=' t.song_id like '''||vspID||'%'' ';
            end if; 
           
           
            if tmp_date >= to_date(vdateEnd||'23:59:59', 'YYYY-MM-DD HH24:MI:SS') then

                sqlstr := 'insert into tsongdeallogtemp ( select * from ' ||
                          tablename || ' t where '|| tempSql ||
                          ' and t.PHONE_CODE like '''||vareacode||'%'''||
                          ' and t.add_time   between '||
                          'to_date('''||vdateStart|| ' 00:00:00'',''yyyy-mm-dd HH24:MI:SS'')  and ' ||
                          'to_date('''||vdateEnd|| ' 23:59:59'',''yyyy-mm-dd HH24:MI:SS''))';
                execute immediate sqlstr  ;
            else
                sqlstr := 'insert into tsongdeallogtemp select * from ' ||
                          tablename || ' t where '|| tempSql ||
                          ' and t.PHONE_CODE like '''||vareacode||'%''';
                execute immediate sqlstr  ;
            end if;

        end loop;
        commit;
        return true;
    exception
        when others then
        sqlstr:=sqlerrm;
            return false;
            rollback;
    end;