home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / iPhone / eventdetail2.aspx.vb < prev    next >
Text File  |  2012-01-14  |  5KB  |  79 lines
  1. ∩╗┐Imports System.Data.OleDb
  2. Imports System.Web
  3.  
  4. Partial Class iPhoneNet_Default
  5.     Inherits AspNetMaker7_tfpssnet
  6.  
  7.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  8.         Dim tmpSchID As Integer
  9.         tmpSchID = Request.QueryString("ID")
  10.         If Not IsDBNull(tmpSchID) Then
  11.             Dim rs1 As OleDbDataReader
  12.             Dim sSql As String, tmpCount2 As Integer, tmpMessage As String = ""
  13.             sSql = "SELECT tblSchedule.*, tblEmployees.empName, tblEvents.evtDescription, tblParts.prtDescription, tblLocations.locDescription, tblPositions.posDescription, tblScheduleStatus.stDescription, " _
  14.     & "tblTypes.typDescription FROM tblTypes INNER JOIN (tblScheduleStatus INNER JOIN (tblPositions INNER JOIN (tblLocations INNER JOIN (tblParts INNER JOIN (tblEvents INNER JOIN (tblEmployees INNER JOIN " _
  15.     & "tblSchedule ON tblEmployees.empID = tblSchedule.schEmpID) ON tblEvents.evtID = tblSchedule.schEvtID) ON tblParts.prtID = tblSchedule.schPartsID) ON tblLocations.locID = tblSchedule.schLocID) ON " _
  16.     & "tblPositions.posID = tblEmployees.empPositionID) ON tblScheduleStatus.stID = tblSchedule.schStatus) ON tblTypes.typID = tblSchedule.schTypID WHERE schSchID=" & tmpSchID
  17.             Conn = New cConnection()
  18.             rs1 = Conn.GetTempDataReader(sSql)
  19.             If rs1.Read() Then
  20.                 tmpMessage = tmpMessage & "<b>Date:</b> " & rs1("schDate") & "<br> "
  21.                 tmpMessage = tmpMessage & "<b>Event:</b> " & rs1("evtDescription") & "<br> "
  22.                 tmpMessage = tmpMessage & "<b>Part:</b> " & rs1("prtDescription") & "<br>"
  23.                 tmpMessage = tmpMessage & "<b>Call Time:</b> " & ew_FormatDateTime(rs1("schCallTime"), 14) & "<br>"
  24.                 tmpMessage = tmpMessage & "<b>Start Time:</b> " & ew_FormatDateTime(rs1("schStartTime"), 14) & "<br>"
  25.                 tmpMessage = tmpMessage & "<b>End Time:</b> " & ew_FormatDateTime(rs1("schEndTime"), 14) & "<br>"
  26.                 tmpMessage = tmpMessage & "<b>Out Time:</b> " & ew_FormatDateTime(rs1("schOutTime"), 14) & "<br>"
  27.                 tmpMessage = tmpMessage & "<b>Location:</b> " & rs1("locDescription") & "<br>"
  28.                 tmpMessage = tmpMessage & "<b>Position:</b> " & rs1("posDescription") & "<br>"
  29.                 tmpMessage = tmpMessage & "<b>Status:</b> " & rs1("stDescription") & "<br>"
  30.                 tmpMessage = tmpMessage & "<b>Type:</b> " & rs1("typDescription") & "<br>"
  31.                 tmpMessage = tmpMessage & "<b>Notes:</b> " & rs1("schNotes") & "<br><br>"
  32.                 tmpMessage = tmpMessage & "<b>Actual Start Time:</b> " & ew_FormatDateTime(rs1("schActualStart"), 14) & "<br>"
  33.                 tmpMessage = tmpMessage & "<b>Actual End Time:</b> " & ew_FormatDateTime(rs1("schActualEnd"), 14) & "<br><hr>"
  34.  
  35.                 tmpMessage = tmpMessage & "<table width='100%'>"
  36.                 tmpMessage = tmpMessage & "<tr><td align='center' colspan='4'>"
  37.                 tmpMessage = tmpMessage & "<b>Change Status</b>"
  38.                 tmpMessage = tmpMessage & "</td></tr>"
  39.                 tmpMessage = tmpMessage & "<tr>"
  40.                 tmpMessage = tmpMessage & "<td align='center'>"
  41.                 tmpMessage = tmpMessage & "<a href='punchstatus.aspx?Type=C&ID=" & tmpSchID & "'><img alt='Confirm' src='images/icon_confirmed.png' /></a>"
  42.                 tmpMessage = tmpMessage & "</td>"
  43.                 tmpMessage = tmpMessage & "<td align='center'>"
  44.                 tmpMessage = tmpMessage & "<a href='punchstatus.aspx?Type=T&ID=" & tmpSchID & "'><img alt='Tentative' src='images/icon_tentative.png' /></a>"
  45.                 tmpMessage = tmpMessage & "</td>"
  46.                 tmpMessage = tmpMessage & "<td align='center'>"
  47.                 tmpMessage = tmpMessage & "<a href='punchstatus.aspx?Type=X&ID=" & tmpSchID & "'><img alt='Cannot Work' src='images/icon_cannot.png' /></a>"
  48.                 tmpMessage = tmpMessage & "</td>"
  49.                 tmpMessage = tmpMessage & "<td align='center'>"
  50.                 tmpMessage = tmpMessage & "<a href='punchstatus.aspx?Type=U&ID=" & tmpSchID & "'><img alt='Unconfirm' src='images/icon_unconfirmed.png' /></a>"
  51.                 tmpMessage = tmpMessage & "</td>"
  52.                 tmpMessage = tmpMessage & "</tr>"
  53.  
  54.                 tmpMessage = tmpMessage & "<tr>"
  55.                 tmpMessage = tmpMessage & "<td align='center'>"
  56.                 tmpMessage = tmpMessage & "Confirm"
  57.                 tmpMessage = tmpMessage & "</td>"
  58.                 tmpMessage = tmpMessage & "<td align='center'>"
  59.                 tmpMessage = tmpMessage & "Tentative"
  60.                 tmpMessage = tmpMessage & "</td>"
  61.                 tmpMessage = tmpMessage & "<td align='center'>"
  62.                 tmpMessage = tmpMessage & "Cannot Work"
  63.                 tmpMessage = tmpMessage & "</td>"
  64.                 tmpMessage = tmpMessage & "<td align='center'>"
  65.                 tmpMessage = tmpMessage & "Unconfirmed"
  66.                 tmpMessage = tmpMessage & "</td>"
  67.                 tmpMessage = tmpMessage & "</tr>"
  68.  
  69.                 tmpMessage = tmpMessage & "</table>"
  70.                 lblLabel.Text = tmpMessage
  71.             End If
  72.             rs1.Close()
  73.             rs1 = Nothing
  74.             Conn.CloseTempDataReader()
  75.             Conn.Dispose()
  76.         End If
  77.     End Sub
  78. End Class
  79.