queryconsumeform.aspx.vb

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

'文件名:QueryConsumeForm.aspx.vb
Partial Class QueryManage_QueryConsumeForm
    Inherits System.Web.UI.Page
    Private Shared MySQL As String = ""
    Private Shared My商品名称 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("C3") > 1) Then
            Server.Transfer("~/SystemManage/AllErrorHelp.aspx")
        End If
        Me.Page.Title = "当前位置：查询管理->查询商品消耗"
        If (IsPostBack) Then
            '查询酒店商品消耗信息       
            My商品名称 = Me.DropDownList1.SelectedValue.ToString()
            My开始日期 = Me.TextBox1.Text
            My结束日期 = Me.TextBox2.Text
            MySQL = "Select * From 商品分类查询视图 Where 商品名称='" + My商品名称 + "' AND (记账时间 Between  '" + My开始日期 + "' AND '" + My结束日期 + "')"
            MySQLConnectionString = ConfigurationManager.ConnectionStrings("MyHotelDBConnectionString").ConnectionString
            Me.SqlDataSource2.ConnectionString = MySQLConnectionString
            Me.SqlDataSource2.SelectCommand = MySQL
            Me.SqlDataSource2.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
    '设置要传递到打印页的结束日期
    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/QueryConsumePrint.aspx")
    End Sub
End Class