querysumprint.aspx.vb

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

'文件名:QuerySumPrint.aspx.vb
Imports System.Data.SqlClient
Imports System.Data
Partial Class QueryManage_QuerySumPrint
    Inherits System.Web.UI.Page
    Private MyQuerySumForm As QueryManage_QuerySumForm
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '将查询结果输出到Excel文件中
        MyQuerySumForm = Context.Handler
        Dim MySQL As String = MyQuerySumForm.MyPrintSQL
        Dim My开始日期 As String = MyQuerySumForm.MyPrint开始日期
        Dim My结束日期 As String = MyQuerySumForm.MyPrint结束日期
        Me.Label1.Text = Session("MyCompanyName").ToString() + "消费商品汇总统计表"
        Me.Label2.Text = "开始日期：" + My开始日期 + " 　　　结束日期：" + My结束日期
        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