checkoutprint.aspx.vb

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

'文件名:CheckOutPrint.aspx.vb
Partial Class RoomManage_CheckOutPrint
    Inherits System.Web.UI.Page
    Private MyCheckOutForm As RoomManage_CheckOutForm
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        MyCheckOutForm = Context.Handler
        Me.Label1.Text = Session("MyCompanyName").ToString() + "离店结账单"
        Me.Label2.Text = "结账编号：" + MyCheckOutForm.MyPrint结账编号
        Me.Label3.Text = "操作人员：" + Session("MyUserName").ToString()
        Me.Label5.Text = "入住房号：" + MyCheckOutForm.MyPrint入住房号
        Me.Label6.Text = "客人姓名：" + MyCheckOutForm.MyPrint客人姓名
        Me.Label7.Text = "入住编号：" + MyCheckOutForm.MyPrint入住编号
        Me.Label8.Text = "入住日期：" + MyCheckOutForm.MyPrint入住日期
        Me.Label9.Text = "结账日期：" + MyCheckOutForm.MyPrint结账日期
        Me.Label10.Text = "打印日期：" + DateTime.Now.ToShortDateString()
        Dim My费用金额 As Double = Convert.ToDouble(MyCheckOutForm.MyPrint预收押金) + Convert.ToDouble(MyCheckOutForm.MyPrint结账金额)
        Me.Label11.Text = "费用金额：" + My费用金额.ToString() + "元"
        Me.Label12.Text = "预收押金：" + MyCheckOutForm.MyPrint预收押金 + "元"
        Me.Label13.Text = "结账金额：" + MyCheckOutForm.MyPrint结账金额 + "元"
        Me.Label14.Text = MyCheckOutForm.MyPrint店内消费 + "元"
        Me.Label15.Text = MyCheckOutForm.MyPrint住宿费 + "元"
        Me.Label16.Text = MyCheckOutForm.MyPrint电话费 + "元"
        Me.Label17.Text = MyCheckOutForm.MyPrint用餐费 + "元"
    End Sub
End Class