Crystal Report報表開發(七)_缺列補空白_Runtime參數設置_公式設置_避免多浪費空白頁的後端程式修正

-

 

在很久之前由於接獲需要用水報翻升廠內用ActiveX舊版報表程式

因而遇到有點挑戰的報表程式設計




特徵:

有格子框住頁首頁尾

每頁20筆(缺列補空白)

轉用水晶報表

有格子框住頁首頁尾 ==>可插入方塊




問題1.每頁20筆(缺列補空白)

這裡就先解決空白列問題，由於Crystal Report 設定細目(詳細資料)
資料源頭時候，主要透過ReportDocument物件SetDataSource的
方法，其中一個overload型態可以Assign DataTable。
這裡自定義一個回傳DataTable的Function，命名為
GetTableWithInSufficientEmptyRow
(考量到當只有一頁或不只一頁的問題)

傳入原本兜好資料的DataTable(可能11筆or55筆這種...剛好不足
每頁預顯示的基數的)
傳入每頁預指定顯示的資料筆數(目前驗證
當每頁水晶報表只有一個Grid時候最大可設到22，這裡設定20)==>設定每頁顯示列數請參考上一篇針對細目的公式設定


程式
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
''' <summary>
    ''' 自動湊滿每頁N筆，缺列補空白列
    ''' </summary>
    ''' <param name="tbGridData"></param>
    ''' <param name="RowCountEachPage"></param>
    ''' <returns></returns>
    Function GetTableWithInSufficientEmptyRow(tbGridData As DataTable, RowCountEachPage As Integer) As DataTable
        Dim TotalDataRowNum As Integer = tbGridData.Rows.Count
        Dim TotalPageNum As Integer = Math.Ceiling(TotalDataRowNum / 20) ' 55 / 20 = 2.75 -> 3 
        'Math.Ceiling(2.5) -> 3
        'Math.Ceiling(2.3) -> 3

        '新增一個新的DataTable,所有Column DataType 都是string格式
        Dim tbNewGridData As New DataTable
        Dim arrDataCol(tbGridData.Columns.Count - 1) As DataColumn
        tbGridData.Columns.CopyTo(arrDataCol, 0)
        For idxColName As Integer = 0 To UBound(arrDataCol)
            tbNewGridData.Columns.Add(tbGridData.Columns.Item(idxColName).ColumnName, GetType(String))
        Next
        '將原先有不同dataType的資料表存入新定義的All-String Type DataTable
        Dim idxRow As Integer = -1
        For Each rowOrig As DataRow In tbGridData.Rows
            idxRow += 1
            Dim drTmp As DataRow = tbNewGridData.NewRow()
            Dim idxCol As Integer = -1
            For Each itemData As Object In rowOrig.ItemArray
                idxCol += 1
                drTmp.Item(tbNewGridData.Columns.Item(idxCol).ColumnName) = If((IsNothing(itemData) Or IsDBNull(itemData)), " ", itemData.ToString())
            Next
            tbNewGridData.Rows.Add(drTmp)
        Next

        '不足的資料列用空字串塞入確保每頁都有20列(缺項補空白資料項)
        '若總共只有11筆則補足到20 -> 補9列空白
        '若總共只有55筆則補足到60 -> 補5列空白 ....依此類推
        Dim InSufficientRowCount As Integer = 0
        If TotalPageNum = 1 Then
            If tbGridData.Rows.Count < RowCountEachPage Then
                InSufficientRowCount = RowCountEachPage - TotalDataRowNum
            End If
        Else
            '(RowCountEachPage * TotalPageNum) = 20 * 3 - 55
            InSufficientRowCount = (RowCountEachPage * TotalPageNum) - TotalDataRowNum
        End If
        For idxInSufficRow As Integer = 0 To InSufficientRowCount - 1
            Dim drTmp As DataRow = tbNewGridData.NewRow()
            For idxCol As Integer = 0 To UBound(arrDataCol)
                drTmp.Item(tbNewGridData.Columns.Item(idxCol).ColumnName) = " "
            Next
            tbNewGridData.Rows.Add(drTmp)
        Next

        Return tbNewGridData
    End Function


