home *** CD-ROM | disk | FTP | other *** search
/ 66.142.0.142 / 66.142.0.142.tar / 66.142.0.142 / viewEmployeesview.aspx.vb < prev    next >
Text File  |  2010-08-26  |  16KB  |  563 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 viewEmployeesview
  12.     Inherits AspNetMaker7_tfpssnet
  13.  
  14.     ' Page object
  15.     Public viewEmployees_view As cviewEmployees_view
  16.  
  17.     '
  18.     ' Page Class
  19.     '
  20.     Class cviewEmployees_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 viewEmployees.UseTokenInUrl Then Url = Url & "t=" & viewEmployees.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 viewEmployees.UseTokenInUrl Then
  44.                 Result = False
  45.                 If ObjForm IsNot Nothing Then
  46.                     Result = (viewEmployees.TableVar = ObjForm.GetValue("t"))
  47.                 End If
  48.                 If ew_Get("t") <> "" Then
  49.                     Result = (viewEmployees.TableVar = ew_Get("t"))
  50.                 End If
  51.                 Return Result
  52.             End If
  53.             Return True            
  54.         End Function    
  55.  
  56.         ' viewEmployees
  57.         Public Property viewEmployees() As cviewEmployees
  58.             Get                
  59.                 Return ParentPage.viewEmployees
  60.             End Get
  61.             Set(ByVal v As cviewEmployees)
  62.                 ParentPage.viewEmployees = v    
  63.             End Set    
  64.         End Property
  65.  
  66.         ' viewEmployees
  67.         Public Property tblEmployees() As ctblEmployees
  68.             Get                
  69.                 Return ParentPage.tblEmployees
  70.             End Get
  71.             Set(ByVal v As ctblEmployees)
  72.                 ParentPage.tblEmployees = v    
  73.             End Set    
  74.         End Property
  75.  
  76.         '
  77.         '  Constructor
  78.         '  - init objects
  79.         '  - open connection
  80.         '
  81.         Public Sub New(ByRef APage As AspNetMaker7_tfpssnet)                
  82.             m_ParentPage = APage
  83.             m_Page = Me    
  84.             m_PageID = "view"
  85.             m_PageObjName = "viewEmployees_view"
  86.             m_PageObjTypeName = "cviewEmployees_view"
  87.  
  88.             ' Table Name
  89.             m_TableName = "viewEmployees"
  90.  
  91.             ' Initialize table object
  92.             viewEmployees = New cviewEmployees(Me)
  93.             tblEmployees = New ctblEmployees(Me)
  94.  
  95.             ' Connect to database
  96.             Conn = New cConnection()
  97.         End Sub
  98.  
  99.         '
  100.         '  Subroutine Page_Init
  101.         '  - called before page main
  102.         '  - check Security
  103.         '  - set up response header
  104.         '  - call page load events
  105.         '
  106.         Public Sub Page_Init()
  107.             Security = New cAdvancedSecurity(Me)
  108.             If Not Security.IsLoggedIn() Then Security.AutoLogin()
  109.             If Not Security.IsLoggedIn() Then
  110.                 Security.SaveLastUrl()
  111.                 Page_Terminate("login.aspx")
  112.             End If
  113.  
  114.             ' Table Permission loading event
  115.             Security.TablePermission_Loading()
  116.             Security.LoadCurrentUserLevel(TableName)
  117.  
  118.             ' Table Permission loaded event
  119.             Security.TablePermission_Loaded()
  120.             If Not Security.CanView Then
  121.                 Security.SaveLastUrl()
  122.                 Page_Terminate("viewEmployeeslist.aspx")
  123.             End If
  124.  
  125.             ' User ID loading event
  126.             Security.UserID_Loading()
  127.             If Security.IsLoggedIn() Then Call Security.LoadUserID()
  128.  
  129.             ' User ID loaded event
  130.             Security.UserID_Loaded()
  131.             If Security.IsLoggedIn() And ew_Empty(Security.CurrentUserID) Then
  132.                 Message = "You do not have the right permission to view the page"
  133.                 Page_Terminate("viewEmployeeslist.aspx")
  134.             End If
  135.  
  136.             ' Global page loading event (in ewglobal*.vb)
  137.             ParentPage.Page_Loading()
  138.  
  139.             ' Page load event, used in current page
  140.             Page_Load()
  141.         End Sub
  142.  
  143.         '
  144.         '  Class terminate
  145.         '  - clean up page object
  146.         '
  147.         Public Sub Dispose() Implements IDisposable.Dispose
  148.             Page_Terminate("")
  149.         End Sub
  150.  
  151.         '
  152.         '  Sub Page_Terminate
  153.         '  - called when exit page
  154.         '  - clean up connection and objects
  155.         '  - if URL specified, redirect to URL
  156.         '
  157.         Sub Page_Terminate(url As String)
  158.  
  159.             ' Page unload event, used in current page
  160.             Page_Unload()
  161.  
  162.             ' Global page unloaded event (in ewglobal*.vb)
  163.             ParentPage.Page_Unloaded()
  164.  
  165.             ' Close connection
  166.             Conn.Dispose()
  167.             Security = Nothing
  168.             viewEmployees.Dispose()
  169.             tblEmployees.Dispose()
  170.  
  171.             ' Go to URL if specified
  172.             If url <> "" Then
  173.                 HttpContext.Current.Response.Clear()
  174.                 HttpContext.Current.Response.Redirect(url)
  175.             End If
  176.         End Sub
  177.  
  178.     Public lDisplayRecs As Integer ' Number of display records
  179.  
  180.     Public lStartRec As Integer, lStopRec As Integer, lTotalRecs As Integer, lRecRange As Integer
  181.  
  182.     Public lRecCnt As Integer
  183.  
  184.     Public sSrchWhere As String
  185.  
  186.     '
  187.     ' Page main processing
  188.     '
  189.     Sub Page_Main()
  190.         Dim sReturnUrl As String = ""
  191.         Dim bMatchRecord As Boolean = False
  192.         If IsPageRequest Then ' Validate request
  193.             If ew_Get("empID") <> "" Then
  194.                 viewEmployees.empID.QueryStringValue = ew_Get("empID")
  195.             Else
  196.                 sReturnUrl = "viewEmployeeslist.aspx" ' Return to list
  197.             End If
  198.  
  199.             ' Get action
  200.             viewEmployees.CurrentAction = "I" ' Display form
  201.             Select Case viewEmployees.CurrentAction
  202.                 Case "I" ' Get a record to display
  203.                     If Not LoadRow() Then ' Load record based on key
  204.                         Message = "No records found" ' Set no record message
  205.                         sReturnUrl = "viewEmployeeslist.aspx" ' No matching record, return to list
  206.                     End If
  207.             End Select
  208.         Else
  209.             sReturnUrl = "viewEmployeeslist.aspx" ' Not page request, return to list
  210.         End If
  211.         If sReturnUrl <> "" Then Page_Terminate(sReturnUrl)
  212.  
  213.         ' Render row
  214.         viewEmployees.RowType = EW_ROWTYPE_VIEW
  215.         RenderRow()
  216.     End Sub
  217.  
  218.     Public Pager As Object
  219.  
  220.     '
  221.     ' Set up Starting Record parameters
  222.     '
  223.     Sub SetUpStartRec()
  224.         Dim nPageNo As Integer
  225.  
  226.         ' Exit if lDisplayRecs = 0
  227.         If lDisplayRecs = 0 Then Exit Sub
  228.         If IsPageRequest Then ' Validate request
  229.  
  230.             ' Check for a "start" parameter
  231.             If ew_Get(EW_TABLE_START_REC) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_START_REC)) Then
  232.                 lStartRec = ew_ConvertToInt(ew_Get(EW_TABLE_START_REC))
  233.                 viewEmployees.StartRecordNumber = lStartRec
  234.             ElseIf ew_Get(EW_TABLE_PAGE_NO) <> "" AndAlso IsNumeric(ew_Get(EW_TABLE_PAGE_NO)) Then
  235.                 nPageNo = ew_ConvertToInt(ew_Get(EW_TABLE_PAGE_NO))
  236.                 lStartRec = (nPageNo-1)*lDisplayRecs+1
  237.                 If lStartRec <= 0 Then
  238.                     lStartRec = 1
  239.                 ElseIf lStartRec >= ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 Then
  240.                     lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1
  241.                 End If
  242.                 viewEmployees.StartRecordNumber = lStartRec
  243.             End If
  244.         End If
  245.         lStartRec = viewEmployees.StartRecordNumber
  246.  
  247.         ' Check if correct start record counter
  248.         If lStartRec <= 0 Then ' Avoid invalid start record counter
  249.             lStartRec = 1 ' Reset start record counter
  250.             viewEmployees.StartRecordNumber = lStartRec
  251.         ElseIf lStartRec > lTotalRecs Then ' Avoid starting record > total records
  252.             lStartRec = ((lTotalRecs-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to last page first record
  253.             viewEmployees.StartRecordNumber = lStartRec
  254.         ElseIf (lStartRec-1) Mod lDisplayRecs <> 0 Then
  255.             lStartRec = ((lStartRec-1)\lDisplayRecs)*lDisplayRecs+1 ' Point to page boundary
  256.             viewEmployees.StartRecordNumber = lStartRec
  257.         End If
  258.     End Sub
  259.  
  260.     '
  261.     ' Load default values
  262.     '
  263.     Sub LoadDefaultValues()
  264.     End Sub
  265.  
  266.     '
  267.     ' Load row based on key values
  268.     '
  269.     Function LoadRow() As Boolean
  270.         Dim RsRow As OleDbDataReader
  271.         Dim sFilter As String = viewEmployees.KeyFilter
  272.  
  273.         ' Row Selecting event
  274.         viewEmployees.Row_Selecting(sFilter)
  275.  
  276.         ' Load SQL based on filter
  277.         viewEmployees.CurrentFilter = sFilter
  278.         Dim sSql As String = viewEmployees.SQL
  279.  
  280.         ' Write SQL for debug
  281.         If EW_DEBUG_ENABLED Then ew_Write(sSql)
  282.         Try
  283.             RsRow = Conn.GetTempDataReader(sSql)    
  284.             If Not RsRow.Read() Then
  285.                 Return False
  286.             Else                
  287.                 LoadRowValues(RsRow) ' Load row values
  288.  
  289.                 ' Row Selected event
  290.                 viewEmployees.Row_Selected(RsRow)
  291.                 Return True    
  292.             End If
  293.         Catch
  294.             If EW_DEBUG_ENABLED Then Throw
  295.             Return False
  296.         Finally
  297.             Conn.CloseTempDataReader()
  298.         End Try
  299.     End Function
  300.  
  301.     '
  302.     ' Load row values from recordset
  303.     '
  304.     Sub LoadRowValues(ByRef RsRow As OleDbDataReader)
  305.         viewEmployees.empID.DbValue = RsRow("empID")
  306.             viewEmployees.empPayrollNumber.DbValue = RsRow("empPayrollNumber")
  307.             viewEmployees.empUsername.DbValue = RsRow("empUsername")
  308.             viewEmployees.empName.DbValue = RsRow("empName")
  309.         viewEmployees.empFirstName.DbValue = RsRow("empFirstName")
  310.         viewEmployees.empLastName.DbValue = RsRow("empLastName")
  311.         viewEmployees.empAddress.DbValue = RsRow("empAddress")
  312.         viewEmployees.empCity.DbValue = RsRow("empCity")
  313.         viewEmployees.empState.DbValue = RsRow("empState")
  314.         viewEmployees.empZIP.DbValue = RsRow("empZIP")
  315.         viewEmployees.empPhone.DbValue = RsRow("empPhone")
  316.         viewEmployees.empEmail.DbValue = RsRow("empEmail")
  317.         viewEmployees.empUserPass.DbValue = RsRow("empUserPass")
  318.     End Sub
  319.  
  320.     '
  321.     ' Render row values based on field settings
  322.     '
  323.     Sub RenderRow()
  324.  
  325.         ' Row Rendering event
  326.         viewEmployees.Row_Rendering()
  327.  
  328.         '
  329.         '  Common render codes for all row types
  330.         '
  331.         ' empID
  332.  
  333.         viewEmployees.empID.CellCssStyle = ""
  334.         viewEmployees.empID.CellCssClass = ""
  335.  
  336.             ' empPayrollNumber
  337.             viewEmployees.empPayrollNumber.CellCssStyle = ""
  338.             viewEmployees.empPayrollNumber.CellCssClass = ""
  339.  
  340.             ' empUsername
  341.             viewEmployees.empUsername.CellCssStyle = ""
  342.             viewEmployees.empUsername.CellCssClass = ""
  343.  
  344.             ' empName
  345.         viewEmployees.empName.CellCssStyle = ""
  346.         viewEmployees.empName.CellCssClass = ""
  347.  
  348.         ' empFirstName
  349.         viewEmployees.empFirstName.CellCssStyle = ""
  350.         viewEmployees.empFirstName.CellCssClass = ""
  351.  
  352.         ' empLastName
  353.         viewEmployees.empLastName.CellCssStyle = ""
  354.         viewEmployees.empLastName.CellCssClass = ""
  355.  
  356.         ' empAddress
  357.         viewEmployees.empAddress.CellCssStyle = ""
  358.         viewEmployees.empAddress.CellCssClass = ""
  359.  
  360.         ' empCity
  361.         viewEmployees.empCity.CellCssStyle = ""
  362.         viewEmployees.empCity.CellCssClass = ""
  363.  
  364.         ' empState
  365.         viewEmployees.empState.CellCssStyle = ""
  366.         viewEmployees.empState.CellCssClass = ""
  367.  
  368.         ' empZIP
  369.         viewEmployees.empZIP.CellCssStyle = ""
  370.         viewEmployees.empZIP.CellCssClass = ""
  371.  
  372.         ' empPhone
  373.         viewEmployees.empPhone.CellCssStyle = ""
  374.         viewEmployees.empPhone.CellCssClass = ""
  375.  
  376.         ' empEmail
  377.         viewEmployees.empEmail.CellCssStyle = ""
  378.         viewEmployees.empEmail.CellCssClass = ""
  379.  
  380.         ' empUserPass
  381.         viewEmployees.empUserPass.CellCssStyle = ""
  382.         viewEmployees.empUserPass.CellCssClass = ""
  383.  
  384.         '
  385.         '  View  Row
  386.         '
  387.  
  388.         If viewEmployees.RowType = EW_ROWTYPE_VIEW Then ' View row
  389.  
  390.             ' empID
  391.             viewEmployees.empID.ViewValue = viewEmployees.empID.CurrentValue
  392.             viewEmployees.empID.CssStyle = ""
  393.             viewEmployees.empID.CssClass = ""
  394.             viewEmployees.empID.ViewCustomAttributes = ""
  395.  
  396.                 ' empPayrollNumber
  397.                 viewEmployees.empPayrollNumber.ViewValue = viewEmployees.empPayrollNumber.CurrentValue
  398.                 viewEmployees.empPayrollNumber.CssStyle = ""
  399.                 viewEmployees.empPayrollNumber.CssClass = ""
  400.                 viewEmployees.empPayrollNumber.ViewCustomAttributes = ""
  401.  
  402.                 ' empUsername
  403.                 viewEmployees.empUsername.ViewValue = viewEmployees.empUsername.CurrentValue
  404.                 viewEmployees.empUsername.CssStyle = ""
  405.                 viewEmployees.empUsername.CssClass = ""
  406.                 viewEmployees.empUsername.ViewCustomAttributes = ""
  407.  
  408.                 ' empName
  409.             viewEmployees.empName.ViewValue = viewEmployees.empName.CurrentValue
  410.             viewEmployees.empName.CssStyle = ""
  411.             viewEmployees.empName.CssClass = ""
  412.             viewEmployees.empName.ViewCustomAttributes = ""
  413.  
  414.             ' empFirstName
  415.             viewEmployees.empFirstName.ViewValue = viewEmployees.empFirstName.CurrentValue
  416.             viewEmployees.empFirstName.CssStyle = ""
  417.             viewEmployees.empFirstName.CssClass = ""
  418.             viewEmployees.empFirstName.ViewCustomAttributes = ""
  419.  
  420.             ' empLastName
  421.             viewEmployees.empLastName.ViewValue = viewEmployees.empLastName.CurrentValue
  422.             viewEmployees.empLastName.CssStyle = ""
  423.             viewEmployees.empLastName.CssClass = ""
  424.             viewEmployees.empLastName.ViewCustomAttributes = ""
  425.  
  426.             ' empAddress
  427.             viewEmployees.empAddress.ViewValue = viewEmployees.empAddress.CurrentValue
  428.             viewEmployees.empAddress.CssStyle = ""
  429.             viewEmployees.empAddress.CssClass = ""
  430.             viewEmployees.empAddress.ViewCustomAttributes = ""
  431.  
  432.             ' empCity
  433.             viewEmployees.empCity.ViewValue = viewEmployees.empCity.CurrentValue
  434.             viewEmployees.empCity.CssStyle = ""
  435.             viewEmployees.empCity.CssClass = ""
  436.             viewEmployees.empCity.ViewCustomAttributes = ""
  437.  
  438.             ' empState
  439.             viewEmployees.empState.ViewValue = viewEmployees.empState.CurrentValue
  440.             viewEmployees.empState.CssStyle = ""
  441.             viewEmployees.empState.CssClass = ""
  442.             viewEmployees.empState.ViewCustomAttributes = ""
  443.  
  444.             ' empZIP
  445.             viewEmployees.empZIP.ViewValue = viewEmployees.empZIP.CurrentValue
  446.             viewEmployees.empZIP.CssStyle = ""
  447.             viewEmployees.empZIP.CssClass = ""
  448.             viewEmployees.empZIP.ViewCustomAttributes = ""
  449.  
  450.             ' empPhone
  451.             viewEmployees.empPhone.ViewValue = viewEmployees.empPhone.CurrentValue
  452.             viewEmployees.empPhone.CssStyle = ""
  453.             viewEmployees.empPhone.CssClass = ""
  454.             viewEmployees.empPhone.ViewCustomAttributes = ""
  455.  
  456.             ' empEmail
  457.             viewEmployees.empEmail.ViewValue = viewEmployees.empEmail.CurrentValue
  458.             viewEmployees.empEmail.CssStyle = ""
  459.             viewEmployees.empEmail.CssClass = ""
  460.             viewEmployees.empEmail.ViewCustomAttributes = ""
  461.  
  462.             ' empUserPass
  463.             viewEmployees.empUserPass.ViewValue = "********"
  464.             viewEmployees.empUserPass.CssStyle = ""
  465.             viewEmployees.empUserPass.CssClass = ""
  466.             viewEmployees.empUserPass.ViewCustomAttributes = ""
  467.  
  468.             ' View refer script
  469.             ' empID
  470.  
  471.             viewEmployees.empID.HrefValue = ""
  472.  
  473.                 ' empPayrollNumber
  474.                 viewEmployees.empPayrollNumber.HrefValue = ""
  475.  
  476.                 ' empUsername
  477.                 viewEmployees.empUsername.HrefValue = ""
  478.  
  479.                 ' empName
  480.             viewEmployees.empName.HrefValue = ""
  481.  
  482.             ' empFirstName
  483.             viewEmployees.empFirstName.HrefValue = ""
  484.  
  485.             ' empLastName
  486.             viewEmployees.empLastName.HrefValue = ""
  487.  
  488.             ' empAddress
  489.             viewEmployees.empAddress.HrefValue = ""
  490.  
  491.             ' empCity
  492.             viewEmployees.empCity.HrefValue = ""
  493.  
  494.             ' empState
  495.             viewEmployees.empState.HrefValue = ""
  496.  
  497.             ' empZIP
  498.             viewEmployees.empZIP.HrefValue = ""
  499.  
  500.             ' empPhone
  501.             viewEmployees.empPhone.HrefValue = ""
  502.  
  503.             ' empEmail
  504.             viewEmployees.empEmail.HrefValue = ""
  505.  
  506.             ' empUserPass
  507.             viewEmployees.empUserPass.HrefValue = ""
  508.         End If
  509.  
  510.         ' Row Rendered event
  511.         viewEmployees.Row_Rendered()
  512.     End Sub
  513.  
  514.     '
  515.     ' Show link optionally based on user ID
  516.     '
  517.     Function ShowOptionLink() As Boolean        
  518.         If Security.IsLoggedIn() AndAlso Not Security.IsAdmin() Then
  519.             Return Security.IsValidUserID(viewEmployees.empID.CurrentValue)
  520.         End If
  521.         Return True
  522.     End Function
  523.  
  524.         ' Page Load event
  525.         Public Sub Page_Load()
  526.  
  527.             'HttpContext.Current.Response.Write("Page Load")
  528.         End Sub
  529.  
  530.         ' Page Unload event
  531.         Public Sub Page_Unload()
  532.  
  533.             'HttpContext.Current.Response.Write("Page Unload")
  534.         End Sub
  535.     End Class
  536.  
  537.     '
  538.     ' ASP.NET Page_Load event
  539.     '
  540.  
  541.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  542.         Response.Buffer = EW_RESPONSE_BUFFER
  543.         Response.Cache.SetCacheability(HttpCacheability.NoCache)
  544.  
  545.         ' Page init
  546.         viewEmployees_view = New cviewEmployees_view(Me)        
  547.         viewEmployees_view.Page_Init()
  548.  
  549.         ' Page main processing
  550.         viewEmployees_view.Page_Main()
  551.     End Sub
  552.  
  553.     '
  554.     ' ASP.NET Page_Unload event
  555.     '
  556.  
  557.     Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
  558.  
  559.         ' Dispose page object
  560.         If viewEmployees_view IsNot Nothing Then viewEmployees_view.Dispose()
  561.     End Sub
  562. End Class
  563.