note: crystal report

顯示具有 crystal report 標籤的文章。顯示所有文章

2015年12月21日星期一

crystal report 動態變更線條 LineObject

'crystal report 動態變更線條 LineObject

Dim crReport1 As ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument

'載入報表
Dim Path As String = Request.ServerVariables("APPL_PHYSICAL_PATH")
crReport1.Load(Path & "rpt\STANDARD.rpt")

'找到已存在的線條物件
Dim Line As LineObject = crReport1.ReportDefinition.ReportObjects("Line1")

'隱藏線條
'Line.ObjectFormat.EnableSuppress = True
'變更線條樣式
Line.LineStyle = LineStyle.SingleLine
'變更線條位置
Line.Left = 100
'變更線條顏色
Line.LineColor = Drawing.Color.Red

crystal report 動態變更文字欄位 TextObject

'crystal report 動態變更文字欄位 TextObject

Dim crReport1 As ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument

'載入報表
Dim Path As String = Request.ServerVariables("APPL_PHYSICAL_PATH")
crReport1.Load(Path & "rpt\STANDARD.rpt")

'找到已存在的文字欄位

Dim txtobj As TextObject

txtobj = crReport1.ReportDefinition.ReportObjects("TEXT1")

txtobj.Text = "變更後內容"

txtobj.Height = 285

txtobj.Top = 1985

txtobj.Left = 300

txtobj.Width = 2000

txtobj.ObjectFormat.EnableCanGrow = True

crystal report 動態變更公式欄位 FormulaFields

'crystal report 動態變更公式 FormulaFields

Dim crReport1 As ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument

'載入報表
Dim Path As String = Request.ServerVariables("APPL_PHYSICAL_PATH")
crReport1.Load(Path & "rpt\STANDARD.rpt")

'找到公式欄位
Dim fieldObj As FormulaFieldDefinition
fieldObj = crReport1.DataDefinition.FormulaFields("公式1")

'變更公式內容
fieldObj.Text = "{TABLE.COLUMNA}"

2015年9月28日星期一

crystal report 動態產生文字標題欄位 TextObject

'準備一個報表樣本() : standard.rpt

'載入報表樣本
Dim crReport As ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim Path As String = Request.ServerVariables("APPL_PHYSICAL_PATH")
crReport.Load(Path & "rpt\standard.rpt")
Dim rasClientDocument As ClientDoc.ISCDReportClientDocument = crReport.ReportClientDocument
'找到pagehead(頁首)區段
Dim pageSection As CrystalDecisions.ReportAppServer.ReportDefModel.Section = rasClientDocument.ReportDefinition.PageHeaderArea.Sections(0)

'在報表的pagehead(頁首)區段加入文字標題欄位 create TextObject
Dim txtObject As CrystalDecisions.ReportAppServer.ReportDefModel.TextObject
Dim txtObjectParagraph As ReportDefModel.Paragraph
Dim txtObjectText As ReportDefModel.ParagraphTextElement

'欄位的字型顏色定義
Dim dFontColor As ReportDefModel.FontColor
Dim dFont As ReportDefModel.Font
dFont = New ReportDefModel.FontClass()
dFont.Size = 11
dFont.Name = "標楷體"
dFontColor = New ReportDefModel.FontColorClass()
dFontColor.Font = dFont

txtObject = New CrystalDecisions.ReportAppServer.ReportDefModel.TextObject
txtObject.Name = "text1"
txtObject.Height = 285
txtObject.Top = 1985
txtObject.Left = begpx
txtObject.Width = textbox1.Text.Trim.Length * 300 '變數要加入的文字內容的寬度
txtObject.Format.EnableCanGrow = True

'處理Text objects中的文字內容
txtObjectParagraph = New ReportDefModel.Paragraph
txtObjectText = New ReportDefModel.ParagraphTextElement
txtObjectText.Text = textbox1.Text.Trim '變數要加入的文字內容
txtObjectParagraph.ParagraphElements.Add(txtObjectText)
txtObjectParagraph.FontColor = dFontColor
txtObject.Paragraphs.Add(txtObjectParagraph)

'加入Text objects
rasClientDocument.ReportDefController.ReportObjectController.Add(txtObject, pageSection, 0)

2015年8月7日星期五

crystal report 浮水印(watermark) 簽章(STAMP)

crystal report 浮水印(watermark) 簽章(STAMP)

準備兩個當浮水印圖檔
A.confidential.wmf 背景透通
B.confidential.jpg 沒有透通

'步驟
1.在頁首a放入這兩張圖,頁首a的區段專家"放置在隨後區段"勾選起來
2.將頁首a高度拉大,圖檔移至頁首a的最下方(這樣浮水印就會出現在頁面靠中間的位置))

如果報表中沒有線條這兩種圖檔呈現出的結果是一樣的
但是如果報表中有線條

3.在細目中插入藍色線條
4.在細目中插入文字物件,但是這個文字物件不放入任何文字,且將它拉的和藍線一樣長
並將文字物件的"框線"-"線條樣式"-"上"設定成單線,將"色彩"設定為綠色

設計畫面左圖為A 右圖為B

預覽畫面