所以新回傳的DataTable主要會將原始資料的DataTable物件
轉為全部Column Data Type皆需要是字串的型態(備註:在.NET由於型態敏感，因
空白列若要指定空字串一定都要先轉Data Type)
而當補充空白列的時候又會有資料錄編號把空白列也自動編號的問題產生。






問題2.空白列也會產生出自動列號

接著遇到的問題目前邏輯撈到的資料就只有11筆(這裡自動編號採用特殊欄位==>資料錄編號)

這方法會有個問題空白列也會產生出自動列號!!!




這裡需要用到水晶報表兩個技巧
(1)Runtime設定參數
選擇.rpt報表設計的定義專案後=>到欄位總管下的參數欄位
新增自定義參數，這裡型態我設成數字，由於後續公式中要拿來做數字比對。




我們希望水晶報表在Runtime期間接收實際原始資料真實資列列總數(尚未補足空白列)
這邊務必要注意SetParameterValue一定要放在SetDataSource之後，不然會跳要人輸入的窗。






(2)設定公式
對資料錄(特殊欄位)右鍵選物件格式=>切分頁看到抑制顯示後面的x-2點按進去編寫公式
回傳true代表使其在特定條件不會顯示內容
設定完要記得先按儲存關閉然後確定(有兩次要按!!!!)






問題3.多印出空白浪費的紙張頁


看起來一切都很安穩了結果放上去運行幾個月就有特殊異常發生

多印出空白頁

因此只能想一下修正方法

原來是因為品名(該欄位有設置CanGrow)有的太長導致頁面多跑出一張空白的....>~<

思路首先我要先有辦法得知目前水報給我自動弄出來的總頁數是幾張



透過ReportViewer當中可以跳至最後一頁的方法

我們在去取該頁碼即可得知Total Page Count


之後是處理浪費頁的校正函數

透過遞迴查檢扣掉多餘(補)的資料列

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub ProcessWastePage(ByVal RealRecordNum As Integer, ByVal PerPageNum As Integer,
                         ByVal TotalReportPageInRunTime As Integer,
                         ByVal docReport As ReportDocument,
                         ByVal tbDetail As DataTable,
                         ByVal dicParam As Dictionary(Of String, Object),
                         ByVal RpttViewer As CrystalDecisions.Web.CrystalReportViewer,
                         Optional ByVal IsHaveParam As Boolean = False)
        Dim ReportPageWaste As Boolean = False
        '判斷[總頁數若不只一張] 且 [倒數第二頁資料筆數不滿實際資料筆數]
        If TotalReportPageInRunTime > 1 And RealRecordNum < PerPageNum Then
            '原本拿捏是每頁13列(缺列捕空白)，若資料只有8列就補5列空白Record給Detail Section。
            'Case1.兩張的情況
            'Page1 -> 8筆資料(補4列空白列)
            'Page2 -> 1筆空白列
            Dim NewPerPageNum As Integer = PerPageNum - 1
            Dim tbReimburseDetailWithEmptyNew As DataTable = GetTableWithInSufficientEmptyRow(tbDetail, NewPerPageNum)
            docReport.SetDataSource(tbReimburseDetailWithEmptyNew)

            If IsHaveParam Then
                If dicParam.Keys.Count > 0 Then
                    For Each itemParam As KeyValuePair(Of String, Object) In dicParam
                        docReport.SetParameterValue(itemParam.Key, itemParam.Value)
                    Next
                End If
            End If
            IsHaveParam = dicParam.Count > 0
            RpttViewer.ReportSource = docReport
            RpttViewer.ShowLastPage()
            Dim TotalPageNum As Integer = RpttViewer.ViewInfo.PageNumber
            ProcessWastePage(tbDetail.Rows.Count, NewPerPageNum, TotalPageNum, docReport, tbDetail, dicParam, RpttViewer, IsHaveParam)
        End If
    End Sub



