最後,翻譯項目得到Dll文件,拷貝到服務器上並注冊。服務器組件就完成了。
接著,來段演示代碼。
先創建一個報表模板,並保存到服務器上,命名為rpt1.frf
然後是調用代碼(ASP.Net):
'通過ParseSQL生成SQL查詢語句
Private Function ParseSQL ...
Private Sub ShowReport()
Dim Cmd As String = ParseSQL()
If Cmd <> "" Then
Dim CrossReport = Server.CreateObject("CrossReport.kktWebCrossReport")
CrossReport.ShowCrossReport(clsSQL.DefaultConStr, Cmd, Page.MapPath(".") + "rpt1.frf")
CrossReport = Nothing
End If
End Sub