水晶报表

 

Imports System.Data.SqlClient
Imports CrystalDecisions.Shared
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Configuration

Partial Class invoicerptClass invoicerpt

    Inherits System.Web.UI.Page

    Dim cna As String = ConfigurationManager.ConnectionStrings("HKGWHConnectionString").ConnectionString
    'Dim cna As String = "Data Source=localhost;Initial Catalog=WHVIM;Persist Security Info=True;User ID=sa;Password=password"
    Protected Sub Page_Load()Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim storagedate As String = "SELECT whseid, compid, customerno, invoiceno, adate, auser, stockin, stockout, reccount,  pickandpack, storage, localdistribute, airfreight, othercharge, oceanfreight,   totalamount, remark, cuser, cdate, status FROM invoice where invoiceno=@invoiceno"
        Dim sqlstrconnect As SqlConnection = New SqlConnection(cna)
        sqlstrconnect.Open()
        Dim sqlstoragecmd As SqlDataAdapter = New SqlDataAdapter(storagedate, sqlstrconnect)
        sqlstoragecmd.SelectCommand.Parameters.AddWithValue("invoiceno", Request.QueryString("invoiceno"))
        Dim daset As Data.DataSet = New DataSet1()

        sqlstoragecmd.Fill(daset, "test")

        Me.CrystalReportSource1.ReportDocument.Load(Server.MapPath("CrystalReport2.rpt"))
        Me.CrystalReportSource1.ReportDocument.SetDataSource(daset.Tables("test"))
        Me.CrystalReportSource1.DataBind()
        Me.CrystalReportViewer1.ReportSource = Me.CrystalReportSource1
        Me.CrystalReportViewer1.DataBind()


    End Sub

    Protected Sub CrystalReportViewer1_Init()Sub CrystalReportViewer1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Init

    End Sub

    Protected Sub Button1_Click()Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim DiskOpts As CrystalDecisions.Shared.DiskFileDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions()
        Me.CrystalReportSource1.ReportDocument.ExportOptions.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.DiskFile
        ' 导出成为其它文件时也需要这个选项 
        ' 如Microsoft Exchange, MAPI等. 
        Me.CrystalReportSource1.ReportDocument.ExportOptions.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
        '这里我们导出成为.pdf格式文件，你也能选择上面的其它类型文件 
        ' '= Me.SqlDataSource1.Select(New DataSourceSelectArguments)

        Dim path As String = Server.MapPath(Request.ApplicationPath) + "\invoice\"
        DiskOpts.DiskFileName = path + System.DateTime.Today.ToString("yyyyMMdd") + New Random(DateTime.Now.Millisecond).Next(1000).ToString() + ".pdf"
        '如果你不指定确切的目录，那么文件就会保存到［Windows]\System32目录中去了 
        Me.CrystalReportSource1.ReportDocument.ExportOptions.DestinationOptions = DiskOpts
        Me.CrystalReportSource1.ReportDocument.Export()
       
    End Sub

    Protected Sub Button2_Click()Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim gettext As TextObject = Me.CrystalReportSource1.ReportDocument.ReportDefinition.ReportObjects.Item("Text1")
        gettext.Text = "gettext"
    End Sub
End Class