reportconsumeform.aspx.vb

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

'文件名:ReportConsumeForm.aspx.vb
Partial Class ReportManage_ReportConsumeForm
    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("D3") > 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/ReportConsumePrint.aspx")
    End Sub
End Class