HPR4629: What did I do at work today? Part 2

This show has been flagged as Clean by the host.

This show is about developing features for a web application. The technology used is
along with HTML and CSS and the development environment is Windows 11 running under a virtual machine in Linux, with
as the database. Other tools used are
,
,
.

ResourceRowControl.ascx.vb

Public WriteOnly Property ResourceObject As Resource

Set(obj As Resource)

If obj IsNot Nothing Then

HiddenResourceID.Value = CStr(obj.ResourceID)

HiddenResourceTypeID.Value = CStr(obj.ResourceTypeID)

Resource.Text = obj.ResourceName

Type.Text = obj.ResourceTypeName

Available.Checked = obj.ResourceAvailable

End If

End Set

End Property



Private Sub Available_CheckedChanged(sender As Object, e As EventArgs) Handles Available.CheckedChanged

Dim objResource As New Resource

With objResource

.ResourceID = ResourceID

.ResourceName = Resource.Text

.ResourceTypeID = ResourceTypeID

.ResourceAvailable = Available.Checked

End With

objResource.Add()

End Sub

ResourceRowControl.ascx

<tr>

<td>

<asp:Label runat="server" ID="Resource"></asp:Label>

</td>

<td>

<asp:Label runat="server" ID="Type"></asp:Label>

</td>

<td>

<asp:Button runat="server" ID="Edit" CssClass="Pointer fa" BackColor="White" ForeColor="#741E43" BorderStyle="None" Text="&#xf044;" />

</td>

<td>

<asp:Button runat="server" ID="Delete" CssClass="Pointer fa" BackColor="White" ForeColor="#741E43" BorderStyle="None" Text="&#xf1f8;"

OnClientClick="return DeleteResourceRow(this.id)" />

</td>

<td>

<label class="toggle-checkbox">

<asp:CheckBox runat="server" ID="Available" AutoPostBack="true" />

<span class="slider"></span>

</label>

</td>

</tr>

.