eatingprint.aspx.vb

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

'文件名:EatingPrint.aspx.vb
Partial Class ConsumeManage_EatingPrint
    Inherits System.Web.UI.Page
    Private MyEatingForm As ConsumeManage_EatingForm
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '显示旅客餐费登记信息
        MyEatingForm = Context.Handler
        Dim MyTitle As String = Session("MyCompanyName").ToString() + "餐费登记单"
        Dim My餐费编号 As String = "餐费编号：" + MyEatingForm.MyTable.Rows(0)(2).ToString()
        Dim My入住编号 As String = "        入住编号：" + MyEatingForm.MyTable.Rows(0)(1).ToString()
        Dim My操作人员 As String = "操作人员：" + MyEatingForm.MyTable.Rows(0)(8).ToString()
        Dim My打印日期 As String = "          打印日期：" + DateTime.Now.ToLongDateString()
        Dim My入住房号 As String = "房号：" + MyEatingForm.My入住房号
        Dim My客人姓名 As String = "          姓名：" + MyEatingForm.My客人姓名
        Me.Label1.Text = MyTitle
        Me.Label2.Text = My餐费编号
        Me.Label3.Text = My操作人员
        Dim row As New TableRow()
        Dim cell As New TableCell()
        cell.HorizontalAlign = HorizontalAlign.Left
        cell.ColumnSpan = 5
        cell.Width = 600
        cell.Text = "   " + My入住房号 + "   &nbsp" + My客人姓名 + "   &nbsp" + My入住编号 + "   &nbsp" + My打印日期
        row.Cells.Add(cell)
        Me.Table1.Rows.Add(row)
        Dim row1 As New TableRow()
        Dim cell1 As New TableCell()
        cell1.HorizontalAlign = HorizontalAlign.Center
        cell1.Text = "序号"
        cell1.Width = 50
        row1.Cells.Add(cell1)
        Dim cell2 As New TableCell()
        cell2.HorizontalAlign = HorizontalAlign.Center
        cell2.Text = "用餐时间"
        cell2.Width = 150
        row1.Cells.Add(cell2)
        Dim cell3 As New TableCell()
        cell3.HorizontalAlign = HorizontalAlign.Center
        cell3.Text = "类别"
        cell3.Width = 100
        row1.Cells.Add(cell3)
        Dim cell4 As New TableCell()
        cell4.HorizontalAlign = HorizontalAlign.Center
        cell4.Text = "金额"
        cell4.Width = 100
        row1.Cells.Add(cell4)
        Dim cell5 As New TableCell()
        cell5.HorizontalAlign = HorizontalAlign.Center
        cell5.Text = "说明"
        cell5.Width = 200
        row1.Cells.Add(cell5)
        Me.Table1.Rows.Add(row1)
        Dim MyAmount As Double = 0
        For i As Integer = 1 To MyEatingForm.MyTable.Rows.Count
            Dim MyDate As String = DateTime.Parse(MyEatingForm.MyTable.Rows(i - 1)(3).ToString()).ToShortDateString()
            Dim MyType As String = MyEatingForm.MyTable.Rows(i - 1)(4).ToString()
            Dim MyPrice As String = MyEatingForm.MyTable.Rows(i - 1)(5).ToString()
            MyAmount = MyAmount + Convert.ToDouble(MyPrice)
            Dim MyComment As String = MyEatingForm.MyTable.Rows(i - 1)(6).ToString()
            Dim MyIndex As String = i.ToString()
            AddRow(MyIndex, MyDate, MyType, MyPrice, MyComment)
        Next
        Dim row2 As New TableRow()
        Dim cell6 As New TableCell()
        cell6.HorizontalAlign = HorizontalAlign.Center
        cell6.ColumnSpan = 5
        cell6.Width = 600
        cell6.Text = "合计金额：" + MyAmount.ToString() + "元"
        row2.Cells.Add(cell6)
        Me.Table1.Rows.Add(row2)
    End Sub
    Private Sub AddRow(ByVal MyIndex As String, ByVal MyDate As String, ByVal MyType As String, ByVal MyPrice As String, ByVal MyComment As String)
        Dim row1 As New TableRow()
        Dim cell1 As New TableCell()
        cell1.HorizontalAlign = HorizontalAlign.Center
        cell1.Text = MyIndex
        cell1.Width = 50
        row1.Cells.Add(cell1)
        Dim cell2 As New TableCell()
        cell2.HorizontalAlign = HorizontalAlign.Center
        cell2.Text = MyDate
        cell2.Width = 150
        row1.Cells.Add(cell2)
        Dim cell3 As New TableCell()
        cell3.HorizontalAlign = HorizontalAlign.Center
        cell3.Text = MyType
        cell3.Width = 100
        row1.Cells.Add(cell3)
        Dim cell4 As New TableCell()
        cell4.HorizontalAlign = HorizontalAlign.Center
        cell4.Text = MyPrice
        cell4.Width = 100
        row1.Cells.Add(cell4)
        Dim cell5 As New TableCell()
        cell5.HorizontalAlign = HorizontalAlign.Center
        cell5.Text = MyComment
        cell5.Width = 200
        row1.Cells.Add(cell5)
        Me.Table1.Rows.Add(row1)
    End Sub
End Class