此時預覽結果發現兩張圖都被綠線壓過 , A圖以透通的方式顯示藍線,
B圖藍線完全被蓋掉

結論
以浮水印的需求 (浮水印應該是在最下層)
A/B圖檔都可以但需使用非一般的線條,要用文字物件的框線也就是綠線

以簽章(STAMP)的需求,例如收據章 (圖案應該是在最上層)
若有壓到"方塊"或"線條",則只有A圖檔可以

收據章範例

2015年7月31日星期五

crystal report 動態產生欄位 -FieldObject

下載 sample pdf

Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportAppServer

'crystal report 動態產生欄位自動產生你要的rpt
        '1.準備一個空的報表樣本() : standard.rpt 資料庫欄位必須是空的
        '2.準備一個在應用程式中使用資料的 DataSet : DataSet.xsd (這裡採用Push Model)
        '3 要使用的TABLE NAME :MYTABLE   MYTABLE SCHEMA需定義在 DataSet.xsd裡喔
        ' MYTABLE 共有五個COLUMN : COLUMN1 COLUMN2 ....等會要跑LOOP自動加入報表裡

        Dim tablename As String = "MYTABLE"
        Dim crReport As ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
        '載入報表樣本
        Dim Path As String = Request.ServerVariables("APPL_PHYSICAL_PATH")
        crReport.Load(Path & "rpt\standard.rpt")

        '利用ClientDoc來變更REPORT內容
        Dim rasClientDocument As ClientDoc.ISCDReportClientDocument
        rasClientDocument = crReport.ReportClientDocument

        'A設定資料表來源位置
        Dim crLogonInfo As New DataDefModel.PropertyBagClass()
        crLogonInfo.Add("File Path ", "c:\mydir\dataset.xsd")
        Dim connProps As New DataDefModel.PropertyBagClass()
        connProps.Add("Database DLL", "crdb_adoplus.dll")
        connProps.Add("QE_DatabaseType", "ADO.NET (XML)")
        connProps.Add("QE_LogonProperties", crLogonInfo)

        '指定連線方式
        Dim connInfo As New DataDefModel.ConnectionInfoClass
        connInfo.Attributes = connProps
        connInfo.Kind = DataDefModel.CrConnectionInfoKindEnum.crConnectionInfoKindCRQE

        '加入table (必須存在A指定的dataset.xsd中)
        Dim table As DataDefModel.Table = New DataDefModel.TableClass
        table.Alias = tablename
        table.Name = tablename
        table.ConnectionInfo = connInfo
        rasClientDocument.DatabaseController.AddTable(table)

        '在報表的細目(detail)加入資料欄位
        '找到細目區段
        Dim DetailSection As ReportDefModel.Section = rasClientDocument.ReportDefinition.DetailArea.Sections(0)
        Dim fieldIndex As Integer
        Dim tableIndex As Integer
        Dim dField As DataDefModel.Field
        Dim dFieldObject As ReportDefModel.FieldObject
        Dim dTable As DataDefModel.Table

        '欄位的字型顏色定義非必需   standard.rpt中已有預設的字型(由檔案->選項->字型可以查看)
        Dim dFontColor As ReportDefModel.FontColor
        Dim dFont As ReportDefModel.Font
        dFont = New ReportDefModel.FontClass()
        dFont.Size = 11
        dFont.Name = "標楷體"
        dFontColor = New ReportDefModel.FontColorClass()
        dFontColor.Font = dFont

        Dim begpx As Integer = 200 '第一個資料欄位在細目中的位置
        For j As Integer = 1 To 5
            tableIndex = rasClientDocument.Database.Tables.FindByAlias(tablename)
            Dim temp As DataDefModel.ISCRTable = rasClientDocument.Database.Tables(tableIndex)
            dTable = CType(temp, DataDefModel.Table)
            fieldIndex = dTable.DataFields.Find(dTable.DataFields(j - 1).Name, DataDefModel.CrFieldDisplayNameTypeEnum.crFieldDisplayNameName, DataDefModel.CeLocale.ceLocaleUserDefault)
            dField = CType(dTable.DataFields(fieldIndex), DataDefModel.Field)
            dFieldObject = New ReportDefModel.FieldObjectClass()
            dFieldObject.Kind = ReportDefModel.CrReportObjectKindEnum.crReportObjectKindField
            dFieldObject.FieldValueType = dField.Type
            dFieldObject.DataSource = dField.FormulaForm
            dFieldObject.FontColor = dFontColor
            dFieldObject.Height = 211
            dFieldObject.Top = 85
            dFieldObject.Left = begpx
            dFieldObject.Width = 300
            begpx += j * 350
            rasClientDocument.ReportDefController.ReportObjectController.Add(dFieldObject, DetailSection, 0)
        Next

        '產生新報表做為其他用途
        crReport.SaveAs(Path & "myreport.rpt")

        '當然也可以不用產生新報表可以直接 ASSIGN DATA SOURCE 產生REPORT的結果
        crReport.SetDataSource(mydata)
        crReport.ExportToHttpResponse(ExportFormatType.PortableDocFormat, Response, True, "Report")

2015年12月21日 星期一