留言

張貼留言

這個網誌中的熱門文章

經得起原始碼資安弱點掃描的程式設計習慣培養(五)_Missing HSTS Header

-
圖片
  接續前幾篇系列 經得起原始碼資安弱點掃描的程式設計習慣培養(一)_OWASP Top 10(十大網站安全風險)_學習寫更安全程式碼的網站推薦 經得起原始碼資安弱點掃描的程式設計習慣培養(二)_8.Insecure Deserialization ：不安全的反序列化漏洞ASP.NET處理方式 經得起原始碼資安弱點掃描的程式設計習慣培養(三)_7.Cross Site Scripting(XSS)_Stored XSS_Reflected XSS All Clients 經得起原始碼資安弱點掃描的程式設計習慣培養(四)_1.Injection注入攻擊_SQL Injection)_order by 語句正確參數化套入 最近又遇到被若安掃描到高風險要修正的程式碼啦.... 一看這還真是搞不懂該怎麼修呢 HSTS(HTTP Strict Transport Security)  主要是一份國際標準規格 (RFC 6797) 的網際網路瀏覽安全機制， 用於宣告瀏覽器與伺服器之間通訊方式必須強制採用 TLS/SSL 加密通道。 只要從伺服器端送出一個 Strict-Transport-Security 標頭 (Header) 給瀏覽器，即可告知瀏覽器於未來的某段時間內一律使用 SSL 來和該網站連接 (設定可涵蓋所有子域名網站)， 一旦發生憑證失效情況，使用者將無法再瀏覽該網站，如此一來便可大幅減少中間人攻擊的問題發生。 再更白話一點 HSTS Header 就是負責將 http 強制轉為 https CheckMarx掃碼報告給的說明 ============================================================ 風險: 如果web config沒有設置HSTS表頭、"max-age"(有效期)不足一年， 或沒有設定"includeSubDomains"(包含所有子網域)，可能會使用戶容易遭受中間人攻擊。 發生原因: 許多使用者只要在瀏覽器的網址列輸入網域名稱(Domain Name)即可瀏覽網站， 並沒有輸入協定(Protocol)的名稱。 瀏覽器會自動假設使用者使用的是HTTP協定而不是有加密機制的HTTPS協定。 在第一次發出前往特定網站的請求時，攻擊者可以執行中間人攻擊並將用戶轉址到
閱讀完整內容

經得起原始碼資安弱點掃描的程式設計習慣培養(三)_7.Cross Site Scripting(XSS)_Stored XSS_Reflected XSS All Clients

