<%@ Page Language="VB" MasterPageFile="~/Admin/_MasterPages/Default.master" AutoEventWireup="false"<
br
> ValidateRequest="false" MaintainScrollPositionOnPostback="true" CodeFile="Edit.aspx.vb"<
br
> Inherits="Admin_Setup_Edit" %><
br
><
br
><
asp:Content
ID
=
"Content1"
ContentPlaceHolderID
=
"SubNavigationContentPlaceHolder"
<br> runat="Server"><
br
></
asp:Content
><
br
><
asp:Content
ID
=
"Content2"
ContentPlaceHolderID
=
"MainContentPlaceHolder"
runat
=
"Server"
><
br
> <
telerik:RadAjaxManager
ID
=
"RadAjaxManager"
runat
=
"server"
> <
br
> </
telerik:RadAjaxManager
><
br
> <
telerik:RadCodeBlock
ID
=
"CodeBlock1"
runat
=
"server"
> <
br
> <
script
type
=
"text/javascript"
><
br
><
br
> var AddEvent_ShowLoader = function () {<
br
> JS.showLoader();<
br
> }<
br
><
br
> var AddEvent_HideLoader = function () {<
br
> JS.hideLoader();<
br
> }<
br
><
br
> </
script
><
br
> </
telerik:RadCodeBlock
><
br
> <
telerik:RadAjaxPanel
ID
=
"mainAjaxPanel"
runat
=
"server"
ClientEvents-OnRequestStart
=
"AddEvent_ShowLoader"
<br> ClientEvents-OnResponseEnd="AddEvent_HideLoader" LoadingPanelID="MasterRadAjaxLoadingPanel"><
br
> <
table
cellpadding
=
"0"
cellspacing
=
"0"
width
=
"100%"
><
br
> <
tr
><
br
> [[... a lot of other rows here... ]]<
br
> </
tr
> <
br
> <
tr
><
br
> <
td
class
=
"BorderRight"
><
br
> <
asp:DropDownList
ID
=
"ddlStatus"
runat
=
"server"
><
br
> </
asp:DropDownList
><
br
> </
td
> <
br
> <
td
><
br
> <
asp:DropDownList
ID
=
"ddlType"
runat
=
"server"
><
br
> </
asp:DropDownList
><
br
> </
td
><
br
> </
tr
><
br
> <
tr
><
br
> [[... a lot of other rows here... ]]<
br
> </
tr
> <
br
> </
table
><
br
> </
telerik:RadAjaxPanel
><
br
></
asp:Content
>
<table style="width: 100%"> |
<tr> |
<td> |
<asp:DropDownList ID="SentBoxSelect" runat="server" CssClass="Normal" AutoPostBack="true" OnSelectedIndexChanged="SentBoxSelect_SelectedIndexChanged"> |
<asp:ListItem Text="All" Value="All" /> |
<asp:ListItem Text="None" Value="None" /> |
</asp:DropDownList> |
<asp:Button ID="btnReplySent" runat="server" CssClass="Normal" Text="Reply" /> |
</td> |
<td style="text-align: right"><asp:Button ID="SentTools" runat="server" CssClass="Normal" Text="Tools & Settings" OnClick="ToolsAndSettingsButton_Click" /></td> |
</tr> |
</table> |
<telerik:RadGrid AutoGenerateColumns="False" ID="RadGridFHData"
AllowFilteringByColumn="True" AllowPaging="True"
AllowSorting="True" runat="server" ShowGroupPanel="true"
onitemcommand="RadGridFHData_ItemCommand">
<PagerStyle Mode="NextPrevAndNumeric" />
<GroupingSettings CaseSensitive="false" />
<MasterTableView TableLayout="Fixed" DataKeyNames="FHID" ClientDataKeyNames="FHID">
<Columns>
<telerik:GridBoundColumn HeaderText="FHID" DataField="FHID" UniqueName="FHID"
SortExpression="FHID" HeaderStyle-Width="100px" FilterControlWidth="100px"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" ShowFilterIcon="false" />
<telerik:GridBoundColumn HeaderText="病人ID" DataField="PID" UniqueName="PID"
SortExpression="PID" HeaderStyle-Width="100px" FilterControlWidth="100px"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" ShowFilterIcon="false" />
<telerik:GridBoundColumn HeaderText="病人姓名" DataField="PName" UniqueName="PName"
SortExpression="PName" HeaderStyle-Width="100px" FilterControlWidth="100px"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" ShowFilterIcon="false" />
<telerik:GridNumericColumn HeaderText="测量值" DataField="FHValue" UniqueName="FHValue"
SortExpression="FHValue" HeaderStyle-Width="100px" FilterControlWidth="140px"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" ShowFilterIcon="false" />
<telerik:GridDateTimeColumn HeaderText="测量日期" DataField="ReceiveDate" UniqueName="ReceiveDate"
SortExpression="ReceiveDate" HeaderStyle-Width="100px" FilterControlWidth="140px"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" ShowFilterIcon="false" />
<telerik:GridBoundColumn HeaderText="查看状态" DataField="isNew" UniqueName="isNew"
SortExpression="isNew" HeaderStyle-Width="100px" FilterControlWidth="140px"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" ShowFilterIcon="false" />
<telerik:GridBoundColumn HeaderText="医生留言" DataField="Remark" UniqueName="Remark"
SortExpression="Remark" HeaderStyle-Width="100px" FilterControlWidth="140px"
AutoPostBackOnFilter="true" CurrentFilterFunction="Contains" ShowFilterIcon="false" />
</Columns>
<NestedViewSettings>
<ParentTableRelation>
<telerik:GridRelationFields DetailKeyField="FHID" MasterKeyField="FHID" />
</ParentTableRelation>
</NestedViewSettings>
<NestedViewTemplate >
<table>
<tr>
<td align="left" colspan="3">
<telerik:RadChart ID="RadChartFH" runat="Server"
Width="495px" AutoLayout="true" Skin="Mac">
<ClientSettings EnableZoom="false" ScrollMode="XOnly" XScale="4" />
<Series>
<telerik:ChartSeries Name="ChartFH" DataYColumn="FHValue" Type="Line">
<Appearance FillStyle-MainColor="223, 87, 60">
</Appearance>
</telerik:ChartSeries>
</Series>
<Legend Visible="false"></Legend>
<ChartTitle TextBlock-Text="Scrolling only (initial XScale applied)">
</ChartTitle>
</telerik:RadChart>
</td>
</tr>
</table>
</NestedViewTemplate>
</MasterTableView>
<ClientSettings AllowDragToGroup="true" >
<Selecting AllowRowSelect="true" />
<Scrolling AllowScroll="true" UseStaticHeaders="true" />
</ClientSettings>
</telerik:RadGrid>
<asp:SqlDataSource ID="SqlDataSource1" CancelSelectOnNullParameter="false" runat="server" ConnectionString="<%$ appSettings:XCareSqlConn%>"
ProviderName="System.Data.SqlClient" SelectCommandType="StoredProcedure" SelectCommand="ChartFHData">
<SelectParameters>
<asp:Parameter Name="FHID" Type="String"/>
</SelectParameters>
</asp:SqlDataSource>
A quick input towards the solution will be very helpful.
Regards,
Abhijit
Protected Sub RadCalendar1_DayRender(ByVal sender As Object, ByVal e As Telerik.Web.UI.Calendar.DayRenderEventArgs) Handles radCal1.DayRender
Dim label As New Label()
Dim div As HtmlGenericControl = New HtmlGenericControl("div")
div.Attributes.Add("class", "CalG")
label.Text = e.Day.[Date].Day.ToString() 'Gregorian Day
div.Controls.Add(label)
Dim div1 As HtmlGenericControl = New HtmlGenericControl("div")
div1.Attributes.Add("class", "CalH")
Dim label1 As Label = New Label()
label1.ForeColor = Drawing.Color.Brown
Dim d As DateTime = e.Day.Date
Dim objDateConv As New DatesConversion
label1.Font.Size = FontSize.Small
label1.Height = "5"
label1.Text = objDateConv.GregToHijri(d, "Day") & "/" & objDateConv.GregToHijri(d, "Month") 'hijri Day and month
div1.Controls.Add(label1)
If e.Day.Date.DayOfWeek = 4 Then 'Disable week day
Dim calendarSkin = radCal1.Skin
If (calendarSkin = "") Then
calendarSkin = "Default"
End If
Dim otherMonthCssClass As String = String.Format("otherMonth_{0}", calendarSkin)
e.Cell.Text = ""
e.Cell.CssClass = otherMonthCssClass ' set new CssClass for the disabled calendar day cells (e.g. look like other month days here)
Dim calendarDay As RadCalendarDay = New RadCalendarDay
calendarDay.Date = e.Day.Date
calendarDay.IsSelectable = False
calendarDay.ItemStyle.CssClass = otherMonthCssClass
radCal1.SpecialDays.Add(calendarDay)
e.Cell.BackColor = Drawing.Color.LightYellow
End If
div.Attributes.Add("class", "CalG")
div1.Attributes.Add("class", "CalH")
e.Cell.Controls.Add(div)
e.Cell.Controls.Add(div1)
End Sub