home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblEmployeessrch.aspx.vb < prev    next >
Text File  |  2012-01-28  |  41KB  |  1,015 lines
  1. Imports System.Data
  2. Imports System.Data.Common
  3. Imports System.Xml
  4. Imports System.IO
  5. Imports System.Data.OleDb
  6.  
  7. '
  8. ' ASP.NET code-behind class (Page)
  9. '
  10.  
  11. Partial Class tblEmployeessrch
  12.     Inherits AspNetMaker7_tfpssnet
  13.  
  14.     ' Page object
  15.     Public tblEmployees_search As ctblEmployees_search
  16.  
  17.     '
  18.     ' Page Class
  19.     '
  20.     Class ctblEmployees_search
  21.         Inherits AspNetMakerPage
  22.         Implements IDisposable        
  23.  
  24.         ' Used by system generated functions
  25.         Private RsWrk As Object, sSqlWrk As String, sWhereWrk As String
  26.  
  27.         Private arwrk As Object
  28.  
  29.         Private armultiwrk() As String        
  30.  
  31.         ' Page URL
  32.         Public ReadOnly Property PageUrl() As String
  33.             Get
  34.                 Dim Url As String = ew_CurrentPage() & "?"
  35.                 If tblEmployees.UseTokenInUrl Then Url = Url & "t=" & tblEmployees.TableVar & "&" ' Add page token
  36.                 Return Url    
  37.             End Get
  38.         End Property
  39.  
  40.         ' Validate page request
  41.         Public Function IsPageRequest() As Boolean
  42.             Dim Result As Boolean
  43.             If tblEmployees.UseTokenInUrl Then
  44.                 Result = False
  45.                 If ObjForm IsNot Nothing Then
  46.                     Result = (tblEmployees.TableVar = ObjForm.GetValue("t"))
  47.                 End If
  48.                 If ew_Get("t") <> "" Then
  49.                     Result = (tblEmployees.TableVar = ew_Get("t"))
  50.                 End If
  51.                 Return Result
  52.             End If
  53.             Return True            
  54.         End Function    
  55.  
  56.         ' tblEmployees
  57.         Public Property tblEmployees() As ctblEmployees
  58.             Get                
  59.                 Return ParentPage.tblEmployees
  60.             End Get
  61.             Set(ByVal v As ctblEmployees)
  62.                 ParentPage.tblEmployees = v    
  63.             End Set    
  64.         End Property
  65.  
  66.         '
  67.         '  Constructor
  68.         '  - init objects
  69.         '  - open connection
  70.         '
  71.         Public Sub New(ByRef APage As AspNetMaker7_tfpssnet)                
  72.             m_ParentPage = APage
  73.             m_Page = Me    
  74.             m_PageID = "search"
  75.             m_PageObjName = "tblEmployees_search"
  76.             m_PageObjTypeName = "ctblEmployees_search"
  77.  
  78.             ' Table Name
  79.             m_TableName = "tblEmployees"
  80.  
  81.             ' Initialize table object
  82.             tblEmployees = New ctblEmployees(Me)
  83.  
  84.             ' Connect to database
  85.             Conn = New cConnection()
  86.         End Sub
  87.  
  88.         '
  89.         '  Subroutine Page_Init
  90.         '  - called before page main
  91.         '  - check Security
  92.         '  - set up response header
  93.         '  - call page load events
  94.         '
  95.         Public Sub Page_Init()
  96.             Security = New cAdvancedSecurity(Me)
  97.             If Not Security.IsLoggedIn() Then Security.AutoLogin()
  98.             If Not Security.IsLoggedIn() Then
  99.                 Security.SaveLastUrl()
  100.                 Page_Terminate("login.aspx")
  101.             End If
  102.  
  103.             ' Table Permission loading event
  104.             Security.TablePermission_Loading()
  105.             Security.LoadCurrentUserLevel(TableName)
  106.  
  107.             ' Table Permission loaded event
  108.             Security.TablePermission_Loaded()
  109.             If Not Security.CanSearch Then
  110.                 Security.SaveLastUrl()
  111.                 Page_Terminate("tblEmployeeslist.aspx")
  112.             End If
  113.  
  114.             ' User ID loading event
  115.             Security.UserID_Loading()
  116.             If Security.IsLoggedIn() Then Call Security.LoadUserID()
  117.  
  118.             ' User ID loaded event
  119.             Security.UserID_Loaded()
  120.             If Security.IsLoggedIn() And ew_Empty(Security.CurrentUserID) Then
  121.                 Message = "You do not have the right permission to view the page"
  122.                 Page_Terminate("tblEmployeeslist.aspx")
  123.             End If
  124.  
  125.             ' Global page loading event (in ewglobal*.vb)
  126.             ParentPage.Page_Loading()
  127.  
  128.             ' Page load event, used in current page
  129.             Page_Load()
  130.         End Sub
  131.  
  132.         '
  133.         '  Class terminate
  134.         '  - clean up page object
  135.         '
  136.         Public Sub Dispose() Implements IDisposable.Dispose
  137.             Page_Terminate("")
  138.         End Sub
  139.  
  140.         '
  141.         '  Sub Page_Terminate
  142.         '  - called when exit page
  143.         '  - clean up connection and objects
  144.         '  - if URL specified, redirect to URL
  145.         '
  146.         Sub Page_Terminate(url As String)
  147.  
  148.             ' Page unload event, used in current page
  149.             Page_Unload()
  150.  
  151.             ' Global page unloaded event (in ewglobal*.vb)
  152.             ParentPage.Page_Unloaded()
  153.  
  154.             ' Close connection
  155.             Conn.Dispose()
  156.             Security = Nothing
  157.             tblEmployees.Dispose()
  158.  
  159.             ' Go to URL if specified
  160.             If url <> "" Then
  161.                 HttpContext.Current.Response.Clear()
  162.                 HttpContext.Current.Response.Redirect(url)
  163.             End If
  164.         End Sub
  165.  
  166.     '
  167.     ' Page main processing
  168.     '
  169.     Sub Page_Main()
  170.         ObjForm = New cFormObj
  171.         If IsPageRequest Then ' Validate request
  172.  
  173.             ' Get action
  174.             tblEmployees.CurrentAction = ObjForm.GetValue("a_search")
  175.             Select Case tblEmployees.CurrentAction
  176.                 Case "S" ' Get Search Criteria
  177.  
  178.                     ' Build search string for advanced search, remove blank field
  179.                     Dim sSrchStr As String
  180.                     LoadSearchValues() ' Get search values
  181.                     If ValidateSearch() Then
  182.                         sSrchStr = BuildAdvancedSearch()
  183.                     Else
  184.                         sSrchStr = ""
  185.                         Message = ParentPage.gsSearchError
  186.                     End If
  187.                     If sSrchStr <> "" Then
  188.                         sSrchStr = tblEmployees.UrlParm(sSrchStr)
  189.                     Page_Terminate("tblEmployeeslist.aspx" & "?" & sSrchStr) ' Go to list page
  190.                     End If
  191.             End Select
  192.         End If
  193.  
  194.         ' Restore search settings from Session
  195.         If ParentPage.gsSearchError = "" Then
  196.             LoadAdvancedSearch()
  197.         End If
  198.  
  199.         ' Render row for search
  200.         tblEmployees.RowType = EW_ROWTYPE_SEARCH
  201.         RenderRow()
  202.     End Sub
  203.  
  204.     '
  205.     ' Build advanced search
  206.     '
  207.     Function BuildAdvancedSearch() As String
  208.         Dim sSrchUrl As String = ""
  209.             BuildSearchUrl(sSrchUrl, tblEmployees.empID) ' empID
  210.             BuildSearchUrl(sSrchUrl, tblEmployees.empPayrollNumber) ' empPayrollNumber
  211.             BuildSearchUrl(sSrchUrl, tblEmployees.empUsername) ' empUsername
  212.         BuildSearchUrl(sSrchUrl, tblEmployees.empName) ' empName
  213.         BuildSearchUrl(sSrchUrl, tblEmployees.empFirstName) ' empFirstName
  214.         BuildSearchUrl(sSrchUrl, tblEmployees.empLastName) ' empLastName
  215.         BuildSearchUrl(sSrchUrl, tblEmployees.empAddress) ' empAddress
  216.         BuildSearchUrl(sSrchUrl, tblEmployees.empCity) ' empCity
  217.         BuildSearchUrl(sSrchUrl, tblEmployees.empState) ' empState
  218.         BuildSearchUrl(sSrchUrl, tblEmployees.empZIP) ' empZIP
  219.         BuildSearchUrl(sSrchUrl, tblEmployees.empPhone) ' empPhone
  220.         BuildSearchUrl(sSrchUrl, tblEmployees.empStatusID) ' empStatusID
  221.         BuildSearchUrl(sSrchUrl, tblEmployees.empStartDate) ' empStartDate
  222.         BuildSearchUrl(sSrchUrl, tblEmployees.empPositionID) ' empPositionID
  223.         BuildSearchUrl(sSrchUrl, tblEmployees.empRate) ' empRate
  224.         BuildSearchUrl(sSrchUrl, tblEmployees.empLastRaiseDate) ' empLastRaiseDate
  225.         BuildSearchUrl(sSrchUrl, tblEmployees.empLastRaiseAmount) ' empLastRaiseAmount
  226.         BuildSearchUrl(sSrchUrl, tblEmployees.empEmail) ' empEmail
  227.         BuildSearchUrl(sSrchUrl, tblEmployees.empLiftCert) ' empLiftCert
  228.         BuildSearchUrl(sSrchUrl, tblEmployees.empForkCert) ' empForkCert
  229.             BuildSearchUrl(sSrchUrl, tblEmployees.empDriveAuth) ' empDriveAuth
  230.             BuildSearchUrl(sSrchUrl, tblEmployees.empTimeClock) ' empTimeClock
  231.             BuildSearchUrl(sSrchUrl, tblEmployees.empUserPass) ' empUserPass
  232.         BuildSearchUrl(sSrchUrl, tblEmployees.empUserLevel) ' empUserLevel
  233.         Return sSrchUrl
  234.     End Function
  235.  
  236.     '
  237.     ' Build search URL
  238.     '
  239.     Sub BuildSearchUrl(ByRef Url As String, ByRef Fld As Object)
  240.         Dim FldVal As String, FldOpr As String, FldCond As String, FldVal2 As String, FldOpr2 As String
  241.         Dim FldParm As String
  242.         Dim IsValidValue As Boolean, sWrk As String = ""
  243.         FldParm = Fld.FldVar.Substring(2)
  244.         FldVal = ObjForm.GetValue("x_" & FldParm)
  245.         FldOpr = ObjForm.GetValue("z_" & FldParm)
  246.         FldCond = ObjForm.GetValue("v_" & FldParm)
  247.         FldVal2 = ObjForm.GetValue("y_" & FldParm)
  248.         FldOpr2 = ObjForm.GetValue("w_" & FldParm)        
  249.         If ew_SameText(FldOpr, "BETWEEN") Then
  250.             IsValidValue = (Fld.FldDataType <> EW_DATATYPE_NUMBER) OrElse _
  251.                 (Fld.FldDataType = EW_DATATYPE_NUMBER AndAlso IsNumeric(FldVal) AndAlso IsNumeric(FldVal2))
  252.             If ew_NotEmpty(FldVal) AndAlso ew_NotEmpty(FldVal2) AndAlso IsValidValue Then
  253.                 sWrk = "x_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldVal) & _
  254.                     "&y_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldVal2) & _
  255.                     "&z_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldOpr)
  256.             End If
  257.         ElseIf ew_SameText(FldOpr, "IS NULL") OrElse ew_SameText(FldOpr, "IS NOT NULL") Then
  258.             sWrk = "x_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldVal) & _
  259.                 "&z_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldOpr)
  260.         Else
  261.             IsValidValue = (Fld.FldDataType <> EW_DATATYPE_NUMBER) OrElse _
  262.                 (Fld.FldDataType = EW_DATATYPE_NUMBER AndAlso IsNumeric(FldVal))
  263.             If ew_NotEmpty(FldVal) AndAlso IsValidValue AndAlso ew_IsValidOpr(FldOpr, Fld.FldDataType) Then
  264.                 sWrk = "x_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldVal) & _
  265.                     "&z_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldOpr)
  266.             End If
  267.             IsValidValue = (Fld.FldDataType <> EW_DATATYPE_NUMBER) OrElse _
  268.                 (Fld.FldDataType = EW_DATATYPE_NUMBER AndAlso IsNumeric(FldVal2))
  269.             If ew_NotEmpty(FldVal2) AndAlso IsValidValue AndAlso ew_IsValidOpr(FldOpr2, Fld.FldDataType) Then
  270.                 If sWrk <> "" Then sWrk = sWrk & "&v_" & FldParm & "=" & FldCond & "&"
  271.                 sWrk = sWrk & "y_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldVal2) & _
  272.                     "&w_" & FldParm & "=" & HttpContext.Current.Server.UrlEncode(FldOpr2)
  273.             End If
  274.         End If
  275.         If sWrk <> "" Then
  276.             If Url <> "" Then Url = Url & "&"
  277.             Url = Url & sWrk
  278.         End If
  279.     End Sub
  280.  
  281.     '
  282.     ' Load default values
  283.     '
  284.     Sub LoadDefaultValues()
  285.     End Sub
  286.  
  287.     '
  288.     '  Load search values for validation
  289.     '
  290.     Sub LoadSearchValues()
  291.             tblEmployees.empID.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empID")
  292.             tblEmployees.empID.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empID")
  293.             tblEmployees.empPayrollNumber.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empPayrollNumber")
  294.             tblEmployees.empPayrollNumber.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empPayrollNumber")
  295.             tblEmployees.empUsername.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empUsername")
  296.         tblEmployees.empUsername.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empUsername")
  297.         tblEmployees.empName.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empName")
  298.         tblEmployees.empName.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empName")
  299.         tblEmployees.empFirstName.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empFirstName")
  300.         tblEmployees.empFirstName.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empFirstName")
  301.         tblEmployees.empLastName.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empLastName")
  302.         tblEmployees.empLastName.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empLastName")
  303.         tblEmployees.empAddress.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empAddress")
  304.         tblEmployees.empAddress.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empAddress")
  305.         tblEmployees.empCity.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empCity")
  306.         tblEmployees.empCity.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empCity")
  307.         tblEmployees.empState.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empState")
  308.         tblEmployees.empState.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empState")
  309.         tblEmployees.empZIP.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empZIP")
  310.         tblEmployees.empZIP.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empZIP")
  311.         tblEmployees.empPhone.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empPhone")
  312.         tblEmployees.empPhone.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empPhone")
  313.         tblEmployees.empStatusID.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empStatusID")
  314.         tblEmployees.empStatusID.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empStatusID")
  315.         tblEmployees.empStartDate.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empStartDate")
  316.         tblEmployees.empStartDate.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empStartDate")
  317.         tblEmployees.empPositionID.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empPositionID")
  318.         tblEmployees.empPositionID.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empPositionID")
  319.         tblEmployees.empRate.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empRate")
  320.         tblEmployees.empRate.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empRate")
  321.         tblEmployees.empLastRaiseDate.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empLastRaiseDate")
  322.         tblEmployees.empLastRaiseDate.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empLastRaiseDate")
  323.         tblEmployees.empLastRaiseAmount.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empLastRaiseAmount")
  324.         tblEmployees.empLastRaiseAmount.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empLastRaiseAmount")
  325.         tblEmployees.empEmail.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empEmail")
  326.         tblEmployees.empEmail.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empEmail")
  327.         tblEmployees.empLiftCert.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empLiftCert")
  328.         tblEmployees.empLiftCert.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empLiftCert")
  329.         tblEmployees.empForkCert.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empForkCert")
  330.         tblEmployees.empForkCert.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empForkCert")
  331.             tblEmployees.empDriveAuth.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empDriveAuth")
  332.             tblEmployees.empDriveAuth.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empDriveAuth")
  333.             tblEmployees.empTimeClock.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empTimeClock")
  334.             tblEmployees.empTimeClock.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empTimeClock")
  335.             tblEmployees.empUserPass.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empUserPass")
  336.         tblEmployees.empUserPass.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empUserPass")
  337.         tblEmployees.empUserLevel.AdvancedSearch.SearchValue = ObjForm.GetValue("x_empUserLevel")
  338.         tblEmployees.empUserLevel.AdvancedSearch.SearchOperator = ObjForm.GetValue("z_empUserLevel")
  339.     End Sub
  340.  
  341.     '
  342.     ' Render row values based on field settings
  343.     '
  344.     Sub RenderRow()
  345.  
  346.         ' Row Rendering event
  347.         tblEmployees.Row_Rendering()
  348.  
  349.         '
  350.         '  Common render codes for all row types
  351.         '
  352.             ' empID
  353.  
  354.             tblEmployees.empID.CellCssStyle = ""
  355.             tblEmployees.empID.CellCssClass = ""
  356.  
  357.             ' empPayrollNumber
  358.  
  359.             tblEmployees.empPayrollNumber.CellCssStyle = ""
  360.             tblEmployees.empPayrollNumber.CellCssClass = ""
  361.  
  362.             ' empUsername
  363.         tblEmployees.empUsername.CellCssStyle = ""
  364.         tblEmployees.empUsername.CellCssClass = ""
  365.  
  366.         ' empName
  367.         tblEmployees.empName.CellCssStyle = ""
  368.         tblEmployees.empName.CellCssClass = ""
  369.  
  370.         ' empFirstName
  371.         tblEmployees.empFirstName.CellCssStyle = ""
  372.         tblEmployees.empFirstName.CellCssClass = ""
  373.  
  374.         ' empLastName
  375.         tblEmployees.empLastName.CellCssStyle = ""
  376.         tblEmployees.empLastName.CellCssClass = ""
  377.  
  378.         ' empAddress
  379.         tblEmployees.empAddress.CellCssStyle = ""
  380.         tblEmployees.empAddress.CellCssClass = ""
  381.  
  382.         ' empCity
  383.         tblEmployees.empCity.CellCssStyle = ""
  384.         tblEmployees.empCity.CellCssClass = ""
  385.  
  386.         ' empState
  387.         tblEmployees.empState.CellCssStyle = ""
  388.         tblEmployees.empState.CellCssClass = ""
  389.  
  390.         ' empZIP
  391.         tblEmployees.empZIP.CellCssStyle = ""
  392.         tblEmployees.empZIP.CellCssClass = ""
  393.  
  394.         ' empPhone
  395.         tblEmployees.empPhone.CellCssStyle = ""
  396.         tblEmployees.empPhone.CellCssClass = ""
  397.  
  398.         ' empStatusID
  399.         tblEmployees.empStatusID.CellCssStyle = ""
  400.         tblEmployees.empStatusID.CellCssClass = ""
  401.  
  402.         ' empStartDate
  403.         tblEmployees.empStartDate.CellCssStyle = ""
  404.         tblEmployees.empStartDate.CellCssClass = ""
  405.  
  406.         ' empPositionID
  407.         tblEmployees.empPositionID.CellCssStyle = ""
  408.         tblEmployees.empPositionID.CellCssClass = ""
  409.  
  410.         ' empRate
  411.         tblEmployees.empRate.CellCssStyle = ""
  412.         tblEmployees.empRate.CellCssClass = ""
  413.  
  414.         ' empLastRaiseDate
  415.         tblEmployees.empLastRaiseDate.CellCssStyle = ""
  416.         tblEmployees.empLastRaiseDate.CellCssClass = ""
  417.  
  418.         ' empLastRaiseAmount
  419.         tblEmployees.empLastRaiseAmount.CellCssStyle = ""
  420.         tblEmployees.empLastRaiseAmount.CellCssClass = ""
  421.  
  422.         ' empEmail
  423.         tblEmployees.empEmail.CellCssStyle = ""
  424.         tblEmployees.empEmail.CellCssClass = ""
  425.  
  426.         ' empLiftCert
  427.         tblEmployees.empLiftCert.CellCssStyle = ""
  428.         tblEmployees.empLiftCert.CellCssClass = ""
  429.  
  430.         ' empForkCert
  431.         tblEmployees.empForkCert.CellCssStyle = ""
  432.         tblEmployees.empForkCert.CellCssClass = ""
  433.  
  434.             ' empDriveAuth
  435.             tblEmployees.empDriveAuth.CellCssStyle = ""
  436.             tblEmployees.empDriveAuth.CellCssClass = ""
  437.  
  438.             ' empTimeClock
  439.             tblEmployees.empTimeClock.CellCssStyle = ""
  440.             tblEmployees.empTimeClock.CellCssClass = ""
  441.  
  442.             ' empUserPass
  443.         tblEmployees.empUserPass.CellCssStyle = ""
  444.         tblEmployees.empUserPass.CellCssClass = ""
  445.  
  446.         ' empUserLevel
  447.         tblEmployees.empUserLevel.CellCssStyle = ""
  448.         tblEmployees.empUserLevel.CellCssClass = ""
  449.  
  450.         '
  451.         '  View  Row
  452.         '
  453.  
  454.         If tblEmployees.RowType = EW_ROWTYPE_VIEW Then ' View row
  455.  
  456.                 ' empID
  457.                 tblEmployees.empID.ViewValue = tblEmployees.empID.CurrentValue
  458.                 tblEmployees.empID.CssStyle = ""
  459.                 tblEmployees.empID.CssClass = ""
  460.                 tblEmployees.empID.ViewCustomAttributes = ""
  461.  
  462.                 ' empPayrollNumber
  463.                 tblEmployees.empPayrollNumber.ViewValue = tblEmployees.empID.CurrentValue
  464.                 tblEmployees.empPayrollNumber.CssStyle = ""
  465.                 tblEmployees.empPayrollNumber.CssClass = ""
  466.                 tblEmployees.empPayrollNumber.ViewCustomAttributes = ""
  467.  
  468.                 ' empUsername
  469.             tblEmployees.empUsername.ViewValue = tblEmployees.empUsername.CurrentValue
  470.             tblEmployees.empUsername.CssStyle = ""
  471.             tblEmployees.empUsername.CssClass = ""
  472.             tblEmployees.empUsername.ViewCustomAttributes = ""
  473.  
  474.             ' empName
  475.             tblEmployees.empName.ViewValue = tblEmployees.empName.CurrentValue
  476.             tblEmployees.empName.CssStyle = ""
  477.             tblEmployees.empName.CssClass = ""
  478.             tblEmployees.empName.ViewCustomAttributes = ""
  479.  
  480.             ' empFirstName
  481.             tblEmployees.empFirstName.ViewValue = tblEmployees.empFirstName.CurrentValue
  482.             tblEmployees.empFirstName.CssStyle = ""
  483.             tblEmployees.empFirstName.CssClass = ""
  484.             tblEmployees.empFirstName.ViewCustomAttributes = ""
  485.  
  486.             ' empLastName
  487.             tblEmployees.empLastName.ViewValue = tblEmployees.empLastName.CurrentValue
  488.             tblEmployees.empLastName.CssStyle = ""
  489.             tblEmployees.empLastName.CssClass = ""
  490.             tblEmployees.empLastName.ViewCustomAttributes = ""
  491.  
  492.             ' empAddress
  493.             tblEmployees.empAddress.ViewValue = tblEmployees.empAddress.CurrentValue
  494.             tblEmployees.empAddress.CssStyle = ""
  495.             tblEmployees.empAddress.CssClass = ""
  496.             tblEmployees.empAddress.ViewCustomAttributes = ""
  497.  
  498.             ' empCity
  499.             tblEmployees.empCity.ViewValue = tblEmployees.empCity.CurrentValue
  500.             tblEmployees.empCity.CssStyle = ""
  501.             tblEmployees.empCity.CssClass = ""
  502.             tblEmployees.empCity.ViewCustomAttributes = ""
  503.  
  504.             ' empState
  505.             tblEmployees.empState.ViewValue = tblEmployees.empState.CurrentValue
  506.             tblEmployees.empState.CssStyle = ""
  507.             tblEmployees.empState.CssClass = ""
  508.             tblEmployees.empState.ViewCustomAttributes = ""
  509.  
  510.             ' empZIP
  511.             tblEmployees.empZIP.ViewValue = tblEmployees.empZIP.CurrentValue
  512.             tblEmployees.empZIP.CssStyle = ""
  513.             tblEmployees.empZIP.CssClass = ""
  514.             tblEmployees.empZIP.ViewCustomAttributes = ""
  515.  
  516.             ' empPhone
  517.             tblEmployees.empPhone.ViewValue = tblEmployees.empPhone.CurrentValue
  518.             tblEmployees.empPhone.CssStyle = ""
  519.             tblEmployees.empPhone.CssClass = ""
  520.             tblEmployees.empPhone.ViewCustomAttributes = ""
  521.  
  522.             ' empStatusID
  523.             If ew_NotEmpty(tblEmployees.empStatusID.CurrentValue) Then
  524.                 sSqlWrk = "SELECT [tscStatus] FROM [tblEmployeeStatus] WHERE [ID] = " & ew_AdjustSql(tblEmployees.empStatusID.CurrentValue) & ""
  525.                 sSqlWrk = sSqlWrk & " ORDER BY [tscStatus] "
  526.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  527.                 If RsWrk.Read() Then
  528.                     tblEmployees.empStatusID.ViewValue = RsWrk("tscStatus")
  529.                 Else
  530.                     tblEmployees.empStatusID.ViewValue = tblEmployees.empStatusID.CurrentValue
  531.                 End If
  532.                 Conn.CloseTempDataReader()
  533.             Else
  534.                 tblEmployees.empStatusID.ViewValue = System.DBNull.Value
  535.             End If
  536.             tblEmployees.empStatusID.CssStyle = ""
  537.             tblEmployees.empStatusID.CssClass = ""
  538.             tblEmployees.empStatusID.ViewCustomAttributes = ""
  539.  
  540.             ' empStartDate
  541.             tblEmployees.empStartDate.ViewValue = tblEmployees.empStartDate.CurrentValue
  542.             tblEmployees.empStartDate.ViewValue = ew_FormatDateTime(tblEmployees.empStartDate.ViewValue, 6)
  543.             tblEmployees.empStartDate.CssStyle = ""
  544.             tblEmployees.empStartDate.CssClass = ""
  545.             tblEmployees.empStartDate.ViewCustomAttributes = ""
  546.  
  547.             ' empPositionID
  548.             If ew_NotEmpty(tblEmployees.empPositionID.CurrentValue) Then
  549.                 sSqlWrk = "SELECT [posDescription] FROM [tblPositions] WHERE [posID] = " & ew_AdjustSql(tblEmployees.empPositionID.CurrentValue) & ""
  550.                 sSqlWrk = sSqlWrk & " ORDER BY [posDescription] "
  551.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  552.                 If RsWrk.Read() Then
  553.                     tblEmployees.empPositionID.ViewValue = RsWrk("posDescription")
  554.                 Else
  555.                     tblEmployees.empPositionID.ViewValue = tblEmployees.empPositionID.CurrentValue
  556.                 End If
  557.                 Conn.CloseTempDataReader()
  558.             Else
  559.                 tblEmployees.empPositionID.ViewValue = System.DBNull.Value
  560.             End If
  561.             tblEmployees.empPositionID.CssStyle = ""
  562.             tblEmployees.empPositionID.CssClass = ""
  563.             tblEmployees.empPositionID.ViewCustomAttributes = ""
  564.  
  565.             ' empRate
  566.             tblEmployees.empRate.ViewValue = tblEmployees.empRate.CurrentValue
  567.             tblEmployees.empRate.CssStyle = ""
  568.             tblEmployees.empRate.CssClass = ""
  569.             tblEmployees.empRate.ViewCustomAttributes = ""
  570.  
  571.             ' empLastRaiseDate
  572.             tblEmployees.empLastRaiseDate.ViewValue = tblEmployees.empLastRaiseDate.CurrentValue
  573.             tblEmployees.empLastRaiseDate.ViewValue = ew_FormatDateTime(tblEmployees.empLastRaiseDate.ViewValue, 6)
  574.             tblEmployees.empLastRaiseDate.CssStyle = ""
  575.             tblEmployees.empLastRaiseDate.CssClass = ""
  576.             tblEmployees.empLastRaiseDate.ViewCustomAttributes = ""
  577.  
  578.             ' empLastRaiseAmount
  579.             tblEmployees.empLastRaiseAmount.ViewValue = tblEmployees.empLastRaiseAmount.CurrentValue
  580.             tblEmployees.empLastRaiseAmount.CssStyle = ""
  581.             tblEmployees.empLastRaiseAmount.CssClass = ""
  582.             tblEmployees.empLastRaiseAmount.ViewCustomAttributes = ""
  583.  
  584.             ' empEmail
  585.             tblEmployees.empEmail.ViewValue = tblEmployees.empEmail.CurrentValue
  586.             tblEmployees.empEmail.CssStyle = ""
  587.             tblEmployees.empEmail.CssClass = ""
  588.             tblEmployees.empEmail.ViewCustomAttributes = ""
  589.  
  590.             ' empLiftCert
  591.             If Convert.ToString(tblEmployees.empLiftCert.CurrentValue) = "1" Then
  592.                 tblEmployees.empLiftCert.ViewValue = "Yes"
  593.             Else
  594.                 tblEmployees.empLiftCert.ViewValue = "No"
  595.             End If
  596.             tblEmployees.empLiftCert.CssStyle = ""
  597.             tblEmployees.empLiftCert.CssClass = ""
  598.             tblEmployees.empLiftCert.ViewCustomAttributes = ""
  599.  
  600.             ' empForkCert
  601.             If Convert.ToString(tblEmployees.empForkCert.CurrentValue) = "1" Then
  602.                 tblEmployees.empForkCert.ViewValue = "Yes"
  603.             Else
  604.                 tblEmployees.empForkCert.ViewValue = "No"
  605.             End If
  606.             tblEmployees.empForkCert.CssStyle = ""
  607.             tblEmployees.empForkCert.CssClass = ""
  608.             tblEmployees.empForkCert.ViewCustomAttributes = ""
  609.  
  610.                 ' empDriveAuth
  611.                 If Convert.ToString(tblEmployees.empDriveAuth.CurrentValue) = "1" Then
  612.                     tblEmployees.empDriveAuth.ViewValue = "Yes"
  613.                 Else
  614.                     tblEmployees.empDriveAuth.ViewValue = "No"
  615.                 End If
  616.                 tblEmployees.empDriveAuth.CssStyle = ""
  617.                 tblEmployees.empDriveAuth.CssClass = ""
  618.                 tblEmployees.empDriveAuth.ViewCustomAttributes = ""
  619.  
  620.                 ' empTimeClock
  621.                 If Convert.ToString(tblEmployees.empTimeClock.CurrentValue) = "1" Then
  622.                     tblEmployees.empTimeClock.ViewValue = "Yes"
  623.                 Else
  624.                     tblEmployees.empTimeClock.ViewValue = "No"
  625.                 End If
  626.                 tblEmployees.empTimeClock.CssStyle = ""
  627.                 tblEmployees.empTimeClock.CssClass = ""
  628.                 tblEmployees.empTimeClock.ViewCustomAttributes = ""
  629.  
  630.                 ' empUserPass
  631.             tblEmployees.empUserPass.ViewValue = "********"
  632.             tblEmployees.empUserPass.CssStyle = ""
  633.             tblEmployees.empUserPass.CssClass = ""
  634.             tblEmployees.empUserPass.ViewCustomAttributes = ""
  635.  
  636.             ' empUserLevel
  637.             If (Security.CurrentUserLevel And EW_ALLOW_ADMIN) = EW_ALLOW_ADMIN Then ' System admin
  638.             If Not IsDBNull(tblEmployees.empUserLevel.CurrentValue) Then
  639.                 Select Case tblEmployees.empUserLevel.CurrentValue
  640.                     Case "-1"
  641.                         tblEmployees.empUserLevel.ViewValue = "Administrator"
  642.                     Case "0"
  643.                         tblEmployees.empUserLevel.ViewValue = "Default"
  644.                     Case "1"
  645.                                 tblEmployees.empUserLevel.ViewValue = "Part Time"
  646.                     Case "2"
  647.                         tblEmployees.empUserLevel.ViewValue = "Standard Lighting"
  648.                             Case "3"
  649.                                 tblEmployees.empUserLevel.ViewValue = "Admin Lighting"
  650.                             Case "4"
  651.                                 tblEmployees.empUserLevel.ViewValue = "Full Time"
  652.                             Case Else
  653.                                 tblEmployees.empUserLevel.ViewValue = tblEmployees.empUserLevel.CurrentValue
  654.                         End Select
  655.             Else
  656.                 tblEmployees.empUserLevel.ViewValue = System.DBNull.Value
  657.             End If
  658.             Else
  659.                 tblEmployees.empUserLevel.ViewValue = "********"
  660.             End If
  661.             tblEmployees.empUserLevel.CssStyle = ""
  662.             tblEmployees.empUserLevel.CssClass = ""
  663.             tblEmployees.empUserLevel.ViewCustomAttributes = ""
  664.  
  665.             ' View refer script
  666.                 ' empID
  667.  
  668.                 tblEmployees.empID.HrefValue = ""
  669.  
  670.                 ' empPayrollNumber
  671.  
  672.                 tblEmployees.empPayrollNumber.HrefValue = ""
  673.  
  674.                 ' empUsername
  675.             tblEmployees.empUsername.HrefValue = ""
  676.  
  677.             ' empName
  678.             tblEmployees.empName.HrefValue = ""
  679.  
  680.             ' empFirstName
  681.             tblEmployees.empFirstName.HrefValue = ""
  682.  
  683.             ' empLastName
  684.             tblEmployees.empLastName.HrefValue = ""
  685.  
  686.             ' empAddress
  687.             tblEmployees.empAddress.HrefValue = ""
  688.  
  689.             ' empCity
  690.             tblEmployees.empCity.HrefValue = ""
  691.  
  692.             ' empState
  693.             tblEmployees.empState.HrefValue = ""
  694.  
  695.             ' empZIP
  696.             tblEmployees.empZIP.HrefValue = ""
  697.  
  698.             ' empPhone
  699.             tblEmployees.empPhone.HrefValue = ""
  700.  
  701.             ' empStatusID
  702.             tblEmployees.empStatusID.HrefValue = ""
  703.  
  704.             ' empStartDate
  705.             tblEmployees.empStartDate.HrefValue = ""
  706.  
  707.             ' empPositionID
  708.             tblEmployees.empPositionID.HrefValue = ""
  709.  
  710.             ' empRate
  711.             tblEmployees.empRate.HrefValue = ""
  712.  
  713.             ' empLastRaiseDate
  714.             tblEmployees.empLastRaiseDate.HrefValue = ""
  715.  
  716.             ' empLastRaiseAmount
  717.             tblEmployees.empLastRaiseAmount.HrefValue = ""
  718.  
  719.             ' empEmail
  720.             tblEmployees.empEmail.HrefValue = ""
  721.  
  722.             ' empLiftCert
  723.             tblEmployees.empLiftCert.HrefValue = ""
  724.  
  725.             ' empForkCert
  726.             tblEmployees.empForkCert.HrefValue = ""
  727.  
  728.                 ' empDriveAuth
  729.                 tblEmployees.empDriveAuth.HrefValue = ""
  730.  
  731.                 ' empTimeClock
  732.                 tblEmployees.empTimeClock.HrefValue = ""
  733.  
  734.                 ' empUserPass
  735.             tblEmployees.empUserPass.HrefValue = ""
  736.  
  737.             ' empUserLevel
  738.             tblEmployees.empUserLevel.HrefValue = ""
  739.  
  740.         '
  741.         '  Search Row
  742.         '
  743.  
  744.         ElseIf tblEmployees.RowType = EW_ROWTYPE_SEARCH Then ' Search row
  745.  
  746.                 ' empID
  747.                 tblEmployees.empID.EditCustomAttributes = ""
  748.                 If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin
  749.                     tblEmployees.empID.AdvancedSearch.SearchValue = Security.CurrentUserID
  750.                     tblEmployees.empID.EditValue = tblEmployees.empID.AdvancedSearch.SearchValue
  751.                     tblEmployees.empID.CssStyle = ""
  752.                     tblEmployees.empID.CssClass = ""
  753.                     tblEmployees.empID.ViewCustomAttributes = ""
  754.                 Else
  755.                     tblEmployees.empID.EditValue = ew_HtmlEncode(tblEmployees.empID.AdvancedSearch.SearchValue)
  756.                 End If
  757.  
  758.                 ' empPayrollNumber
  759.                 tblEmployees.empPayrollNumber.EditCustomAttributes = ""
  760.                 If Not Security.IsAdmin And Security.IsLoggedIn() Then ' Non system admin
  761.                     tblEmployees.empPayrollNumber.AdvancedSearch.SearchValue = Security.CurrentUserID
  762.                     tblEmployees.empPayrollNumber.EditValue = tblEmployees.empID.AdvancedSearch.SearchValue
  763.                     tblEmployees.empPayrollNumber.CssStyle = ""
  764.                     tblEmployees.empPayrollNumber.CssClass = ""
  765.                     tblEmployees.empPayrollNumber.ViewCustomAttributes = ""
  766.                 Else
  767.                     tblEmployees.empPayrollNumber.EditValue = ew_HtmlEncode(tblEmployees.empPayrollNumber.AdvancedSearch.SearchValue)
  768.                 End If
  769.  
  770.                 ' empUsername
  771.             tblEmployees.empUsername.EditCustomAttributes = ""
  772.             tblEmployees.empUsername.EditValue = ew_HtmlEncode(tblEmployees.empUsername.AdvancedSearch.SearchValue)
  773.  
  774.             ' empName
  775.             tblEmployees.empName.EditCustomAttributes = ""
  776.             tblEmployees.empName.EditValue = ew_HtmlEncode(tblEmployees.empName.AdvancedSearch.SearchValue)
  777.  
  778.             ' empFirstName
  779.             tblEmployees.empFirstName.EditCustomAttributes = ""
  780.             tblEmployees.empFirstName.EditValue = ew_HtmlEncode(tblEmployees.empFirstName.AdvancedSearch.SearchValue)
  781.  
  782.             ' empLastName
  783.             tblEmployees.empLastName.EditCustomAttributes = ""
  784.             tblEmployees.empLastName.EditValue = ew_HtmlEncode(tblEmployees.empLastName.AdvancedSearch.SearchValue)
  785.  
  786.             ' empAddress
  787.             tblEmployees.empAddress.EditCustomAttributes = ""
  788.             tblEmployees.empAddress.EditValue = ew_HtmlEncode(tblEmployees.empAddress.AdvancedSearch.SearchValue)
  789.  
  790.             ' empCity
  791.             tblEmployees.empCity.EditCustomAttributes = ""
  792.             tblEmployees.empCity.EditValue = ew_HtmlEncode(tblEmployees.empCity.AdvancedSearch.SearchValue)
  793.  
  794.             ' empState
  795.             tblEmployees.empState.EditCustomAttributes = ""
  796.             tblEmployees.empState.EditValue = ew_HtmlEncode(tblEmployees.empState.AdvancedSearch.SearchValue)
  797.  
  798.             ' empZIP
  799.             tblEmployees.empZIP.EditCustomAttributes = ""
  800.             tblEmployees.empZIP.EditValue = ew_HtmlEncode(tblEmployees.empZIP.AdvancedSearch.SearchValue)
  801.  
  802.             ' empPhone
  803.             tblEmployees.empPhone.EditCustomAttributes = ""
  804.             tblEmployees.empPhone.EditValue = ew_HtmlEncode(tblEmployees.empPhone.AdvancedSearch.SearchValue)
  805.  
  806.             ' empStatusID
  807.             tblEmployees.empStatusID.EditCustomAttributes = ""
  808.             sSqlWrk = "SELECT [ID], [tscStatus], '' AS Disp2Fld, '' AS SelectFilterFld FROM [tblEmployeeStatus]"
  809.             sWhereWrk = ""
  810.             If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
  811.             sSqlWrk = sSqlWrk & " ORDER BY [tscStatus] "
  812.             arwrk = Conn.GetRows(sSqlWrk)
  813.             arwrk.Insert(0, New Object(){"", "Please Select"}) 
  814.             tblEmployees.empStatusID.EditValue = arwrk
  815.  
  816.             ' empStartDate
  817.             tblEmployees.empStartDate.EditCustomAttributes = ""
  818.             tblEmployees.empStartDate.EditValue = tblEmployees.empStartDate.AdvancedSearch.SearchValue
  819.  
  820.             ' empPositionID
  821.             tblEmployees.empPositionID.EditCustomAttributes = ""
  822.             sSqlWrk = "SELECT [posID], [posDescription], '' AS Disp2Fld, '' AS SelectFilterFld FROM [tblPositions]"
  823.             sWhereWrk = ""
  824.             If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
  825.             sSqlWrk = sSqlWrk & " ORDER BY [posDescription] "
  826.             arwrk = Conn.GetRows(sSqlWrk)
  827.             arwrk.Insert(0, New Object(){"", "Please Select"}) 
  828.             tblEmployees.empPositionID.EditValue = arwrk
  829.  
  830.             ' empRate
  831.             tblEmployees.empRate.EditCustomAttributes = ""
  832.             tblEmployees.empRate.EditValue = ew_HtmlEncode(tblEmployees.empRate.AdvancedSearch.SearchValue)
  833.  
  834.             ' empLastRaiseDate
  835.             tblEmployees.empLastRaiseDate.EditCustomAttributes = ""
  836.             tblEmployees.empLastRaiseDate.EditValue = tblEmployees.empLastRaiseDate.AdvancedSearch.SearchValue
  837.  
  838.             ' empLastRaiseAmount
  839.             tblEmployees.empLastRaiseAmount.EditCustomAttributes = ""
  840.             tblEmployees.empLastRaiseAmount.EditValue = ew_HtmlEncode(tblEmployees.empLastRaiseAmount.AdvancedSearch.SearchValue)
  841.  
  842.             ' empEmail
  843.             tblEmployees.empEmail.EditCustomAttributes = ""
  844.             tblEmployees.empEmail.EditValue = ew_HtmlEncode(tblEmployees.empEmail.AdvancedSearch.SearchValue)
  845.  
  846.             ' empLiftCert
  847.             tblEmployees.empLiftCert.EditCustomAttributes = ""
  848.  
  849.             ' empForkCert
  850.             tblEmployees.empForkCert.EditCustomAttributes = ""
  851.  
  852.                 ' empDriveAuth
  853.                 tblEmployees.empDriveAuth.EditCustomAttributes = ""
  854.  
  855.                 ' empTimeClock
  856.                 tblEmployees.empTimeClock.EditCustomAttributes = ""
  857.  
  858.                 ' empUserPass
  859.             tblEmployees.empUserPass.EditCustomAttributes = ""
  860.             tblEmployees.empUserPass.EditValue = ew_HtmlEncode(tblEmployees.empUserPass.AdvancedSearch.SearchValue)
  861.  
  862.             ' empUserLevel
  863.             tblEmployees.empUserLevel.EditCustomAttributes = ""
  864.             If Not Security.CanAdmin Then ' System admin
  865.                 tblEmployees.empUserLevel.EditValue = "********"
  866.             Else
  867.             arwrk = New ArrayList
  868.             arwrk.Add(New String() {"-1", "Administrator"})
  869.             arwrk.Add(New String() {"0", "Default"})
  870.                     arwrk.Add(New String() {"1", "Part Time"})
  871.             arwrk.Add(New String() {"2", "Standard Lighting"})
  872.                     arwrk.Add(New String() {"3", "Admin Lighting"})
  873.                     arwrk.Add(New String() {"4", "Full Time"})
  874.                     arwrk.Insert(0, New String() {"", "Please Select"})
  875.             tblEmployees.empUserLevel.EditValue = arwrk
  876.             End If
  877.         End If
  878.  
  879.         ' Row Rendered event
  880.         tblEmployees.Row_Rendered()
  881.     End Sub
  882.  
  883.     '
  884.     ' Validate search
  885.     '
  886.     Function ValidateSearch() As Boolean
  887.  
  888.         ' Initialize
  889.         ParentPage.gsSearchError = ""
  890.  
  891.         ' Check if validation required
  892.         If Not EW_SERVER_VALIDATE Then Return True ' Skip
  893.             If Not ew_CheckInteger(tblEmployees.empPayrollNumber.AdvancedSearch.SearchValue) Then
  894.                 If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  895.                 ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect integer - ID"
  896.             End If
  897.         If Not ew_CheckZip(tblEmployees.empZIP.AdvancedSearch.SearchValue) Then
  898.             If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  899.             ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect ZIP code - ZIP"
  900.         End If
  901.         If Not ew_CheckPhone(tblEmployees.empPhone.AdvancedSearch.SearchValue) Then
  902.             If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  903.             ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect phone number - Phone Number (xxx-xxx-xxxx)"
  904.         End If
  905.         If Not ew_CheckUSDate(tblEmployees.empStartDate.AdvancedSearch.SearchValue) Then
  906.             If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  907.             ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect date, format = mm/dd/yyyy - Start Date"
  908.         End If
  909.         If Not ew_CheckNumber(tblEmployees.empRate.AdvancedSearch.SearchValue) Then
  910.             If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  911.             ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect floating point number - Rate"
  912.         End If
  913.         If Not ew_CheckUSDate(tblEmployees.empLastRaiseDate.AdvancedSearch.SearchValue) Then
  914.             If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  915.             ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect date, format = mm/dd/yyyy - Last Raise Date"
  916.         End If
  917.         If Not ew_CheckNumber(tblEmployees.empLastRaiseAmount.AdvancedSearch.SearchValue) Then
  918.             If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  919.             ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect floating point number - Last Raise Amount"
  920.         End If
  921.         If Not ew_CheckEmail(tblEmployees.empEmail.AdvancedSearch.SearchValue) Then
  922.             If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  923.             ParentPage.gsSearchError = ParentPage.gsSearchError & "Incorrect email - Email"
  924.         End If
  925.  
  926.         ' Return validate result    
  927.         Dim Valid As Boolean = (ParentPage.gsSearchError = "")
  928.  
  929.         ' Form_CustomValidate event
  930.         Dim sFormCustomError As String = ""
  931.         Valid = Valid And Form_CustomValidate(sFormCustomError)
  932.         If sFormCustomError <> "" Then
  933.             If ParentPage.gsSearchError <> "" Then ParentPage.gsSearchError = ParentPage.gsSearchError & "<br />"
  934.             ParentPage.gsSearchError = ParentPage.gsSearchError & sFormCustomError
  935.         End If
  936.         Return Valid
  937.     End Function
  938.  
  939.     '
  940.     ' Load advanced search
  941.     '
  942.     Sub LoadAdvancedSearch()
  943.             tblEmployees.empID.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empID")
  944.             tblEmployees.empPayrollNumber.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empPayrollNumber")
  945.             tblEmployees.empUsername.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empUsername")
  946.         tblEmployees.empName.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empName")
  947.         tblEmployees.empFirstName.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empFirstName")
  948.         tblEmployees.empLastName.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empLastName")
  949.         tblEmployees.empAddress.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empAddress")
  950.         tblEmployees.empCity.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empCity")
  951.         tblEmployees.empState.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empState")
  952.         tblEmployees.empZIP.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empZIP")
  953.         tblEmployees.empPhone.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empPhone")
  954.         tblEmployees.empStatusID.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empStatusID")
  955.         tblEmployees.empStartDate.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empStartDate")
  956.         tblEmployees.empPositionID.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empPositionID")
  957.         tblEmployees.empRate.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empRate")
  958.         tblEmployees.empLastRaiseDate.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empLastRaiseDate")
  959.         tblEmployees.empLastRaiseAmount.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empLastRaiseAmount")
  960.         tblEmployees.empEmail.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empEmail")
  961.         tblEmployees.empLiftCert.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empLiftCert")
  962.         tblEmployees.empForkCert.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empForkCert")
  963.             tblEmployees.empDriveAuth.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empDriveAuth")
  964.             tblEmployees.empTimeClock.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empTimeClock")
  965.             tblEmployees.empUserPass.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empUserPass")
  966.         tblEmployees.empUserLevel.AdvancedSearch.SearchValue = tblEmployees.GetAdvancedSearch("x_empUserLevel")
  967.     End Sub
  968.  
  969.         ' Page Load event
  970.         Public Sub Page_Load()
  971.  
  972.             'HttpContext.Current.Response.Write("Page Load")
  973.         End Sub
  974.  
  975.         ' Page Unload event
  976.         Public Sub Page_Unload()
  977.  
  978.             'HttpContext.Current.Response.Write("Page Unload")
  979.         End Sub
  980.  
  981.     ' Form Custom Validate event
  982.     Public Function Form_CustomValidate(ByRef CustomError As String) As Boolean
  983.  
  984.         'Return error message in CustomError
  985.         Return True
  986.     End Function
  987.     End Class
  988.  
  989.     '
  990.     ' ASP.NET Page_Load event
  991.     '
  992.  
  993.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  994.         Response.Buffer = EW_RESPONSE_BUFFER
  995.         Response.Cache.SetCacheability(HttpCacheability.NoCache)
  996.  
  997.         ' Page init
  998.         tblEmployees_search = New ctblEmployees_search(Me)        
  999.         tblEmployees_search.Page_Init()
  1000.  
  1001.         ' Page main processing
  1002.         tblEmployees_search.Page_Main()
  1003.     End Sub
  1004.  
  1005.     '
  1006.     ' ASP.NET Page_Unload event
  1007.     '
  1008.  
  1009.     Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
  1010.  
  1011.         ' Dispose page object
  1012.         If tblEmployees_search IsNot Nothing Then tblEmployees_search.Dispose()
  1013.     End Sub
  1014. End Class
  1015.