depositform.aspx.vb

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

'文件名:DepositForm.aspx.vb
Imports System.Data.SqlClient
Imports System.Data
Partial Class RoomManage_DepositForm
    Inherits System.Web.UI.Page
    Private My入住编号 As String = ""
    Private My累计补交押金 As Double = 0
    Private My店内消费 As Double = 0
    Private My电话费 As Double = 0
    Private My用餐费 As Double = 0
    Private My住宿费 As Double = 0
    Private My费用总额 As Double = 0
    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("A6") > 1) Then
            Server.Transfer("~/SystemManage/AllErrorHelp.aspx")
        End If
        Me.Page.Title = "当前位置：客房管理->旅客补交押金"
        Me.Button3.OnClientClick = "return confirm('请检查旅客押金补交信息是否正确，一旦保存就无法修改，是否继续？')"
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        '查询旅客的费用信息       
        My累计补交押金 = 0
        My店内消费 = 0
        My电话费 = 0
        My用餐费 = 0
        My住宿费 = 0
        My费用总额 = 0
        Me.TextBox5.Text = ""
        Me.TextBox3.Text = ""
        Me.TextBox4.Text = ""
        Me.TextBox1.Text = ""
        Me.TextBox2.Text = ""
        Me.TextBox7.Text = ""
        Me.TextBox6.Text = ""
        Me.My入住编号 = Me.DropDownList2.SelectedValue.ToString()
        Dim MySQLConnectionString As String = ConfigurationManager.ConnectionStrings("MyHotelDBConnectionString").ConnectionString
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MySQL As String = "Select SUM(预收押金) From 客房入住单 Where 入住编号='" + Me.My入住编号 + "'"
        Dim MyCommand As New SqlCommand(MySQL, MyConnection)
        Me.TextBox5.Text = MyCommand.ExecuteScalar().ToString()

        MySQL = "Select SUM(金额) From 话费入账 Where 入住编号='" + Me.My入住编号 + "'"
        MyCommand = New SqlCommand(MySQL, MyConnection)
        Me.TextBox3.Text = MyCommand.ExecuteScalar().ToString()

        MySQL = "Select SUM(金额) From 餐费入账 Where 入住编号='" + Me.My入住编号 + "'"
        MyCommand = New SqlCommand(MySQL, MyConnection)
        Me.TextBox4.Text = MyCommand.ExecuteScalar().ToString()

        MySQL = "Select SUM(消费数量*折扣价格) From 消费入账 Where 入住编号='" + Me.My入住编号 + "'"
        MyCommand = New SqlCommand(MySQL, MyConnection)
        Me.TextBox1.Text = MyCommand.ExecuteScalar().ToString()

        MySQL = "Select 折扣价格,入住日期,住宿人数 From 客房入住单 Where 入住编号='" + Me.My入住编号 + "'"
        Dim MyNewTable As New DataTable()
        Dim MyAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyAdapter.Fill(MyNewTable)
        Dim My折扣价格 As String = MyNewTable.Rows(0)(0).ToString()
        Dim My入住日期 As DateTime = MyNewTable.Rows(0)(1)
        Dim MyYear As Integer = Convert.ToInt16(Me.TextBox9.Text)
        Dim MyMonth As Integer = Convert.ToInt16(Me.TextBox10.Text)
        Dim MyDay As Integer = Convert.ToInt16(Me.TextBox11.Text)
        Dim MyEndDate As New DateTime(MyYear, MyMonth, MyDay)
        Dim MySpan As TimeSpan = MyEndDate.Subtract(My入住日期)
        Dim My住宿人数 As Integer = Convert.ToInt16(MyNewTable.Rows(0)(2).ToString())
        My住宿费 = Convert.ToDouble(My折扣价格) * Math.Round(MySpan.TotalDays, 0) * My住宿人数
        Me.TextBox2.Text = My住宿费.ToString()

        If (Me.TextBox1.Text.Length > 1) Then
            My店内消费 = Convert.ToDouble(Me.TextBox1.Text)
        End If
        If (Me.TextBox3.Text.Length > 1) Then
            My电话费 = Convert.ToDouble(Me.TextBox3.Text)
        End If
        If (Me.TextBox4.Text.Length > 1) Then
            My用餐费 = Convert.ToDouble(Me.TextBox4.Text)
        End If
        My费用总额 = My住宿费 + My电话费 + My用餐费 + My店内消费
        Me.TextBox6.Text = My费用总额.ToString()
        Dim My补交押金 As Double = My费用总额 - Convert.ToDouble(Me.TextBox5.Text)
        Me.TextBox7.Text = My补交押金.ToString()

        MySQL = "Select 入住编号,证件名称,证件号码,入住日期,离开日期 From 客房入住单 Where 入住编号='" + Me.My入住编号 + "'"
        Dim MyGuestTable As New DataTable()
        Dim MyDataAdapter As New SqlDataAdapter(MySQL, MyConnection)
        MyDataAdapter.Fill(MyGuestTable)
        Me.GridView1.DataSource = MyGuestTable
        Me.GridView1.DataBind()
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
    End Sub
    '设置要传递到打印页的数据
    Public ReadOnly Property MyPrint入住编号() As String
        Get
            Return Me.DropDownList2.SelectedValue.ToString()
        End Get
    End Property
    '设置要传递到打印页的数据        
    Public ReadOnly Property MyPrint入住房号() As String
        Get
            Return Me.DropDownList1.SelectedValue.ToString()
        End Get
    End Property
    '设置要传递到打印页的数据        
    Public ReadOnly Property MyPrint客人姓名() As String
        Get
            Return Me.DropDownList2.SelectedItem.ToString()
        End Get
    End Property
    '设置要传递到打印页的数据        
    Public ReadOnly Property MyPrint累交押金() As String
        Get
            Return Me.TextBox5.Text + "+" + Me.TextBox7.Text
        End Get
    End Property
    '设置要传递到打印页的数据        
    Public ReadOnly Property MyPrint店内消费() As String
        Get
            Return Me.TextBox1.Text
        End Get
    End Property
    '设置要传递到打印页的数据        
    Public ReadOnly Property MyPrint住宿费() As String
        Get
            Return Me.TextBox2.Text
        End Get
    End Property
    '设置要传递到打印页的数据        
    Public ReadOnly Property MyPrint电话费() As String
        Get
            Return Me.TextBox3.Text
        End Get
    End Property
    '设置要传递到打印页的数据        
    Public ReadOnly Property MyPrint用餐费() As String
        Get
            Return Me.TextBox4.Text
        End Get
    End Property
    '设置要传递到打印页的数据        
    Public ReadOnly Property MyPrint费用总额() As String
        Get
            Return Me.TextBox6.Text
        End Get
    End Property
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        '打印旅客押金补交信息
        My累计补交押金 = Convert.ToDouble(Me.TextBox5.Text) + Convert.ToDouble(Me.TextBox7.Text)
        Server.Transfer("~/RoomManage/DepositPrint.aspx")
    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        '保存旅客押金补交信息
        Me.My累计补交押金 = Convert.ToInt16(Me.TextBox5.Text) + Convert.ToInt16(Me.TextBox7.Text)
        Dim MySQLConnectionString As String = ConfigurationManager.ConnectionStrings("MyHotelDBConnectionString").ConnectionString
        Dim MySQL As String = "Update 客房入住单 Set 预收押金=" + Me.My累计补交押金.ToString() + " ,登记说明='" + Me.TextBox8.Text + "' WHERE 入住编号='" + Me.DropDownList2.SelectedValue.ToString() + "'"
        Me.My累计补交押金 = 0
        Dim MyConnection As New SqlConnection(MySQLConnectionString)
        MyConnection.Open()
        Dim MyCommand As New SqlCommand(MySQL, MyConnection)
        MyCommand.ExecuteNonQuery()
        If (MyConnection.State = ConnectionState.Open) Then
            MyConnection.Close()
        End If
        Button1_Click(Nothing, Nothing)
    End Sub
End Class