consumeprint.aspx.vb

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

'文件名:ConsumePrint.aspx.vb
Partial Class ConsumeManage_ConsumePrint
    Inherits System.Web.UI.Page
    Private MyConsumeForm As ConsumeManage_ConsumeForm
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '显示旅客消费登记信息
        MyConsumeForm = Context.Handler
        Dim MyTitle As String = Session("MyCompanyName").ToString() + "消费登记单"
        Dim My消费编号 As String = "消费编号：" + MyConsumeForm.MyTable.Rows(0)(2).ToString()
        Dim My入住编号 As String = "        入住编号：" + MyConsumeForm.MyTable.Rows(0)(1).ToString()
        Dim My操作人员 As String = "操作人员：" + MyConsumeForm.MyTable.Rows(0)(8).ToString()
        Dim My打印日期 As String = "          打印日期：" + DateTime.Now.ToLongDateString()
        Dim My入住房号 As String = "房号：" + MyConsumeForm.My入住房号
        Dim My客人姓名 As String = "          姓名：" + MyConsumeForm.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 MySumAmount As Double = 0
        For i As Integer = 1 To MyConsumeForm.MyTable.Rows.Count
            Dim MyName As String = MyConsumeForm.MyTable.Rows(i - 1)(3).ToString()
            Dim MyCount As String = MyConsumeForm.MyTable.Rows(i - 1)(4).ToString()
            Dim MyPrice As String = MyConsumeForm.MyTable.Rows(i - 1)(5).ToString()
            Dim MyAmount As Double = Convert.ToDouble(MyCount) * Convert.ToDouble(MyPrice)
            MySumAmount = MySumAmount + MyAmount
            Dim MyIndex As String = i.ToString()
            AddRow(MyIndex, MyName, MyCount, MyPrice, MyAmount.ToString())
        Next
        Dim row2 As New TableRow()
        Dim cell6 As New TableCell()
        cell6.HorizontalAlign = HorizontalAlign.Center
        cell6.ColumnSpan = 5
        cell6.Width = 600
        cell6.Text = "合计金额：" + MySumAmount.ToString() + "元"
        row2.Cells.Add(cell6)
        Me.Table1.Rows.Add(row2)
    End Sub
    Private Sub AddRow(ByVal MyIndex As String, ByVal MyName As String, ByVal MyCount As String, ByVal MyPrice As String, ByVal MyAmount 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 = MyName
        cell2.Width = 150
        row1.Cells.Add(cell2)
        Dim cell3 As New TableCell()
        cell3.HorizontalAlign = HorizontalAlign.Center
        cell3.Text = MyCount
        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 = MyAmount
        cell5.Width = 200
        row1.Cells.Add(cell5)
        Me.Table1.Rows.Add(row1)
    End Sub
End Class