depositprint.aspx.vb

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

'文件名:DepositPrint.aspx.vb
Partial Class RoomManage_DepositPrint
    Inherits System.Web.UI.Page
    Private MyDepositForm As RoomManage_DepositForm
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '显示指定旅客的押金费用信息
        MyDepositForm = Context.Handler
        Me.Label1.Text = Session("MyCompanyName").ToString() + "押金费用表"
        Me.Label2.Text = "入住编号：" + MyDepositForm.MyPrint入住编号
        Me.Label3.Text = "打印日期：" + DateTime.Now.ToShortDateString()
        If (Session("MyUserName") IsNot Nothing) Then
            '设置操作用户
            Me.Label4.Text = "操作人员：" + Session("MyUserName").ToString()
        End If
        Me.Label5.Text = "入住房号：" + MyDepositForm.MyPrint入住房号
        Me.Label6.Text = "客人姓名：" + MyDepositForm.MyPrint客人姓名
        Me.Label7.Text = "累交押金：" + MyDepositForm.MyPrint累交押金 + "元"
        Me.Label8.Text = MyDepositForm.MyPrint店内消费
        Me.Label9.Text = MyDepositForm.MyPrint住宿费
        Me.Label10.Text = MyDepositForm.MyPrint电话费
        Me.Label11.Text = MyDepositForm.MyPrint用餐费
        Me.Label12.Text = "费用总额：" + MyDepositForm.MyPrint费用总额 + "元"
    End Sub
End Class