<%@ Page
Title="Teacher Schedules"
Language="vb"
EnableEventValidation="false"
AutoEventWireup="false"
MasterPageFile="~/Knowledge Academy.Master"
CodeBehind="TeacherSchedules.aspx.vb"
Inherits="Knowledge_Academy.TeacherSchedules" %>
<asp:Content
ID="ContentHeader"
ContentPlaceHolderID="HeaderPlaceholder"
runat="server">
<style type="text/css">
.auto-style1
{
font-size: large;
}
</style>
</asp:Content>
<asp:Content
ID="ContentBody"
ContentPlaceHolderID="BodyPlaceholder"
runat="server">
<% '-- Datasources -- %>
<% '----------------- %>
<asp:SqlDataSource
ID="SqlDataSourceDetails"
runat="server"
ConnectionString="<%$ ConnectionStrings:Knowledge Academy %>"
DeleteCommand=
"DELETE FROM [TeacherSchedule]
WHERE [ID] = @ID"
InsertCommand=
"INSERT INTO [TeacherSchedule]
([DayOfWeekMonday],
[DayOfWeekTuesday],
[DayOfWeekWednesday],
[DayOfWeekThursday],
[DayOfWeekFriday],
[DayOfWeekSaturday],
[DayOfWeekSunday],
[StartTime],
[EndTime],
[ClassID],
[TeacherID])
VALUES (@DayOfWeekMonday,
@DayOfWeekTuesday,
@DayOfWeekWednesday,
@DayOfWeekThursday,
@DayOfWeekFriday,
@DayOfWeekSaturday,
@DayOfWeekSunday,
@StartTime,
@EndTime,
@ClassID,
@TeacherID)"
SelectCommand=
"SELECT TeacherSchedule.ID, TeacherSchedule.StartTime, TeacherSchedule.EndTime, TeacherSchedule.TeacherID, TeacherSchedule.ClassID,
TeacherSchedule.DayOfWeekMonday,
TeacherSchedule.DayOfWeekTuesday,
TeacherSchedule.DayOfWeekWednesday,
TeacherSchedule.DayOfWeekThursday,
TeacherSchedule.DayOfWeekFriday,
TeacherSchedule.DayOfWeekSaturday,
TeacherSchedule.DayOfWeekSunday,
Classes.ClassName, Classes.Grade
FROM TeacherSchedule
INNER JOIN Classes ON TeacherSchedule.ClassID = Classes.ID
INNER JOIN Teachers ON TeacherSchedule.TeacherID = Teachers.ID
WHERE (TeacherSchedule.ID = @ID)"
UpdateCommand=
"UPDATE [TeacherSchedule]
SET [DayOfWeekMonday] = @DayOfWeekMonday,
[DayOfWeekTuesday] = @DayOfWeekTuesday,
[DayOfWeekWednesday] = @DayOfWeekWednesday,
[DayOfWeekThursday] = @DayOfWeekFriday,
[DayOfWeekFriday] = @DayOfWeekFriday,
[DayOfWeekSaturday] = @DayOfWeekSaturday,
[DayOfWeekSunday] = @DayOfWeekSunday,
[StartTime] = @StartTime,
[EndTime] = @EndTime,
[ClassID] = @ClassID,
[TeacherID] = @TeacherID
WHERE [ID] = @ID">
<DeleteParameters>
<asp:Parameter Name="ID" Type="Int32" />
</DeleteParameters>
<InsertParameters>
<asp:Parameter
Name="DayOfWeekMonday"
Type="Boolean"/>
<asp:ControlParameter
ControlID="LabelCheckBoxTuesday"
Name="DayOfWeekTuesday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxWednesday"
Name="DayOfWeekWednesday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxThursday"
Name="DayOfWeekThursday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxFriday"
Name="DayOfWeekFriday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxSaturday"
Name="DayOfWeekSaturday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxSunday"
Name="DayOfWeekSunday"
PropertyName="Text"
Type="String" />
<asp:Parameter Name="StartTime" Type="String" />
<asp:Parameter Name="EndTime" Type="String" />
<asp:Parameter Name="ClassID" Type="Int32" />
<asp:Parameter Name="TeacherID" Type="Int32" />
</InsertParameters>
<SelectParameters>
<asp:ControlParameter ControlID="GridViewSummary" Name="ID" PropertyName="SelectedValue" Type="Int32" />
</SelectParameters>
<UpdateParameters>
<asp:ControlParameter
ControlID="LabelCheckBoxMonday"
Name="DayOfWeekMonday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxTuesday"
Name="DayOfWeekTuesday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxWednesday"
Name="DayOfWeekWednesday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxThursday"
Name="DayOfWeekThursday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxFriday"
Name="DayOfWeekFriday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxSaturday"
Name="DayOfWeekSaturday"
PropertyName="Text"
Type="String" />
<asp:ControlParameter
ControlID="LabelCheckBoxSunday"
Name="DayOfWeekSunday"
PropertyName="Text"
Type="String" />
<asp:Parameter Name="StartTime" Type="String" />
<asp:Parameter Name="EndTime" Type="String" />
<asp:Parameter Name="ClassID" Type="Int32" />
<asp:Parameter Name="TeacherID" Type="Int32" />
<asp:Parameter Name="ID" />
</UpdateParameters>
</asp:SqlDataSource>
<asp:SqlDataSource
ID="SqlDataSourceClasses"
runat="server"
ConnectionString="<%$ ConnectionStrings:Knowledge Academy %>"
SelectCommand=
"SELECT NULL AS ID, NULL AS ClassName, NULL AS Grade
UNION SELECT ID, ClassName + ' *** Grade: ' + Grade AS ClassName, Grade
FROM Classes
ORDER BY 2, 3">
</asp:SqlDataSource>
<asp:SqlDataSource
ID="SqlDataSourceTeachers"
runat="server"
ConnectionString="<%$ ConnectionStrings:Knowledge Academy %>"
SelectCommand=
"SELECT NULL AS ID, NULL AS TeacherName
UNION SELECT ID, Surname + ', ' + Forename AS TeacherName
FROM Teachers
ORDER BY 2">
</asp:SqlDataSource>
<% '-- Ajax enable this area so flicker us cut down to a minumum. -- %>
<% '---------------------------------------------------------------- %>
<asp:UpdatePanel
ID="UpdatePanelSummary"
runat="server"
UpdateMode="Always">
<ContentTemplate>
<h1>Teacher Schedule Maintenance</h1>
<p>
<asp:Table ID="TableTeacherSchedules" runat="server" Width="1058px" Visible="False">
<asp:TableHeaderRow>
<asp:TableHeaderCell HorizontalAlign="Left">Starting</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Ending</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Mon</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Tue</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Wed</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Thu</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Fri</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Sat</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Sun</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Class</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Grade</asp:TableHeaderCell>
<asp:TableHeaderCell HorizontalAlign="Left">Teacher</asp:TableHeaderCell>
</asp:TableHeaderRow>
<asp:TableRow runat="server">
</asp:TableRow>
</asp:Table>
</p>
<p>Schedule Search:
<asp:TextBox
ID="TextBoxSearch"
runat="server"
Width="207px"
Text="ALL">
</asp:TextBox>
<asp:Button
ID="ButtonSearch"
runat="server"
Text="Search"
OnClick="ButtonSearch_Click" />
<asp:Button
ID="ButtonSearchAll"
runat="server"
Text="Show ALL Schedules"
OnClick="ButtonSearchAll_Click"/>
</p>
<p>
<strong><span class="auto-style1">To send an email of this schedule, enter the email address of whom you wish to send it to then click the envelope.</span></strong>
</p>
<p>
Recipient:
<asp:TextBox ID="TextBoxEmailRecipient" runat="server" Width="203px"></asp:TextBox>
<strong><span class="auto-style1"> </span></strong>
<asp:ImageButton
ID="ImageButtonEmailThisList"
runat="server"
BorderStyle="None"
ImageUrl="~/Images/email1.png"
OnClick="ImageButtonEmailThisList_Click"
ToolTip="Email this Schedule as a report."
/>
</p>
<p>
<asp:Label ID="LabelEmailMessage" runat="server" style="font-weight: 700; color: black">
</asp:Label>
</p>
<% '-- GridView (Grid) for summary. -- %>
<% '-- The user chooses a Schedule from here and details are shown in a DetailsView. -- %>
<% '------------------------------------------------------------------------------------ %>
<asp:GridView
ID="GridViewSummary"
runat="server"
AllowSorting="True"
AutoGenerateColumns="False"
DataKeyNames="ID"
Width="869px" AllowPaging="True" PageSize="5">
<Columns>
<asp:TemplateField HeaderText="Start Time" SortExpression="StartTime">
<ItemTemplate>
<asp:Label ID="LabelStartTime" runat="server"
Text='<%# DateTime.Parse(Eval("StartTime").ToString()).ToString("hh:mm tt") %>'></asp:Label>
</ItemTemplate>
<HeaderStyle HorizontalAlign="Right" />
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="End Time" SortExpression="EndTime">
<ItemTemplate>
<asp:Label ID="LabelEndTime" runat="server"
Text='<%# DateTime.Parse(Eval("EndTime").ToString()).ToString("hh:mm tt") %>'></asp:Label>
</ItemTemplate>
<HeaderStyle HorizontalAlign="Right" />
<ItemStyle HorizontalAlign="Right" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Mon" SortExpression="DayOfWeekMonday" >
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonDayOfWeekMonday" runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekMonday")) %>' Height="15" Width="15" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tue" SortExpression="DayOfWeekTuesday">
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonDayOfWeekTuesday" runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekTuesday")) %>' Height="15" Width="15" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Wed" SortExpression="DayOfWeekWednesday">
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonDayOfWeekWednesday" runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekWednesday")) %>' Height="15" Width="15" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Thu" SortExpression="DayOfWeekThursday">
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonDayOfWeekThursday" runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekThursday")) %>' Height="15" Width="15" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Fri" SortExpression="DayOfWeekFriday">
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonDayOfWeekFriday" runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekFriday")) %>' Height="15" Width="15" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sat" SortExpression="DayOfWeekSaturday">
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonDayOfWeekSaturday" runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekSaturday")) %>' Height="15" Width="15" />
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sun" SortExpression="DayOfWeekSunday">
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonDayOfWeekSunday" runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekSunday")) %>' Height="15" Width="15" />
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ClassName" HeaderText="Class"
SortExpression="ClassName" >
<HeaderStyle HorizontalAlign="Left" />
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:BoundField DataField="Grade" HeaderText="Grade"
SortExpression="Grade" >
<HeaderStyle HorizontalAlign="Left" />
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:BoundField DataField="TeacherName" HeaderText="Teacher"
SortExpression="TeacherName" >
<HeaderStyle HorizontalAlign="Left" />
<ItemStyle HorizontalAlign="Left" />
</asp:BoundField>
<asp:TemplateField ShowHeader="False">
<ItemTemplate>
<asp:Button
ID="ButtonSelect"
runat="server"
CausesValidation="False"
CommandName="Select"
Text="Select Schedule Item Details" />
</ItemTemplate>
</asp:TemplateField>
</Columns>
</asp:GridView>
<% '-- Button to add a new Schedule to the list -- %>
<% '---------------------------------------------- %>
<asp:Button
ID="ButtonAddNewScheduleItem"
runat="server"
Text="Add a New Schedule Item to this List" />
<br />
<h1>Details</h1>
<% '-- DetailsView (Grid) for details of the GridView -- %>
<% '---------------------------------------------------- %>
<asp:DetailsView
ID="DetailsView"
runat="server"
AutoGenerateRows="False"
Height="50px"
Width="207px"
DataSourceID="SqlDataSourceDetails"
DataKeyNames="ID"
OnItemCommand="DetailsViewDetails_ItemCommand">
<Fields>
<asp:TemplateField ShowHeader="False">
<EditItemTemplate>
<asp:Button ID="ButtonUpdate" runat="server" CausesValidation="True"
CommandName="Update" Text="Update" />
<asp:Button ID="ButtonCancelUpdate" runat="server" CausesValidation="False"
CommandName="Cancel" Text="Cancel" />
</EditItemTemplate>
<InsertItemTemplate>
<asp:Button ID="ButtonInsert" runat="server" CausesValidation="True"
CommandName="Insert" Text="Insert" OnClick="ButtonInsert_Click" />
<asp:Button ID="ButtonCancelInsert" runat="server" CausesValidation="False"
CommandName="Cancel" Text="Cancel" />
</InsertItemTemplate>
<ItemTemplate>
<asp:Button ID="ButtonEdit" runat="server" CausesValidation="False"
CommandName="Edit" Text="Edit" OnClick="ButtonEdit_Click"/>
<asp:Button ID="ButtonNew" runat="server" CausesValidation="False"
CommandName="New" Text="New" />
<asp:Button ID="ButtonDelete" runat="server" CausesValidation="False"
CommandName="Delete" Text="Delete" />
<AjaxToolKit:ConfirmButtonExtender ID="deleteButtonConfirmation"
runat="server"
ConfirmText='<%# "You are about to remove schedule item for: " & vbcr &
" *** Grade: " & Eval("Grade") & "!!!" &
vbcrlf & "Are you sure you want to do this?" & vbcrlf &
"Clicking the OK button will delete this schedule item." %>'
Enabled="True"
TargetControlID="ButtonDelete">
</AjaxToolKit:ConfirmButtonExtender>
</ItemTemplate>
</asp:TemplateField>
<asp:BoundField DataField="ID" HeaderText="ID" InsertVisible="False"
ReadOnly="True" SortExpression="ID" Visible="False" />
<asp:TemplateField HeaderText="Starting At:" SortExpression="StartTime">
<EditItemTemplate>
<asp:TextBox ID="TextBoxStartTime" runat="server" Text='<%# Bind("StartTime") %>'></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidatorEditStartTime" runat="server" ControlToValidate="TextBoxStartTime"
ErrorMessage="Please enter the Start Time here." Font-Bold="True" Font-Italic="True" ForeColor="Red"
SetFocusOnError="True" Display="Dynamic"></asp:RequiredFieldValidator>
</EditItemTemplate>
<InsertItemTemplate>
<asp:TextBox ID="TextBoxStartTime" runat="server" Text='<%# Bind("StartTime") %>'></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidatorInsertStartTime" runat="server" ControlToValidate="TextBoxStartTime"
ErrorMessage="Please enter the Start Time here." Font-Bold="True" Font-Italic="True" ForeColor="Red"
SetFocusOnError="True" Display="Dynamic"></asp:RequiredFieldValidator>
</InsertItemTemplate>
<ItemTemplate>
<asp:Label ID="LabelStartTime" runat="server"
Text='<%# DateTime.Parse(Eval("StartTime").ToString()).ToString("hh:mm tt") %>'></asp:Label>
</ItemTemplate>
<ItemStyle ForeColor="Blue" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Ending At:" SortExpression="EndTime">
<EditItemTemplate>
<asp:TextBox ID="TextBoxEndTime" runat="server" Text='<%# Bind("EndTime") %>'></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidatorEditEndTime" runat="server" ControlToValidate="TextBoxEndTime"
ErrorMessage="Please enter the End Time here." Font-Bold="True" Font-Italic="True" ForeColor="Red"
SetFocusOnError="True" Display="Dynamic"></asp:RequiredFieldValidator>
</EditItemTemplate>
<InsertItemTemplate>
<asp:TextBox ID="TextBoxEndTime" runat="server" Text='<%# Bind("EndTime") %>'></asp:TextBox>
<asp:RequiredFieldValidator ID="RequiredFieldValidatorInsertEndTime" runat="server" ControlToValidate="TextBoxEndTime"
ErrorMessage="Please enter the End Time here." Font-Bold="True" Font-Italic="True" ForeColor="Red"
SetFocusOnError="True" Display="Dynamic"></asp:RequiredFieldValidator>
</InsertItemTemplate>
<ItemTemplate>
<asp:Label ID="LabelEndTime" runat="server"
Text='<%# DateTime.Parse(Eval("EndTime").ToString()).ToString("hh:mm tt") %>'></asp:Label>
</ItemTemplate>
<ItemStyle ForeColor="Blue" />
</asp:TemplateField>
<asp:TemplateField HeaderText="Monday:" SortExpression="DayOfWeekMonday" >
<EditItemTemplate>
<asp:ImageButton
ID="ImageButtonEditDayOfWeekMonday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekMonday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonEditDayOfWeekMonday_Click"
CausesValidation="False"
CommandName="Emad"
CommandArgument="Monday, Edit">
</asp:ImageButton>
</EditItemTemplate>
<InsertItemTemplate>
<asp:ImageButton
ID="ImageButtonInsertDayOfWeekMonday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekMonday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonInsertDayOfWeekMonday_Click"
CausesValidation="False">
</asp:ImageButton>
</InsertItemTemplate>
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonItemDayOfWeekMonday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekMonday"))%>'
Height="15"
Width="15">
</asp:ImageButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Tuesday:">
<EditItemTemplate>
<asp:ImageButton
ID="ImageButtonEditDayOfWeekTuesday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekTuesday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonEditDayOfWeekTuesday_Click"
CausesValidation="False">
</asp:ImageButton>
</EditItemTemplate>
<InsertItemTemplate>
<asp:ImageButton
ID="ImageButtonInsertDayOfWeekTuesday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekTuesday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonInsertDayOfWeekTuesday_Click"
CausesValidation="False">
</asp:ImageButton>
</InsertItemTemplate>
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonItemDayOfWeekTuesday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekTuesday"))%>'
Height="15"
Width="15">
</asp:ImageButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Wednesday:">
<EditItemTemplate>
<asp:ImageButton
ID="ImageButtonEditDayOfWeekWednesday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekWednesday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonEditDayOfWeekWednesday_Click"
CausesValidation="False">
</asp:ImageButton>
</EditItemTemplate>
<InsertItemTemplate>
<asp:ImageButton
ID="ImageButtonInsertDayOfWeekWednesday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekWednesday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonInsertDayOfWeekWednesday_Click"
CausesValidation="False">
</asp:ImageButton>
</InsertItemTemplate>
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonItemDayOfWeekWednesday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekWednesday"))%>'
Height="15"
Width="15">
</asp:ImageButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Thursday:">
<EditItemTemplate>
<asp:ImageButton
ID="ImageButtonEditDayOfWeekThursday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekThursday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonEditDayOfWeekThursday_Click"
CausesValidation="False">
</asp:ImageButton>
</EditItemTemplate>
<InsertItemTemplate>
<asp:ImageButton
ID="ImageButtonInsertDayOfWeekThursday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekThursday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonInsertDayOfWeekThursday_Click"
CausesValidation="False">
</asp:ImageButton>
</InsertItemTemplate>
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonItemDayOfWeekThursday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekThursday"))%>'
Height="15"
Width="15">
</asp:ImageButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Friday:">
<EditItemTemplate>
<asp:ImageButton
ID="ImageButtonEditDayOfWeekFriday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekFriday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonEditDayOfWeekFriday_Click"
CausesValidation="False">
</asp:ImageButton>
</EditItemTemplate>
<InsertItemTemplate>
<asp:ImageButton
ID="ImageButtonInsertDayOfWeekFriday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekFriday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonInsertDayOfWeekFriday_Click"
CausesValidation="False">
</asp:ImageButton>
</InsertItemTemplate>
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonItemDayOfWeekFriday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekFriday"))%>'
Height="15"
Width="15">
</asp:ImageButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Saturday:">
<EditItemTemplate>
<asp:ImageButton
ID="ImageButtonEditDayOfWeekSaturday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekSaturday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonEditDayOfWeekSaturday_Click"
CausesValidation="False">
</asp:ImageButton>
</EditItemTemplate>
<InsertItemTemplate>
<asp:ImageButton
ID="ImageButtonInsertDayOfWeekSaturday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekSaturday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonInsertDayOfWeekSaturday_Click"
CausesValidation="False">
</asp:ImageButton>
</InsertItemTemplate>
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonItemDayOfWeekSaturday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekSaturday"))%>'
Height="15"
Width="15">
</asp:ImageButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Sunday:">
<EditItemTemplate>
<asp:ImageButton
ID="ImageButtonEditDayOfWeekSunday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekSunday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonEditDayOfWeekSunday_Click"
CausesValidation="False">
</asp:ImageButton>
</EditItemTemplate>
<InsertItemTemplate>
<asp:ImageButton
ID="ImageButtonInsertDayOfWeekSunday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekSunday"))%>'
Height="15"
Width="15"
OnClick="ImageButtonInsertDayOfWeekSunday_Click"
CausesValidation="False">
</asp:ImageButton>
</InsertItemTemplate>
<ItemTemplate>
<asp:ImageButton
ID="ImageButtonItemDayOfWeekSunday"
runat="server"
ImageUrl='<%# getChecked(Eval("DayOfWeekSunday"))%>'
Height="15"
Width="15">
</asp:ImageButton>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Class:" SortExpression="ClassID">
<EditItemTemplate>
<asp:DropDownList
ID="DropDownListClass"
Runat="server"
DataSourceID="SqlDataSourceClasses"
DataTextField = "ClassName"
DataValueField="ID"
SelectedValue='<%# Bind("ClassID") %>'
ForeColor="Blue">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidatorEditClass" runat="server" ControlToValidate="DropDownListClass"
ErrorMessage="Please select a Class here." Font-Bold="True" Font-Italic="True" ForeColor="Red"
SetFocusOnError="True" Display="Dynamic">
</asp:RequiredFieldValidator>
</EditItemTemplate>
<InsertItemTemplate>
<asp:DropDownList
ID="DropDownListClass"
Runat="server"
DataSourceID="SqlDataSourceClasses"
DataTextField = "ClassName"
DataValueField="ID"
SelectedValue='<%# Bind("ClassID") %>'
ForeColor="Blue">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidatorInsertClass" runat="server" ControlToValidate="DropDownListClass"
ErrorMessage="Please select a Class here." Font-Bold="True" Font-Italic="True" ForeColor="Red"
SetFocusOnError="True" Display="Dynamic">
</asp:RequiredFieldValidator>
</InsertItemTemplate>
<ItemTemplate>
<asp:DropDownList
ID="DropDownListClass"
Runat="server"
DataSourceID="SqlDataSourceClasses"
DataTextField = "ClassName"
DataValueField="ID"
SelectedValue='<%# Bind("ClassID") %>'
Enabled="false"
ForeColor="Blue"
Font-Bold="true">
</asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
<asp:TemplateField HeaderText="Teacher:" SortExpression="TeacherID">
<EditItemTemplate>
<asp:DropDownList
ID="DropDownListTeacher"
Runat="server"
DataSourceID="SqlDataSourceTeachers"
DataTextField = "TeacherName"
DataValueField="ID"
SelectedValue='<%# Bind("TeacherID") %>'
ForeColor="Blue">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidatorInsertTeacher" runat="server" ControlToValidate="DropDownListTeacher"
ErrorMessage="Please select a Teacher here." Font-Bold="True" Font-Italic="True" ForeColor="Red"
SetFocusOnError="True" Display="Dynamic">
</asp:RequiredFieldValidator>
</EditItemTemplate>
<InsertItemTemplate>
<asp:DropDownList
ID="DropDownListTeacher"
Runat="server"
DataSourceID="SqlDataSourceTeachers"
DataTextField = "TeacherName"
DataValueField="ID"
SelectedValue='<%# Bind("TeacherID") %>'
ForeColor="Blue">
</asp:DropDownList>
<asp:RequiredFieldValidator ID="RequiredFieldValidatorEditTeacher" runat="server" ControlToValidate="DropDownListTeacher"
ErrorMessage="Please select a Teacher here." Font-Bold="True" Font-Italic="True" ForeColor="Red"
SetFocusOnError="True" Display="Dynamic">
</asp:RequiredFieldValidator>
</InsertItemTemplate>
<ItemTemplate>
<asp:DropDownList
ID="DropDownListTeacher"
Runat="server"
DataSourceID="SqlDataSourceTeachers"
DataTextField = "TeacherName"
DataValueField="ID"
SelectedValue='<%# Bind("TeacherID") %>'
Enabled="false"
ForeColor="Blue"
Font-Bold="true">
</asp:DropDownList>
</ItemTemplate>
</asp:TemplateField>
</Fields>
<HeaderTemplate>
<%#IIf(Eval("DayOfWeekMonday") = Nothing,
"Adding New Teacher Schedule Item", "Details For: " &
" *** Grade: " & Eval("Grade") )%>
</HeaderTemplate>
</asp:DetailsView>
<br />
<asp:Label
ID="LabelCheckBoxMonday"
runat="server"
Text="False">
</asp:Label>
<asp:Label
ID="LabelCheckBoxTuesday"
runat="server"
Visible="false"
Text="False">
</asp:Label>
<asp:Label
ID="LabelCheckBoxWednesday"
runat="server"
Visible="false"
Text="False">
</asp:Label>
<asp:Label
ID="LabelCheckBoxThursday"
runat="server"
Visible="false"
Text="False">
</asp:Label>
<asp:Label
ID="LabelCheckBoxFriday"
runat="server"
Visible="false"
Text="False">
</asp:Label>
<asp:Label
ID="LabelCheckBoxSaturday"
runat="server"
Visible="false"
Text="False">
</asp:Label>
<asp:Label
ID="LabelCheckBoxSunday"
runat="server"
Visible="false"
Text="False">
</asp:Label>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Net.Mail
Public Class TeacherSchedules
Inherits System.Web.UI.Page
Public Shared blnDayOfWeekMonday As Boolean
Dim ObjMailMessage As New MailMessage()
' Database objects.
'------------------
Dim theTableAdapter As New DataSetSchedulesTableAdapters.DataTableTableAdapterSchedules
' This sub routine is needed so .RenderControl will work.
'--------------------------------------------------------
Public Overrides Sub VerifyRenderingInServerForm(control As Control)
Return
End Sub
Private Sub TeacherSchedules_Init(sender As Object, e As EventArgs) Handles Me.Init
' Load the data from the database into the GridView.
'---------------------------------------------------
GridViewSummary.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
GridViewSummary.DataBind()
End Sub
Protected Sub ButtonAddNewTeacher_Click(sender As Object, e As EventArgs) Handles ButtonAddNewScheduleItem.Click
' Place the DetailsView into Insert mode.
'----------------------------------------
DetailsView.ChangeMode(DetailsViewMode.Insert)
End Sub
Function FormatAsMixedCase(StrValueToConvert As String) As String
' Format as mixed case.
'----------------------
Return StrConv(StrValueToConvert, VbStrConv.ProperCase)
End Function
Function FormatAsUpperCase(StrValueToConvert As String) As String
' Format as mixed case.
'----------------------
Return StrConv(StrValueToConvert, VbStrConv.Uppercase)
End Function
Function IsValidPhoneNumber(ByVal pStringToFormat As String) As String
If pStringToFormat <> "" Then
' Remove all the grouping characters for
' now. They will be back in later.
'---------------------------------------
pStringToFormat = Replace(pStringToFormat, "(", "")
pStringToFormat = Replace(pStringToFormat, ")", "")
pStringToFormat = Replace(pStringToFormat, "-", "")
pStringToFormat = Replace(pStringToFormat, " ", "")
pStringToFormat = Replace(pStringToFormat, "X", "x")
' Format according to length.
'----------------------------
Try
Select Case pStringToFormat.Length
Case 7
pStringToFormat = CLng(pStringToFormat).ToString("###-####")
Case 10
pStringToFormat = CLng(pStringToFormat).ToString("(###) ###-####")
Case Else
pStringToFormat = "Fix Phone Number"
End Select
Catch ex As Exception
pStringToFormat = "Fix Phone Number"
End Try
End If
Return pStringToFormat
End Function
Protected Sub DetailsViewDetails_ItemCommand(sender As Object, e As System.Web.UI.WebControls.DetailsViewCommandEventArgs)
Select Case e.CommandName
Case "Add"
Case "Edit"
ButtonAddNewScheduleItem.Enabled = False
Case "Delete"
Case "Update"
ButtonAddNewScheduleItem.Enabled = True
Case "Insert"
End Select
End Sub
Private Sub DetailsView_ItemDeleted(sender As Object, e As DetailsViewDeletedEventArgs) Handles DetailsView.ItemDeleted
' Refresh the data so current values are displayed.
'--------------------------------------------------
GridViewSummary.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
GridViewSummary.DataBind()
End Sub
Private Sub DetailsView_ItemInserted(sender As Object, e As DetailsViewInsertedEventArgs) Handles DetailsView.ItemInserted
' Refresh the data so current values are displayed.
'--------------------------------------------------
GridViewSummary.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
GridViewSummary.DataBind()
End Sub
Private Sub DetailsView_ItemUpdated(sender As Object, e As DetailsViewUpdatedEventArgs) Handles DetailsView.ItemUpdated
' Refresh the data so current values are displayed.
'--------------------------------------------------
GridViewSummary.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
GridViewSummary.DataBind()
End Sub
Protected Sub ImageButtonEmailThisList_Click(sender As Object, e As ImageClickEventArgs)
Dim strTableTeacherSchedules As String =
"<h1>Teacher Schedule</h1>" & _
""
Dim strClassName As String = ""
Dim st As New DataSetSchedulesTableAdapters.DataTableTableAdapterSchedules
Dim dt As DataTable = st.GetDataByAll(TextBoxSearch.Text)
TableTeacherSchedules.Visible = True
Using reader As DataTableReader = dt.CreateDataReader()
While reader.Read()
Dim objStartTimeTableCell As New TableCell
Dim objEndTimeTableCell As New TableCell
Dim objMondayTableCell As New TableCell
Dim objTuesdayTableCell As New TableCell
Dim objWednesdayTableCell As New TableCell
Dim objThursdayTableCell As New TableCell
Dim objFridayTableCell As New TableCell
Dim objSaturdayTableCell As New TableCell
Dim objSundayTableCell As New TableCell
Dim objClassNameTableCell As New TableCell
Dim objGradeTableCell As New TableCell
Dim objTeacherNameTableCell As New TableCell
objStartTimeTableCell.Text = DateTime.Parse(reader.Item("StartTime").ToString()).ToString("hh:mm tt")
objEndTimeTableCell.Text = DateTime.Parse(reader.Item("EndTime").ToString()).ToString("hh:mm tt")
objMondayTableCell.Text = reader.Item("DayOfWeekMonday")
objTuesdayTableCell.Text = reader.Item("DayOfWeekTuesday")
objWednesdayTableCell.Text = reader.Item("DayOfWeekWednesday")
objThursdayTableCell.Text = reader.Item("DayOfWeekThursday")
objFridayTableCell.Text = reader.Item("DayOfWeekFriday")
objSaturdayTableCell.Text = reader.Item("DayOfWeekSaturday")
objSundayTableCell.Text = reader.Item("DayOfWeekSunday")
If objMondayTableCell.Text = True Then
objMondayTableCell.Text = "Yes"
Else
objMondayTableCell.Text = "No"
End If
If objTuesdayTableCell.Text = True Then
objTuesdayTableCell.Text = "Yes"
Else
objTuesdayTableCell.Text = "No"
End If
If objWednesdayTableCell.Text = True Then
objWednesdayTableCell.Text = "Yes"
Else
objWednesdayTableCell.Text = "No"
End If
If objThursdayTableCell.Text = True Then
objThursdayTableCell.Text = "Yes"
Else
objThursdayTableCell.Text = "No"
End If
If objFridayTableCell.Text = True Then
objFridayTableCell.Text = "Yes"
Else
objFridayTableCell.Text = "No"
End If
If objSaturdayTableCell.Text = True Then
objSaturdayTableCell.Text = "Yes"
Else
objSaturdayTableCell.Text = "No"
End If
If objSundayTableCell.Text = True Then
objSundayTableCell.Text = "Yes"
Else
objSundayTableCell.Text = "No"
End If
objClassNameTableCell.Text = reader.Item("ClassName")
objGradeTableCell.Text = reader.Item("Grade")
objTeacherNameTableCell.Text = reader.Item("TeacherName")
Dim objTableRow As New TableRow
objTableRow.Controls.Add(objStartTimeTableCell)
objTableRow.Controls.Add(objEndTimeTableCell)
objTableRow.Controls.Add(objMondayTableCell)
objTableRow.Controls.Add(objTuesdayTableCell)
objTableRow.Controls.Add(objWednesdayTableCell)
objTableRow.Controls.Add(objThursdayTableCell)
objTableRow.Controls.Add(objFridayTableCell)
objTableRow.Controls.Add(objSaturdayTableCell)
objTableRow.Controls.Add(objSundayTableCell)
objTableRow.Controls.Add(objClassNameTableCell)
objTableRow.Controls.Add(objGradeTableCell)
objTableRow.Controls.Add(objTeacherNameTableCell)
TableTeacherSchedules.Controls.Add(objTableRow)
End While
End Using
'GridViewSummary.Visible = False
' Get the rendered HTML.
'-----------------------
Dim SB As New StringBuilder()
Dim SW As New StringWriter(SB)
Dim htmlTW As New HtmlTextWriter(SW)
LabelEmailMessage.Text = Nothing
' Remove the select button for a short while.
'--------------------------------------------
With GridViewSummary
.AllowPaging = False
.Columns(12).Visible = False
.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
.DataBind()
End With
' Convert the GridView into HTML.
'--------------------------------
' GridViewSummary.RenderControl(htmlTW)
TableTeacherSchedules.RenderControl(htmlTW)
' Get the HTML into a string.
' This will be used in the body of the email report.
'---------------------------------------------------
Dim dataGridHTML As String = SB.ToString()
Dim SmtpServer As New SmtpClient()
ObjMailMessage = New MailMessage()
Try
ObjMailMessage.To.Add(New MailAddress(TextBoxEmailRecipient.Text))
ObjMailMessage.Subject = "Knowledge Academy Teacher Schedules"
'ObjMailMessage.Body = dataGridHTML
ObjMailMessage.Body = strTableTeacherSchedules & "</br>" & dataGridHTML
ObjMailMessage.IsBodyHtml = True
ObjMailMessage.DeliveryNotificationOptions = DeliveryNotificationOptions.OnFailure
SmtpServer.Send(ObjMailMessage)
LabelEmailMessage.Text = "<i>Email sent to " & TextBoxEmailRecipient.Text & "!</i>"
Catch ex As Exception
LabelEmailMessage.Text = "<i>OOOOOOOOOOOOPS !!! Please check that you have an internet connection and the email address is correct.</i>"
Finally
' Refresh the GridView with select button back in place.
'-------------------------------------------------------
With GridViewSummary
.AllowPaging = True
.Columns(12).Visible = True
.DataBind()
End With
'TableTeacherSchedules.Visible = False
TableTeacherSchedules.Rows.Clear()
End Try
End Sub
Function getColumnIDByHeaderName(ByVal columnName As String) As Integer
For Each column As DataControlField In GridViewSummary.Columns
If column.HeaderText = columnName Then
Dim columnID As Integer = GridViewSummary.Columns.IndexOf(column)
Return columnID
End If
Next
End Function
Protected Sub GridViewSummary_PageIndexChanging(sender As Object, e As GridViewPageEventArgs) Handles GridViewSummary.PageIndexChanging
GridViewSummary.PageIndex = e.NewPageIndex
GridViewSummary.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
GridViewSummary.DataBind()
End Sub
Protected Sub ButtonSearch_Click(sender As Object, e As EventArgs)
' Show the schedules the user wants.
'-----------------------------------
GridViewSummary.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
GridViewSummary.DataBind()
End Sub
Protected Sub ButtonSearchAll_Click(sender As Object, e As EventArgs)
' Show all of the schedules.
'---------------------------
TextBoxSearch.Text = ""
GridViewSummary.DataSource = theTableAdapter.GetDataByAll(TextBoxSearch.Text)
GridViewSummary.DataBind()
End Sub
Public Function getChecked(objCurrentCheckedValue As Object) As String
If Convert.ToBoolean(objCurrentCheckedValue) = True Then
Return "../../Images/checked.png"
Else
Return "../../Images/unchecked.png"
End If
End Function
Protected Sub ImageButtonEditDayOfWeekMonday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonEditDayOfWeekMonday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxMonday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxMonday.Text = True
End If
End Sub
Protected Sub ImageButtonEditDayOfWeekTuesday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonEditDayOfWeekTuesday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxTuesday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxTuesday.Text = True
End If
End Sub
Protected Sub ImageButtonEditDayOfWeekWednesday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonEditDayOfWeekWednesday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxWednesday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxWednesday.Text = True
End If
End Sub
Protected Sub ImageButtonEditDayOfWeekThursday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonEditDayOfWeekThursday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxThursday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxThursday.Text = True
End If
End Sub
Protected Sub ImageButtonEditDayOfWeekFriday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonEditDayOfWeekFriday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxFriday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxFriday.Text = True
End If
End Sub
Protected Sub ImageButtonEditDayOfWeekSaturday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonEditDayOfWeekSaturday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxSaturday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxSaturday.Text = True
End If
End Sub
Protected Sub ImageButtonEditDayOfWeekSunday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonEditDayOfWeekSunday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxSunday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxSunday.Text = True
End If
End Sub
Protected Sub ImageButtonInsertDayOfWeekMonday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonInsertDayOfWeekMonday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
' LabelCheckBoxMonday.Text = False
SqlDataSourceDetails.InsertParameters("DayOfWeekMonday").DefaultValue = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
' LabelCheckBoxMonday.Text = True
' blnDayOfWeekMonday = True
SqlDataSourceDetails.InsertParameters("DayOfWeekMonday").DefaultValue = True
End If
End Sub
Protected Sub ImageButtonInsertDayOfWeekTuesday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonInsertDayOfWeekTuesday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxTuesday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxTuesday.Text = True
End If
End Sub
Protected Sub ImageButtonInsertDayOfWeekWednesday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonInsertDayOfWeekWednesday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxWednesday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxWednesday.Text = True
End If
End Sub
Protected Sub ImageButtonInsertDayOfWeekThursday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonInsertDayOfWeekThursday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxThursday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxThursday.Text = True
End If
End Sub
Protected Sub ImageButtonInsertDayOfWeekFriday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonInsertDayOfWeekFriday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxFriday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxFriday.Text = True
End If
End Sub
Protected Sub ImageButtonInsertDayOfWeekSaturday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonInsertDayOfWeekSaturday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxSaturday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxSaturday.Text = True
End If
End Sub
Protected Sub ImageButtonInsertDayOfWeekSunday_Click(sender As Object, e As ImageClickEventArgs)
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonInsertDayOfWeekSunday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" = True Then
imgTheImageButton.ImageUrl = "../../Images/unchecked.png"
LabelCheckBoxSunday.Text = False
Else
imgTheImageButton.ImageUrl = "../../Images/checked.png"
LabelCheckBoxSunday.Text = True
End If
End Sub
Protected Sub ButtonEdit_Click(sender As Object, e As EventArgs)
' Update the labels to get an initial value because this value will be used to
' determine if or not a tick image is shown when the user clicks the image buttons.
'----------------------------------------------------------------------------------
Dim imgTheImageButton As New ImageButton
imgTheImageButton = DetailsView.FindControl("ImageButtonItemDayOfWeekMonday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" Then
LabelCheckBoxMonday.Text = True
Else
LabelCheckBoxMonday.Text = False
End If
imgTheImageButton = DetailsView.FindControl("ImageButtonItemDayOfWeekTuesday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" Then
LabelCheckBoxTuesday.Text = True
Else
LabelCheckBoxTuesday.Text = False
End If
imgTheImageButton = DetailsView.FindControl("ImageButtonItemDayOfWeekWednesday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" Then
LabelCheckBoxWednesday.Text = True
Else
LabelCheckBoxWednesday.Text = False
End If
imgTheImageButton = DetailsView.FindControl("ImageButtonItemDayOfWeekThursday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" Then
LabelCheckBoxThursday.Text = True
Else
LabelCheckBoxThursday.Text = False
End If
imgTheImageButton = DetailsView.FindControl("ImageButtonItemDayOfWeekFriday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" Then
LabelCheckBoxFriday.Text = True
Else
LabelCheckBoxFriday.Text = False
End If
imgTheImageButton = DetailsView.FindControl("ImageButtonItemDayOfWeekSaturday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" Then
LabelCheckBoxSaturday.Text = True
Else
LabelCheckBoxSaturday.Text = False
End If
imgTheImageButton = DetailsView.FindControl("ImageButtonItemDayOfWeekSunday")
If imgTheImageButton.ImageUrl = "../../Images/checked.png" Then
LabelCheckBoxSunday.Text = True
Else
LabelCheckBoxSunday.Text = False
End If
End Sub
Protected Sub ButtonInsert_Click(sender As Object, e As EventArgs)
LabelCheckBoxMonday.Text = False
LabelCheckBoxTuesday.Text = False
LabelCheckBoxWednesday.Text = False
LabelCheckBoxThursday.Text = False
LabelCheckBoxFriday.Text = False
LabelCheckBoxSaturday.Text = False
LabelCheckBoxSunday.Text = False
End Sub
End Class