querysumform.aspx.vb

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

'文件名:QuerySumForm.aspx.vb
Partial Class QueryManage_QuerySumForm
    Inherits System.Web.UI.Page
    Private Shared MySQL As String = ""
    Private Shared My开始日期 As String = ""
    Private Shared My结束日期 As String = ""
    Private Shared MySQLConnectionString As String = ""
    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("C4") > 1) Then
            Server.Transfer("~/SystemManage/AllErrorHelp.aspx")
        End If
        Me.Page.Title = "当前位置：查询管理->查询消耗总量"
        If (IsPostBack) Then
            '查询酒店商品消耗汇总信息       
            My开始日期 = Me.TextBox1.Text
            My结束日期 = Me.TextBox2.Text
            MySQL = "SELECT dbo.消费入账.商品名称,SUM(dbo.消费入账.消费数量) as 消耗数量,SUM(dbo.消费入账.折扣价格*dbo.消费入账.消费数量) as 实际金额  FROM 消费入账  Where   (dbo.消费入账.记账时间 Between  '" + My开始日期 + "' AND '" + My结束日期 + "') GROUP BY dbo.消费入账.商品名称"
            MySQLConnectionString = ConfigurationManager.ConnectionStrings("MyHotelDBConnectionString").ConnectionString
            Me.SqlDataSource1.ConnectionString = MySQLConnectionString
            Me.SqlDataSource1.SelectCommand = MySQL
            Me.SqlDataSource1.DataBind()
            Me.GridView1.DataBind()
        End If
    End Sub
    '设置要传递到打印页的SQL
    Public ReadOnly Property MyPrintSQL() As String
        Get
            Return MySQL
        End Get
    End Property
    '设置要传递到打印页的开始日期
    Public ReadOnly Property MyPrint开始日期() As String
        Get
            Return My开始日期
        End Get
    End Property
    '设置要传递到打印页的结束日期
    Public ReadOnly Property MyPrint结束日期() As String
        Get
            Return My结束日期
        End Get
    End Property
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '打印商品消耗汇总信息
        Server.Transfer("~/QueryManage/QuerySumPrint.aspx")
    End Sub
End Class