*Memberresume.prg
#INCLUDE WCONNECT.H


*************************************************************
DEFINE CLASS MemberResume AS rbPage
*************************************************************

   ********************************************************
   ** Page() - PUBLIC -
   ** Show the Page
   ********************************************************
   FUNCTION Page
     LOCAL loDataManager
      STORE .NULL. to loDataManager  && always init
      
      ** build page content
      ** using our DataLayer and HTMLTable Classes
     loDataManager = This.DataManager()
     This.Content = This.DataGrid(loDataManager)     

      ** Merge and show the page
     This.PageTitle = "Member Resumes"
     This.Merge('TemplatePage.htm')
   ENDFUNC &&AdminEditMeetingsList




************************************************************
** Helper Functions below
************************************************************

   HIDDEN Function DataManager
     LOCAL loDataMan
     STORE .NULL. to loDataMan
      ** Remember to set procedure to DataLayer.prg additive!!
     loDataMan = CreateObject("DataManager")
     loDataMan.SQL = [SELECT lastname, firstname, dateposted, filename FROM ]+Site.MemberPath+"member.dbf"+[ INNER JOIN ]+Site.DataPath+"resume.dbf"+[ ON resume.memberid = member.memberid order by lastname where approved]
       loDataMan.PageSize = 20    && Defaults to 20 - for next prev pages automatically
     loDataMan.QueryAsNeeded()  && Requery actual data first page
                                         && subsequent pages use cached data
     loDataMan.OrderDefault="LastName"  && Since we want to search - we must have an initial order set
     RETURN loDataMan
   ENDFUNC 


   HIDDEN FUNCTION DataGrid(toData)
     LOCAL loTable
     STORE .NULL. to loGrid
      ** Required
      ** Remember to set procedure to HTMLTable.prg additive!!
      loGrid = CreateObject("DataGrid", toData)

      ** Optional - defaults to ALL fields
      ** Creates a column object for each field
      ** Will create This.Col_LastName, This.Col_FirstName etc 
      ** Col_FieldName :)
      loGrid.FieldList      = [LastName,FirstName,Dateposted,FileName]      
      
      ** Optional - defaults to Field Names      
      loGrid.CaptionList   = [Last Name,First Name,Date Posted,Resume File]      

      ** Optional
      ** link to the detail page - 
      ** NOTE this expression will be evaluated - so quote the strings
      loGrid.Col_FileName.HrefExpression = ['/Resumes/'+FileName]

      ** Optional - all columns default to sortable
      ** For these columns no sort 
      loGrid.Col_FileName.Sortable = .F.
      loGrid.Col_DatePosted.Sortable = .F.
            
      
    RETURN  [<B>]+This.PageTitle+[</B>] ;
                +loGrid.HTMLGrid() ;
              +loGrid.HTMLNavBar()
   ENDFUNC 




ENDDEFINE 
csCodeParser v0.9 stats: 82 lines in 0.00 seconds.