or
Imports
System
Imports
System.Collections.Generic
Imports
System.Web
Imports
System.Web.UI
Imports
System.Web.UI.WebControls
Imports
Telerik.Web.UI
Imports
System.Data
Imports
System.Data.SqlClient
Partial
Public
Class
_2014
Inherits
System.Web.UI.Page
Protected
Sub
RadRating_Rate(sender
As
Object
, e
As
EventArgs)
Dim
rating
As
RadRating =
DirectCast
(sender, RadRating)
If
rating.ID =
"RadRating1"
Then
Label1.Text =
"Your Rating is: "
+
"<span style='color:Red'>"
+ RadRating1.Value.ToString +
"</span>"
AddRating(RadRating1.Value,
"Amanda"
, 20141)
End
If
If
rating.ID =
"RadRating2"
Then
End
If
If
rating.ID =
"RadRating3"
Then
End
If
If
rating.ID =
"RadRating4"
Then
End
If
End
Sub
Public
Sub
AddRating(
ByVal
rateVal
As
Object
,
ByVal
picName
As
String
,
ByVal
picId
As
Integer
)
Dim
cnstr2 =
New
SqlConnection(ConfigurationManager.ConnectionStrings(
"ConnectionString"
).ConnectionString())
Dim
cmd2 =
New
System.Data.SqlClient.SqlCommand(
"INSERT INTO Ratings(Rating,CreateDate,name,PicID) VALUES (@rating, @date , @name, @picID)"
, cnstr2)
cmd2.CommandType = System.Data.CommandType.Text
cmd2.Parameters.AddWithValue(
"@rating"
, rateVal)
cmd2.Parameters.AddWithValue(
"@date"
,
Date
.Now)
cmd2.Parameters.AddWithValue(
"@name"
, picName)
cmd2.Parameters.AddWithValue(
"@picID"
, picId)
'cmd2.Parameters.AddWithValue("@ip", ip)
cnstr2.Open()
cmd2.ExecuteNonQuery()
cnstr2.Close()
End
Sub
Public
Function
GetCount(
ByVal
picID
As
Integer
)
As
Decimal
Dim
theCount
As
Decimal
= 0.0
'Dim currentAverageRating As Object = Vehicles.Rows(dataItem.ItemIndex + RadGrid1.CurrentPageIndex * RadGrid1.PageSize)(2)
Dim
cnstr2 =
New
SqlConnection(ConfigurationManager.ConnectionStrings(
"ConnectionString"
).ConnectionString())
Dim
rdr
As
SqlDataReader
Dim
cmd2 =
New
System.Data.SqlClient.SqlCommand(
"SELECT AVG(Rating) AS Total FROM Ratings WHERE PicID = @picID "
, cnstr2)
cmd2.CommandType = System.Data.CommandType.Text
cmd2.Parameters.AddWithValue(
"@picID"
, picID)
cnstr2.Open()
rdr = cmd2.ExecuteReader
If
rdr.HasRows
Then
rdr.Read()
If
Not
IsDBNull(rdr.GetValue(rdr.GetOrdinal(
"Total"
)))
Then
theCount = rdr.GetValue(rdr.GetOrdinal(
"Total"
))
End
If
End
If
rdr.Close()
cnstr2.Close()
Return
theCount
End
Function
Protected
Sub
Page_Load(sender
As
Object
, e
As
EventArgs)
Handles
Me
.Load
RadRating1.DbValue = GetCount(20141)
'Label1.Text = "Your Rating is: " + "<span style='color:Red'>" + RadRating1.Value.ToString + "</span>"
Label2.Text =
"Average Rating is: "
+
"<span style='color:Red'>"
+ Convert.ToString(Format(GetCount(20141),
"#.#"
)) +
"</span>"
End
Sub
End
Class
<
telerik:RadRating
ID
=
"RadRating1"
Precision
=
"Item"
Value
=
"0"
ItemCount
=
"5"
runat
=
"server"
AutoPostBack
=
"true"
OnRate
=
"RadRating_Rate"
>
</
telerik:RadRating
>
<
asp:Label
ID
=
"Label1"
runat
=
"server"
ForeColor
=
"Green"
></
asp:Label
>
<
asp:Label
ID
=
"Label2"
runat
=
"server"
ForeColor
=
"Green"
></
asp:Label
>
<
telerik:GridTemplateColumn
HeaderText
=
"Expires On"
DataType
=
"System.DateTime"
Visible
=
"true"
ShowFilterIcon
=
"true"
ShowSortIcon
=
"true"
UniqueName
=
"dpExpDate"
DataField
=
"EXPIRATION_DATE"
AllowFiltering
=
"true"
SortExpression
=
"EXPIRATION_DATE"
AllowSorting
=
"true"
FilterListOptions
=
"VaryByDataType"
>
<
HeaderStyle
Width
=
"240px"
/>
<
ItemStyle
Width
=
"240px"
/>
<
ItemTemplate
>
<
asp:Label
runat
=
"server"
ID
=
"lblExpDate"
/>
</
ItemTemplate
>
<
EditItemTemplate
>
<
telerik:RadDateTimePicker
runat
=
"server"
ID
=
"dpExpDate"
Skin
=
"Office2010Blue"
Width
=
"220px"
>
<
DateInput
Display
=
"true"
DisplayDateFormat
=
"G"
DateFormat
=
"G"
runat
=
"server"
Font-Size
=
"13px"
Font-Name
=
"Arial"
/>
<
TimePopupButton
Visible
=
"false"
/>
</
telerik:RadDateTimePicker
><
asp:Label
runat
=
"server"
ID
=
"lblInsertIn"
Text
=
"In"
/>
<
telerik:RadDropDownList
runat
=
"server"
ID
=
"ddlInsertHours"
Font-Names
=
"Arial"
Font-Size
=
"13px"
Width
=
"80px"
Skin
=
"Office2010Blue"
/>
<
asp:Label
runat
=
"server"
ID
=
"lblInsertHours"
Text
=
"Hours"
/>
</
EditItemTemplate
>
</
telerik:GridTemplateColumn
>
if
(e.Item
is
GridFilteringItem)
{
GridFilteringItem item = e.Item
as
GridFilteringItem;
if
(item[
"dpExpDate"
].Controls[0]
is
TextBox)
{
DateTime value = DateTime.MinValue;
DateTime.TryParse(gridBatches.MasterTableView.GetColumn(
"dpExpDate"
).CurrentFilterValue,
out
value);
RadDateTimePicker pick =
new
RadDateTimePicker();
pick.Width = Unit.Pixel(200);
pick.DateInput.DateFormat =
"G"
;
pick.DateInput.DisplayDateFormat =
"G"
;
pick.TimePopupButton.Visible =
false
;
pick.DateInput.Width = Unit.Pixel(180);
pick.Skin =
"Office2010Blue"
;
pick.DateInput.Font.Size = FontUnit.Parse(
"13px"
);
pick.DateInput.Font.Name =
"Arial"
;
if
(!value.Equals(DateTime.MinValue)) pick.DbSelectedDate = value;
item[
"dpExpDate"
].Controls.RemoveAt(0);
item[
"dpExpDate"
].Controls.AddAt(0, pick);
}
}
<telerik:RadMultiPage ID="RadMultiPage1" SelectedIndex="0" runat="server" >
<telerik:RadPageView ID="RadTabDetails" runat="server">
// some code here
// I want a footer here:
<footer> ... </footer>
</telerik:RadPageView>
...
="server">
<telerik:RadMultiPage ID="RadMultiPage1" SelectedIndex="0" runat="server" BorderStyle="Solid" BorderWidth="1" Width="800px" Height="600px">
<telerik:RadPageView ID="RadTabDetails" runat="server">
<%-- UF --%>
<
tr
>
<
td
>
<
label
>UF</
label
>
<
br
/>
<
telerik:RadComboBox
ID
=
"rcbUF"
runat
=
"server"
CheckBoxes
=
"True"
EnableCheckAllItemsCheckBox
=
"True"
CausesValidation
=
"false"
Culture
=
"pt-BR"
CssClass
=
"lt-width-10"
MaxHeight
=
"250"
OnItemChecked
=
"rcbUF_ItemChecked"
AutoPostBack
=
"true"
>
</
telerik:RadComboBox
>
</
td
>
</
tr
>
<%-- Rodovia --%>
<
tr
>
<
td
>
<
label
>Rodovia</
label
>
<
br
/>
<
asp:UpdatePanel
runat
=
"server"
ID
=
"uppRodovia"
>
<
Triggers
>
<
asp:AsyncPostBackTrigger
ControlID
=
"rcbUF"
/>
</
Triggers
>
<
ContentTemplate
>
<
telerik:RadComboBox
ID
=
"rcbRodovia"
runat
=
"server"
CheckBoxes
=
"True"
EnableCheckAllItemsCheckBox
=
"True"
Culture
=
"pt-BR"
MaxHeight
=
"250"
CssClass
=
"lt-width-10"
/>
</
ContentTemplate
>
</
asp:UpdatePanel
>
</
td
>
</
tr
>
protected
void
rcbUF_ItemChecked(
object
sender, RadComboBoxItemEventArgs e)
{
if
(rcbUF.HasSelectedValue())
{
var _listaUF = rcbUF.Items.Where(x => x.Checked).Select(x => x.Value).ToList();
var _rodovias = Repositorio<Rodovia>.GetAll.Where(x => x.ListaUF.Any(y=>_listaUF.Contains(y.UF.Id))).Select(x => x.Id).ToArray();
if
(_listaUF.Count > 0)
{
rcbRodovia.Carregar<Rodovia>(x => x.Numero, x => x.Id,
Constantes.TextoVazioEspaco,
true
,
x => _rodovias.Contains(x.Id),
x => x.Numero);
}
else
{
rcbRodovia.Carregar<Rodovia>(x => x.Numero, x => x.Id,
Constantes.TextoVazioEspaco,
true
,
x => x.Numero);
}
rcbRodovia.Items.Distinct();
rcbRodovia.Enabled =
true
;
}
}
function
OnClientSelectedIndexChanging(sender, args)
{
args.set_cancel(
true
);
}