水晶報表11在.net的制作

 

        水晶報表11在.net的制作

調用方式：

Private Sub btnPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrint.Click

        Dim strUserID As String = "" '使用者代碼

        Dim strRptCod As String = "" '報表代碼

        Dim strRepTab As String = "" '列印資料存儲table名稱

        Dim strSqlUpd As String = "" '在列印後欲UPDATE資料之Script

        Dim strSqlDes As String = "" '產生列印資料存儲table之Script

        Dim strSqlIns As String = "" '報表要列印資料先存入table之Script

        Dim _Rpt00000 As Rpt00000 = New Rpt00000

        '************此處選擇列印報表，並進行資料處理

        strUserID = Session("USER_AID")

        strRptCod = "AA500040-1.RPT"

        strRepTab = "AA500040"

        strSqlDes = GetCreTab_AA500040()

        strSqlIns = GetIns_AA500040()

        strSqlUpd = ""

        '************開始列印資料處理動作

        _Rpt00000.CreateRptTab(strUserID, strRepTab, strSqlDes, strSqlIns)

        _Rpt00000.InsertInotData(strUserID, strRptCod, strRepTab, strSqlUpd)

        '***********開始列印動作

        Dim strScript As String = ""

        strScript += "<script>FnOpenRpt('" + strUserID + "','" + strRptCod + "');</script>"

        Page.RegisterStartupScript("strScript", strScript)

    End Sub

'* 函數名稱: FnOpenRpt()

'* 目    的: 開啟報表窗體

function FnOpenRpt(UserID,RptCod)

{

        var   win_width= screen.availWidth-10;      //取寬度

        var   win_height= screen.availHeight-80 ;    //取高度

        var   left_pos =0;          //左界

        var   top_pos =0;           //右界

        var strPass = "../Pub/RptCrvForm.aspx?RptCod=" + escape(RptCod);

        strPass +="&UserID=" + escape(UserID);

        var strP="width="+ win_width +",height="+ win_height + ",left=" +left_pos+",top="+top_pos;

        strP+=",status=no,toolbar=no,menubar=no,location=no,resizable=yes,scrollbars=yes";

        window.open(strPass,'',strP);

        return true;

}

    ''' 函數名稱: CreateRptTab()

    ''' 目    的: 在列印前處理列印資料存儲table，如果table存在，則刪除其中該USER之資料，如果Table不存在則創建table

Public Function CreateRptTab(ByVal UserID As String, ByVal RepTab As String, ByVal SqlDes As String, ByVal SqlIns As String)

        Dim sbSQL As New System.Text.StringBuilder

        Dim ReValue As Boolean = False

        sbSQL.Append(" IF EXISTS (SELECT * FROM dbo.sysobjects WHERE id = object_id(N'[dbo].[" + RepTab + "]') AND OBJECTPROPERTY(id, N'IsUserTable')=1)" + Chr(13) + Chr(10))

        sbSQL.Append("    DELETE FROM [" + RepTab + "] WHERE USRCOD='" + UserID + "' " + Chr(13) + Chr(10))

        sbSQL.Append(" ELSE " + Chr(13) + Chr(10))

        sbSQL.Append(SqlDes + Chr(13) + Chr(10))

        Try

            _objADODB.OpenConnection()

            _objADODB.ExecSQL(sbSQL.ToString)

            If SqlIns.Trim <> "" Then

                _objADODB.ExecSQL(SqlIns)

            End If

            ReValue = True

        Catch ex As Exception

            Throw ex

        Finally

            _objADODB.CloseConnection()

        End Try

        Return ReValue

    End Function

//直接顯示報表內容

Me.txtRptCod.Text = Request("RptCod")

        Me.txtUserID.Text = Request("UserID")

        Dim strRepTab As String = "AAWA02TB"

        Dim objDT As DataTable

        Dim oRptDoc As ReportDocument = New ReportDocument

        Dim strSQL As String = ""

        Dim path As String = ""

        strRepTab = _Rpt00000.GetRepTabName(Me.txtUserID.Text, Me.txtRptCod.Text)

        If strRepTab <> "" Then

            strSQL = " SELECT * FROM " + strRepTab + " WHERE USRCOD='" + Me.txtUserID.Text.Trim + "'"

            objDT = _objADODB.OpenDataTable(strSQL)

            path = "..\RPT\" + Me.txtRptCod.Text

            path = Server.MapPath(path)

            Try

                oRptDoc.Load(path)

            Catch ex As Exception

                Response.Write("伺服器端加載" + path + "報表檔失敗<BR>" + Chr(13) + Chr(10))

                Response.Write("請檢查.rpt報表檔文檔路徑或文件內容是否正確")

                Return

            End Try

            objDT.TableName = strRepTab

            oRptDoc.SetDataSource(objDT)

            Me.CryRptView.ReportSource = oRptDoc

            Me.CryRptView.HasPrintButton = True

        Else

            Return

        End If

//列印報表

Dim oRptDoc As New ReportDocument

        Dim iPageS As Int32 '列印起始頁

        Dim iPageE As Int32 '列印迄止頁

        Dim iPageN As Int32 = 1 '列印份數

        Dim path As String = ""

        Dim strSQL As String = ""

        Dim strRepTab As String = ""

        Dim objDT As DataTable

        iPageS = CType(Me.txtPageS.Text.Trim, Integer)

        iPageE = CType(Me.txtPageE.Text.Trim, Integer)

        iPageN = CType(Me.txtNum.Text.Trim, Integer)

        strRepTab = _Rpt00000.GetRepTabName(Me.txtUserID.Text, Me.txtRptCod.Text)

        Try

            strSQL = " SELECT * FROM " + strRepTab + " WHERE USRCOD='" + Me.txtUserID.Text.Trim + "'"

           objDT = _objADODB.OpenDataTable(strSQL)

            path = "..\RPT\" + Me.txtRptCod.Text

            oRptDoc.Load(Server.MapPath(path))

            objDT.TableName = strRepTab

            oRptDoc.SetDataSource(objDT)

            'oRptDoc.PrintOptions.PrinterName '用預設印表機

            oRptDoc.PrintToPrinter(iPageN, True, iPageS, iPageE)

        Catch ex As LoadSaveReportException

            ex.ToString()

            Response.Write("開啓報表當時發生錯誤")

        Catch ex As PrintException

            ex.ToString()

            Response.Write("列印時發生錯誤，請檢查印表機相關設定")

        Catch ex As Exception

            ex.ToString()

            Response.Write("錯誤來源:" & ex.ToString)

        End Try