initial commit
This commit is contained in:
commit
252dac3143
1516 changed files with 694271 additions and 0 deletions
6
Header and Footer/EmailFooter.ascx
Normal file
6
Header and Footer/EmailFooter.ascx
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<%@ Register Tagprefix="Selectors" Namespace="Persons" %>
|
||||
|
||||
<%@ Control Language="vb" AutoEventWireup="false" CodeFile="EmailFooter.ascx.vb" Inherits="Persons.UI.EmailFooter" %>
|
||||
<%@ Register Tagprefix="BaseClasses" Namespace="BaseClasses.Web.UI.WebControls" Assembly="BaseClasses" %><table cellpadding="0" cellspacing="0" border="0"><tr><td style="color: #555555; font-family: Verdana, Arial, Georgia, sans-serif; font-size: 12px; padding-top: 10px;"><asp:Literal runat="server" id="_Copyright" Text="Copyright &copy; 2012 Your Company Name. All rights reserved."> </asp:Literal>
|
||||
</td></tr></table>
|
||||
419
Header and Footer/EmailFooter.ascx.vb
Normal file
419
Header and Footer/EmailFooter.ascx.vb
Normal file
|
|
@ -0,0 +1,419 @@
|
|||
|
||||
#Region "Imports statements"
|
||||
Option Strict On
|
||||
Imports System
|
||||
Imports System.Web.UI.WebControls
|
||||
Imports System.ComponentModel
|
||||
Imports BaseClasses
|
||||
Imports BaseClasses.Data
|
||||
Imports BaseClasses.Utils
|
||||
Imports BaseClasses.Web.UI.WebControls
|
||||
|
||||
Imports Persons.Business
|
||||
Imports Persons.Data
|
||||
|
||||
#End Region
|
||||
|
||||
Namespace Persons.UI
|
||||
|
||||
' Code-behind class for the EmailFooter user control.
|
||||
Partial Public Class EmailFooter
|
||||
Inherits BaseApplicationUserControl
|
||||
Implements IEmailFooter
|
||||
#Region "Section 1: Place your customizations here."
|
||||
|
||||
Public Sub LoadData()
|
||||
' LoadData reads database data and assigns it to UI controls.
|
||||
' Customize by adding code before or after the call to LoadData_Base()
|
||||
' or replace the call to LoadData_Base().
|
||||
LoadData_Base()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate as BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object), ByVal includeDS as Boolean) As String
|
||||
Return EvaluateFormula_Base(formula, dataSourceForEvaluate, format, variables, includeDS)
|
||||
End Function
|
||||
|
||||
Public Sub Page_InitializeEventHandlers(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init
|
||||
' Handles MyBase.Init.
|
||||
' Register the Event handler for any Events.
|
||||
Me.Page_InitializeEventHandlers_Base(sender,e)
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub SaveControlsToSession()
|
||||
SaveControlsToSession_Base()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Sub ClearControlsFromSession()
|
||||
ClearControlsFromSession_Base()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub LoadViewState(ByVal savedState As Object)
|
||||
LoadViewState_Base(savedState)
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Function SaveViewState() As Object
|
||||
Return SaveViewState_Base()
|
||||
End Function
|
||||
|
||||
Public Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
|
||||
Me.Page_PreRender_Base(sender,e)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Overrides Sub SetChartControl(ByVal chartCtrlName As String)
|
||||
Me.SetChartControl_Base(chartCtrlName)
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Ajax Functions"
|
||||
|
||||
<Services.WebMethod()> _
|
||||
Public Shared Function GetRecordFieldValue(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal fieldName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
' GetRecordFieldValue gets the pop up window content from the column specified by
|
||||
' columnName in the record specified by the recordID in data base table specified by tableName.
|
||||
' Customize by adding code before or after the call to GetRecordFieldValue_Base()
|
||||
' or replace the call to GetRecordFieldValue_Base().
|
||||
Return GetRecordFieldValue_Base(tableName, recordID, columnName, fieldName, title, persist, popupWindowHeight, popupWindowWidth, popupWindowScrollBar)
|
||||
End Function
|
||||
|
||||
<Services.WebMethod()> _
|
||||
Public Shared Function GetImage(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
' GetImage gets the Image url for the image in the column "columnName" and
|
||||
' in the record specified by recordID in data base table specified by tableName.
|
||||
' Customize by adding code before or after the call to GetImage_Base()
|
||||
' or replace the call to GetImage_Base().
|
||||
Return GetImage_Base(tableName, recordID, columnName, title, persist, popupWindowHeight, popupWindowWidth, popupWindowScrollBar)
|
||||
End Function
|
||||
|
||||
Protected Overloads Overrides Sub BasePage_PreRender(ByVal sender As Object, ByVal e As EventArgs)
|
||||
MyBase.BasePage_PreRender(sender, e)
|
||||
Base_RegisterPostback()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
' Page Event Handlers - buttons, sort, links
|
||||
|
||||
|
||||
' Write out the Set methods
|
||||
|
||||
|
||||
' Write out the methods for DataSource
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Section 2: Do not modify this section."
|
||||
|
||||
Protected Sub Page_InitializeEventHandlers_Base(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
|
||||
' the following code for accordion is necessary or the Me.{ControlName} will return Nothing
|
||||
|
||||
' Register the Event handler for any Events.
|
||||
|
||||
|
||||
' Setup the pagination events.
|
||||
|
||||
Me.ClearControlsFromSession()
|
||||
End Sub
|
||||
|
||||
Private Sub Base_RegisterPostback()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' Handles MyBase.Load. Read database data and put into the UI controls.
|
||||
' If you need to, you can add additional Load handlers in Section 1.
|
||||
Protected Overridable Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
If (Not Me.IsPostBack) Then
|
||||
|
||||
End If
|
||||
|
||||
|
||||
' Load data only when displaying the page for the first time or if postback from child window
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' Read the data for all controls on the page.
|
||||
' To change the behavior, override the DataBind method for the individual
|
||||
' record or table UI controls.
|
||||
Me.LoadData()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function GetRecordFieldValue_Base(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal fieldName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
If Not IsNothing(recordID) Then
|
||||
recordID = System.Web.HttpUtility.UrlDecode(recordID)
|
||||
End If
|
||||
Dim content as String = BaseClasses.Utils.MiscUtils.GetFieldData(tableName, recordID, columnName)
|
||||
|
||||
content = NetUtils.EncodeStringForHtmlDisplay(content)
|
||||
|
||||
'returnValue is an array of string values.
|
||||
'returnValue(0) represents title of the pop up window
|
||||
'returnValue(1) represents content of the pop up window
|
||||
' retrunValue(2) represents whether pop up window should be made persistant
|
||||
' or it should closes as soon as mouse moved out.
|
||||
' returnValue(5) represents whether pop up window should contain scroll bar.
|
||||
' returnValue(3), (4) represents pop up window height and width respectivly
|
||||
' (0),(2),(3),(4) and (5) is initially set as pass through attribute.
|
||||
' They can be modified by going to Attribute tab of the properties window of the control in aspx page.
|
||||
Dim returnValue(6) As Object
|
||||
returnValue(0) = title
|
||||
returnValue(1) = content
|
||||
returnValue(2) = persist
|
||||
returnValue(3) = popupWindowWidth
|
||||
returnValue(4) = popupWindowHeight
|
||||
returnValue(5) = popupWindowScrollBar
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function GetImage_Base(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
Dim content As String = "<IMG alt =""" & title & """ src =" & """../Shared/ExportFieldValue.aspx?Table=" & tableName & "&Field=" & columnName & "&Record=" & recordID & """/>"
|
||||
'returnValue is an array of string values.
|
||||
'returnValue(0) represents title of the pop up window.
|
||||
'returnValue(1) represents content ie, image url.
|
||||
' retrunValue(2) represents whether pop up window should be made persistant
|
||||
' or it should closes as soon as mouse moved out.
|
||||
' returnValue(3), (4) represents pop up window height and width respectivly
|
||||
' returnValue(5) represents whether pop up window should contain scroll bar.
|
||||
' (0),(2),(3),(4) and (5) is initially set as pass through attribute.
|
||||
' They can be modified by going to Attribute tab of the properties window of the control in aspx page.
|
||||
Dim returnValue(6) As Object
|
||||
returnValue(0) = title
|
||||
returnValue(1) = content
|
||||
returnValue(2) = persist
|
||||
returnValue(3) = popupWindowWidth
|
||||
returnValue(4) = popupWindowHeight
|
||||
returnValue(5) = popupWindowScrollBar
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
Public Sub SetChartControl_Base(ByVal chartCtrlName As String)
|
||||
' Load data for each record and table UI control.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub SaveControlsToSession_Base()
|
||||
MyBase.SaveControlsToSession()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub ClearControlsFromSession_Base()
|
||||
MyBase.ClearControlsFromSession()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LoadViewState_Base(ByVal savedState As Object)
|
||||
MyBase.LoadViewState(savedState)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Function SaveViewState_Base() As Object
|
||||
|
||||
Return MyBase.SaveViewState()
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub Page_PreRender_Base(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
' Load data for each record and table UI control.
|
||||
|
||||
' Data bind for each chart UI control.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
' Load data from database into UI controls.
|
||||
' Modify LoadData in Section 1 above to customize. Or override DataBind() in
|
||||
' the individual table and record controls to customize.
|
||||
Public Sub LoadData_Base()
|
||||
Try
|
||||
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' Must start a transaction before performing database operations
|
||||
DbUtils.StartTransaction()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Me.DataBind()
|
||||
|
||||
' Load and bind data for each record and table UI control.
|
||||
|
||||
|
||||
' Load data for chart.
|
||||
|
||||
|
||||
' initialize aspx controls
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
' An error has occured so display an error message.
|
||||
Utils.RegisterJScriptAlert(Me, "Page_Load_Error_Message", ex.Message)
|
||||
Finally
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' End database transaction
|
||||
DbUtils.EndTransaction()
|
||||
End If
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public EvaluateFormulaDelegate As BaseClasses.Data.DataSource.EvaluateFormulaDelegate = New BaseClasses.Data.DataSource.EvaluateFormulaDelegate(AddressOf Me.EvaluateFormula)
|
||||
|
||||
Public Overridable Function EvaluateFormula_Base(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object), ByVal includeDS As Boolean) As String
|
||||
Dim e As FormulaEvaluator = New FormulaEvaluator()
|
||||
|
||||
' add variables for formula evaluation
|
||||
If variables IsNot Nothing Then
|
||||
Dim enumerator As System.Collections.Generic.IEnumerator(Of System.Collections.Generic.KeyValuePair(Of String, Object)) = variables.GetEnumerator()
|
||||
While enumerator.MoveNext()
|
||||
e.Variables.Add(enumerator.Current.Key, enumerator.Current.Value)
|
||||
End While
|
||||
End If
|
||||
|
||||
If includeDS
|
||||
|
||||
End If
|
||||
|
||||
|
||||
e.CallingControl = Me
|
||||
|
||||
e.DataSource = dataSourceForEvaluate
|
||||
|
||||
|
||||
Dim resultObj As Object = e.Evaluate(formula)
|
||||
If resultObj Is Nothing Then
|
||||
Return ""
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(format) AndAlso (String.IsNullOrEmpty(formula) OrElse formula.IndexOf("Format(") < 0) Then
|
||||
Return FormulaUtils.Format(resultObj, format)
|
||||
Else
|
||||
Return resultObj.ToString()
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object)) As String
|
||||
Return EvaluateFormula(formula, dataSourceForEvaluate, format, variables, True)
|
||||
End Function
|
||||
|
||||
|
||||
Private Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord) As String
|
||||
Return EvaluateFormula(formula, dataSourceForEvaluate, Nothing, Nothing, True)
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String, ByVal includeDS As Boolean) As String
|
||||
Return EvaluateFormula(formula, Nothing, Nothing, Nothing, includeDS)
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String) As String
|
||||
Return EvaluateFormula(formula, Nothing, Nothing, Nothing, True)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
' Write out the Set methods
|
||||
|
||||
|
||||
' Write out the DataSource properties and methods
|
||||
|
||||
|
||||
' Write out event methods for the page events
|
||||
|
||||
#Region "Interface Properties"
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property Copyright() As System.Web.UI.WebControls.Literal Implements IEmailFooter.Copyright
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_Copyright"), System.Web.UI.WebControls.Literal)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overrides Property Visible() As Boolean Implements IEmailFooter.Visible
|
||||
|
||||
Get
|
||||
Return MyBase.Visible
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
MyBase.Visible = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Public Shadows ReadOnly Property Page() As BaseApplicationPage
|
||||
Get
|
||||
Return DirectCast(MyBase.Page, BaseApplicationPage)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
|
||||
|
||||
59
Header and Footer/EmailFooter.xml
Normal file
59
Header and Footer/EmailFooter.xml
Normal file
|
|
@ -0,0 +1,59 @@
|
|||
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
|
||||
<ComponentDefinition xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.ironspeed.com/designer">
|
||||
<Generator>Iron Speed Designer</Generator>
|
||||
<Version>9.2.0</Version>
|
||||
<Self>
|
||||
<Name>EmailFooter</Name>
|
||||
<Type>Footer</Type>
|
||||
<SubType>DotNet</SubType>
|
||||
<GenerateDirectory>Header and Footer</GenerateDirectory>
|
||||
<Layout>Header and Footer\EmailFooter.html</Layout>
|
||||
<DisplayName>EmailFooter</DisplayName>
|
||||
<Description>(Description)</Description>
|
||||
</Self>
|
||||
<ComposedOf>
|
||||
<ContainedComponent>
|
||||
<Name>Copyright</Name>
|
||||
<Type>Html</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>Text</Name>
|
||||
<Value>Copyright &copy; 2012 Your Company Name. All rights reserved.</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
</ComposedOf>
|
||||
<LayoutDefinition><![CDATA[<?xml version="1.0" encoding="utf-16"?>
|
||||
<LayoutDefinition xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<Layout Name="Footer" Type="RootLayout">
|
||||
<Prolog />
|
||||
<Row>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:HTML Name="Copyright"/&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>style</Name>
|
||||
<AttributeValue>color: #555555; font-family: Verdana, Arial, Georgia, sans-serif; font-size: 12px; padding-top: 10px;</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<RowAttributes />
|
||||
</Row>
|
||||
<Epilog />
|
||||
<TableAttributes>
|
||||
<Attribute>
|
||||
<Name>cellpadding</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>cellspacing</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>border</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
</TableAttributes>
|
||||
</Layout>
|
||||
</LayoutDefinition>]]></LayoutDefinition>
|
||||
</ComponentDefinition>
|
||||
6
Header and Footer/EmailHeader.ascx
Normal file
6
Header and Footer/EmailHeader.ascx
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<%@ Control Language="vb" AutoEventWireup="false" CodeFile="EmailHeader.ascx.vb" Inherits="Persons.UI.EmailHeader" %>
|
||||
<%@ Register Tagprefix="Selectors" Namespace="Persons" %>
|
||||
|
||||
<%@ Register Tagprefix="BaseClasses" Namespace="BaseClasses.Web.UI.WebControls" Assembly="BaseClasses" %><table cellpadding="0" cellspacing="0" border="0" width="100%" class="logoEmailBG"><tr><td><asp:Image runat="server" id="_Logo" alt="<%# GetResourceValue("Txt:PageHeader", "Persons") %>" imageurl="../Images/Logo.gif" style="border-width:0px;">
|
||||
</asp:Image></td></tr></table>
|
||||
427
Header and Footer/EmailHeader.ascx.vb
Normal file
427
Header and Footer/EmailHeader.ascx.vb
Normal file
|
|
@ -0,0 +1,427 @@
|
|||
|
||||
#Region "Imports statements"
|
||||
Option Strict On
|
||||
Imports System
|
||||
Imports System.Web.UI.WebControls
|
||||
Imports System.ComponentModel
|
||||
Imports BaseClasses
|
||||
Imports BaseClasses.Data
|
||||
Imports BaseClasses.Utils
|
||||
Imports BaseClasses.Web.UI.WebControls
|
||||
|
||||
Imports Persons.Business
|
||||
Imports Persons.Data
|
||||
|
||||
#End Region
|
||||
|
||||
Namespace Persons.UI
|
||||
|
||||
' Code-behind class for the EmailHeader user control.
|
||||
Partial Public Class EmailHeader
|
||||
Inherits BaseApplicationUserControl
|
||||
Implements IEmailHeader
|
||||
#Region "Section 1: Place your customizations here."
|
||||
|
||||
Public Sub LoadData()
|
||||
' LoadData reads database data and assigns it to UI controls.
|
||||
' Customize by adding code before or after the call to LoadData_Base()
|
||||
' or replace the call to LoadData_Base().
|
||||
LoadData_Base()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate as BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object), ByVal includeDS as Boolean) As String
|
||||
Return EvaluateFormula_Base(formula, dataSourceForEvaluate, format, variables, includeDS)
|
||||
End Function
|
||||
|
||||
Public Sub Page_InitializeEventHandlers(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init
|
||||
' Handles MyBase.Init.
|
||||
' Register the Event handler for any Events.
|
||||
Me.Page_InitializeEventHandlers_Base(sender,e)
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub SaveControlsToSession()
|
||||
SaveControlsToSession_Base()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Sub ClearControlsFromSession()
|
||||
ClearControlsFromSession_Base()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub LoadViewState(ByVal savedState As Object)
|
||||
LoadViewState_Base(savedState)
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Function SaveViewState() As Object
|
||||
Return SaveViewState_Base()
|
||||
End Function
|
||||
|
||||
Public Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
|
||||
Me.Page_PreRender_Base(sender,e)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub LogOut()
|
||||
' By default application logs out user on the load of SignOut page. To call logout method explicitely here
|
||||
' uncomment the following call to security layer:
|
||||
' DirectCast(Me.Page, BaseApplicationPage).CurrentSecurity.Logout(CType(Me.Page, BaseApplicationPage))
|
||||
End Sub
|
||||
|
||||
|
||||
Public Overrides Sub SetChartControl(ByVal chartCtrlName As String)
|
||||
Me.SetChartControl_Base(chartCtrlName)
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Ajax Functions"
|
||||
|
||||
<Services.WebMethod()> _
|
||||
Public Shared Function GetRecordFieldValue(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal fieldName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
' GetRecordFieldValue gets the pop up window content from the column specified by
|
||||
' columnName in the record specified by the recordID in data base table specified by tableName.
|
||||
' Customize by adding code before or after the call to GetRecordFieldValue_Base()
|
||||
' or replace the call to GetRecordFieldValue_Base().
|
||||
Return GetRecordFieldValue_Base(tableName, recordID, columnName, fieldName, title, persist, popupWindowHeight, popupWindowWidth, popupWindowScrollBar)
|
||||
End Function
|
||||
|
||||
<Services.WebMethod()> _
|
||||
Public Shared Function GetImage(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
' GetImage gets the Image url for the image in the column "columnName" and
|
||||
' in the record specified by recordID in data base table specified by tableName.
|
||||
' Customize by adding code before or after the call to GetImage_Base()
|
||||
' or replace the call to GetImage_Base().
|
||||
Return GetImage_Base(tableName, recordID, columnName, title, persist, popupWindowHeight, popupWindowWidth, popupWindowScrollBar)
|
||||
End Function
|
||||
|
||||
Protected Overloads Overrides Sub BasePage_PreRender(ByVal sender As Object, ByVal e As EventArgs)
|
||||
MyBase.BasePage_PreRender(sender, e)
|
||||
Base_RegisterPostback()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
' Page Event Handlers - buttons, sort, links
|
||||
|
||||
|
||||
' Write out the Set methods
|
||||
|
||||
|
||||
' Write out the methods for DataSource
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Section 2: Do not modify this section."
|
||||
|
||||
Protected Sub Page_InitializeEventHandlers_Base(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
|
||||
' the following code for accordion is necessary or the Me.{ControlName} will return Nothing
|
||||
|
||||
' Register the Event handler for any Events.
|
||||
|
||||
|
||||
' Setup the pagination events.
|
||||
|
||||
Me.ClearControlsFromSession()
|
||||
End Sub
|
||||
|
||||
Private Sub Base_RegisterPostback()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' Handles MyBase.Load. Read database data and put into the UI controls.
|
||||
' If you need to, you can add additional Load handlers in Section 1.
|
||||
Protected Overridable Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
If (Not Me.IsPostBack) Then
|
||||
|
||||
End If
|
||||
|
||||
|
||||
' Load data only when displaying the page for the first time or if postback from child window
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' Read the data for all controls on the page.
|
||||
' To change the behavior, override the DataBind method for the individual
|
||||
' record or table UI controls.
|
||||
Me.LoadData()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function GetRecordFieldValue_Base(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal fieldName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
If Not IsNothing(recordID) Then
|
||||
recordID = System.Web.HttpUtility.UrlDecode(recordID)
|
||||
End If
|
||||
Dim content as String = BaseClasses.Utils.MiscUtils.GetFieldData(tableName, recordID, columnName)
|
||||
|
||||
content = NetUtils.EncodeStringForHtmlDisplay(content)
|
||||
|
||||
'returnValue is an array of string values.
|
||||
'returnValue(0) represents title of the pop up window
|
||||
'returnValue(1) represents content of the pop up window
|
||||
' retrunValue(2) represents whether pop up window should be made persistant
|
||||
' or it should closes as soon as mouse moved out.
|
||||
' returnValue(5) represents whether pop up window should contain scroll bar.
|
||||
' returnValue(3), (4) represents pop up window height and width respectivly
|
||||
' (0),(2),(3),(4) and (5) is initially set as pass through attribute.
|
||||
' They can be modified by going to Attribute tab of the properties window of the control in aspx page.
|
||||
Dim returnValue(6) As Object
|
||||
returnValue(0) = title
|
||||
returnValue(1) = content
|
||||
returnValue(2) = persist
|
||||
returnValue(3) = popupWindowWidth
|
||||
returnValue(4) = popupWindowHeight
|
||||
returnValue(5) = popupWindowScrollBar
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function GetImage_Base(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
Dim content As String = "<IMG alt =""" & title & """ src =" & """../Shared/ExportFieldValue.aspx?Table=" & tableName & "&Field=" & columnName & "&Record=" & recordID & """/>"
|
||||
'returnValue is an array of string values.
|
||||
'returnValue(0) represents title of the pop up window.
|
||||
'returnValue(1) represents content ie, image url.
|
||||
' retrunValue(2) represents whether pop up window should be made persistant
|
||||
' or it should closes as soon as mouse moved out.
|
||||
' returnValue(3), (4) represents pop up window height and width respectivly
|
||||
' returnValue(5) represents whether pop up window should contain scroll bar.
|
||||
' (0),(2),(3),(4) and (5) is initially set as pass through attribute.
|
||||
' They can be modified by going to Attribute tab of the properties window of the control in aspx page.
|
||||
Dim returnValue(6) As Object
|
||||
returnValue(0) = title
|
||||
returnValue(1) = content
|
||||
returnValue(2) = persist
|
||||
returnValue(3) = popupWindowWidth
|
||||
returnValue(4) = popupWindowHeight
|
||||
returnValue(5) = popupWindowScrollBar
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
Public Sub SetChartControl_Base(ByVal chartCtrlName As String)
|
||||
' Load data for each record and table UI control.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub SaveControlsToSession_Base()
|
||||
MyBase.SaveControlsToSession()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub ClearControlsFromSession_Base()
|
||||
MyBase.ClearControlsFromSession()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LoadViewState_Base(ByVal savedState As Object)
|
||||
MyBase.LoadViewState(savedState)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Function SaveViewState_Base() As Object
|
||||
|
||||
Return MyBase.SaveViewState()
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub Page_PreRender_Base(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
'Call initialize function for theme selector for multi-color theme here
|
||||
|
||||
' Load data for each record and table UI control.
|
||||
|
||||
' Data bind for each chart UI control.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
' Load data from database into UI controls.
|
||||
' Modify LoadData in Section 1 above to customize. Or override DataBind() in
|
||||
' the individual table and record controls to customize.
|
||||
Public Sub LoadData_Base()
|
||||
Try
|
||||
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' Must start a transaction before performing database operations
|
||||
DbUtils.StartTransaction()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Me.DataBind()
|
||||
|
||||
' Load and bind data for each record and table UI control.
|
||||
|
||||
|
||||
' Load data for chart.
|
||||
|
||||
|
||||
' initialize aspx controls
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
' An error has occured so display an error message.
|
||||
Utils.RegisterJScriptAlert(Me, "Page_Load_Error_Message", ex.Message)
|
||||
Finally
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' End database transaction
|
||||
DbUtils.EndTransaction()
|
||||
End If
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public EvaluateFormulaDelegate As BaseClasses.Data.DataSource.EvaluateFormulaDelegate = New BaseClasses.Data.DataSource.EvaluateFormulaDelegate(AddressOf Me.EvaluateFormula)
|
||||
|
||||
Public Overridable Function EvaluateFormula_Base(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object), ByVal includeDS As Boolean) As String
|
||||
Dim e As FormulaEvaluator = New FormulaEvaluator()
|
||||
|
||||
' add variables for formula evaluation
|
||||
If variables IsNot Nothing Then
|
||||
Dim enumerator As System.Collections.Generic.IEnumerator(Of System.Collections.Generic.KeyValuePair(Of String, Object)) = variables.GetEnumerator()
|
||||
While enumerator.MoveNext()
|
||||
e.Variables.Add(enumerator.Current.Key, enumerator.Current.Value)
|
||||
End While
|
||||
End If
|
||||
|
||||
If includeDS
|
||||
|
||||
End If
|
||||
|
||||
|
||||
e.CallingControl = Me
|
||||
|
||||
e.DataSource = dataSourceForEvaluate
|
||||
|
||||
|
||||
Dim resultObj As Object = e.Evaluate(formula)
|
||||
If resultObj Is Nothing Then
|
||||
Return ""
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(format) AndAlso (String.IsNullOrEmpty(formula) OrElse formula.IndexOf("Format(") < 0) Then
|
||||
Return FormulaUtils.Format(resultObj, format)
|
||||
Else
|
||||
Return resultObj.ToString()
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object)) As String
|
||||
Return EvaluateFormula(formula, dataSourceForEvaluate, format, variables, True)
|
||||
End Function
|
||||
|
||||
|
||||
Private Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord) As String
|
||||
Return EvaluateFormula(formula, dataSourceForEvaluate, Nothing, Nothing, True)
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String, ByVal includeDS As Boolean) As String
|
||||
Return EvaluateFormula(formula, Nothing, Nothing, Nothing, includeDS)
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String) As String
|
||||
Return EvaluateFormula(formula, Nothing, Nothing, Nothing, True)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
' Write out the Set methods
|
||||
|
||||
|
||||
' Write out the DataSource properties and methods
|
||||
|
||||
|
||||
' Write out event methods for the page events
|
||||
|
||||
#Region "Interface Properties"
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property Logo() As System.Web.UI.WebControls.Image Implements IEmailHeader.Logo
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_Logo"), System.Web.UI.WebControls.Image)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overrides Property Visible() As Boolean Implements IEmailHeader.Visible
|
||||
|
||||
Get
|
||||
Return MyBase.Visible
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
MyBase.Visible = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Public Shadows ReadOnly Property Page() As BaseApplicationPage
|
||||
Get
|
||||
Return DirectCast(MyBase.Page, BaseApplicationPage)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
|
||||
|
||||
78
Header and Footer/EmailHeader.xml
Normal file
78
Header and Footer/EmailHeader.xml
Normal file
|
|
@ -0,0 +1,78 @@
|
|||
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
|
||||
<ComponentDefinition xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.ironspeed.com/designer">
|
||||
<Generator>Iron Speed Designer</Generator>
|
||||
<Version>9.2.0</Version>
|
||||
<Self>
|
||||
<Name>EmailHeader</Name>
|
||||
<Type>Header</Type>
|
||||
<GenerateDirectory>Header and Footer</GenerateDirectory>
|
||||
<Layout>Header and Footer\EmailHeader.html</Layout>
|
||||
<DisplayName>Header</DisplayName>
|
||||
<Description>(Description)</Description>
|
||||
</Self>
|
||||
<ComposedOf>
|
||||
<ContainedComponent>
|
||||
<Name>Logo</Name>
|
||||
<Type>Image</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/Logo.gif</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>style</Name>
|
||||
<Value>border-width:0px;</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value>Txt:PageHeader</Value>
|
||||
<Type>ResourceReference</Type>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
</ComposedOf>
|
||||
<LayoutDefinition><![CDATA[<?xml version="1.0" encoding="utf-16"?>
|
||||
<LayoutDefinition xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<Layout Name="Header" Type="RootLayout">
|
||||
|
||||
<Prolog>
|
||||
<Value></Value>
|
||||
</Prolog>
|
||||
|
||||
<Row>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:IMAGE NAME="Logo"/&gt;</Value>
|
||||
</Cell>
|
||||
</Row>
|
||||
|
||||
<Epilog>
|
||||
<Value></Value>
|
||||
</Epilog>
|
||||
|
||||
<TableAttributes>
|
||||
<Attribute>
|
||||
<Name>cellpadding</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>cellspacing</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>border</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>width</Name>
|
||||
<AttributeValue>100%</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>logoEmailBG</AttributeValue>
|
||||
</Attribute>
|
||||
</TableAttributes>
|
||||
|
||||
</Layout>
|
||||
</LayoutDefinition>]]>
|
||||
</LayoutDefinition>
|
||||
</ComponentDefinition>
|
||||
6
Header and Footer/Footer.ascx
Normal file
6
Header and Footer/Footer.ascx
Normal file
|
|
@ -0,0 +1,6 @@
|
|||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<%@ Control Language="vb" AutoEventWireup="false" CodeFile="Footer.ascx.vb" Inherits="Persons.UI.Footer" %>
|
||||
<%@ Register Tagprefix="Selectors" Namespace="Persons" %>
|
||||
|
||||
<%@ Register Tagprefix="BaseClasses" Namespace="BaseClasses.Web.UI.WebControls" Assembly="BaseClasses" %><table cellpadding="0" cellspacing="0" border="0"><tr><td class="footer"><asp:Literal runat="server" id="_Copyright" Text="Copyright &copy; 2012 Your Company Name. All rights reserved."> </asp:Literal>
|
||||
</td></tr></table>
|
||||
419
Header and Footer/Footer.ascx.vb
Normal file
419
Header and Footer/Footer.ascx.vb
Normal file
|
|
@ -0,0 +1,419 @@
|
|||
|
||||
#Region "Imports statements"
|
||||
Option Strict On
|
||||
Imports System
|
||||
Imports System.Web.UI.WebControls
|
||||
Imports System.ComponentModel
|
||||
Imports BaseClasses
|
||||
Imports BaseClasses.Data
|
||||
Imports BaseClasses.Utils
|
||||
Imports BaseClasses.Web.UI.WebControls
|
||||
|
||||
Imports Persons.Business
|
||||
Imports Persons.Data
|
||||
|
||||
#End Region
|
||||
|
||||
Namespace Persons.UI
|
||||
|
||||
' Code-behind class for the Footer user control.
|
||||
Partial Public Class Footer
|
||||
Inherits BaseApplicationUserControl
|
||||
Implements IFooter
|
||||
#Region "Section 1: Place your customizations here."
|
||||
|
||||
Public Sub LoadData()
|
||||
' LoadData reads database data and assigns it to UI controls.
|
||||
' Customize by adding code before or after the call to LoadData_Base()
|
||||
' or replace the call to LoadData_Base().
|
||||
LoadData_Base()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate as BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object), ByVal includeDS as Boolean) As String
|
||||
Return EvaluateFormula_Base(formula, dataSourceForEvaluate, format, variables, includeDS)
|
||||
End Function
|
||||
|
||||
Public Sub Page_InitializeEventHandlers(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init
|
||||
' Handles MyBase.Init.
|
||||
' Register the Event handler for any Events.
|
||||
Me.Page_InitializeEventHandlers_Base(sender,e)
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub SaveControlsToSession()
|
||||
SaveControlsToSession_Base()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Sub ClearControlsFromSession()
|
||||
ClearControlsFromSession_Base()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub LoadViewState(ByVal savedState As Object)
|
||||
LoadViewState_Base(savedState)
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Function SaveViewState() As Object
|
||||
Return SaveViewState_Base()
|
||||
End Function
|
||||
|
||||
Public Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
|
||||
Me.Page_PreRender_Base(sender,e)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Public Overrides Sub SetChartControl(ByVal chartCtrlName As String)
|
||||
Me.SetChartControl_Base(chartCtrlName)
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Ajax Functions"
|
||||
|
||||
<Services.WebMethod()> _
|
||||
Public Shared Function GetRecordFieldValue(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal fieldName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
' GetRecordFieldValue gets the pop up window content from the column specified by
|
||||
' columnName in the record specified by the recordID in data base table specified by tableName.
|
||||
' Customize by adding code before or after the call to GetRecordFieldValue_Base()
|
||||
' or replace the call to GetRecordFieldValue_Base().
|
||||
Return GetRecordFieldValue_Base(tableName, recordID, columnName, fieldName, title, persist, popupWindowHeight, popupWindowWidth, popupWindowScrollBar)
|
||||
End Function
|
||||
|
||||
<Services.WebMethod()> _
|
||||
Public Shared Function GetImage(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
' GetImage gets the Image url for the image in the column "columnName" and
|
||||
' in the record specified by recordID in data base table specified by tableName.
|
||||
' Customize by adding code before or after the call to GetImage_Base()
|
||||
' or replace the call to GetImage_Base().
|
||||
Return GetImage_Base(tableName, recordID, columnName, title, persist, popupWindowHeight, popupWindowWidth, popupWindowScrollBar)
|
||||
End Function
|
||||
|
||||
Protected Overloads Overrides Sub BasePage_PreRender(ByVal sender As Object, ByVal e As EventArgs)
|
||||
MyBase.BasePage_PreRender(sender, e)
|
||||
Base_RegisterPostback()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
' Page Event Handlers - buttons, sort, links
|
||||
|
||||
|
||||
' Write out the Set methods
|
||||
|
||||
|
||||
' Write out the methods for DataSource
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Section 2: Do not modify this section."
|
||||
|
||||
Protected Sub Page_InitializeEventHandlers_Base(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
|
||||
' the following code for accordion is necessary or the Me.{ControlName} will return Nothing
|
||||
|
||||
' Register the Event handler for any Events.
|
||||
|
||||
|
||||
' Setup the pagination events.
|
||||
|
||||
Me.ClearControlsFromSession()
|
||||
End Sub
|
||||
|
||||
Private Sub Base_RegisterPostback()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' Handles MyBase.Load. Read database data and put into the UI controls.
|
||||
' If you need to, you can add additional Load handlers in Section 1.
|
||||
Protected Overridable Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
|
||||
If (Not Me.IsPostBack) Then
|
||||
|
||||
End If
|
||||
|
||||
|
||||
' Load data only when displaying the page for the first time or if postback from child window
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' Read the data for all controls on the page.
|
||||
' To change the behavior, override the DataBind method for the individual
|
||||
' record or table UI controls.
|
||||
Me.LoadData()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function GetRecordFieldValue_Base(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal fieldName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
If Not IsNothing(recordID) Then
|
||||
recordID = System.Web.HttpUtility.UrlDecode(recordID)
|
||||
End If
|
||||
Dim content as String = BaseClasses.Utils.MiscUtils.GetFieldData(tableName, recordID, columnName)
|
||||
|
||||
content = NetUtils.EncodeStringForHtmlDisplay(content)
|
||||
|
||||
'returnValue is an array of string values.
|
||||
'returnValue(0) represents title of the pop up window
|
||||
'returnValue(1) represents content of the pop up window
|
||||
' retrunValue(2) represents whether pop up window should be made persistant
|
||||
' or it should closes as soon as mouse moved out.
|
||||
' returnValue(5) represents whether pop up window should contain scroll bar.
|
||||
' returnValue(3), (4) represents pop up window height and width respectivly
|
||||
' (0),(2),(3),(4) and (5) is initially set as pass through attribute.
|
||||
' They can be modified by going to Attribute tab of the properties window of the control in aspx page.
|
||||
Dim returnValue(6) As Object
|
||||
returnValue(0) = title
|
||||
returnValue(1) = content
|
||||
returnValue(2) = persist
|
||||
returnValue(3) = popupWindowWidth
|
||||
returnValue(4) = popupWindowHeight
|
||||
returnValue(5) = popupWindowScrollBar
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function GetImage_Base(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
Dim content As String = "<IMG alt =""" & title & """ src =" & """../Shared/ExportFieldValue.aspx?Table=" & tableName & "&Field=" & columnName & "&Record=" & recordID & """/>"
|
||||
'returnValue is an array of string values.
|
||||
'returnValue(0) represents title of the pop up window.
|
||||
'returnValue(1) represents content ie, image url.
|
||||
' retrunValue(2) represents whether pop up window should be made persistant
|
||||
' or it should closes as soon as mouse moved out.
|
||||
' returnValue(3), (4) represents pop up window height and width respectivly
|
||||
' returnValue(5) represents whether pop up window should contain scroll bar.
|
||||
' (0),(2),(3),(4) and (5) is initially set as pass through attribute.
|
||||
' They can be modified by going to Attribute tab of the properties window of the control in aspx page.
|
||||
Dim returnValue(6) As Object
|
||||
returnValue(0) = title
|
||||
returnValue(1) = content
|
||||
returnValue(2) = persist
|
||||
returnValue(3) = popupWindowWidth
|
||||
returnValue(4) = popupWindowHeight
|
||||
returnValue(5) = popupWindowScrollBar
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
Public Sub SetChartControl_Base(ByVal chartCtrlName As String)
|
||||
' Load data for each record and table UI control.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub SaveControlsToSession_Base()
|
||||
MyBase.SaveControlsToSession()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub ClearControlsFromSession_Base()
|
||||
MyBase.ClearControlsFromSession()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LoadViewState_Base(ByVal savedState As Object)
|
||||
MyBase.LoadViewState(savedState)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Function SaveViewState_Base() As Object
|
||||
|
||||
Return MyBase.SaveViewState()
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub Page_PreRender_Base(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
' Load data for each record and table UI control.
|
||||
|
||||
' Data bind for each chart UI control.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
' Load data from database into UI controls.
|
||||
' Modify LoadData in Section 1 above to customize. Or override DataBind() in
|
||||
' the individual table and record controls to customize.
|
||||
Public Sub LoadData_Base()
|
||||
Try
|
||||
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' Must start a transaction before performing database operations
|
||||
DbUtils.StartTransaction()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Me.DataBind()
|
||||
|
||||
' Load and bind data for each record and table UI control.
|
||||
|
||||
|
||||
' Load data for chart.
|
||||
|
||||
|
||||
' initialize aspx controls
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
' An error has occured so display an error message.
|
||||
Utils.RegisterJScriptAlert(Me, "Page_Load_Error_Message", ex.Message)
|
||||
Finally
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' End database transaction
|
||||
DbUtils.EndTransaction()
|
||||
End If
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public EvaluateFormulaDelegate As BaseClasses.Data.DataSource.EvaluateFormulaDelegate = New BaseClasses.Data.DataSource.EvaluateFormulaDelegate(AddressOf Me.EvaluateFormula)
|
||||
|
||||
Public Overridable Function EvaluateFormula_Base(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object), ByVal includeDS As Boolean) As String
|
||||
Dim e As FormulaEvaluator = New FormulaEvaluator()
|
||||
|
||||
' add variables for formula evaluation
|
||||
If variables IsNot Nothing Then
|
||||
Dim enumerator As System.Collections.Generic.IEnumerator(Of System.Collections.Generic.KeyValuePair(Of String, Object)) = variables.GetEnumerator()
|
||||
While enumerator.MoveNext()
|
||||
e.Variables.Add(enumerator.Current.Key, enumerator.Current.Value)
|
||||
End While
|
||||
End If
|
||||
|
||||
If includeDS
|
||||
|
||||
End If
|
||||
|
||||
|
||||
e.CallingControl = Me
|
||||
|
||||
e.DataSource = dataSourceForEvaluate
|
||||
|
||||
|
||||
Dim resultObj As Object = e.Evaluate(formula)
|
||||
If resultObj Is Nothing Then
|
||||
Return ""
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(format) AndAlso (String.IsNullOrEmpty(formula) OrElse formula.IndexOf("Format(") < 0) Then
|
||||
Return FormulaUtils.Format(resultObj, format)
|
||||
Else
|
||||
Return resultObj.ToString()
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object)) As String
|
||||
Return EvaluateFormula(formula, dataSourceForEvaluate, format, variables, True)
|
||||
End Function
|
||||
|
||||
|
||||
Private Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord) As String
|
||||
Return EvaluateFormula(formula, dataSourceForEvaluate, Nothing, Nothing, True)
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String, ByVal includeDS As Boolean) As String
|
||||
Return EvaluateFormula(formula, Nothing, Nothing, Nothing, includeDS)
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String) As String
|
||||
Return EvaluateFormula(formula, Nothing, Nothing, Nothing, True)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
' Write out the Set methods
|
||||
|
||||
|
||||
' Write out the DataSource properties and methods
|
||||
|
||||
|
||||
' Write out event methods for the page events
|
||||
|
||||
#Region "Interface Properties"
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property Copyright() As System.Web.UI.WebControls.Literal Implements IFooter.Copyright
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_Copyright"), System.Web.UI.WebControls.Literal)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overrides Property Visible() As Boolean Implements IFooter.Visible
|
||||
|
||||
Get
|
||||
Return MyBase.Visible
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
MyBase.Visible = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Public Shadows ReadOnly Property Page() As BaseApplicationPage
|
||||
Get
|
||||
Return DirectCast(MyBase.Page, BaseApplicationPage)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
|
||||
|
||||
69
Header and Footer/Footer.xml
Normal file
69
Header and Footer/Footer.xml
Normal file
|
|
@ -0,0 +1,69 @@
|
|||
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
|
||||
<ComponentDefinition xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns="http://www.ironspeed.com/designer">
|
||||
<Generator>Iron Speed Designer</Generator>
|
||||
<Version>9.2.0</Version>
|
||||
<Self>
|
||||
<Name>Footer</Name>
|
||||
<Type>Footer</Type>
|
||||
<GenerateDirectory>Header and Footer</GenerateDirectory>
|
||||
<Layout>Header and Footer\Footer.html</Layout>
|
||||
<DisplayName>Footer</DisplayName>
|
||||
<Description>(Description)</Description>
|
||||
</Self>
|
||||
<ComposedOf>
|
||||
<ContainedComponent>
|
||||
<Name>Copyright</Name>
|
||||
<Type>Html</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>Text</Name>
|
||||
<Value>Copyright &copy; 2012 Your Company Name. All rights reserved.</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
</ComposedOf>
|
||||
<LayoutDefinition><![CDATA[<?xml version="1.0" encoding="utf-16"?>
|
||||
<LayoutDefinition xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
|
||||
<Layout Name="Footer" Type="RootLayout">
|
||||
|
||||
<Prolog>
|
||||
<Value></Value>
|
||||
</Prolog>
|
||||
|
||||
<Row>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:HTML Name="Copyright"/&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>footer</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
</Row>
|
||||
|
||||
<Epilog>
|
||||
<Value></Value>
|
||||
</Epilog>
|
||||
|
||||
<TableAttributes>
|
||||
<Attribute>
|
||||
<Name>cellpadding</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>cellspacing</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>border</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
</TableAttributes>
|
||||
|
||||
</Layout>
|
||||
|
||||
</LayoutDefinition>]]>
|
||||
</LayoutDefinition>
|
||||
</ComponentDefinition>
|
||||
17
Header and Footer/Header.ascx
Normal file
17
Header and Footer/Header.ascx
Normal file
|
|
@ -0,0 +1,17 @@
|
|||
<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
|
||||
<%@ Register Tagprefix="Selectors" Namespace="Persons" %>
|
||||
|
||||
<%@ Control Language="vb" AutoEventWireup="false" CodeFile="Header.ascx.vb" Inherits="Persons.UI.Header" %>
|
||||
<%@ Register Tagprefix="BaseClasses" Namespace="BaseClasses.Web.UI.WebControls" Assembly="BaseClasses" %><table cellpadding="0" cellspacing="0" border="0" width="100%" class="logoBG"><tr><td style="vertical-align:top;"><asp:HyperLink runat="server" id="_SkipNavigationLinks" cssclass="skipNavigationLinks" navigateurl="#StartOfPageContent" text="<%# GetResourceValue("Txt:SkipNavigation", "Persons") %>" tooltip="<%# GetResourceValue("Txt:SkipNavigation", "Persons") %>">
|
||||
</asp:HyperLink></td><td style="text-align:right; vertical-align:top;" rowspan="2"><table cellpadding="0" cellspacing="0" border="0"><tr><td><table cellpadding="0" cellspacing="0" border="0"><tr><td style="width:100%;"></td><td><asp:Image runat="server" id="_LeftImage" alt="" height="23" imageurl="../Images/SignInBarL.gif" width="36">
|
||||
</asp:Image></td><td class="signInBar"><asp:dropdownlist id="LanguageSelector" runat="server" cssclass="Filter_Input" AutoPostBack="true"></asp:dropdownlist></td><td class="signInBar"><asp:Image runat="server" id="_Divider1" alt="" imageurl="../Images/SignInBarDivider.gif">
|
||||
</asp:Image></td><td class="signInBar"><asp:dropdownlist id="ThemeSelector" runat="server" cssclass="Filter_Input" AutoPostBack="true"></asp:dropdownlist></td><td class="signInBar"><asp:Image runat="server" id="_Divider0" alt="" imageurl="../Images/SignInBarDivider.gif">
|
||||
</asp:Image></td><td class="signInBar"><asp:LinkButton runat="server" id="_SignIn" causesvalidation="False" commandname="ShowSignIn" tooltip="SignIn">
|
||||
</asp:LinkButton></td><td class="signInBar"><asp:ImageButton runat="server" id="_SIOImage" alt="SignInButton" causesvalidation="False" commandname="ShowSIOImage" imageurl="../Images/SignInBarSignIn.gif">
|
||||
</asp:ImageButton></td><td class="signInBar"><asp:Image runat="server" id="_Divider2" alt="" imageurl="../Images/SignInBarDivider.gif">
|
||||
</asp:Image></td><td class="signInBar"><a href="javascript:printPage();" /><asp:Image runat="server" id="_SignInBarPrintButton" alt="Print" imageurl="../Images/SignInBarPrint.gif" onmouseout="this.src='../Images/SignInBarPrint.gif';" onmouseover="this.src='../Images/SignInBarPrintOver.gif';" tooltip="<%# GetResourceValue("Txt:PrintPage", "Persons") %>" style="border:0px;">
|
||||
</asp:Image></td><td><asp:Image runat="server" id="_RightImage" alt="" height="23" imageurl="../Images/SignInBarR.gif" width="36">
|
||||
</asp:Image></td></tr><tr><td></td><td></td><td class="signInBarStatus" colspan="8"><asp:Label runat="server" id="_UserStatusLbl"> </asp:Label></td></tr></table>
|
||||
</td></tr></table>
|
||||
</td></tr><tr><td><asp:Image runat="server" id="_Logo" alt="<%# GetResourceValue("Txt:PageHeader", "Persons") %>" imageurl="../Images/Logo.gif" style="border-width:0px;">
|
||||
</asp:Image></td></tr></table>
|
||||
730
Header and Footer/Header.ascx.vb
Normal file
730
Header and Footer/Header.ascx.vb
Normal file
|
|
@ -0,0 +1,730 @@
|
|||
|
||||
#Region "Imports statements"
|
||||
Option Strict On
|
||||
Imports System
|
||||
Imports System.Web.UI.WebControls
|
||||
Imports System.ComponentModel
|
||||
Imports BaseClasses
|
||||
Imports BaseClasses.Data
|
||||
Imports BaseClasses.Utils
|
||||
Imports BaseClasses.Web.UI.WebControls
|
||||
|
||||
Imports Persons.Business
|
||||
Imports Persons.Data
|
||||
|
||||
#End Region
|
||||
|
||||
Namespace Persons.UI
|
||||
|
||||
' Code-behind class for the Header user control.
|
||||
Partial Public Class Header
|
||||
Inherits BaseApplicationUserControl
|
||||
Implements IHeader
|
||||
#Region "Section 1: Place your customizations here."
|
||||
|
||||
Public Sub LoadData()
|
||||
' LoadData reads database data and assigns it to UI controls.
|
||||
' Customize by adding code before or after the call to LoadData_Base()
|
||||
' or replace the call to LoadData_Base().
|
||||
LoadData_Base()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate as BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object), ByVal includeDS as Boolean) As String
|
||||
Return EvaluateFormula_Base(formula, dataSourceForEvaluate, format, variables, includeDS)
|
||||
End Function
|
||||
|
||||
Public Sub Page_InitializeEventHandlers(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Init
|
||||
' Handles MyBase.Init.
|
||||
' Register the Event handler for any Events.
|
||||
Me.Page_InitializeEventHandlers_Base(sender,e)
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub SaveControlsToSession()
|
||||
SaveControlsToSession_Base()
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Sub ClearControlsFromSession()
|
||||
ClearControlsFromSession_Base()
|
||||
End Sub
|
||||
|
||||
Protected Overrides Sub LoadViewState(ByVal savedState As Object)
|
||||
LoadViewState_Base(savedState)
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Overrides Function SaveViewState() As Object
|
||||
Return SaveViewState_Base()
|
||||
End Function
|
||||
|
||||
Public Sub Page_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.PreRender
|
||||
Me.Page_PreRender_Base(sender,e)
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Sub LogOut()
|
||||
' By default application logs out user on the load of SignOut page. To call logout method explicitely here
|
||||
' uncomment the following call to security layer:
|
||||
' DirectCast(Me.Page, BaseApplicationPage).CurrentSecurity.Logout(CType(Me.Page, BaseApplicationPage))
|
||||
End Sub
|
||||
|
||||
|
||||
Public Overrides Sub SetChartControl(ByVal chartCtrlName As String)
|
||||
Me.SetChartControl_Base(chartCtrlName)
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "Ajax Functions"
|
||||
|
||||
<Services.WebMethod()> _
|
||||
Public Shared Function GetRecordFieldValue(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal fieldName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
' GetRecordFieldValue gets the pop up window content from the column specified by
|
||||
' columnName in the record specified by the recordID in data base table specified by tableName.
|
||||
' Customize by adding code before or after the call to GetRecordFieldValue_Base()
|
||||
' or replace the call to GetRecordFieldValue_Base().
|
||||
Return GetRecordFieldValue_Base(tableName, recordID, columnName, fieldName, title, persist, popupWindowHeight, popupWindowWidth, popupWindowScrollBar)
|
||||
End Function
|
||||
|
||||
<Services.WebMethod()> _
|
||||
Public Shared Function GetImage(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
' GetImage gets the Image url for the image in the column "columnName" and
|
||||
' in the record specified by recordID in data base table specified by tableName.
|
||||
' Customize by adding code before or after the call to GetImage_Base()
|
||||
' or replace the call to GetImage_Base().
|
||||
Return GetImage_Base(tableName, recordID, columnName, title, persist, popupWindowHeight, popupWindowWidth, popupWindowScrollBar)
|
||||
End Function
|
||||
|
||||
Protected Overloads Overrides Sub BasePage_PreRender(ByVal sender As Object, ByVal e As EventArgs)
|
||||
MyBase.BasePage_PreRender(sender, e)
|
||||
Base_RegisterPostback()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
' Page Event Handlers - buttons, sort, links
|
||||
|
||||
Public Sub SIOImage_Click(ByVal sender As Object, ByVal args As ImageClickEventArgs)
|
||||
' Click handler for SIOImage.
|
||||
' Customize by adding code before the call or replace the call to the Base function with your own code.
|
||||
SIOImage_Click_Base(sender, args)
|
||||
' NOTE: If the Base function redirects to another page, any code here will not be executed.
|
||||
End Sub
|
||||
|
||||
Public Sub SignIn_Click(ByVal sender As Object, ByVal args As EventArgs)
|
||||
' Click handler for SignIn.
|
||||
' Customize by adding code before the call or replace the call to the Base function with your own code.
|
||||
SignIn_Click_Base(sender, args)
|
||||
' NOTE: If the Base function redirects to another page, any code here will not be executed.
|
||||
End Sub
|
||||
|
||||
|
||||
' Write out the Set methods
|
||||
|
||||
|
||||
' Write out the methods for DataSource
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "Section 2: Do not modify this section."
|
||||
|
||||
Protected Sub Page_InitializeEventHandlers_Base(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
|
||||
' the following code for accordion is necessary or the Me.{ControlName} will return Nothing
|
||||
|
||||
' Register the Event handler for any Events.
|
||||
|
||||
|
||||
' Setup the pagination events.
|
||||
|
||||
AddHandler Me.SIOImage.Click, AddressOf SIOImage_Click
|
||||
|
||||
AddHandler Me.SignIn.Click, AddressOf SignIn_Click
|
||||
|
||||
Me.ClearControlsFromSession()
|
||||
End Sub
|
||||
|
||||
Private Sub Base_RegisterPostback()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
' Handles MyBase.Load. Read database data and put into the UI controls.
|
||||
' If you need to, you can add additional Load handlers in Section 1.
|
||||
Protected Overridable Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
|
||||
Me.ThemeSelector.Visible = False
|
||||
Me.Divider0.Visible = False
|
||||
Me.LanguageSelector.Visible = False
|
||||
Me.Divider1.Visible = False
|
||||
Me.UserStatusInit()
|
||||
Me.PrintButtonInit()
|
||||
Me.SignInButtonInit()
|
||||
Me.LeftRightImageInit()
|
||||
Me.SkipNavigationLinks.Visible = False
|
||||
|
||||
If (Not Me.IsPostBack) Then
|
||||
|
||||
If Not String.IsNullOrEmpty(Me.Page.ClientQueryString) Then
|
||||
Me.SkipNavigationLinks.NavigateUrl = Me.Page.AppRelativeVirtualPath & "?" & Me.Page.ClientQueryString & Me.SkipNavigationLinks.NavigateUrl
|
||||
Else
|
||||
Me.SkipNavigationLinks.NavigateUrl = Me.Page.AppRelativeVirtualPath & Me.SkipNavigationLinks.NavigateUrl
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
' Load data only when displaying the page for the first time or if postback from child window
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' Read the data for all controls on the page.
|
||||
' To change the behavior, override the DataBind method for the individual
|
||||
' record or table UI controls.
|
||||
Me.LoadData()
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Shared Function GetRecordFieldValue_Base(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal fieldName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
If Not IsNothing(recordID) Then
|
||||
recordID = System.Web.HttpUtility.UrlDecode(recordID)
|
||||
End If
|
||||
Dim content as String = BaseClasses.Utils.MiscUtils.GetFieldData(tableName, recordID, columnName)
|
||||
|
||||
content = NetUtils.EncodeStringForHtmlDisplay(content)
|
||||
|
||||
'returnValue is an array of string values.
|
||||
'returnValue(0) represents title of the pop up window
|
||||
'returnValue(1) represents content of the pop up window
|
||||
' retrunValue(2) represents whether pop up window should be made persistant
|
||||
' or it should closes as soon as mouse moved out.
|
||||
' returnValue(5) represents whether pop up window should contain scroll bar.
|
||||
' returnValue(3), (4) represents pop up window height and width respectivly
|
||||
' (0),(2),(3),(4) and (5) is initially set as pass through attribute.
|
||||
' They can be modified by going to Attribute tab of the properties window of the control in aspx page.
|
||||
Dim returnValue(6) As Object
|
||||
returnValue(0) = title
|
||||
returnValue(1) = content
|
||||
returnValue(2) = persist
|
||||
returnValue(3) = popupWindowWidth
|
||||
returnValue(4) = popupWindowHeight
|
||||
returnValue(5) = popupWindowScrollBar
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function GetImage_Base(ByVal tableName As String, _
|
||||
ByVal recordID As String, _
|
||||
ByVal columnName As String, _
|
||||
ByVal title As String, _
|
||||
ByVal persist As Boolean, _
|
||||
ByVal popupWindowHeight As Integer, _
|
||||
ByVal popupWindowWidth As Integer, _
|
||||
ByVal popupWindowScrollBar As Boolean _
|
||||
) As Object()
|
||||
Dim content As String = "<IMG alt =""" & title & """ src =" & """../Shared/ExportFieldValue.aspx?Table=" & tableName & "&Field=" & columnName & "&Record=" & recordID & """/>"
|
||||
'returnValue is an array of string values.
|
||||
'returnValue(0) represents title of the pop up window.
|
||||
'returnValue(1) represents content ie, image url.
|
||||
' retrunValue(2) represents whether pop up window should be made persistant
|
||||
' or it should closes as soon as mouse moved out.
|
||||
' returnValue(3), (4) represents pop up window height and width respectivly
|
||||
' returnValue(5) represents whether pop up window should contain scroll bar.
|
||||
' (0),(2),(3),(4) and (5) is initially set as pass through attribute.
|
||||
' They can be modified by going to Attribute tab of the properties window of the control in aspx page.
|
||||
Dim returnValue(6) As Object
|
||||
returnValue(0) = title
|
||||
returnValue(1) = content
|
||||
returnValue(2) = persist
|
||||
returnValue(3) = popupWindowWidth
|
||||
returnValue(4) = popupWindowHeight
|
||||
returnValue(5) = popupWindowScrollBar
|
||||
Return returnValue
|
||||
End Function
|
||||
|
||||
Public Sub SetChartControl_Base(ByVal chartCtrlName As String)
|
||||
' Load data for each record and table UI control.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Protected Sub SaveControlsToSession_Base()
|
||||
MyBase.SaveControlsToSession()
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub ClearControlsFromSession_Base()
|
||||
MyBase.ClearControlsFromSession()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub LoadViewState_Base(ByVal savedState As Object)
|
||||
MyBase.LoadViewState(savedState)
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Function SaveViewState_Base() As Object
|
||||
|
||||
Return MyBase.SaveViewState()
|
||||
End Function
|
||||
|
||||
|
||||
Public Sub Page_PreRender_Base(ByVal sender As Object, ByVal e As System.EventArgs)
|
||||
|
||||
'Call initialize function for theme selector for multi-color theme here
|
||||
|
||||
' Load data for each record and table UI control.
|
||||
|
||||
' Data bind for each chart UI control.
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
'Initializes Sign In status text.
|
||||
Protected Overridable Sub UserStatusInit()
|
||||
|
||||
Select Case DirectCast(Me.Page, BaseApplicationPage).CurrentSecurity.GetUserStatus()
|
||||
Case Nothing
|
||||
Me.UserStatusLbl.Text = GetResourceValue("Txt:UserNotSignedIn", "Persons")
|
||||
Case ""
|
||||
Me.UserStatusLbl.Text = GetResourceValue("Txt:UserNotSignedIn", "Persons")
|
||||
Case Else
|
||||
Me.UserStatusLbl.Text = GetResourceValue("Txt:Hello", "Persons")
|
||||
Me.UserStatusLbl.Text +=DirectCast(Me.Page, BaseApplicationPage).CurrentSecurity.GetUserStatus()
|
||||
End Select
|
||||
|
||||
End Sub
|
||||
|
||||
'Initializes Print Button.
|
||||
Protected Overridable Sub PrintButtonInit()
|
||||
|
||||
Me.SignInBarPrintButton.Visible = True
|
||||
Me.Divider2.Visible = True
|
||||
End Sub
|
||||
|
||||
'Initializes LeftImage and RightImage.
|
||||
'You can change the behavior of this method in Section 1.
|
||||
Protected Overridable Sub LeftRightImageInit()
|
||||
|
||||
If Me.LeftImage.Visible = True AndAlso _
|
||||
Me.LanguageSelector.Visible = False AndAlso _
|
||||
Me.SignInBarPrintButton.Visible = False AndAlso _
|
||||
Me.SignIn.Visible = False AndAlso _
|
||||
Me.SIOImage.Visible = False AndAlso _
|
||||
Me.ThemeSelector.Visible = False Then
|
||||
Me.LeftImage.Visible = False
|
||||
End If
|
||||
If Me.RightImage.Visible = True AndAlso _
|
||||
Me.LanguageSelector.Visible = False AndAlso _
|
||||
Me.SignInBarPrintButton.Visible = False AndAlso _
|
||||
Me.SignIn.Visible = False AndAlso _
|
||||
Me.SIOImage.Visible = False AndAlso _
|
||||
Me.ThemeSelector.Visible = False Then
|
||||
Me.RightImage.Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Initializes SignIn LinkButton.
|
||||
'You can change the behavior of this method in Section 1.
|
||||
Protected Overridable Sub SignInButtonInit()
|
||||
|
||||
Me.UserStatusLbl.Visible = False
|
||||
If (BaseClasses.Configuration.ApplicationSettings.Current.AuthenticationType = BaseClasses.Configuration.SecurityConstants.None) Then
|
||||
|
||||
Me.SIOImage.Visible = False
|
||||
Me.SignIn.Visible = False
|
||||
Me.Divider2.Visible = False
|
||||
Else
|
||||
|
||||
Me.SIOImage.Visible = True
|
||||
Me.SignIn.Visible = True
|
||||
Me.UserStatusLbl.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
Select Case (DirectCast(Me.Page, BaseApplicationPage).CurrentSecurity.GetUserStatus())
|
||||
Case Nothing, ""
|
||||
|
||||
Me.SignIn.Text = GetResourceValue("Txt:SignIn", "Persons")
|
||||
Me.SignIn.ToolTip = GetResourceValue("Txt:SignIn", "Persons")
|
||||
|
||||
Me.SIOImage.ImageUrl = "../Images/SignInBarSignIn.gif"
|
||||
Me.SIOImage.Attributes.Add("onmouseover", "this.src='../Images/SignInBarSignInOver.gif'")
|
||||
Me.SIOImage.Attributes.Add("onmouseout", "this.src='../Images/SignInBarSignIn.gif'")
|
||||
Me.SIOImage.ToolTip = GetResourceValue("Txt:SignIn", "Persons")
|
||||
|
||||
Case Else
|
||||
|
||||
Me.SignIn.Text = GetResourceValue("Txt:SignOut", "Persons")
|
||||
Me.SignIn.ToolTip = GetResourceValue("Txt:SignOut", "Persons")
|
||||
|
||||
Me.SIOImage.ImageUrl = "../Images/SignInBarSignOut.gif"
|
||||
Me.SIOImage.Attributes.Add("onmouseover", "this.src='../Images/SignInBarSignOutOver.gif'")
|
||||
Me.SIOImage.Attributes.Add("onmouseout", "this.src='../Images/SignInBarSignOut.gif'")
|
||||
Me.SIOImage.ToolTip = GetResourceValue("Txt:SignOut", "Persons")
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
'Performs SignIn and SignOut.
|
||||
Protected Overridable Sub SignInOutProceed(ByVal sender As Object)
|
||||
Dim url As String
|
||||
Dim deviceSize As String = DirectCast(Me.Page, BaseApplicationPage).CheckDeviceSize()
|
||||
Dim shouldRedirect As Boolean
|
||||
Select Case (DirectCast(Me.Page, BaseApplicationPage).CurrentSecurity.GetUserStatus())
|
||||
Case Nothing, ""
|
||||
If ( StringUtils.InvariantUCase(deviceSize).Equals(StringUtils.InvariantUCase("Small")) ) Then
|
||||
url = BaseClasses.Configuration.ApplicationSettings.Current.MobileSignInPageUrl()
|
||||
Else
|
||||
url = BaseClasses.Configuration.ApplicationSettings.Current.SignInPageUrl()
|
||||
End If
|
||||
|
||||
url = ".." + url.Substring(BaseClasses.Configuration.ApplicationSettings.Current.AppRootPath.Length-1)
|
||||
shouldRedirect = True
|
||||
Try
|
||||
DbUtils.StartTransaction()
|
||||
url = CType(Me.Page, BaseApplicationPage).ModifyRedirectUrl(url, "", False)
|
||||
CType(Me.Page, BaseApplicationPage).CommitTransaction(sender)
|
||||
Catch ex As Exception
|
||||
CType(Me.Page, BaseApplicationPage).RollBackTransaction(sender)
|
||||
shouldRedirect = False
|
||||
CType(Me.Page, BaseApplicationPage).ErrorOnPage = True
|
||||
BaseClasses.Utils.MiscUtils.RegisterJScriptAlert(Me, "BUTTON_CLICK_MESSAGE", ex.Message)
|
||||
Finally
|
||||
DbUtils.EndTransaction()
|
||||
End Try
|
||||
If shouldRedirect Then
|
||||
CType(Me.Page, BaseApplicationPage).Response.Redirect(url)
|
||||
End If
|
||||
Case Else
|
||||
if ( StringUtils.InvariantUCase(deviceSize).Equals(StringUtils.InvariantUCase("Small")) ) Then
|
||||
url = BaseClasses.Configuration.ApplicationSettings.Current.MobileSignedOutPageUrl()
|
||||
Else
|
||||
url = BaseClasses.Configuration.ApplicationSettings.Current.SignedOutPageUrl()
|
||||
End If
|
||||
url = ".." + url.Substring(BaseClasses.Configuration.ApplicationSettings.Current.AppRootPath.Length-1)
|
||||
If Not String.IsNullOrEmpty(DirectCast(Session("AppCultureUI"), String)) Then
|
||||
url = url + "?cultureui=" + DirectCast(Session("AppCultureUI"), String)
|
||||
End If
|
||||
shouldRedirect = True
|
||||
Try
|
||||
DbUtils.StartTransaction()
|
||||
Me.LogOut()
|
||||
url = CType(Me.Page, BaseApplicationPage).ModifyRedirectUrl(url, "", False)
|
||||
CType(Me.Page, BaseApplicationPage).CommitTransaction(sender)
|
||||
Catch ex As Exception
|
||||
CType(Me.Page, BaseApplicationPage).RollBackTransaction(sender)
|
||||
shouldRedirect = False
|
||||
CType(Me.Page, BaseApplicationPage).ErrorOnPage = True
|
||||
BaseClasses.Utils.MiscUtils.RegisterJScriptAlert(Me, "BUTTON_CLICK_MESSAGE", ex.Message)
|
||||
Finally
|
||||
DbUtils.EndTransaction()
|
||||
End Try
|
||||
If shouldRedirect Then
|
||||
CType(Me.Page, BaseApplicationPage).ShouldSaveControlsToSession = True
|
||||
CType(Me.Page, BaseApplicationPage).Response.Redirect(url)
|
||||
End If
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
' Load data from database into UI controls.
|
||||
' Modify LoadData in Section 1 above to customize. Or override DataBind() in
|
||||
' the individual table and record controls to customize.
|
||||
Public Sub LoadData_Base()
|
||||
Try
|
||||
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' Must start a transaction before performing database operations
|
||||
DbUtils.StartTransaction()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
Me.DataBind()
|
||||
|
||||
' Load and bind data for each record and table UI control.
|
||||
|
||||
|
||||
' Load data for chart.
|
||||
|
||||
|
||||
' initialize aspx controls
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
' An error has occured so display an error message.
|
||||
Utils.RegisterJScriptAlert(Me, "Page_Load_Error_Message", ex.Message)
|
||||
Finally
|
||||
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack") Then
|
||||
' End database transaction
|
||||
DbUtils.EndTransaction()
|
||||
End If
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Public EvaluateFormulaDelegate As BaseClasses.Data.DataSource.EvaluateFormulaDelegate = New BaseClasses.Data.DataSource.EvaluateFormulaDelegate(AddressOf Me.EvaluateFormula)
|
||||
|
||||
Public Overridable Function EvaluateFormula_Base(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object), ByVal includeDS As Boolean) As String
|
||||
Dim e As FormulaEvaluator = New FormulaEvaluator()
|
||||
|
||||
' add variables for formula evaluation
|
||||
If variables IsNot Nothing Then
|
||||
Dim enumerator As System.Collections.Generic.IEnumerator(Of System.Collections.Generic.KeyValuePair(Of String, Object)) = variables.GetEnumerator()
|
||||
While enumerator.MoveNext()
|
||||
e.Variables.Add(enumerator.Current.Key, enumerator.Current.Value)
|
||||
End While
|
||||
End If
|
||||
|
||||
If includeDS
|
||||
|
||||
End If
|
||||
|
||||
|
||||
e.CallingControl = Me
|
||||
|
||||
e.DataSource = dataSourceForEvaluate
|
||||
|
||||
|
||||
Dim resultObj As Object = e.Evaluate(formula)
|
||||
If resultObj Is Nothing Then
|
||||
Return ""
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(format) AndAlso (String.IsNullOrEmpty(formula) OrElse formula.IndexOf("Format(") < 0) Then
|
||||
Return FormulaUtils.Format(resultObj, format)
|
||||
Else
|
||||
Return resultObj.ToString()
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord, ByVal format As String, ByVal variables As System.Collections.Generic.IDictionary(Of String, Object)) As String
|
||||
Return EvaluateFormula(formula, dataSourceForEvaluate, format, variables, True)
|
||||
End Function
|
||||
|
||||
|
||||
Private Function EvaluateFormula(ByVal formula As String, ByVal dataSourceForEvaluate As BaseClasses.Data.BaseRecord) As String
|
||||
Return EvaluateFormula(formula, dataSourceForEvaluate, Nothing, Nothing, True)
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String, ByVal includeDS As Boolean) As String
|
||||
Return EvaluateFormula(formula, Nothing, Nothing, Nothing, includeDS)
|
||||
End Function
|
||||
|
||||
Public Function EvaluateFormula(ByVal formula As String) As String
|
||||
Return EvaluateFormula(formula, Nothing, Nothing, Nothing, True)
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
' Write out the Set methods
|
||||
|
||||
|
||||
' Write out the DataSource properties and methods
|
||||
|
||||
|
||||
' Write out event methods for the page events
|
||||
|
||||
' event handler for ImageButton
|
||||
Public Sub SIOImage_Click_Base(ByVal sender As Object, ByVal args As ImageClickEventArgs)
|
||||
|
||||
Me.SignInOutProceed(sender)
|
||||
|
||||
End Sub
|
||||
|
||||
' event handler for LinkButton
|
||||
Public Sub SignIn_Click_Base(ByVal sender As Object, ByVal args As EventArgs)
|
||||
|
||||
Me.SignInOutProceed(sender)
|
||||
|
||||
End Sub
|
||||
|
||||
#Region "Interface Properties"
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property Divider0() As System.Web.UI.WebControls.Image Implements IHeader.Divider0
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_Divider0"), System.Web.UI.WebControls.Image)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property Divider1() As System.Web.UI.WebControls.Image Implements IHeader.Divider1
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_Divider1"), System.Web.UI.WebControls.Image)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property Divider2() As System.Web.UI.WebControls.Image Implements IHeader.Divider2
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_Divider2"), System.Web.UI.WebControls.Image)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property LeftImage() As System.Web.UI.WebControls.Image Implements IHeader.LeftImage
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_LeftImage"), System.Web.UI.WebControls.Image)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property Logo() As System.Web.UI.WebControls.Image Implements IHeader.Logo
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_Logo"), System.Web.UI.WebControls.Image)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property RightImage() As System.Web.UI.WebControls.Image Implements IHeader.RightImage
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_RightImage"), System.Web.UI.WebControls.Image)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property SignIn() As System.Web.UI.WebControls.LinkButton Implements IHeader.SignIn
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_SignIn"), System.Web.UI.WebControls.LinkButton)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property SignInBarPrintButton() As System.Web.UI.WebControls.Image Implements IHeader.SignInBarPrintButton
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_SignInBarPrintButton"), System.Web.UI.WebControls.Image)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property SIOImage() As System.Web.UI.WebControls.ImageButton Implements IHeader.SIOImage
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_SIOImage"), System.Web.UI.WebControls.ImageButton)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property SkipNavigationLinks() As System.Web.UI.WebControls.HyperLink Implements IHeader.SkipNavigationLinks
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_SkipNavigationLinks"), System.Web.UI.WebControls.HyperLink)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
<Bindable(True), _
|
||||
Category("Behavior"), _
|
||||
DefaultValue(""), _
|
||||
NotifyParentProperty(True), _
|
||||
DesignerSerializationVisibility(DesignerSerializationVisibility.Content)> _
|
||||
Public ReadOnly Property UserStatusLbl() As System.Web.UI.WebControls.Label Implements IHeader.UserStatusLbl
|
||||
Get
|
||||
Return CType(BaseClasses.Utils.MiscUtils.FindControlRecursively(Me, "_UserStatusLbl"), System.Web.UI.WebControls.Label)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public Overrides Property Visible() As Boolean Implements IHeader.Visible
|
||||
|
||||
Get
|
||||
Return MyBase.Visible
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
MyBase.Visible = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Public Shadows ReadOnly Property Page() As BaseApplicationPage
|
||||
Get
|
||||
Return DirectCast(MyBase.Page, BaseApplicationPage)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
End Namespace
|
||||
|
||||
|
||||
466
Header and Footer/Header.xml
Normal file
466
Header and Footer/Header.xml
Normal file
|
|
@ -0,0 +1,466 @@
|
|||
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
|
||||
<ComponentDefinition xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="http://www.ironspeed.com/designer">
|
||||
<Generator>Iron Speed Designer</Generator>
|
||||
<Version>9.2.0</Version>
|
||||
<Self>
|
||||
<Name>Header</Name>
|
||||
<Type>Header</Type>
|
||||
<SubType>DotNet</SubType>
|
||||
<GenerateDirectory>Header and Footer</GenerateDirectory>
|
||||
<Layout>Header and Footer\Header.html</Layout>
|
||||
<DisplayName>Header</DisplayName>
|
||||
<Description>(Description)</Description>
|
||||
</Self>
|
||||
<ComposedOf>
|
||||
<ContainedComponent>
|
||||
<Name>Divider0</Name>
|
||||
<Type>Image</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value />
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/SignInBarDivider.gif</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>Divider1</Name>
|
||||
<Type>Image</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value />
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/SignInBarDivider.gif</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>Divider2</Name>
|
||||
<Type>Image</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value />
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/SignInBarDivider.gif</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>LanguageSelector</Name>
|
||||
<Type>Aspx</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>CommandName</Name>
|
||||
<Value>LanguageSelector</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
<ControlClass>System.Web.UI.WebControls.DropDownList</ControlClass>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>LeftImage</Name>
|
||||
<Type>Image</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value />
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>Height</Name>
|
||||
<Value>23</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/SignInBarL.gif</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>Width</Name>
|
||||
<Value>36</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>Logo</Name>
|
||||
<Type>Image</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value>Txt:PageHeader</Value>
|
||||
<Type>ResourceReference</Type>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/Logo.gif</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>style</Name>
|
||||
<Value>border-width:0px;</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>RightImage</Name>
|
||||
<Type>Image</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value />
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>Height</Name>
|
||||
<Value>23</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/SignInBarR.gif</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>Width</Name>
|
||||
<Value>36</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>SignIn</Name>
|
||||
<Type>LinkButton</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>CausesValidation</Name>
|
||||
<Value>False</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>CommandName</Name>
|
||||
<Value>ShowSignIn</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ToolTip</Name>
|
||||
<Value>SignIn</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>SignInBarPrintButton</Name>
|
||||
<Type>Image</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value>Print</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>CausesValidation</Name>
|
||||
<Value>False</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>CommandName</Name>
|
||||
<Value>ShowSignInBarPrintButton</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/SignInBarPrint.gif</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>name</Name>
|
||||
<Value>SignInBarPrintButton</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>onmouseout</Name>
|
||||
<Value>this.src='../Images/SignInBarPrint.gif';</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>onmouseover</Name>
|
||||
<Value>this.src='../Images/SignInBarPrintOver.gif';</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>style</Name>
|
||||
<Value>border:0px;</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ToolTip</Name>
|
||||
<Value>Txt:PrintPage</Value>
|
||||
<Type>ResourceReference</Type>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>SIOImage</Name>
|
||||
<Type>ImageButton</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>alt</Name>
|
||||
<Value>SignInButton</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>CausesValidation</Name>
|
||||
<Value>False</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>CommandName</Name>
|
||||
<Value>ShowSIOImage</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ImageURL</Name>
|
||||
<Value>../Images/SignInBarSignIn.gif</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>SkipNavigationLinks</Name>
|
||||
<Type>HyperLink</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>CssClass</Name>
|
||||
<Value>skipNavigationLinks</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>NavigateURL</Name>
|
||||
<Value>#StartOfPageContent</Value>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>Text</Name>
|
||||
<Value>Txt:SkipNavigation</Value>
|
||||
<Type>ResourceReference</Type>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>ToolTip</Name>
|
||||
<Value>Txt:SkipNavigation</Value>
|
||||
<Type>ResourceReference</Type>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>ThemeSelector</Name>
|
||||
<Type>Aspx</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>CommandName</Name>
|
||||
<Value>ThemeSelector</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
<ControlClass>System.Web.UI.WebControls.DropDownList</ControlClass>
|
||||
</ContainedComponent>
|
||||
<ContainedComponent>
|
||||
<Name>UserStatusLbl</Name>
|
||||
<Type>Label</Type>
|
||||
<PassthroughAttributes>
|
||||
<Attribute>
|
||||
<Name>CommandName</Name>
|
||||
<Value>ShowUserStatusLbl</Value>
|
||||
</Attribute>
|
||||
</PassthroughAttributes>
|
||||
</ContainedComponent>
|
||||
</ComposedOf>
|
||||
<LayoutDefinition><![CDATA[<?xml version="1.0" encoding="utf-16"?>
|
||||
<LayoutDefinition xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<Layout Name="Header" Type="RootLayout">
|
||||
<Prolog />
|
||||
<Row>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:HYPERLINK NAME="SkipNavigationLinks"/&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>style</Name>
|
||||
<AttributeValue>vertical-align:top;</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:PANEL NAME="HeaderSecurity"/&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>style</Name>
|
||||
<AttributeValue>text-align:right; vertical-align:top;</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>rowspan</Name>
|
||||
<AttributeValue>2</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
</Row>
|
||||
<Row>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:IMAGE NAME="Logo"/&gt;</Value>
|
||||
</Cell>
|
||||
</Row>
|
||||
<Epilog />
|
||||
<TableAttributes>
|
||||
<Attribute>
|
||||
<Name>cellpadding</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>cellspacing</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>border</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>width</Name>
|
||||
<AttributeValue>100%</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>logoBG</AttributeValue>
|
||||
</Attribute>
|
||||
</TableAttributes>
|
||||
</Layout>
|
||||
<Layout Name="HeaderSecurity">
|
||||
<Row>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:PANEL NAME="PageHeaderButtons"/&gt;</Value>
|
||||
</Cell>
|
||||
</Row>
|
||||
<TableAttributes>
|
||||
<Attribute>
|
||||
<Name>cellpadding</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>cellspacing</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>border</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
</TableAttributes>
|
||||
</Layout>
|
||||
<Layout Name="PageHeaderButtons">
|
||||
<Row>
|
||||
<Cell>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>style</Name>
|
||||
<AttributeValue>width:100%;</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:Image NAME="LeftImage"/&gt;</Value>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;asp:dropdownlist id="LanguageSelector" runat="server" cssclass="Filter_Input" AutoPostBack="true"&gt;&lt;/asp:dropdownlist&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBar</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:Image NAME="Divider1" /&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBar</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;asp:dropdownlist id="ThemeSelector" runat="server" cssclass="Filter_Input" AutoPostBack="true"&gt;&lt;/asp:dropdownlist&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBar</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:Image NAME="Divider0" /&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBar</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:LinkButton NAME="SignIn"/&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBar</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:ImageButton NAME="SIOImage"/&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBar</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:Image NAME="Divider2"/&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBar</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;a href="javascript:printPage();"/&gt;&lt;GEN:Image NAME="SignInBarPrintButton"/&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBar</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:Image NAME="RightImage"/&gt;</Value>
|
||||
</Cell>
|
||||
</Row>
|
||||
<Row>
|
||||
<Cell>
|
||||
<CellAttributes />
|
||||
</Cell>
|
||||
<Cell>
|
||||
<CellAttributes />
|
||||
</Cell>
|
||||
<Cell>
|
||||
<Value>&lt;GEN:Label NAME="UserStatusLbl" /&gt;</Value>
|
||||
<CellAttributes>
|
||||
<Attribute>
|
||||
<Name>class</Name>
|
||||
<AttributeValue>signInBarStatus</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>colspan</Name>
|
||||
<AttributeValue>8</AttributeValue>
|
||||
</Attribute>
|
||||
</CellAttributes>
|
||||
</Cell>
|
||||
<RowAttributes />
|
||||
</Row>
|
||||
<Epilog />
|
||||
<TableAttributes>
|
||||
<Attribute>
|
||||
<Name>cellpadding</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>cellspacing</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
<Attribute>
|
||||
<Name>border</Name>
|
||||
<AttributeValue>0</AttributeValue>
|
||||
</Attribute>
|
||||
</TableAttributes>
|
||||
</Layout>
|
||||
</LayoutDefinition>]]></LayoutDefinition>
|
||||
</ComponentDefinition>
|
||||
Loading…
Add table
Add a link
Reference in a new issue