-
圖片
  近期新加入的功能code剛好也被CheckMarx掃出高風險部分的程式碼漏洞 我也踏到這個Issue啦 Cross Site Scripting(XSS)  第一種.Stored XSS 高風險 CheckMarx掃碼報告給的說明[Stored XSS] ============================================================ 風險: 攻擊者可以利用合法存取應用程式提交資料到資料庫。 當另一個使用者隨後存取該資料，網頁可能會被改寫且惡意腳本可能會被啟動。 發生原因: 從資料庫中的資料建立網頁。資料直接嵌入至HTML的頁面，利用瀏覽器顯示。 資料可能源自於其他使用者的輸入。 如果資料包含HTML片段或Javascript，使用者無法分辨是否為預期的頁面。 該漏洞主因為未先對嵌入資料庫中的資料進行編碼(Encode) 來預防瀏覽器將其當為HTML的格式而非純文字。 如何避免: 1.驗證所有資料，無論其來源為何。驗證應基於白名單：僅接受預定結構的資訊，而不是拒絕不良的樣式(Patterns)。  應確認：  ● 資料型態  ● 大小  ● 範圍  ● 格式  ● 期望值  2. 驗證無法取代編碼. 輸出嵌入之前，不論其來源， 將所有動態資料進行編碼. 編碼方式應該是上下文相關的. 例如: ● HTML內容使用HTML的編碼方式  ● HTML編碼特性是將資料輸出到特性的值 ● JavaScript的編碼方式為伺服器產生的Javascript  3.考慮使用ESAPI的編碼庫，或它的內置功能。對於舊版的ASP.NET，請考慮使用AntiXSS.  4.在HTTP類型對應的表頭， 明確定義整個頁面的字元編碼.  5. 設置 httpOnly 標誌於會期資訊，以防止利用XSS來竊取資訊. ============================================================ 這裡報告描述是指我對傳進來字串參數直接拋給DAL處裡的類別執行查詢 這裡缺乏對輸入進來的字串參數做一些查檢判斷 也建議在帶入時對參數也做一些html encode處理 這裡用AntiXSS來Encode 第二種.Reflected XSS All Clients 高風險 CheckMarx掃碼報告給的說明[Reflecte
閱讀完整內容

(2021年度)駕訓學科筆試準備題庫歸納分析_法規是非題

-
圖片
  若是出現 「必須」、「必需」、「...必...」、「應由」、「應先」、「應...」 則很高機率是圈 是非通常只要是如下字眼 「不必」+動詞 、「不需」「不須」、「可不」、「可以不」、「可立即」 有出現或符合的都選叉 (X)1.違規記點又不登記在駕照上，所以可以 不必理會 而任意違反交通規則。 (X)2.發生重大交通事故，為迅速恢復交通，清除現場，可 不必等待 肇事處理機關之指示，即可進行。 (X)3.道路駕駛練習，行車前 不必實施 車輛安全檢查，因為那是駕駛教練的工作。 (X)4.開車前， 不必檢查 機件安全，但在行駛中要隨時注意儀錶功能顯示，確保行車安全。 (X)5.煞車油若經常低於"MIN"線，只要添加即可， 不必到修理廠檢修 。 (X)6.冷卻系統只要副水箱在滿水位，主水箱 不必檢查 也不會有問題。 (X)7.引擎冷卻水內含有防凍液或防銹劑，可 不必更換 。 (X)8.儀錶板上的「燃油油量錶」之指針高度，已經降低至「E」點，橘色的「低油料警示燈」點亮時， 不必急著加油 ，到達目的地後再行補充燃油即可。 (X)9.有安全氣囊裝備的汽車， 不必繫 安全帶。 (X)10.煞車時有異音，是正常的情況， 不必檢修 。 (X)11.汽車定期檢驗 不必檢驗 車輛故障標誌，所以隨車不一定要帶車輛故障標誌。 (X)12.開車時 不必理會 義交之指揮，一切以號誌為主。 (X)13.汽車經過隧道，因隧道內燈光明亮視線良好，為省電可 不必開亮 頭燈。 (X)14.駕駛人只求技術優良，對遵守交通規則 不必太重視 。 (X)15.在開車前， 不必檢查 機件，以免耽誤行車時間。 (X)16.遇幼童專用車、校車、身心障礙者用特製車或教練車， 不必禮讓 。 (X)17.行車 不必攜帶 隨車工具。 (X)18.行車起駛前進， 不必顯示 方向燈。 (X)19.汽車通過鐵路平交道，前後兩車間， 不必保持 距離。 (X)20.夜間將車輛停放在無燈光設備及照明不清之道路時，亦 不必顯示 停車燈光或反光標識。 (X)21.在夜間或有霧靄、雨雪、風沙及晝晦時，把車輛停在路旁， 不必顯示 停車燈光或反光標識。 (X)22.汽車駕駛人，僅需具有優良駕駛技術， 不需 具備急救的常識和技能。 (X)23.汽車車身、引擎、底盤、電系等重要設備變更或調換時， 不需 向公路主管機關申請臨時檢驗。
閱讀完整內容