Web Connect How To : Show Me the Code!

 LAFOX Home How URL Maps to Code  LAFOX Design Oveview  Framework Extensions 
*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.