home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / tblEmployeesedit.aspx.vb < prev    next >
Text File  |  2012-01-28  |  48KB  |  1,299 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 tblEmployeesedit
  12.     Inherits AspNetMaker7_tfpssnet
  13.  
  14.     ' Page object
  15.     Public tblEmployees_edit As ctblEmployees_edit
  16.  
  17.     '
  18.     ' Page Class
  19.     '
  20.     Class ctblEmployees_edit
  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 = "edit"
  75.             m_PageObjName = "tblEmployees_edit"
  76.             m_PageObjTypeName = "ctblEmployees_edit"
  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.CanEdit 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.  
  171.         ' Load key from QueryString
  172.         If ew_Get("empID") <> "" Then
  173.             tblEmployees.empID.QueryStringValue = ew_Get("empID")
  174.         End If
  175.  
  176.         ' Create form object
  177.         ObjForm = New cFormObj
  178.         If ObjForm.GetValue("a_edit") <> "" Then
  179.             tblEmployees.CurrentAction = ObjForm.GetValue("a_edit") ' Get action code
  180.             LoadFormValues() ' Get form values
  181.  
  182.             ' Validate Form
  183.             If Not ValidateForm() Then
  184.                 tblEmployees.CurrentAction = "" ' Form error, reset action
  185.                 Message = ParentPage.gsFormError
  186.                 LoadRow() ' Restore row
  187.                 RestoreFormValues() ' Restore form values if validate failed
  188.             End If
  189.         Else
  190.             tblEmployees.CurrentAction = "I" ' Default action is display
  191.         End If
  192.  
  193.         ' Check if valid key
  194.         If ew_Empty(tblEmployees.empID.CurrentValue) Then Page_Terminate("tblEmployeeslist.aspx") ' Invalid key, return to list
  195.         Select Case tblEmployees.CurrentAction
  196.             Case "I" ' Get a record to display
  197.                 If Not LoadRow() Then ' Load Record based on key
  198.                     Message = "No records found" ' No record found
  199.                     Page_Terminate("tblEmployeeslist.aspx") ' No matching record, return to list
  200.                 End If
  201.             Case "U" ' Update
  202.                 tblEmployees.SendEmail = True ' Send email on update success
  203.                 If EditRow() Then ' Update Record based on key
  204.                     Message = "Update succeeded" ' Update success
  205.                     Dim sReturnUrl As String = tblEmployees.ReturnUrl
  206.                     Page_Terminate(sReturnUrl) ' Return to caller
  207.                 Else
  208.                     LoadRow() ' Restore row
  209.                     RestoreFormValues() ' Restore form values if update failed
  210.                 End If
  211.         End Select
  212.  
  213.         ' Render the record
  214.         tblEmployees.RowType = EW_ROWTYPE_EDIT ' Render as edit
  215.  
  216.         ' Render row
  217.         RenderRow()
  218.     End Sub
  219.  
  220.     '
  221.     ' Get upload file
  222.     '
  223.     Sub GetUploadFiles()
  224.  
  225.         ' Get upload data
  226.     End Sub
  227.  
  228.     '
  229.     ' Load default values
  230.     '
  231.     Sub LoadDefaultValues()
  232.     End Sub
  233.  
  234.     '
  235.     ' Load form values
  236.     '
  237.     Sub LoadFormValues()
  238.             tblEmployees.empID.FormValue = ObjForm.GetValue("x_empID")
  239.             tblEmployees.empID.OldValue = ObjForm.GetValue("o_empID")
  240.             tblEmployees.empPayrollNumber.FormValue = ObjForm.GetValue("x_empPayrollNumber")
  241.             tblEmployees.empPayrollNumber.OldValue = ObjForm.GetValue("o_empPayrollNumber")
  242.             tblEmployees.empUsername.FormValue = ObjForm.GetValue("x_empUsername")
  243.         tblEmployees.empUsername.OldValue = ObjForm.GetValue("o_empUsername")
  244.         tblEmployees.empName.FormValue = ObjForm.GetValue("x_empName")
  245.         tblEmployees.empName.OldValue = ObjForm.GetValue("o_empName")
  246.         tblEmployees.empFirstName.FormValue = ObjForm.GetValue("x_empFirstName")
  247.         tblEmployees.empFirstName.OldValue = ObjForm.GetValue("o_empFirstName")
  248.         tblEmployees.empLastName.FormValue = ObjForm.GetValue("x_empLastName")
  249.         tblEmployees.empLastName.OldValue = ObjForm.GetValue("o_empLastName")
  250.         tblEmployees.empAddress.FormValue = ObjForm.GetValue("x_empAddress")
  251.         tblEmployees.empAddress.OldValue = ObjForm.GetValue("o_empAddress")
  252.         tblEmployees.empCity.FormValue = ObjForm.GetValue("x_empCity")
  253.         tblEmployees.empCity.OldValue = ObjForm.GetValue("o_empCity")
  254.         tblEmployees.empState.FormValue = ObjForm.GetValue("x_empState")
  255.         tblEmployees.empState.OldValue = ObjForm.GetValue("o_empState")
  256.         tblEmployees.empZIP.FormValue = ObjForm.GetValue("x_empZIP")
  257.         tblEmployees.empZIP.OldValue = ObjForm.GetValue("o_empZIP")
  258.         tblEmployees.empPhone.FormValue = ObjForm.GetValue("x_empPhone")
  259.         tblEmployees.empPhone.OldValue = ObjForm.GetValue("o_empPhone")
  260.         tblEmployees.empStatusID.FormValue = ObjForm.GetValue("x_empStatusID")
  261.         tblEmployees.empStatusID.OldValue = ObjForm.GetValue("o_empStatusID")
  262.         tblEmployees.empStartDate.FormValue = ObjForm.GetValue("x_empStartDate")
  263.         tblEmployees.empStartDate.CurrentValue = ew_UnFormatDateTime(tblEmployees.empStartDate.CurrentValue, 6)
  264.         tblEmployees.empStartDate.OldValue = ObjForm.GetValue("o_empStartDate")
  265.         tblEmployees.empPositionID.FormValue = ObjForm.GetValue("x_empPositionID")
  266.         tblEmployees.empPositionID.OldValue = ObjForm.GetValue("o_empPositionID")
  267.         tblEmployees.empRate.FormValue = ObjForm.GetValue("x_empRate")
  268.         tblEmployees.empRate.OldValue = ObjForm.GetValue("o_empRate")
  269.         tblEmployees.empLastRaiseDate.FormValue = ObjForm.GetValue("x_empLastRaiseDate")
  270.         tblEmployees.empLastRaiseDate.CurrentValue = ew_UnFormatDateTime(tblEmployees.empLastRaiseDate.CurrentValue, 6)
  271.         tblEmployees.empLastRaiseDate.OldValue = ObjForm.GetValue("o_empLastRaiseDate")
  272.         tblEmployees.empLastRaiseAmount.FormValue = ObjForm.GetValue("x_empLastRaiseAmount")
  273.         tblEmployees.empLastRaiseAmount.OldValue = ObjForm.GetValue("o_empLastRaiseAmount")
  274.         tblEmployees.empEmail.FormValue = ObjForm.GetValue("x_empEmail")
  275.         tblEmployees.empEmail.OldValue = ObjForm.GetValue("o_empEmail")
  276.         tblEmployees.empLiftCert.FormValue = ObjForm.GetValue("x_empLiftCert")
  277.         tblEmployees.empLiftCert.OldValue = ObjForm.GetValue("o_empLiftCert")
  278.         tblEmployees.empForkCert.FormValue = ObjForm.GetValue("x_empForkCert")
  279.         tblEmployees.empForkCert.OldValue = ObjForm.GetValue("o_empForkCert")
  280.             tblEmployees.empDriveAuth.FormValue = ObjForm.GetValue("x_empDriveAuth")
  281.             tblEmployees.empDriveAuth.OldValue = ObjForm.GetValue("o_empDriveAuth")
  282.             tblEmployees.empTimeClock.FormValue = ObjForm.GetValue("x_empTimeClock")
  283.             tblEmployees.empTimeClock.OldValue = ObjForm.GetValue("o_empTimeClock")
  284.             tblEmployees.empUserPass.FormValue = ObjForm.GetValue("x_empUserPass")
  285.         tblEmployees.empUserPass.OldValue = ObjForm.GetValue("o_empUserPass")
  286.         tblEmployees.empUserLevel.FormValue = ObjForm.GetValue("x_empUserLevel")
  287.         tblEmployees.empUserLevel.OldValue = ObjForm.GetValue("o_empUserLevel")
  288.     End Sub
  289.  
  290.     '
  291.     ' Restore form values
  292.     '
  293.     Sub RestoreFormValues()
  294.             tblEmployees.empID.CurrentValue = tblEmployees.empID.FormValue
  295.             tblEmployees.empPayrollNumber.CurrentValue = tblEmployees.empPayrollNumber.FormValue
  296.             tblEmployees.empUsername.CurrentValue = tblEmployees.empUsername.FormValue
  297.         tblEmployees.empName.CurrentValue = tblEmployees.empName.FormValue
  298.         tblEmployees.empFirstName.CurrentValue = tblEmployees.empFirstName.FormValue
  299.         tblEmployees.empLastName.CurrentValue = tblEmployees.empLastName.FormValue
  300.         tblEmployees.empAddress.CurrentValue = tblEmployees.empAddress.FormValue
  301.         tblEmployees.empCity.CurrentValue = tblEmployees.empCity.FormValue
  302.         tblEmployees.empState.CurrentValue = tblEmployees.empState.FormValue
  303.         tblEmployees.empZIP.CurrentValue = tblEmployees.empZIP.FormValue
  304.         tblEmployees.empPhone.CurrentValue = tblEmployees.empPhone.FormValue
  305.         tblEmployees.empStatusID.CurrentValue = tblEmployees.empStatusID.FormValue
  306.         tblEmployees.empStartDate.CurrentValue = tblEmployees.empStartDate.FormValue
  307.         tblEmployees.empStartDate.CurrentValue = ew_UnFormatDateTime(tblEmployees.empStartDate.CurrentValue, 6)
  308.         tblEmployees.empPositionID.CurrentValue = tblEmployees.empPositionID.FormValue
  309.         tblEmployees.empRate.CurrentValue = tblEmployees.empRate.FormValue
  310.         tblEmployees.empLastRaiseDate.CurrentValue = tblEmployees.empLastRaiseDate.FormValue
  311.         tblEmployees.empLastRaiseDate.CurrentValue = ew_UnFormatDateTime(tblEmployees.empLastRaiseDate.CurrentValue, 6)
  312.         tblEmployees.empLastRaiseAmount.CurrentValue = tblEmployees.empLastRaiseAmount.FormValue
  313.         tblEmployees.empEmail.CurrentValue = tblEmployees.empEmail.FormValue
  314.         tblEmployees.empLiftCert.CurrentValue = tblEmployees.empLiftCert.FormValue
  315.         tblEmployees.empForkCert.CurrentValue = tblEmployees.empForkCert.FormValue
  316.             tblEmployees.empDriveAuth.CurrentValue = tblEmployees.empDriveAuth.FormValue
  317.             tblEmployees.empTimeClock.CurrentValue = tblEmployees.empTimeClock.FormValue
  318.             tblEmployees.empUserPass.CurrentValue = tblEmployees.empUserPass.FormValue
  319.         tblEmployees.empUserLevel.CurrentValue = tblEmployees.empUserLevel.FormValue
  320.     End Sub
  321.  
  322.     '
  323.     ' Load row based on key values
  324.     '
  325.     Function LoadRow() As Boolean
  326.         Dim RsRow As OleDbDataReader
  327.         Dim sFilter As String = tblEmployees.KeyFilter
  328.  
  329.         ' Row Selecting event
  330.         tblEmployees.Row_Selecting(sFilter)
  331.  
  332.         ' Load SQL based on filter
  333.         tblEmployees.CurrentFilter = sFilter
  334.         Dim sSql As String = tblEmployees.SQL
  335.  
  336.         ' Write SQL for debug
  337.         If EW_DEBUG_ENABLED Then ew_Write(sSql)
  338.         Try
  339.             RsRow = Conn.GetTempDataReader(sSql)    
  340.             If Not RsRow.Read() Then
  341.                 Return False
  342.             Else                
  343.                 LoadRowValues(RsRow) ' Load row values
  344.  
  345.                 ' Row Selected event
  346.                 tblEmployees.Row_Selected(RsRow)
  347.                 Return True    
  348.             End If
  349.         Catch
  350.             If EW_DEBUG_ENABLED Then Throw
  351.             Return False
  352.         Finally
  353.             Conn.CloseTempDataReader()
  354.         End Try
  355.     End Function
  356.  
  357.     '
  358.     ' Load row values from recordset
  359.     '
  360.     Sub LoadRowValues(ByRef RsRow As OleDbDataReader)
  361.             tblEmployees.empID.DbValue = RsRow("empID")
  362.             tblEmployees.empPayrollNumber.DbValue = RsRow("empPayrollNumber")
  363.             tblEmployees.empUsername.DbValue = RsRow("empUsername")
  364.         tblEmployees.empName.DbValue = RsRow("empName")
  365.         tblEmployees.empFirstName.DbValue = RsRow("empFirstName")
  366.         tblEmployees.empLastName.DbValue = RsRow("empLastName")
  367.         tblEmployees.empAddress.DbValue = RsRow("empAddress")
  368.         tblEmployees.empCity.DbValue = RsRow("empCity")
  369.         tblEmployees.empState.DbValue = RsRow("empState")
  370.         tblEmployees.empZIP.DbValue = RsRow("empZIP")
  371.         tblEmployees.empPhone.DbValue = RsRow("empPhone")
  372.         tblEmployees.empStatusID.DbValue = RsRow("empStatusID")
  373.         tblEmployees.empStartDate.DbValue = RsRow("empStartDate")
  374.         tblEmployees.empPositionID.DbValue = RsRow("empPositionID")
  375.         tblEmployees.empRate.DbValue = RsRow("empRate")
  376.         tblEmployees.empLastRaiseDate.DbValue = RsRow("empLastRaiseDate")
  377.         tblEmployees.empLastRaiseAmount.DbValue = RsRow("empLastRaiseAmount")
  378.         tblEmployees.empEmail.DbValue = RsRow("empEmail")
  379.         tblEmployees.empLiftCert.DbValue = IIf(ew_ConvertToBool(RsRow("empLiftCert")), "1", "0")
  380.         tblEmployees.empForkCert.DbValue = IIf(ew_ConvertToBool(RsRow("empForkCert")), "1", "0")
  381.             tblEmployees.empDriveAuth.DbValue = IIf(ew_ConvertToBool(RsRow("empDriveAuth")), "1", "0")
  382.             tblEmployees.empTimeClock.DbValue = IIf(ew_ConvertToBool(RsRow("empTimeClock")), "1", "0")
  383.             tblEmployees.empUserPass.DbValue = RsRow("empUserPass")
  384.         tblEmployees.empUserLevel.DbValue = RsRow("empUserLevel")
  385.     End Sub
  386.  
  387.     '
  388.     ' Render row values based on field settings
  389.     '
  390.     Sub RenderRow()
  391.  
  392.         ' Row Rendering event
  393.         tblEmployees.Row_Rendering()
  394.  
  395.         '
  396.         '  Common render codes for all row types
  397.         '
  398.             ' empID
  399.  
  400.             tblEmployees.empID.CellCssStyle = ""
  401.             tblEmployees.empID.CellCssClass = ""
  402.  
  403.             ' empPayrollNumber
  404.  
  405.             tblEmployees.empPayrollNumber.CellCssStyle = ""
  406.             tblEmployees.empPayrollNumber.CellCssClass = ""
  407.  
  408.             ' empUsername
  409.         tblEmployees.empUsername.CellCssStyle = ""
  410.         tblEmployees.empUsername.CellCssClass = ""
  411.  
  412.         ' empName
  413.         tblEmployees.empName.CellCssStyle = ""
  414.         tblEmployees.empName.CellCssClass = ""
  415.  
  416.         ' empFirstName
  417.         tblEmployees.empFirstName.CellCssStyle = ""
  418.         tblEmployees.empFirstName.CellCssClass = ""
  419.  
  420.         ' empLastName
  421.         tblEmployees.empLastName.CellCssStyle = ""
  422.         tblEmployees.empLastName.CellCssClass = ""
  423.  
  424.         ' empAddress
  425.         tblEmployees.empAddress.CellCssStyle = ""
  426.         tblEmployees.empAddress.CellCssClass = ""
  427.  
  428.         ' empCity
  429.         tblEmployees.empCity.CellCssStyle = ""
  430.         tblEmployees.empCity.CellCssClass = ""
  431.  
  432.         ' empState
  433.         tblEmployees.empState.CellCssStyle = ""
  434.         tblEmployees.empState.CellCssClass = ""
  435.  
  436.         ' empZIP
  437.         tblEmployees.empZIP.CellCssStyle = ""
  438.         tblEmployees.empZIP.CellCssClass = ""
  439.  
  440.         ' empPhone
  441.         tblEmployees.empPhone.CellCssStyle = ""
  442.         tblEmployees.empPhone.CellCssClass = ""
  443.  
  444.         ' empStatusID
  445.         tblEmployees.empStatusID.CellCssStyle = ""
  446.         tblEmployees.empStatusID.CellCssClass = ""
  447.  
  448.         ' empStartDate
  449.         tblEmployees.empStartDate.CellCssStyle = ""
  450.         tblEmployees.empStartDate.CellCssClass = ""
  451.  
  452.         ' empPositionID
  453.         tblEmployees.empPositionID.CellCssStyle = ""
  454.         tblEmployees.empPositionID.CellCssClass = ""
  455.  
  456.         ' empRate
  457.         tblEmployees.empRate.CellCssStyle = ""
  458.         tblEmployees.empRate.CellCssClass = ""
  459.  
  460.         ' empLastRaiseDate
  461.         tblEmployees.empLastRaiseDate.CellCssStyle = ""
  462.         tblEmployees.empLastRaiseDate.CellCssClass = ""
  463.  
  464.         ' empLastRaiseAmount
  465.         tblEmployees.empLastRaiseAmount.CellCssStyle = ""
  466.         tblEmployees.empLastRaiseAmount.CellCssClass = ""
  467.  
  468.         ' empEmail
  469.         tblEmployees.empEmail.CellCssStyle = ""
  470.         tblEmployees.empEmail.CellCssClass = ""
  471.  
  472.         ' empLiftCert
  473.         tblEmployees.empLiftCert.CellCssStyle = ""
  474.         tblEmployees.empLiftCert.CellCssClass = ""
  475.  
  476.         ' empForkCert
  477.         tblEmployees.empForkCert.CellCssStyle = ""
  478.         tblEmployees.empForkCert.CellCssClass = ""
  479.  
  480.             ' empDriveAuth
  481.             tblEmployees.empDriveAuth.CellCssStyle = ""
  482.             tblEmployees.empDriveAuth.CellCssClass = ""
  483.  
  484.             ' empTimeClock
  485.             tblEmployees.empTimeClock.CellCssStyle = ""
  486.             tblEmployees.empTimeClock.CellCssClass = ""
  487.  
  488.             ' empUserPass
  489.         tblEmployees.empUserPass.CellCssStyle = ""
  490.         tblEmployees.empUserPass.CellCssClass = ""
  491.  
  492.         ' empUserLevel
  493.         tblEmployees.empUserLevel.CellCssStyle = ""
  494.         tblEmployees.empUserLevel.CellCssClass = ""
  495.  
  496.         '
  497.         '  View  Row
  498.         '
  499.  
  500.         If tblEmployees.RowType = EW_ROWTYPE_VIEW Then ' View row
  501.  
  502.                 ' empID
  503.                 tblEmployees.empID.ViewValue = tblEmployees.empID.CurrentValue
  504.                 tblEmployees.empID.CssStyle = ""
  505.                 tblEmployees.empID.CssClass = ""
  506.                 tblEmployees.empID.ViewCustomAttributes = ""
  507.  
  508.                 ' empPayrollNumber
  509.                 tblEmployees.empPayrollNumber.ViewValue = tblEmployees.empPayrollNumber.CurrentValue
  510.                 tblEmployees.empPayrollNumber.CssStyle = ""
  511.                 tblEmployees.empPayrollNumber.CssClass = ""
  512.                 tblEmployees.empPayrollNumber.ViewCustomAttributes = ""
  513.  
  514.                 ' empUsername
  515.             tblEmployees.empUsername.ViewValue = tblEmployees.empUsername.CurrentValue
  516.             tblEmployees.empUsername.CssStyle = ""
  517.             tblEmployees.empUsername.CssClass = ""
  518.             tblEmployees.empUsername.ViewCustomAttributes = ""
  519.  
  520.             ' empName
  521.             tblEmployees.empName.ViewValue = tblEmployees.empName.CurrentValue
  522.             tblEmployees.empName.CssStyle = ""
  523.             tblEmployees.empName.CssClass = ""
  524.             tblEmployees.empName.ViewCustomAttributes = ""
  525.  
  526.             ' empFirstName
  527.             tblEmployees.empFirstName.ViewValue = tblEmployees.empFirstName.CurrentValue
  528.             tblEmployees.empFirstName.CssStyle = ""
  529.             tblEmployees.empFirstName.CssClass = ""
  530.             tblEmployees.empFirstName.ViewCustomAttributes = ""
  531.  
  532.             ' empLastName
  533.             tblEmployees.empLastName.ViewValue = tblEmployees.empLastName.CurrentValue
  534.             tblEmployees.empLastName.CssStyle = ""
  535.             tblEmployees.empLastName.CssClass = ""
  536.             tblEmployees.empLastName.ViewCustomAttributes = ""
  537.  
  538.             ' empAddress
  539.             tblEmployees.empAddress.ViewValue = tblEmployees.empAddress.CurrentValue
  540.             tblEmployees.empAddress.CssStyle = ""
  541.             tblEmployees.empAddress.CssClass = ""
  542.             tblEmployees.empAddress.ViewCustomAttributes = ""
  543.  
  544.             ' empCity
  545.             tblEmployees.empCity.ViewValue = tblEmployees.empCity.CurrentValue
  546.             tblEmployees.empCity.CssStyle = ""
  547.             tblEmployees.empCity.CssClass = ""
  548.             tblEmployees.empCity.ViewCustomAttributes = ""
  549.  
  550.             ' empState
  551.             tblEmployees.empState.ViewValue = tblEmployees.empState.CurrentValue
  552.             tblEmployees.empState.CssStyle = ""
  553.             tblEmployees.empState.CssClass = ""
  554.             tblEmployees.empState.ViewCustomAttributes = ""
  555.  
  556.             ' empZIP
  557.             tblEmployees.empZIP.ViewValue = tblEmployees.empZIP.CurrentValue
  558.             tblEmployees.empZIP.CssStyle = ""
  559.             tblEmployees.empZIP.CssClass = ""
  560.             tblEmployees.empZIP.ViewCustomAttributes = ""
  561.  
  562.             ' empPhone
  563.             tblEmployees.empPhone.ViewValue = tblEmployees.empPhone.CurrentValue
  564.             tblEmployees.empPhone.CssStyle = ""
  565.             tblEmployees.empPhone.CssClass = ""
  566.             tblEmployees.empPhone.ViewCustomAttributes = ""
  567.  
  568.             ' empStatusID
  569.             If ew_NotEmpty(tblEmployees.empStatusID.CurrentValue) Then
  570.                 sSqlWrk = "SELECT [tscStatus] FROM [tblEmployeeStatus] WHERE [ID] = " & ew_AdjustSql(tblEmployees.empStatusID.CurrentValue) & ""
  571.                 sSqlWrk = sSqlWrk & " ORDER BY [tscStatus] "
  572.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  573.                 If RsWrk.Read() Then
  574.                     tblEmployees.empStatusID.ViewValue = RsWrk("tscStatus")
  575.                 Else
  576.                     tblEmployees.empStatusID.ViewValue = tblEmployees.empStatusID.CurrentValue
  577.                 End If
  578.                 Conn.CloseTempDataReader()
  579.             Else
  580.                 tblEmployees.empStatusID.ViewValue = System.DBNull.Value
  581.             End If
  582.             tblEmployees.empStatusID.CssStyle = ""
  583.             tblEmployees.empStatusID.CssClass = ""
  584.             tblEmployees.empStatusID.ViewCustomAttributes = ""
  585.  
  586.             ' empStartDate
  587.             tblEmployees.empStartDate.ViewValue = tblEmployees.empStartDate.CurrentValue
  588.             tblEmployees.empStartDate.ViewValue = ew_FormatDateTime(tblEmployees.empStartDate.ViewValue, 6)
  589.             tblEmployees.empStartDate.CssStyle = ""
  590.             tblEmployees.empStartDate.CssClass = ""
  591.             tblEmployees.empStartDate.ViewCustomAttributes = ""
  592.  
  593.             ' empPositionID
  594.             If ew_NotEmpty(tblEmployees.empPositionID.CurrentValue) Then
  595.                 sSqlWrk = "SELECT [posDescription] FROM [tblPositions] WHERE [posID] = " & ew_AdjustSql(tblEmployees.empPositionID.CurrentValue) & ""
  596.                 sSqlWrk = sSqlWrk & " ORDER BY [posDescription] "
  597.                 RsWrk = Conn.GetTempDataReader(sSqlWrk)
  598.                 If RsWrk.Read() Then
  599.                     tblEmployees.empPositionID.ViewValue = RsWrk("posDescription")
  600.                 Else
  601.                     tblEmployees.empPositionID.ViewValue = tblEmployees.empPositionID.CurrentValue
  602.                 End If
  603.                 Conn.CloseTempDataReader()
  604.             Else
  605.                 tblEmployees.empPositionID.ViewValue = System.DBNull.Value
  606.             End If
  607.             tblEmployees.empPositionID.CssStyle = ""
  608.             tblEmployees.empPositionID.CssClass = ""
  609.             tblEmployees.empPositionID.ViewCustomAttributes = ""
  610.  
  611.             ' empRate
  612.             tblEmployees.empRate.ViewValue = tblEmployees.empRate.CurrentValue
  613.             tblEmployees.empRate.CssStyle = ""
  614.             tblEmployees.empRate.CssClass = ""
  615.             tblEmployees.empRate.ViewCustomAttributes = ""
  616.  
  617.             ' empLastRaiseDate
  618.             tblEmployees.empLastRaiseDate.ViewValue = tblEmployees.empLastRaiseDate.CurrentValue
  619.             tblEmployees.empLastRaiseDate.ViewValue = ew_FormatDateTime(tblEmployees.empLastRaiseDate.ViewValue, 6)
  620.             tblEmployees.empLastRaiseDate.CssStyle = ""
  621.             tblEmployees.empLastRaiseDate.CssClass = ""
  622.             tblEmployees.empLastRaiseDate.ViewCustomAttributes = ""
  623.  
  624.             ' empLastRaiseAmount
  625.             tblEmployees.empLastRaiseAmount.ViewValue = tblEmployees.empLastRaiseAmount.CurrentValue
  626.             tblEmployees.empLastRaiseAmount.CssStyle = ""
  627.             tblEmployees.empLastRaiseAmount.CssClass = ""
  628.             tblEmployees.empLastRaiseAmount.ViewCustomAttributes = ""
  629.  
  630.             ' empEmail
  631.             tblEmployees.empEmail.ViewValue = tblEmployees.empEmail.CurrentValue
  632.             tblEmployees.empEmail.CssStyle = ""
  633.             tblEmployees.empEmail.CssClass = ""
  634.             tblEmployees.empEmail.ViewCustomAttributes = ""
  635.  
  636.             ' empLiftCert
  637.             If Convert.ToString(tblEmployees.empLiftCert.CurrentValue) = "1" Then
  638.                 tblEmployees.empLiftCert.ViewValue = "Yes"
  639.             Else
  640.                 tblEmployees.empLiftCert.ViewValue = "No"
  641.             End If
  642.             tblEmployees.empLiftCert.CssStyle = ""
  643.             tblEmployees.empLiftCert.CssClass = ""
  644.             tblEmployees.empLiftCert.ViewCustomAttributes = ""
  645.  
  646.             ' empForkCert
  647.             If Convert.ToString(tblEmployees.empForkCert.CurrentValue) = "1" Then
  648.                 tblEmployees.empForkCert.ViewValue = "Yes"
  649.             Else
  650.                 tblEmployees.empForkCert.ViewValue = "No"
  651.             End If
  652.             tblEmployees.empForkCert.CssStyle = ""
  653.             tblEmployees.empForkCert.CssClass = ""
  654.             tblEmployees.empForkCert.ViewCustomAttributes = ""
  655.  
  656.                 ' empDriveAuth
  657.                 If Convert.ToString(tblEmployees.empDriveAuth.CurrentValue) = "1" Then
  658.                     tblEmployees.empDriveAuth.ViewValue = "Yes"
  659.                 Else
  660.                     tblEmployees.empDriveAuth.ViewValue = "No"
  661.                 End If
  662.                 tblEmployees.empDriveAuth.CssStyle = ""
  663.                 tblEmployees.empDriveAuth.CssClass = ""
  664.                 tblEmployees.empDriveAuth.ViewCustomAttributes = ""
  665.  
  666.                 ' empTimeClock
  667.                 If Convert.ToString(tblEmployees.empTimeClock.CurrentValue) = "1" Then
  668.                     tblEmployees.empTimeClock.ViewValue = "Yes"
  669.                 Else
  670.                     tblEmployees.empTimeClock.ViewValue = "No"
  671.                 End If
  672.                 tblEmployees.empTimeClock.CssStyle = ""
  673.                 tblEmployees.empTimeClock.CssClass = ""
  674.                 tblEmployees.empTimeClock.ViewCustomAttributes = ""
  675.  
  676.                 ' empUserPass
  677.             tblEmployees.empUserPass.ViewValue = "********"
  678.             tblEmployees.empUserPass.CssStyle = ""
  679.             tblEmployees.empUserPass.CssClass = ""
  680.             tblEmployees.empUserPass.ViewCustomAttributes = ""
  681.  
  682.             ' empUserLevel
  683.             If (Security.CurrentUserLevel And EW_ALLOW_ADMIN) = EW_ALLOW_ADMIN Then ' System admin
  684.             If Not IsDBNull(tblEmployees.empUserLevel.CurrentValue) Then
  685.                 Select Case tblEmployees.empUserLevel.CurrentValue
  686.                     Case "-1"
  687.                         tblEmployees.empUserLevel.ViewValue = "Administrator"
  688.                     Case "0"
  689.                         tblEmployees.empUserLevel.ViewValue = "Default"
  690.                     Case "1"
  691.                                 tblEmployees.empUserLevel.ViewValue = "Part Time"
  692.                     Case "2"
  693.                         tblEmployees.empUserLevel.ViewValue = "Standard Lighting"
  694.                             Case "3"
  695.                                 tblEmployees.empUserLevel.ViewValue = "Admin Lighting"
  696.                             Case "4"
  697.                                 tblEmployees.empUserLevel.ViewValue = "Full Time"
  698.                             Case Else
  699.                                 tblEmployees.empUserLevel.ViewValue = tblEmployees.empUserLevel.CurrentValue
  700.                         End Select
  701.             Else
  702.                 tblEmployees.empUserLevel.ViewValue = System.DBNull.Value
  703.             End If
  704.             Else
  705.                 tblEmployees.empUserLevel.ViewValue = "********"
  706.             End If
  707.             tblEmployees.empUserLevel.CssStyle = ""
  708.             tblEmployees.empUserLevel.CssClass = ""
  709.             tblEmployees.empUserLevel.ViewCustomAttributes = ""
  710.  
  711.             ' View refer script
  712.                 ' empID
  713.  
  714.                 tblEmployees.empID.HrefValue = ""
  715.  
  716.                 ' empPayrollNumber
  717.  
  718.                 tblEmployees.empPayrollNumber.HrefValue = ""
  719.  
  720.                 ' empUsername
  721.             tblEmployees.empUsername.HrefValue = ""
  722.  
  723.             ' empName
  724.             tblEmployees.empName.HrefValue = ""
  725.  
  726.             ' empFirstName
  727.             tblEmployees.empFirstName.HrefValue = ""
  728.  
  729.             ' empLastName
  730.             tblEmployees.empLastName.HrefValue = ""
  731.  
  732.             ' empAddress
  733.             tblEmployees.empAddress.HrefValue = ""
  734.  
  735.             ' empCity
  736.             tblEmployees.empCity.HrefValue = ""
  737.  
  738.             ' empState
  739.             tblEmployees.empState.HrefValue = ""
  740.  
  741.             ' empZIP
  742.             tblEmployees.empZIP.HrefValue = ""
  743.  
  744.             ' empPhone
  745.             tblEmployees.empPhone.HrefValue = ""
  746.  
  747.             ' empStatusID
  748.             tblEmployees.empStatusID.HrefValue = ""
  749.  
  750.             ' empStartDate
  751.             tblEmployees.empStartDate.HrefValue = ""
  752.  
  753.             ' empPositionID
  754.             tblEmployees.empPositionID.HrefValue = ""
  755.  
  756.             ' empRate
  757.             tblEmployees.empRate.HrefValue = ""
  758.  
  759.             ' empLastRaiseDate
  760.             tblEmployees.empLastRaiseDate.HrefValue = ""
  761.  
  762.             ' empLastRaiseAmount
  763.             tblEmployees.empLastRaiseAmount.HrefValue = ""
  764.  
  765.             ' empEmail
  766.             tblEmployees.empEmail.HrefValue = ""
  767.  
  768.             ' empLiftCert
  769.             tblEmployees.empLiftCert.HrefValue = ""
  770.  
  771.             ' empForkCert
  772.             tblEmployees.empForkCert.HrefValue = ""
  773.  
  774.                 ' empDriveAuth
  775.                 tblEmployees.empDriveAuth.HrefValue = ""
  776.  
  777.                 ' empTimeClock
  778.                 tblEmployees.empTimeClock.HrefValue = ""
  779.  
  780.                 ' empUserPass
  781.             tblEmployees.empUserPass.HrefValue = ""
  782.  
  783.             ' empUserLevel
  784.             tblEmployees.empUserLevel.HrefValue = ""
  785.  
  786.         '
  787.         '  Edit Row
  788.         '
  789.  
  790.         ElseIf tblEmployees.RowType = EW_ROWTYPE_EDIT Then ' Edit row
  791.  
  792.                 ' empID
  793.                 tblEmployees.empID.EditCustomAttributes = ""
  794.                 tblEmployees.empID.EditValue = tblEmployees.empID.CurrentValue
  795.                 tblEmployees.empID.CssStyle = ""
  796.                 tblEmployees.empID.CssClass = ""
  797.                 tblEmployees.empID.ViewCustomAttributes = ""
  798.  
  799.                 ' empPayrollNumber
  800.                 tblEmployees.empPayrollNumber.EditCustomAttributes = ""
  801.                 tblEmployees.empPayrollNumber.EditValue = ew_HtmlEncode(tblEmployees.empPayrollNumber.CurrentValue)
  802.  
  803.                 ' empUsername
  804.             tblEmployees.empUsername.EditCustomAttributes = ""
  805.             tblEmployees.empUsername.EditValue = ew_HtmlEncode(tblEmployees.empUsername.CurrentValue)
  806.  
  807.             ' empName
  808.             tblEmployees.empName.EditCustomAttributes = ""
  809.             tblEmployees.empName.EditValue = ew_HtmlEncode(tblEmployees.empName.CurrentValue)
  810.  
  811.             ' empFirstName
  812.             tblEmployees.empFirstName.EditCustomAttributes = ""
  813.             tblEmployees.empFirstName.EditValue = ew_HtmlEncode(tblEmployees.empFirstName.CurrentValue)
  814.  
  815.             ' empLastName
  816.             tblEmployees.empLastName.EditCustomAttributes = ""
  817.             tblEmployees.empLastName.EditValue = ew_HtmlEncode(tblEmployees.empLastName.CurrentValue)
  818.  
  819.             ' empAddress
  820.             tblEmployees.empAddress.EditCustomAttributes = ""
  821.             tblEmployees.empAddress.EditValue = ew_HtmlEncode(tblEmployees.empAddress.CurrentValue)
  822.  
  823.             ' empCity
  824.             tblEmployees.empCity.EditCustomAttributes = ""
  825.             tblEmployees.empCity.EditValue = ew_HtmlEncode(tblEmployees.empCity.CurrentValue)
  826.  
  827.             ' empState
  828.             tblEmployees.empState.EditCustomAttributes = ""
  829.             tblEmployees.empState.EditValue = ew_HtmlEncode(tblEmployees.empState.CurrentValue)
  830.  
  831.             ' empZIP
  832.             tblEmployees.empZIP.EditCustomAttributes = ""
  833.             tblEmployees.empZIP.EditValue = ew_HtmlEncode(tblEmployees.empZIP.CurrentValue)
  834.  
  835.             ' empPhone
  836.             tblEmployees.empPhone.EditCustomAttributes = ""
  837.             tblEmployees.empPhone.EditValue = ew_HtmlEncode(tblEmployees.empPhone.CurrentValue)
  838.  
  839.             ' empStatusID
  840.             tblEmployees.empStatusID.EditCustomAttributes = ""
  841.             sSqlWrk = "SELECT [ID], [tscStatus], '' AS Disp2Fld, '' AS SelectFilterFld FROM [tblEmployeeStatus]"
  842.             sWhereWrk = ""
  843.             If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
  844.             sSqlWrk = sSqlWrk & " ORDER BY [tscStatus] "
  845.             arwrk = Conn.GetRows(sSqlWrk)
  846.             arwrk.Insert(0, New Object(){"", "Please Select"}) 
  847.             tblEmployees.empStatusID.EditValue = arwrk
  848.  
  849.             ' empStartDate
  850.             tblEmployees.empStartDate.EditCustomAttributes = ""
  851.             tblEmployees.empStartDate.EditValue = ew_FormatDateTime(tblEmployees.empStartDate.CurrentValue, 6)
  852.  
  853.             ' empPositionID
  854.             tblEmployees.empPositionID.EditCustomAttributes = ""
  855.             sSqlWrk = "SELECT [posID], [posDescription], '' AS Disp2Fld, '' AS SelectFilterFld FROM [tblPositions]"
  856.             sWhereWrk = ""
  857.             If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
  858.             sSqlWrk = sSqlWrk & " ORDER BY [posDescription] "
  859.             arwrk = Conn.GetRows(sSqlWrk)
  860.             arwrk.Insert(0, New Object(){"", "Please Select"}) 
  861.             tblEmployees.empPositionID.EditValue = arwrk
  862.  
  863.             ' empRate
  864.             tblEmployees.empRate.EditCustomAttributes = ""
  865.             tblEmployees.empRate.EditValue = ew_HtmlEncode(tblEmployees.empRate.CurrentValue)
  866.  
  867.             ' empLastRaiseDate
  868.             tblEmployees.empLastRaiseDate.EditCustomAttributes = ""
  869.             tblEmployees.empLastRaiseDate.EditValue = ew_FormatDateTime(tblEmployees.empLastRaiseDate.CurrentValue, 6)
  870.  
  871.             ' empLastRaiseAmount
  872.             tblEmployees.empLastRaiseAmount.EditCustomAttributes = ""
  873.             tblEmployees.empLastRaiseAmount.EditValue = ew_HtmlEncode(tblEmployees.empLastRaiseAmount.CurrentValue)
  874.  
  875.             ' empEmail
  876.             tblEmployees.empEmail.EditCustomAttributes = ""
  877.             tblEmployees.empEmail.EditValue = ew_HtmlEncode(tblEmployees.empEmail.CurrentValue)
  878.  
  879.             ' empLiftCert
  880.             tblEmployees.empLiftCert.EditCustomAttributes = ""
  881.  
  882.             ' empForkCert
  883.             tblEmployees.empForkCert.EditCustomAttributes = ""
  884.  
  885.                 ' empDriveAuth
  886.                 tblEmployees.empDriveAuth.EditCustomAttributes = ""
  887.  
  888.                 ' empTimeClock
  889.                 tblEmployees.empTimeClock.EditCustomAttributes = ""
  890.  
  891.                 ' empUserPass
  892.             tblEmployees.empUserPass.EditCustomAttributes = ""
  893.             tblEmployees.empUserPass.EditValue = ew_HtmlEncode(tblEmployees.empUserPass.CurrentValue)
  894.  
  895.             ' empUserLevel
  896.             tblEmployees.empUserLevel.EditCustomAttributes = ""
  897.             If Not Security.CanAdmin Then ' System admin
  898.                 tblEmployees.empUserLevel.EditValue = "********"
  899.             Else
  900.             arwrk = New ArrayList
  901.             arwrk.Add(New String() {"-1", "Administrator"})
  902.             arwrk.Add(New String() {"0", "Default"})
  903.                     arwrk.Add(New String() {"1", "Part Time"})
  904.             arwrk.Add(New String() {"2", "Standard Lighting"})
  905.                     arwrk.Add(New String() {"3", "Admin Lighting"})
  906.                     arwrk.Add(New String() {"4", "Full Time"})
  907.                     arwrk.Insert(0, New String() {"", "Please Select"})
  908.             tblEmployees.empUserLevel.EditValue = arwrk
  909.             End If
  910.  
  911.             ' Edit refer script
  912.                 ' empID
  913.  
  914.                 tblEmployees.empID.HrefValue = ""
  915.  
  916.                 ' empPayrollNumber
  917.  
  918.                 tblEmployees.empPayrollNumber.HrefValue = ""
  919.  
  920.                 ' empUsername
  921.             tblEmployees.empUsername.HrefValue = ""
  922.  
  923.             ' empName
  924.             tblEmployees.empName.HrefValue = ""
  925.  
  926.             ' empFirstName
  927.             tblEmployees.empFirstName.HrefValue = ""
  928.  
  929.             ' empLastName
  930.             tblEmployees.empLastName.HrefValue = ""
  931.  
  932.             ' empAddress
  933.             tblEmployees.empAddress.HrefValue = ""
  934.  
  935.             ' empCity
  936.             tblEmployees.empCity.HrefValue = ""
  937.  
  938.             ' empState
  939.             tblEmployees.empState.HrefValue = ""
  940.  
  941.             ' empZIP
  942.             tblEmployees.empZIP.HrefValue = ""
  943.  
  944.             ' empPhone
  945.             tblEmployees.empPhone.HrefValue = ""
  946.  
  947.             ' empStatusID
  948.             tblEmployees.empStatusID.HrefValue = ""
  949.  
  950.             ' empStartDate
  951.             tblEmployees.empStartDate.HrefValue = ""
  952.  
  953.             ' empPositionID
  954.             tblEmployees.empPositionID.HrefValue = ""
  955.  
  956.             ' empRate
  957.             tblEmployees.empRate.HrefValue = ""
  958.  
  959.             ' empLastRaiseDate
  960.             tblEmployees.empLastRaiseDate.HrefValue = ""
  961.  
  962.             ' empLastRaiseAmount
  963.             tblEmployees.empLastRaiseAmount.HrefValue = ""
  964.  
  965.             ' empEmail
  966.             tblEmployees.empEmail.HrefValue = ""
  967.  
  968.             ' empLiftCert
  969.             tblEmployees.empLiftCert.HrefValue = ""
  970.  
  971.             ' empForkCert
  972.             tblEmployees.empForkCert.HrefValue = ""
  973.  
  974.                 ' empDriveAuth
  975.                 tblEmployees.empDriveAuth.HrefValue = ""
  976.  
  977.                 ' empTimeClock
  978.                 tblEmployees.empTimeClock.HrefValue = ""
  979.  
  980.                 ' empUserPass
  981.             tblEmployees.empUserPass.HrefValue = ""
  982.  
  983.             ' empUserLevel
  984.             tblEmployees.empUserLevel.HrefValue = ""
  985.         End If
  986.  
  987.         ' Row Rendered event
  988.         tblEmployees.Row_Rendered()
  989.     End Sub
  990.  
  991.     '
  992.     ' Validate form
  993.     '
  994.     Function ValidateForm() As Boolean
  995.  
  996.         ' Initialize
  997.         ParentPage.gsFormError = ""
  998.  
  999.         ' Check if validation required
  1000.         If Not EW_SERVER_VALIDATE Then Return (ParentPage.gsFormError = "")
  1001.             If Not ew_CheckInteger(tblEmployees.empPayrollNumber.FormValue) Then
  1002.                 If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1003.                 ParentPage.gsFormError = ParentPage.gsFormError & "Incorrect integer - ID"
  1004.             End If
  1005.         If ew_Empty(tblEmployees.empUsername.FormValue) Then
  1006.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1007.             ParentPage.gsFormError = ParentPage.gsFormError & "Please enter required field - Username"
  1008.         End If
  1009.         If ew_Empty(tblEmployees.empName.FormValue) Then
  1010.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1011.             ParentPage.gsFormError = ParentPage.gsFormError & "Please enter required field - Full Name"
  1012.         End If
  1013.         If ew_Empty(tblEmployees.empFirstName.FormValue) Then
  1014.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1015.             ParentPage.gsFormError = ParentPage.gsFormError & "Please enter required field - First Name"
  1016.         End If
  1017.         If ew_Empty(tblEmployees.empLastName.FormValue) Then
  1018.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1019.             ParentPage.gsFormError = ParentPage.gsFormError & "Please enter required field - Last Name"
  1020.         End If
  1021.         If Not ew_CheckZip(tblEmployees.empZIP.FormValue) Then
  1022.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1023.             ParentPage.gsFormError = ParentPage.gsFormError & "Incorrect ZIP code - ZIP"
  1024.         End If
  1025.         If Not ew_CheckPhone(tblEmployees.empPhone.FormValue) Then
  1026.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1027.             ParentPage.gsFormError = ParentPage.gsFormError & "Incorrect phone number - Phone Number (xxx-xxx-xxxx)"
  1028.         End If
  1029.         If ew_Empty(tblEmployees.empStatusID.FormValue) Then
  1030.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1031.             ParentPage.gsFormError = ParentPage.gsFormError & "Please enter required field - Status"
  1032.         End If
  1033.         If Not ew_CheckUSDate(tblEmployees.empStartDate.FormValue) Then
  1034.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1035.             ParentPage.gsFormError = ParentPage.gsFormError & "Incorrect date, format = mm/dd/yyyy - Start Date"
  1036.         End If
  1037.         If ew_Empty(tblEmployees.empPositionID.FormValue) Then
  1038.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1039.             ParentPage.gsFormError = ParentPage.gsFormError & "Please enter required field - Position"
  1040.         End If
  1041.         If Not ew_CheckNumber(tblEmployees.empRate.FormValue) Then
  1042.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1043.             ParentPage.gsFormError = ParentPage.gsFormError & "Incorrect floating point number - Rate"
  1044.         End If
  1045.         If Not ew_CheckUSDate(tblEmployees.empLastRaiseDate.FormValue) Then
  1046.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1047.             ParentPage.gsFormError = ParentPage.gsFormError & "Incorrect date, format = mm/dd/yyyy - Last Raise Date"
  1048.         End If
  1049.         If Not ew_CheckNumber(tblEmployees.empLastRaiseAmount.FormValue) Then
  1050.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1051.             ParentPage.gsFormError = ParentPage.gsFormError & "Incorrect floating point number - Last Raise Amount"
  1052.         End If
  1053.         If Not ew_CheckEmail(tblEmployees.empEmail.FormValue) Then
  1054.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1055.             ParentPage.gsFormError = ParentPage.gsFormError & "Incorrect email - Email"
  1056.         End If
  1057.         If ew_Empty(tblEmployees.empUserPass.FormValue) Then
  1058.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1059.             ParentPage.gsFormError = ParentPage.gsFormError & "Please enter required field - Password"
  1060.         End If
  1061.         If ew_Empty(tblEmployees.empUserLevel.FormValue) Then
  1062.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1063.             ParentPage.gsFormError = ParentPage.gsFormError & "Please enter required field - User Level"
  1064.         End If
  1065.  
  1066.         ' Return validate result
  1067.         Dim Valid As Boolean = (ParentPage.gsFormError = "")
  1068.  
  1069.         ' Form_CustomValidate event
  1070.         Dim sFormCustomError As String = ""
  1071.         Valid = Valid And Form_CustomValidate(sFormCustomError)
  1072.         If sFormCustomError <> "" Then
  1073.             If ParentPage.gsFormError <> "" Then ParentPage.gsFormError = ParentPage.gsFormError & "<br />"
  1074.             ParentPage.gsFormError = ParentPage.gsFormError & sFormCustomError
  1075.         End If
  1076.         Return Valid
  1077.     End Function
  1078.  
  1079.     '
  1080.     ' Update record based on key values
  1081.     '
  1082.     Function EditRow() As Boolean
  1083.         Dim RsEdit As OleDbDataReader, RsChk As OleDbDataReader
  1084.         Dim sSql As String, sFilter As String
  1085.         Dim sSqlChk As String, sFilterChk As String
  1086.         Dim bUpdateRow As Boolean
  1087.         Dim RsOld As OrderedDictionary
  1088.         Dim sIdxErrMsg As String
  1089.         Dim Rs As New OrderedDictionary
  1090.         sFilter = tblEmployees.KeyFilter
  1091.         If tblEmployees.empID.CurrentValue <> "" Then ' Check field with unique index
  1092.             sFilterChk = "(empID = " & ew_AdjustSql(tblEmployees.empID.CurrentValue) & ")"
  1093.             sFilterChk = sFilterChk & " AND NOT (" & sFilter & ")"
  1094.             tblEmployees.CurrentFilter = sFilterChk
  1095.             sSqlChk = tblEmployees.SQL
  1096.             Try
  1097.                 RsChk = Conn.GetDataReader(sSqlChk)
  1098.                 If RsChk.Read() Then
  1099.                     sIdxErrMsg = "Duplicate value '%v' for unique index '%f'".Replace("%f", "empID")
  1100.                     sIdxErrMsg = sIdxErrMsg.Replace("%v", tblEmployees.empID.CurrentValue)
  1101.                     Message = sIdxErrMsg            
  1102.                     Return False
  1103.                 End If
  1104.             Catch e As Exception
  1105.                 If EW_DEBUG_ENABLED Then Throw
  1106.                 Message = e.Message
  1107.                 Return False
  1108.             Finally
  1109.                 RsChk.Close()
  1110.                 RsChk.Dispose()    
  1111.             End Try                
  1112.         End If
  1113.         tblEmployees.CurrentFilter  = sFilter
  1114.         sSql = tblEmployees.SQL
  1115.         Try
  1116.             RsEdit = Conn.GetDataReader(sSql) 
  1117.         Catch e As Exception
  1118.             If EW_DEBUG_ENABLED Then Throw
  1119.             Message = e.Message
  1120.             RsEdit.Close()
  1121.             EditRow = False
  1122.         End Try
  1123.         If Not RsEdit.Read() Then
  1124.             RsEdit.Close()
  1125.             EditRow = False ' Update Failed
  1126.         Else
  1127.             RsOld = Conn.GetRow(RsEdit)
  1128.             RsEdit.Close()
  1129.  
  1130.             ' empID
  1131.  
  1132.                 tblEmployees.empPayrollNumber.SetDbValue(tblEmployees.empPayrollNumber.CurrentValue, System.DBNull.Value)
  1133.                 Rs("empPayrollNumber") = tblEmployees.empPayrollNumber.DbValue
  1134.  
  1135.                 ' empUsername
  1136.                 tblEmployees.empUsername.SetDbValue(tblEmployees.empUsername.CurrentValue, System.DBNull.Value)
  1137.                 Rs("empUsername") = tblEmployees.empUsername.DbValue
  1138.  
  1139.                 ' empName
  1140.             tblEmployees.empName.SetDbValue(tblEmployees.empName.CurrentValue, System.DBNull.Value)
  1141.             Rs("empName") = tblEmployees.empName.DbValue
  1142.  
  1143.             ' empFirstName
  1144.             tblEmployees.empFirstName.SetDbValue(tblEmployees.empFirstName.CurrentValue, System.DBNull.Value)
  1145.             Rs("empFirstName") = tblEmployees.empFirstName.DbValue
  1146.  
  1147.             ' empLastName
  1148.             tblEmployees.empLastName.SetDbValue(tblEmployees.empLastName.CurrentValue, System.DBNull.Value)
  1149.             Rs("empLastName") = tblEmployees.empLastName.DbValue
  1150.  
  1151.             ' empAddress
  1152.             tblEmployees.empAddress.SetDbValue(tblEmployees.empAddress.CurrentValue, System.DBNull.Value)
  1153.             Rs("empAddress") = tblEmployees.empAddress.DbValue
  1154.  
  1155.             ' empCity
  1156.             tblEmployees.empCity.SetDbValue(tblEmployees.empCity.CurrentValue, System.DBNull.Value)
  1157.             Rs("empCity") = tblEmployees.empCity.DbValue
  1158.  
  1159.             ' empState
  1160.             tblEmployees.empState.SetDbValue(tblEmployees.empState.CurrentValue, System.DBNull.Value)
  1161.             Rs("empState") = tblEmployees.empState.DbValue
  1162.  
  1163.             ' empZIP
  1164.             tblEmployees.empZIP.SetDbValue(tblEmployees.empZIP.CurrentValue, System.DBNull.Value)
  1165.             Rs("empZIP") = tblEmployees.empZIP.DbValue
  1166.  
  1167.             ' empPhone
  1168.             tblEmployees.empPhone.SetDbValue(tblEmployees.empPhone.CurrentValue, System.DBNull.Value)
  1169.             Rs("empPhone") = tblEmployees.empPhone.DbValue
  1170.  
  1171.             ' empStatusID
  1172.             tblEmployees.empStatusID.SetDbValue(tblEmployees.empStatusID.CurrentValue, System.DBNull.Value)
  1173.             Rs("empStatusID") = tblEmployees.empStatusID.DbValue
  1174.  
  1175.             ' empStartDate
  1176.             tblEmployees.empStartDate.SetDbValue(ew_UnFormatDateTime(tblEmployees.empStartDate.CurrentValue, 6), System.DBNull.Value)
  1177.             Rs("empStartDate") = tblEmployees.empStartDate.DbValue
  1178.  
  1179.             ' empPositionID
  1180.             tblEmployees.empPositionID.SetDbValue(tblEmployees.empPositionID.CurrentValue, System.DBNull.Value)
  1181.             Rs("empPositionID") = tblEmployees.empPositionID.DbValue
  1182.  
  1183.             ' empRate
  1184.             tblEmployees.empRate.SetDbValue(tblEmployees.empRate.CurrentValue, System.DBNull.Value)
  1185.             Rs("empRate") = tblEmployees.empRate.DbValue
  1186.  
  1187.             ' empLastRaiseDate
  1188.             tblEmployees.empLastRaiseDate.SetDbValue(ew_UnFormatDateTime(tblEmployees.empLastRaiseDate.CurrentValue, 6), System.DBNull.Value)
  1189.             Rs("empLastRaiseDate") = tblEmployees.empLastRaiseDate.DbValue
  1190.  
  1191.             ' empLastRaiseAmount
  1192.             tblEmployees.empLastRaiseAmount.SetDbValue(tblEmployees.empLastRaiseAmount.CurrentValue, System.DBNull.Value)
  1193.             Rs("empLastRaiseAmount") = tblEmployees.empLastRaiseAmount.DbValue
  1194.  
  1195.             ' empEmail
  1196.             tblEmployees.empEmail.SetDbValue(tblEmployees.empEmail.CurrentValue, System.DBNull.Value)
  1197.             Rs("empEmail") = tblEmployees.empEmail.DbValue
  1198.  
  1199.             ' empLiftCert
  1200.             tblEmployees.empLiftCert.SetDbValue((tblEmployees.empLiftCert.CurrentValue <> "" And Not IsDBNull(tblEmployees.empLiftCert.CurrentValue)), System.DBNull.Value)
  1201.             Rs("empLiftCert") = tblEmployees.empLiftCert.DbValue
  1202.  
  1203.             ' empForkCert
  1204.             tblEmployees.empForkCert.SetDbValue((tblEmployees.empForkCert.CurrentValue <> "" And Not IsDBNull(tblEmployees.empForkCert.CurrentValue)), System.DBNull.Value)
  1205.             Rs("empForkCert") = tblEmployees.empForkCert.DbValue
  1206.  
  1207.                 ' empDriveAuth
  1208.                 tblEmployees.empDriveAuth.SetDbValue((tblEmployees.empDriveAuth.CurrentValue <> "" And Not IsDBNull(tblEmployees.empDriveAuth.CurrentValue)), System.DBNull.Value)
  1209.                 Rs("empDriveAuth") = tblEmployees.empDriveAuth.DbValue
  1210.  
  1211.                 ' empTimeClock
  1212.                 tblEmployees.empTimeClock.SetDbValue((tblEmployees.empTimeClock.CurrentValue <> "" And Not IsDBNull(tblEmployees.empTimeClock.CurrentValue)), System.DBNull.Value)
  1213.                 Rs("empTimeClock") = tblEmployees.empTimeClock.DbValue
  1214.  
  1215.                 ' empUserPass
  1216.             tblEmployees.empUserPass.SetDbValue(tblEmployees.empUserPass.CurrentValue, System.DBNull.Value)
  1217.             Rs("empUserPass") = tblEmployees.empUserPass.DbValue
  1218.  
  1219.             ' empUserLevel
  1220.                         If Security.CanAdmin Then ' System admin
  1221.             tblEmployees.empUserLevel.SetDbValue(tblEmployees.empUserLevel.CurrentValue, System.DBNull.Value)
  1222.             Rs("empUserLevel") = tblEmployees.empUserLevel.DbValue
  1223.             End If
  1224.  
  1225.             ' Row Updating event
  1226.             bUpdateRow = tblEmployees.Row_Updating(RsOld, Rs)
  1227.             If bUpdateRow Then
  1228.                 Try
  1229.                     tblEmployees.Update(Rs)
  1230.                     EditRow = True
  1231.                 Catch e As Exception
  1232.                     If EW_DEBUG_ENABLED Then Throw
  1233.                     Message = e.Message
  1234.                     EditRow = False
  1235.                 End Try
  1236.             Else
  1237.                 If tblEmployees.CancelMessage <> "" Then
  1238.                     Message = tblEmployees.CancelMessage
  1239.                     tblEmployees.CancelMessage = ""
  1240.                 Else
  1241.                     Message = "Update cancelled"
  1242.                 End If
  1243.                 EditRow = False
  1244.             End If
  1245.         End If
  1246.  
  1247.         ' Row Updated event
  1248.         If EditRow Then
  1249.             tblEmployees.Row_Updated(RsOld, Rs)
  1250.         End If
  1251.     End Function
  1252.  
  1253.         ' Page Load event
  1254.         Public Sub Page_Load()
  1255.  
  1256.             'HttpContext.Current.Response.Write("Page Load")
  1257.         End Sub
  1258.  
  1259.         ' Page Unload event
  1260.         Public Sub Page_Unload()
  1261.  
  1262.             'HttpContext.Current.Response.Write("Page Unload")
  1263.         End Sub
  1264.  
  1265.     ' Form Custom Validate event
  1266.     Public Function Form_CustomValidate(ByRef CustomError As String) As Boolean
  1267.  
  1268.         'Return error message in CustomError
  1269.         Return True
  1270.     End Function
  1271.     End Class
  1272.  
  1273.     '
  1274.     ' ASP.NET Page_Load event
  1275.     '
  1276.  
  1277.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  1278.         Response.Buffer = EW_RESPONSE_BUFFER
  1279.         Response.Cache.SetCacheability(HttpCacheability.NoCache)
  1280.  
  1281.         ' Page init
  1282.         tblEmployees_edit = New ctblEmployees_edit(Me)        
  1283.         tblEmployees_edit.Page_Init()
  1284.  
  1285.         ' Page main processing
  1286.         tblEmployees_edit.Page_Main()
  1287.     End Sub
  1288.  
  1289.     '
  1290.     ' ASP.NET Page_Unload event
  1291.     '
  1292.  
  1293.     Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
  1294.  
  1295.         ' Dispose page object
  1296.         If tblEmployees_edit IsNot Nothing Then tblEmployees_edit.Dispose()
  1297.     End Sub
  1298. End Class
  1299.