printprint.aspx.vb

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

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