home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
66.142.0.142
/
66.142.0.142.tar
/
66.142.0.142
/
tblScheduledelete.aspx
< prev
next >
Wrap
Text File
|
2010-08-24
|
6KB
|
159 lines
<%@ Page Language="VB" MasterPageFile="masterpage.master" AutoEventWireup="false" CodeFile="tblScheduledelete.aspx.vb" Inherits="tblScheduledelete" CodeFileBaseClass="AspNetMaker7_tfpssnet" %>
<asp:Content ID="Content" ContentPlaceHolderID="Content" runat="server">
<script type="text/javascript">
<!--
// Create page object
var tblSchedule_delete = new ew_Page("tblSchedule_delete");
// page properties
tblSchedule_delete.PageID = "delete"; // page ID
var EW_PAGE_ID = tblSchedule_delete.PageID; // for backward compatibility
tblSchedule_delete.SelectAllKey = function(elem) {
ew_SelectAll(elem);
}
<% If EW_CLIENT_VALIDATE Then %>
tblSchedule_delete.ValidateRequired = true; // uses JavaScript validation
<% Else %>
tblSchedule_delete.ValidateRequired = false; // no JavaScript validation
<% End If %>
// search highlight properties
tblSchedule_delete.ShowHighlightText = "Show highlight";
tblSchedule_delete.HideHighlightText = "Hide highlight";
//-->
</script>
<script language="JavaScript" type="text/javascript">
<!--
// Write your client script here, no need to add script tags.
// To include another .js script, use:
// ew_ClientScriptInclude("my_javascript.js");
//-->
</script>
<%
' Load records for display
Rs = tblSchedule_delete.LoadRecordset()
If tblSchedule_delete.lTotalRecs <= 0 Then ' No record found, exit
Rs.Close()
Rs.Dispose()
tblSchedule_delete.Page_Terminate("tblSchedulelist.aspx") ' Return to list
End If
%>
<p><span class="aspnetmaker">Delete From TABLE: Schedule<br /><br />
<a href="<%= tblSchedule.ReturnUrl %>">Go Back</a></span></p>
<% tblSchedule_delete.ShowMessage() %>
<form method="post">
<p />
<input type="hidden" name="t" id="t" value="tblSchedule" />
<input type="hidden" name="a_delete" id="a_delete" value="D" />
<% For i As Integer = 0 to tblSchedule_delete.arRecKeys.GetUpperBound(0) %>
<input type="hidden" name="key_m" id="key_m" value="<%= Server.HtmlEncode(Convert.ToString(tblSchedule_delete.arRecKeys(i))) %>" />
<% Next %>
<table class="ewGrid"><tr><td class="ewGridContent">
<div class="ewGridMiddlePanel">
<table cellspacing="0" class="ewTable ewTableSeparate">
<%= tblSchedule.TableCustomInnerHTML %>
<thead>
<tr class="ewTableHeader">
<td valign="top">Date</td>
<td valign="top">Event</td>
<td valign="top">Part</td>
<td valign="top">Call Time</td>
<td valign="top">Start Time</td>
<td valign="top">End Time</td>
<td valign="top">Out Time</td>
<td valign="top">Location</td>
<td valign="top">Employee</td>
<td valign="top">Position</td>
<td valign="top">Type</td>
<td valign="top">Actual Start</td>
<td valign="top">Actual End</td>
<td valign="top">Dbl Bkd</td>
<td valign="top">Status</td>
</tr>
</thead>
<tbody>
<%
tblSchedule_delete.lRecCnt = 0
Do While Rs.Read()
tblSchedule_delete.lRecCnt = tblSchedule_delete.lRecCnt + 1
' Set row properties
tblSchedule.CssClass = ""
tblSchedule.CssStyle = ""
tblSchedule.RowType = EW_ROWTYPE_VIEW ' view
' Get the field contents
tblSchedule_delete.LoadRowValues(Rs)
' Render row
tblSchedule_delete.RenderRow()
%>
<tr<%= tblSchedule.RowAttributes %>>
<td<%= tblSchedule.schDate.CellAttributes %>>
<div<%= tblSchedule.schDate.ViewAttributes %>><%= tblSchedule.schDate.ListViewValue %></div>
</td>
<td<%= tblSchedule.schEvtID.CellAttributes %>>
<div<%= tblSchedule.schEvtID.ViewAttributes %>><%= tblSchedule.schEvtID.ListViewValue %></div>
</td>
<td<%= tblSchedule.schPartsID.CellAttributes %>>
<div<%= tblSchedule.schPartsID.ViewAttributes %>><%= tblSchedule.schPartsID.ListViewValue %></div>
</td>
<td<%= tblSchedule.schCallTime.CellAttributes %>>
<div<%= tblSchedule.schCallTime.ViewAttributes %>><%= tblSchedule.schCallTime.ListViewValue %></div>
</td>
<td<%= tblSchedule.schStartTime.CellAttributes %>>
<div<%= tblSchedule.schStartTime.ViewAttributes %>><%= tblSchedule.schStartTime.ListViewValue %></div>
</td>
<td<%= tblSchedule.schEndTime.CellAttributes %>>
<div<%= tblSchedule.schEndTime.ViewAttributes %>><%= tblSchedule.schEndTime.ListViewValue %></div>
</td>
<td<%= tblSchedule.schOutTime.CellAttributes %>>
<div<%= tblSchedule.schOutTime.ViewAttributes %>><%= tblSchedule.schOutTime.ListViewValue %></div>
</td>
<td<%= tblSchedule.schLocID.CellAttributes %>>
<div<%= tblSchedule.schLocID.ViewAttributes %>><%= tblSchedule.schLocID.ListViewValue %></div>
</td>
<td<%= tblSchedule.schEmpID.CellAttributes %>>
<div<%= tblSchedule.schEmpID.ViewAttributes %>><%= tblSchedule.schEmpID.ListViewValue %></div>
</td>
<td<%= tblSchedule.schPosID.CellAttributes %>>
<div<%= tblSchedule.schPosID.ViewAttributes %>><%= tblSchedule.schPosID.ListViewValue %></div>
</td>
<td<%= tblSchedule.schTypID.CellAttributes %>>
<div<%= tblSchedule.schTypID.ViewAttributes %>><%= tblSchedule.schTypID.ListViewValue %></div>
</td>
<td<%= tblSchedule.schActualStart.CellAttributes %>>
<div<%= tblSchedule.schActualStart.ViewAttributes %>><%= tblSchedule.schActualStart.ListViewValue %></div>
</td>
<td<%= tblSchedule.schActualEnd.CellAttributes %>>
<div<%= tblSchedule.schActualEnd.ViewAttributes %>><%= tblSchedule.schActualEnd.ListViewValue %></div>
</td>
<td<%= tblSchedule.schDoubleBooked.CellAttributes %>>
<% If Convert.ToString(tblSchedule.schDoubleBooked.CurrentValue) = "1" Then %>
<input type="checkbox" value="<%= tblSchedule.schDoubleBooked.ListViewValue %>" checked onclick="this.form.reset();" disabled="disabled" />
<% Else %>
<input type="checkbox" value="<%= tblSchedule.schDoubleBooked.ListViewValue %>" onclick="this.form.reset();" disabled="disabled" />
<% End If %></td>
<td<%= tblSchedule.schStatus.CellAttributes %>>
<div<%= tblSchedule.schStatus.ViewAttributes %>><%= tblSchedule.schStatus.ListViewValue %></div>
</td>
</tr>
<%
Loop
Rs.Close()
Rs.Dispose()
%>
</tbody>
</table>
</div>
</td></tr></table>
<p />
<input type="submit" name="Action" id="Action" value="Confirm Delete" />
</form>
<script language="JavaScript" type="text/javascript">
<!--
// Write your table-specific startup script here
// document.write("page loaded");
//-->
</script>
</asp:Content>