home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblEmployeesview.aspx.vb < prev    next >
Text File  |  2012-01-28  |  24KB  |  772 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 tblEmployeesview
  12.     Inherits AspNetMaker7_tfpssnet
  13.  
  14.     ' Page object
  15.     Public tblEmployees_view As ctblEmployees_view
  16.  
  17.     '
  18.     ' Page Class
  19.     '
  20.     Class ctblEmployees_view
  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 = "view"
  75.             m_PageObjName = "tblEmployees_view"
  76.             m_PageObjTypeName = "ctblEmployees_view"
  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.CanView 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.     Public lDisplayRecs As Integer ' Number of display records
  167.  
  168.     Public lStartRec As Integer, lStopRec As Integer, lTotalRecs As Integer, lRecRange As Integer
  169.  
  170.     Public lRecCnt As Integer
  171.  
  172.     Public sSrchWhere As String
  173.  
  174.     '
  175.     ' Page main processing
  176.     '
  177.     Sub Page_Main()
  178.         Dim sReturnUrl As String = ""
  179.         Dim bMatchRecord As Boolean = False
  180.         If IsPageRequest Then ' Validate request
  181.             If ew_Get("empID") <> "" Then
  182.                 tblEmployees.empID.QueryStringValue = ew_Get("empID")
  183.             Else
  184.                 sReturnUrl = "tblEmployeeslist.aspx" ' Return to list
  185.             End If
  186.  
  187.             ' Get action
  188.             tblEmployees.CurrentAction = "I" ' Display form
  189.             Select Case tblEmployees.CurrentAction
  190.                 Case "I" ' Get a record to display
  191.                     If Not LoadRow() Then ' Load record based on key
  192.                         Message = "No records found" ' Set no record message
  193.                         sReturnUrl = "tblEmployeeslist.aspx" ' No matching record, return to list
  194.                     End If
  195.             End Select
  196.         Else
  197.             sReturnUrl = "tblEmployeeslist.aspx" ' Not page request, return to list
  198.         End If
  199.         If sReturnUrl <> "" Then Page_Terminate(sReturnUrl)
  200.  
  201.         ' Render row
  202.         tblEmployees.RowType = EW_ROWTYPE_VIEW
  203.         RenderRow()
  204.     End Sub
  205.  
  206.     Public Pager As Object
  207.  
  208.     '
  209.     ' Set up Starting Record parameters
  210.     '
  211.     Sub SetUpStartRec()
  212.         Dim nPageNo As Integer
  213.  
  214.         ' Exit if lDisplayRecs = 0
  215.         If lDisplayRecs = 0 Then Exit Sub
  216.         If IsPageRequest Then ' Validate request
  217.  
  218.             ' Check for a "start" parameter
  219.             If ew_Get(EW_TABLE_START_REC) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_START_REC)) Then
  220.                 lStartRec = ew_ConvertToInt(ew_Get(EW_TABLE_START_REC))
  221.                 tblEmployees.StartRecordNumber = lStartRec
  222.             ElseIf ew_Get(EW_TABLE_PAGE_NO) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_PAGE_NO)) Then
  223.                 nPageNo = ew_ConvertToInt(ew_Get(EW_TABLE_PAGE_NO))
  224.                 lStartRec = (nPageNo-1)*lDisplayRecs+1
  225.                 If lStartRec <= 0 Then
  226.                     lStartRec = 1
  227.                 ElseIf lStartRec >= ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 Then
  228.                     lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1
  229.                 End If
  230.                 tblEmployees.StartRecordNumber = lStartRec
  231.             End If
  232.         End If
  233.         lStartRec = tblEmployees.StartRecordNumber
  234.  
  235.         ' Check if correct start record counter
  236.         If lStartRec <= 0 Then ' Avoid invalid start record counter
  237.             lStartRec = 1 ' Reset start record counter
  238.             tblEmployees.StartRecordNumber = lStartRec
  239.         ElseIf lStartRec > lTotalRecs Then ' Avoid starting record > total records
  240.             lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to last page first record
  241.             tblEmployees.StartRecordNumber = lStartRec
  242.         ElseIf (lStartRec-1) Mod lDisplayRecs <> 0 Then
  243.             lStartRec = ((lStartRec-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to page boundary
  244.             tblEmployees.StartRecordNumber = lStartRec
  245.         End If
  246.     End Sub
  247.  
  248.     '
  249.     ' Load default values
  250.     '
  251.     Sub LoadDefaultValues()
  252.     End Sub
  253.  
  254.     '
  255.     ' Load row based on key values
  256.     '
  257.     Function LoadRow() As Boolean
  258.         Dim RsRow As OleDbDataReader
  259.         Dim sFilter As String = tblEmployees.KeyFilter
  260.  
  261.         ' Row Selecting event
  262.         tblEmployees.Row_Selecting(sFilter)
  263.  
  264.         ' Load SQL based on filter
  265.         tblEmployees.CurrentFilter = sFilter
  266.         Dim sSql As String = tblEmployees.SQL
  267.  
  268.         ' Write SQL for debug
  269.         If EW_DEBUG_ENABLED Then ew_Write(sSql)
  270.         Try
  271.             RsRow = Conn.GetTempDataReader(sSql)    
  272.             If Not RsRow.Read() Then
  273.                 Return False
  274.             Else                
  275.                 LoadRowValues(RsRow) ' Load row values
  276.  
  277.                 ' Row Selected event
  278.                 tblEmployees.Row_Selected(RsRow)
  279.                 Return True    
  280.             End If
  281.         Catch
  282.             If EW_DEBUG_ENABLED Then Throw
  283.             Return False
  284.         Finally
  285.             Conn.CloseTempDataReader()
  286.         End Try
  287.     End Function
  288.  
  289.     '
  290.     ' Load row values from recordset
  291.     '
  292.     Sub LoadRowValues(ByRef RsRow As OleDbDataReader)
  293.         tblEmployees.empID.DbValue = RsRow("empID")
  294.             tblEmployees.empPayrollNumber.DbValue = RsRow("empPayrollNumber")
  295.             tblEmployees.empUsername.DbValue = RsRow("empUsername")
  296.             tblEmployees.empName.DbValue = RsRow("empName")
  297.         tblEmployees.empFirstName.DbValue = RsRow("empFirstName")
  298.         tblEmployees.empLastName.DbValue = RsRow("empLastName")
  299.         tblEmployees.empAddress.DbValue = RsRow("empAddress")
  300.         tblEmployees.empCity.DbValue = RsRow("empCity")
  301.         tblEmployees.empState.DbValue = RsRow("empState")
  302.         tblEmployees.empZIP.DbValue = RsRow("empZIP")
  303.         tblEmployees.empPhone.DbValue = RsRow("empPhone")
  304.         tblEmployees.empStatusID.DbValue = RsRow("empStatusID")
  305.         tblEmployees.empStartDate.DbValue = RsRow("empStartDate")
  306.         tblEmployees.empPositionID.DbValue = RsRow("empPositionID")
  307.         tblEmployees.empRate.DbValue = RsRow("empRate")
  308.         tblEmployees.empLastRaiseDate.DbValue = RsRow("empLastRaiseDate")
  309.         tblEmployees.empLastRaiseAmount.DbValue = RsRow("empLastRaiseAmount")
  310.         tblEmployees.empEmail.DbValue = RsRow("empEmail")
  311.         tblEmployees.empLiftCert.DbValue = IIf(ew_ConvertToBool(RsRow("empLiftCert")), "1", "0")
  312.         tblEmployees.empForkCert.DbValue = IIf(ew_ConvertToBool(RsRow("empForkCert")), "1", "0")
  313.             tblEmployees.empDriveAuth.DbValue = IIf(ew_ConvertToBool(RsRow("empDriveAuth")), "1", "0")
  314.             tblEmployees.empTimeClock.DbValue = IIf(ew_ConvertToBool(RsRow("empTimeClock")), "1", "0")
  315.             tblEmployees.empUserPass.DbValue = RsRow("empUserPass")
  316.         tblEmployees.empUserLevel.DbValue = RsRow("empUserLevel")
  317.     End Sub
  318.  
  319.     '
  320.     ' Render row values based on field settings
  321.     '
  322.     Sub RenderRow()
  323.  
  324.         ' Row Rendering event
  325.         tblEmployees.Row_Rendering()
  326.  
  327.         '
  328.         '  Common render codes for all row types
  329.         '
  330.             ' empID
  331.  
  332.             tblEmployees.empID.CellCssStyle = ""
  333.             tblEmployees.empID.CellCssClass = ""
  334.  
  335.             ' empPayrollNumber
  336.  
  337.             tblEmployees.empPayrollNumber.CellCssStyle = ""
  338.             tblEmployees.empPayrollNumber.CellCssClass = ""
  339.  
  340.             ' empUsername
  341.         tblEmployees.empUsername.CellCssStyle = ""
  342.         tblEmployees.empUsername.CellCssClass = ""
  343.  
  344.         ' empName
  345.         tblEmployees.empName.CellCssStyle = ""
  346.         tblEmployees.empName.CellCssClass = ""
  347.  
  348.         ' empFirstName
  349.         tblEmployees.empFirstName.CellCssStyle = ""
  350.         tblEmployees.empFirstName.CellCssClass = ""
  351.  
  352.         ' empLastName
  353.         tblEmployees.empLastName.CellCssStyle = ""
  354.         tblEmployees.empLastName.CellCssClass = ""
  355.  
  356.         ' empAddress
  357.         tblEmployees.empAddress.CellCssStyle = ""
  358.         tblEmployees.empAddress.CellCssClass = ""
  359.  
  360.         ' empCity
  361.         tblEmployees.empCity.CellCssStyle = ""
  362.         tblEmployees.empCity.CellCssClass = ""
  363.  
  364.         ' empState
  365.         tblEmployees.empState.CellCssStyle = ""
  366.         tblEmployees.empState.CellCssClass = ""
  367.  
  368.         ' empZIP
  369.         tblEmployees.empZIP.CellCssStyle = ""
  370.         tblEmployees.empZIP.CellCssClass = ""
  371.  
  372.         ' empPhone
  373.         tblEmployees.empPhone.CellCssStyle = ""
  374.         tblEmployees.empPhone.CellCssClass = ""
  375.  
  376.         ' empStatusID
  377.         tblEmployees.empStatusID.CellCssStyle = ""
  378.         tblEmployees.empStatusID.CellCssClass = ""
  379.  
  380.         ' empStartDate
  381.         tblEmployees.empStartDate.CellCssStyle = ""
  382.         tblEmployees.empStartDate.CellCssClass = ""
  383.  
  384.         ' empPositionID
  385.         tblEmployees.empPositionID.CellCssStyle = ""
  386.         tblEmployees.empPositionID.CellCssClass = ""
  387.  
  388.         ' empRate
  389.         tblEmployees.empRate.CellCssStyle = ""
  390.         tblEmployees.empRate.CellCssClass = ""
  391.  
  392.         ' empLastRaiseDate
  393.         tblEmployees.empLastRaiseDate.CellCssStyle = ""
  394.         tblEmployees.empLastRaiseDate.CellCssClass = ""
  395.  
  396.         ' empLastRaiseAmount
  397.         tblEmployees.empLastRaiseAmount.CellCssStyle = ""
  398.         tblEmployees.empLastRaiseAmount.CellCssClass = ""
  399.  
  400.         ' empEmail
  401.         tblEmployees.empEmail.CellCssStyle = ""
  402.         tblEmployees.empEmail.CellCssClass = ""
  403.  
  404.         ' empLiftCert
  405.         tblEmployees.empLiftCert.CellCssStyle = ""
  406.         tblEmployees.empLiftCert.CellCssClass = ""
  407.  
  408.         ' empForkCert
  409.         tblEmployees.empForkCert.CellCssStyle = ""
  410.         tblEmployees.empForkCert.CellCssClass = ""
  411.  
  412.             ' empDriveAuth
  413.             tblEmployees.empDriveAuth.CellCssStyle = ""
  414.             tblEmployees.empDriveAuth.CellCssClass = ""
  415.  
  416.             ' empTimeClock
  417.             tblEmployees.empTimeClock.CellCssStyle = ""
  418.             tblEmployees.empTimeClock.CellCssClass = ""
  419.  
  420.             ' empUserPass
  421.         tblEmployees.empUserPass.CellCssStyle = ""
  422.         tblEmployees.empUserPass.CellCssClass = ""
  423.  
  424.         ' empUserLevel
  425.         tblEmployees.empUserLevel.CellCssStyle = ""
  426.         tblEmployees.empUserLevel.CellCssClass = ""
  427.  
  428.         '
  429.         '  View  Row
  430.         '
  431.  
  432.         If tblEmployees.RowType = EW_ROWTYPE_VIEW Then ' View row
  433.  
  434.                 ' empID
  435.                 tblEmployees.empID.ViewValue = tblEmployees.empID.CurrentValue
  436.                 tblEmployees.empID.CssStyle = ""
  437.                 tblEmployees.empID.CssClass = ""
  438.                 tblEmployees.empID.ViewCustomAttributes = ""
  439.  
  440.                 ' empPayrollNumber
  441.                 tblEmployees.empPayrollNumber.ViewValue = tblEmployees.empPayrollNumber.CurrentValue
  442.                 tblEmployees.empPayrollNumber.CssStyle = ""
  443.                 tblEmployees.empPayrollNumber.CssClass = ""
  444.                 tblEmployees.empPayrollNumber.ViewCustomAttributes = ""
  445.  
  446.                 ' empUsername
  447.             tblEmployees.empUsername.ViewValue = tblEmployees.empUsername.CurrentValue
  448.             tblEmployees.empUsername.CssStyle = ""
  449.             tblEmployees.empUsername.CssClass = ""
  450.             tblEmployees.empUsername.ViewCustomAttributes = ""
  451.  
  452.             ' empName
  453.             tblEmployees.empName.ViewValue = tblEmployees.empName.CurrentValue
  454.             tblEmployees.empName.CssStyle = ""
  455.             tblEmployees.empName.CssClass = ""
  456.             tblEmployees.empName.ViewCustomAttributes = ""
  457.  
  458.             ' empFirstName
  459.             tblEmployees.empFirstName.ViewValue = tblEmployees.empFirstName.CurrentValue
  460.             tblEmployees.empFirstName.CssStyle = ""
  461.             tblEmployees.empFirstName.CssClass = ""
  462.             tblEmployees.empFirstName.ViewCustomAttributes = ""
  463.  
  464.             ' empLastName
  465.             tblEmployees.empLastName.ViewValue = tblEmployees.empLastName.CurrentValue
  466.             tblEmployees.empLastName.CssStyle = ""
  467.             tblEmployees.empLastName.CssClass = ""
  468.             tblEmployees.empLastName.ViewCustomAttributes = ""
  469.  
  470.             ' empAddress
  471.             tblEmployees.empAddress.ViewValue = tblEmployees.empAddress.CurrentValue
  472.             tblEmployees.empAddress.CssStyle = ""
  473.             tblEmployees.empAddress.CssClass = ""
  474.             tblEmployees.empAddress.ViewCustomAttributes = ""
  475.  
  476.             ' empCity
  477.             tblEmployees.empCity.ViewValue = tblEmployees.empCity.CurrentValue
  478.             tblEmployees.empCity.CssStyle = ""
  479.             tblEmployees.empCity.CssClass = ""
  480.             tblEmployees.empCity.ViewCustomAttributes = ""
  481.  
  482.             ' empState
  483.             tblEmployees.empState.ViewValue = tblEmployees.empState.CurrentValue
  484.             tblEmployees.empState.CssStyle = ""
  485.             tblEmployees.empState.CssClass = ""
  486.             tblEmployees.empState.ViewCustomAttributes = ""
  487.  
  488.             ' empZIP
  489.             tblEmployees.empZIP.ViewValue = tblEmployees.empZIP.CurrentValue
  490.             tblEmployees.empZIP.CssStyle = ""
  491.             tblEmployees.empZIP.CssClass = ""
  492.             tblEmployees.empZIP.ViewCustomAttributes = ""
  493.  
  494.             ' empPhone
  495.             tblEmployees.empPhone.ViewValue = tblEmployees.empPhone.CurrentValue
  496.             tblEmployees.empPhone.CssStyle = ""
  497.             tblEmployees.empPhone.CssClass = ""
  498.             tblEmployees.empPhone.ViewCustomAttributes = ""
  499.  
  500.             ' empStatusID
  501.             If ew_NotEmpty(tblEmployees.empStatusID.CurrentValue) Then
  502.                 sSqlWrk = "SELECT [tscStatus] FROM [tblEmployeeStatus] WHERE [ID] = " & ew_AdjustSql(tblEmployees.empStatusID.CurrentValue) & ""
  503.                 sSqlWrk = sSqlWrk & " ORDER BY [tscStatus] "
  504.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  505.                 If RsWrk.Read() Then
  506.                     tblEmployees.empStatusID.ViewValue = RsWrk("tscStatus")
  507.                 Else
  508.                     tblEmployees.empStatusID.ViewValue = tblEmployees.empStatusID.CurrentValue
  509.                 End If
  510.                 Conn.CloseTempDataReader()
  511.             Else
  512.                 tblEmployees.empStatusID.ViewValue = System.DBNull.Value
  513.             End If
  514.             tblEmployees.empStatusID.CssStyle = ""
  515.             tblEmployees.empStatusID.CssClass = ""
  516.             tblEmployees.empStatusID.ViewCustomAttributes = ""
  517.  
  518.             ' empStartDate
  519.             tblEmployees.empStartDate.ViewValue = tblEmployees.empStartDate.CurrentValue
  520.             tblEmployees.empStartDate.ViewValue = ew_FormatDateTime(tblEmployees.empStartDate.ViewValue, 6)
  521.             tblEmployees.empStartDate.CssStyle = ""
  522.             tblEmployees.empStartDate.CssClass = ""
  523.             tblEmployees.empStartDate.ViewCustomAttributes = ""
  524.  
  525.             ' empPositionID
  526.             If ew_NotEmpty(tblEmployees.empPositionID.CurrentValue) Then
  527.                 sSqlWrk = "SELECT [posDescription] FROM [tblPositions] WHERE [posID] = " & ew_AdjustSql(tblEmployees.empPositionID.CurrentValue) & ""
  528.                 sSqlWrk = sSqlWrk & " ORDER BY [posDescription] "
  529.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  530.                 If RsWrk.Read() Then
  531.                     tblEmployees.empPositionID.ViewValue = RsWrk("posDescription")
  532.                 Else
  533.                     tblEmployees.empPositionID.ViewValue = tblEmployees.empPositionID.CurrentValue
  534.                 End If
  535.                 Conn.CloseTempDataReader()
  536.             Else
  537.                 tblEmployees.empPositionID.ViewValue = System.DBNull.Value
  538.             End If
  539.             tblEmployees.empPositionID.CssStyle = ""
  540.             tblEmployees.empPositionID.CssClass = ""
  541.             tblEmployees.empPositionID.ViewCustomAttributes = ""
  542.  
  543.             ' empRate
  544.             tblEmployees.empRate.ViewValue = tblEmployees.empRate.CurrentValue
  545.             tblEmployees.empRate.CssStyle = ""
  546.             tblEmployees.empRate.CssClass = ""
  547.             tblEmployees.empRate.ViewCustomAttributes = ""
  548.  
  549.             ' empLastRaiseDate
  550.             tblEmployees.empLastRaiseDate.ViewValue = tblEmployees.empLastRaiseDate.CurrentValue
  551.             tblEmployees.empLastRaiseDate.ViewValue = ew_FormatDateTime(tblEmployees.empLastRaiseDate.ViewValue, 6)
  552.             tblEmployees.empLastRaiseDate.CssStyle = ""
  553.             tblEmployees.empLastRaiseDate.CssClass = ""
  554.             tblEmployees.empLastRaiseDate.ViewCustomAttributes = ""
  555.  
  556.             ' empLastRaiseAmount
  557.             tblEmployees.empLastRaiseAmount.ViewValue = tblEmployees.empLastRaiseAmount.CurrentValue
  558.             tblEmployees.empLastRaiseAmount.CssStyle = ""
  559.             tblEmployees.empLastRaiseAmount.CssClass = ""
  560.             tblEmployees.empLastRaiseAmount.ViewCustomAttributes = ""
  561.  
  562.             ' empEmail
  563.             tblEmployees.empEmail.ViewValue = tblEmployees.empEmail.CurrentValue
  564.             tblEmployees.empEmail.CssStyle = ""
  565.             tblEmployees.empEmail.CssClass = ""
  566.             tblEmployees.empEmail.ViewCustomAttributes = ""
  567.  
  568.             ' empLiftCert
  569.             If Convert.ToString(tblEmployees.empLiftCert.CurrentValue) = "1" Then
  570.                 tblEmployees.empLiftCert.ViewValue = "Yes"
  571.             Else
  572.                 tblEmployees.empLiftCert.ViewValue = "No"
  573.             End If
  574.             tblEmployees.empLiftCert.CssStyle = ""
  575.             tblEmployees.empLiftCert.CssClass = ""
  576.             tblEmployees.empLiftCert.ViewCustomAttributes = ""
  577.  
  578.             ' empForkCert
  579.             If Convert.ToString(tblEmployees.empForkCert.CurrentValue) = "1" Then
  580.                 tblEmployees.empForkCert.ViewValue = "Yes"
  581.             Else
  582.                 tblEmployees.empForkCert.ViewValue = "No"
  583.             End If
  584.             tblEmployees.empForkCert.CssStyle = ""
  585.             tblEmployees.empForkCert.CssClass = ""
  586.             tblEmployees.empForkCert.ViewCustomAttributes = ""
  587.  
  588.                 ' empDriveAuth
  589.                 If Convert.ToString(tblEmployees.empDriveAuth.CurrentValue) = "1" Then
  590.                     tblEmployees.empDriveAuth.ViewValue = "Yes"
  591.                 Else
  592.                     tblEmployees.empDriveAuth.ViewValue = "No"
  593.                 End If
  594.                 tblEmployees.empDriveAuth.CssStyle = ""
  595.                 tblEmployees.empDriveAuth.CssClass = ""
  596.                 tblEmployees.empDriveAuth.ViewCustomAttributes = ""
  597.  
  598.                 ' empTimeClock
  599.                 If Convert.ToString(tblEmployees.empTimeClock.CurrentValue) = "1" Then
  600.                     tblEmployees.empTimeClock.ViewValue = "Yes"
  601.                 Else
  602.                     tblEmployees.empTimeClock.ViewValue = "No"
  603.                 End If
  604.                 tblEmployees.empTimeClock.CssStyle = ""
  605.                 tblEmployees.empTimeClock.CssClass = ""
  606.                 tblEmployees.empTimeClock.ViewCustomAttributes = ""
  607.  
  608.                 ' empUserPass
  609.             tblEmployees.empUserPass.ViewValue = "********"
  610.             tblEmployees.empUserPass.CssStyle = ""
  611.             tblEmployees.empUserPass.CssClass = ""
  612.             tblEmployees.empUserPass.ViewCustomAttributes = ""
  613.  
  614.             ' empUserLevel
  615.             If (Security.CurrentUserLevel And EW_ALLOW_ADMIN) = EW_ALLOW_ADMIN Then ' System admin
  616.             If Not IsDBNull(tblEmployees.empUserLevel.CurrentValue) Then
  617.                 Select Case tblEmployees.empUserLevel.CurrentValue
  618.                     Case "-1"
  619.                         tblEmployees.empUserLevel.ViewValue = "Administrator"
  620.                     Case "0"
  621.                         tblEmployees.empUserLevel.ViewValue = "Default"
  622.                     Case "1"
  623.                                 tblEmployees.empUserLevel.ViewValue = "Part Time"
  624.                     Case "2"
  625.                         tblEmployees.empUserLevel.ViewValue = "Standard Lighting"
  626.                             Case "3"
  627.                                 tblEmployees.empUserLevel.ViewValue = "Admin Lighting"
  628.                             Case "4"
  629.                                 tblEmployees.empUserLevel.ViewValue = "Full Time"
  630.                             Case Else
  631.                                 tblEmployees.empUserLevel.ViewValue = tblEmployees.empUserLevel.CurrentValue
  632.                         End Select
  633.             Else
  634.                 tblEmployees.empUserLevel.ViewValue = System.DBNull.Value
  635.             End If
  636.             Else
  637.                 tblEmployees.empUserLevel.ViewValue = "********"
  638.             End If
  639.             tblEmployees.empUserLevel.CssStyle = ""
  640.             tblEmployees.empUserLevel.CssClass = ""
  641.             tblEmployees.empUserLevel.ViewCustomAttributes = ""
  642.  
  643.             ' View refer script
  644.                 ' empID
  645.  
  646.                 tblEmployees.empID.HrefValue = ""
  647.  
  648.                 ' empPayrollNumber
  649.  
  650.                 tblEmployees.empPayrollNumber.HrefValue = ""
  651.  
  652.             ' empUsername
  653.             tblEmployees.empUsername.HrefValue = ""
  654.  
  655.             ' empName
  656.             tblEmployees.empName.HrefValue = ""
  657.  
  658.             ' empFirstName
  659.             tblEmployees.empFirstName.HrefValue = ""
  660.  
  661.             ' empLastName
  662.             tblEmployees.empLastName.HrefValue = ""
  663.  
  664.             ' empAddress
  665.             tblEmployees.empAddress.HrefValue = ""
  666.  
  667.             ' empCity
  668.             tblEmployees.empCity.HrefValue = ""
  669.  
  670.             ' empState
  671.             tblEmployees.empState.HrefValue = ""
  672.  
  673.             ' empZIP
  674.             tblEmployees.empZIP.HrefValue = ""
  675.  
  676.             ' empPhone
  677.             tblEmployees.empPhone.HrefValue = ""
  678.  
  679.             ' empStatusID
  680.             tblEmployees.empStatusID.HrefValue = ""
  681.  
  682.             ' empStartDate
  683.             tblEmployees.empStartDate.HrefValue = ""
  684.  
  685.             ' empPositionID
  686.             tblEmployees.empPositionID.HrefValue = ""
  687.  
  688.             ' empRate
  689.             tblEmployees.empRate.HrefValue = ""
  690.  
  691.             ' empLastRaiseDate
  692.             tblEmployees.empLastRaiseDate.HrefValue = ""
  693.  
  694.             ' empLastRaiseAmount
  695.             tblEmployees.empLastRaiseAmount.HrefValue = ""
  696.  
  697.             ' empEmail
  698.             tblEmployees.empEmail.HrefValue = ""
  699.  
  700.             ' empLiftCert
  701.             tblEmployees.empLiftCert.HrefValue = ""
  702.  
  703.             ' empForkCert
  704.             tblEmployees.empForkCert.HrefValue = ""
  705.  
  706.                 ' empDriveAuth
  707.                 tblEmployees.empDriveAuth.HrefValue = ""
  708.  
  709.                 ' empTimeClock
  710.                 tblEmployees.empTimeClock.HrefValue = ""
  711.  
  712.                 ' empUserPass
  713.             tblEmployees.empUserPass.HrefValue = ""
  714.  
  715.             ' empUserLevel
  716.             tblEmployees.empUserLevel.HrefValue = ""
  717.         End If
  718.  
  719.         ' Row Rendered event
  720.         tblEmployees.Row_Rendered()
  721.     End Sub
  722.  
  723.     '
  724.     ' Show link optionally based on user ID
  725.     '
  726.     Function ShowOptionLink() As Boolean        
  727.         If Security.IsLoggedIn() AndAlso Not Security.IsAdmin() Then
  728.             Return Security.IsValidUserID(tblEmployees.empID.CurrentValue)
  729.         End If
  730.         Return True
  731.     End Function
  732.  
  733.         ' Page Load event
  734.         Public Sub Page_Load()
  735.  
  736.             'HttpContext.Current.Response.Write("Page Load")
  737.         End Sub
  738.  
  739.         ' Page Unload event
  740.         Public Sub Page_Unload()
  741.  
  742.             'HttpContext.Current.Response.Write("Page Unload")
  743.         End Sub
  744.     End Class
  745.  
  746.     '
  747.     ' ASP.NET Page_Load event
  748.     '
  749.  
  750.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  751.         Response.Buffer = EW_RESPONSE_BUFFER
  752.         Response.Cache.SetCacheability(HttpCacheability.NoCache)
  753.  
  754.         ' Page init
  755.         tblEmployees_view = New ctblEmployees_view(Me)        
  756.         tblEmployees_view.Page_Init()
  757.  
  758.         ' Page main processing
  759.         tblEmployees_view.Page_Main()
  760.     End Sub
  761.  
  762.     '
  763.     ' ASP.NET Page_Unload event
  764.     '
  765.  
  766.     Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
  767.  
  768.         ' Dispose page object
  769.         If tblEmployees_view IsNot Nothing Then tblEmployees_view.Dispose()
  770.     End Sub
  771. End Class
  772.