Partial Public ClassEdit_Customers
InheritsBaseApplicationPage
#Region "Section 1: Place your customizations here."
Public Sub SetPageFocus()
Public Sub LoadData()
LoadData_Base()
End Sub
Private FunctionEvaluateFormula(…) As String
ReturnEvaluateFormula_Base(…)
End Function
Public SubPage_InitializeEventHandlers(…) Handles MyBase.Init
Me.Page_InitializeEventHandlers_Base(sender,e)
End Sub
Public SubPage_PreRender(…) Handles Me.PreRender
Me.Page_PreRender_Base(sender,e)
End Sub
Public Overrides Sub SaveData()
Me.SaveData_Base()
End Sub
Public SubPage_PreInit(…) Handles Me.PreInit
Me.PreInit_Base()
End Sub
#Region "Ajax Functions"
<Services.WebMethod()> _
Public Shared FunctionGetRecordFieldValue(…) As Object()
ReturnGetRecordFieldValue_Base(…)
End Function
<Services.WebMethod()> _
Public Shared Function GetImage(…) As Object()
ReturnGetImage_Base(…)
End Function
#End Region
Public SubCancelButton_Click(…)
CancelButton_Click_Base(…)
End Sub
Public SubSaveButton_Click(…)
SaveButton_Click_Base(…)
End Sub
…
Public SubSetCustomersRecordControl()
SetCustomersRecordControl_Base()
End Sub
Public SubSetSaveButton()
SetSaveButton_Base()
End Sub
#End Region
#Region "Section 2: Do not modify this section."
…
Protected SubPage_InitializeEventHandlers_Base(…)
AddHandler Me.CancelButton.Button.Click, AddressOf CancelButton_Click
AddHandler Me.SaveButton.Button.Click, AddressOfSaveButton_Click
End Sub
Protected Overridable Sub Page_Load(…) Handles MyBase.Load
Me.SetPageFocus()
Me.Authorize("")
If (Not Me.IsPostBack OrElse Me.Request("__EVENTTARGET") = "ChildWindowPostBack" OrElse ( Me.Request("__EVENTTARGET") = "isd_geo_location")) Then
Me.LoadData()
End If
End Sub
Public Shared FunctionGetRecordFieldValue_Base(…) As Object()
Public Shared FunctionGetImage_Base(…) As Object()
Public SubSetControl_Base(ByVal control As String)
Select Case control
Case "CustomersRecordControl"
SetCustomersRecordControl()
Case "OrdersTableControl"
SetOrdersTableControl()
End Select
End Sub
Public SubSaveData_Base()
Me.CustomersRecordControl.SaveData()
End Sub
Public SubPreInit_Base()
Public SubPage_PreRender_Base(…)
Public SubLoadData_Base()
DbUtils.StartTransaction()
Me.DataBind()
SetCustomersTabContainer()
SetOrdersTabPanel()
…
SetSaveButton()
…
DbUtils.EndTransaction()
End Sub
…
Public Overridable FunctionEvaluateFormula_Base(…) As String
Public SubSetCustomersTabContainer_Base()
Public SubSetOrdersTabPanel_Base()
Public SubSetCustomersRecordControl_Base()
…
Public SubSetSaveButton_Base()
Public SubCancelButton_Click_Base(…)
Public SubSaveButton_Click_Base(…)
DbUtils.StartTransaction
If (Not Me.IsPageRefresh) Then
Me.SaveData()
End If
Me.CommitTransaction(…)
DbUtils.EndTransaction
End Sub
#End Region
End Class