reportcheckoutform.aspx.vb

旅客信息管理、酒店客房管理、各种信息查询

'文件名:ReportCheckoutForm.aspx.vb
Partial Class ReportManage_ReportCheckoutForm
    Inherits System.Web.UI.Page
    Private Shared MySQL As String = "Select * From 结账汇总报表视图"
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim MyForbidString As String = Session("MyForbid").ToString()
        If (MyForbidString.IndexOf("D5") > 1) Then
            Server.Transfer("~/SystemManage/AllErrorHelp.aspx")
        End If
        Me.Page.Title = "当前位置：报表管理->旅客结账报表"
        If (Not IsPostBack) Then
            Me.TextBox2.Text = DateTime.Now.ToShortDateString()
        End If
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '查询结账汇总信息
        Dim MySQLConnectionString As String = ConfigurationManager.ConnectionStrings("MyHotelDBConnectionString").ConnectionString
        MySQL = "Select * From 结账汇总报表视图  Where 结账汇总报表视图.结账日期 Between  '" + Me.TextBox1.Text + "' AND '" + Me.TextBox2.Text + "'"
        Me.SqlDataSource1.ConnectionString = MySQLConnectionString
        Me.SqlDataSource1.SelectCommand = MySQL
        Me.SqlDataSource1.DataBind()
        Me.GridView1.DataBind()
    End Sub
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrintSQL() As String
        Get
            Return MySQL
        End Get
    End Property
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrintDate() As String
        Get
            Return "开始日期：" + Me.TextBox1.Text + "  结束日期：" + Me.TextBox2.Text
        End Get
    End Property
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '打印入住旅客结账信息
        Server.Transfer("~/ReportManage/ReportCheckOutPrint.aspx")
    End Sub
End Class