reportcheckoutprint.aspx.vb

来自「旅客信息管理、酒店客房管理、各种信息查询」· VB 代码 · 共 35 行

'文件名:ReportCheckoutPrint.aspx.vb
Imports System.Data.SqlClient
Imports System.Data
Partial Class ReportManage_ReportCheckOutPrint
    Inherits System.Web.UI.Page
    Private MyReportCheckoutForm As ReportManage_ReportCheckoutForm
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '将查询结果输出到Excel文件中
        MyReportCheckoutForm = Context.Handler
        Dim MySQL As String = MyReportCheckoutForm.MyPrintSQL
        Me.Label1.Text = Session("MyCompanyName").ToString() + "旅客结账信息表"
        Me.Label2.Text = MyReportCheckoutForm.MyPrintDate
        Dim MyConnectionString As String = ConfigurationManager.ConnectionStrings("MyHotelDBConnectionString").ConnectionString
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnectionString)
        Dim MySet As New DataSet()
        MyAdapter.Fill(MySet)
        Me.DataGrid1.DataSource = MySet
        Me.DataGrid1.DataBind()
        Me.Response.ContentType = "application/vnd.ms-excel"
        Me.Response.Charset = ""
        '关闭 ViewState
        Me.EnableViewState = False
        Dim MyWriter As System.IO.StringWriter
        Dim MyWeb As System.Web.UI.HtmlTextWriter
        '将信息写入字符串
        MyWriter = New System.IO.StringWriter()
        '在Web窗体页上写出一系列连续的HTML特定字符和文本
        MyWeb = New System.Web.UI.HtmlTextWriter(MyWriter)
        '将DataGrid中的内容输出到HtmlTextWriter对象中
        Me.DataGrid1.RenderControl(MyWeb)
        '把HTML写回浏览器
        Response.Write(MyWriter.ToString())
    End Sub
End Class